![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to refer.mac CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSDReno / share / doc / usd / 29.refer|
Return to refer.mac CVS log | Up to [CSRG BSD Unix] / 43BSDReno / share / doc / usd / 29.refer |
1.1 ! root 1: .\" Copyright (c) 1983 Regents of the University of California. ! 2: .\" All rights reserved. The Berkeley software License Agreement ! 3: .\" specifies the terms and conditions for redistribution. ! 4: .\" ! 5: .\" @(#)refer.mac 6.1 (Berkeley) 6/2/86 ! 6: .\" ! 7: ! 8: ! 9: ! 10: ! 11: ! 12: ! 13: COMMENTED REFER MACROS ! 14: ! 15: ! 16: ! 17: ! 18: . \" refer macros for citations ! 19: .de [] ! 20: .][ \\$1 # mysterious synonym for .][ ! 21: .. ! 22: .de ][ # changes .][ according to argument ! 23: .if \\$1>4 .tm %M undefined (Bell Labs) # no macros defined above [4 ! 24: .[\\$1 # call one of the macros below ! 25: .. ! 26: .if \n(.V>19 .ds [. \f1[ # open bracket for nroff ! 27: .if \n(.V<20 .ds [. \f1\s-2\v'-0.4m' # superscripting for troff/daisy-wheel ! 28: .if \n(.V>19 .ds .] ]\fP # close bracket for nroff ! 29: .if \n(.V<20 .ds .] \v'0.4m'\s+2\fP # end troff/daisy-wheel superscripting ! 30: .if n .ds [o \&" # open quote for nroff ! 31: .if n .ds [c \&" # close quote for nroff ! 32: .if t .ds [o `` # open quote for troff ! 33: .if t .ds [c '' # close quote for troff ! 34: .ds <. . # period before citation number ! 35: .ds <, , # comma before citation number ! 36: . \" [0 - other type of citation ! 37: .de [0 ! 38: .FS # start -ms footnote ! 39: .nr [: 0 # has anything been printed? ! 40: .if !"\\*([F"" .FP \\*([F # number for footnote paragraph ! 41: .if !"\\*([Q"" \{\ ! 42: .nr [: 1 # if there's a corporate author, ! 43: \\*([Q\c # set [: to 1 and print [Q ! 44: .\} ! 45: .if !"\\*([A"" \{\ # if there's an author, ! 46: .nr [: 1 # set [: to 1, ! 47: \\*([A\c # print the author and continue ! 48: .\} ! 49: .if !"\\*([T"" \{\ # if there's a title, ! 50: .if \\n([:>0 , # print comma if there was author, ! 51: .nr [: 1 # set [: to 1, ! 52: \f2\\*([T\f1\c # and print the title in italics ! 53: .\} ! 54: .if !"\\*([S"" , \\*([S\c # series title, not in italics ! 55: .if !"\\*([V"" , \\*([V\c # if there's a volume, print it ! 56: .if !"\\*([P"" \{\ ! 57: .ie \\n([P>0 , pp. \\*([P\c # if multiple pages, use pp. ! 58: .el , p. \\*([P\c # if only one page, use p. ! 59: .\} ! 60: .if !"\\*([C"" , \\*([C\c # if there's a city, print it ! 61: .if !"\\*([D"" , \\*([D\c # if there's a date, print it ! 62: .if \\n([:>0 \&. # if [Q [A or [T, print period ! 63: .if !"\\*([O"" \\*([O # print the other field if present ! 64: .FE # end -ms footnote ! 65: .. ! 66: ! 67: ! 68: ! 69: ! 70: ! 71: ! 72: ! 73: ! 74: ! 75: ! 76: .de [1 \" [1 - journal article ! 77: .FS # start -ms footnote ! 78: .if !"\\*([F"" .FP \\*([F # number for footnote paragraph ! 79: .if !"\\*([Q"" \\*([Q, # if corporate author, print it ! 80: .if !"\\*([A"" \\*([A, # if author, print with comma ! 81: .if !"\\*([T"" \\*([o\\*([T,\\*([c # if title, print with quotes ! 82: \f2\\*([J\f1\c # always a journal, in italics ! 83: .if !"\\*([V"" , vol. \\*([V\c # if volume, print after "vol." ! 84: .if !"\\*([N"" , no. \\*([N\c # if number, print after "no." ! 85: .if !"\\*([P"" \{\ ! 86: .ie \\n([P>0 , pp. \\*([P\c # if multiple pages, use pp. ! 87: .el , p. \\*([P\c # if only one page, use p. ! 88: .\} ! 89: .if !"\\*([I"" , \\*([I\c # if there's a publisher, print it ! 90: .if !"\\*([C"" , \\*([C\c # if there's a city, print it ! 91: .if !"\\*([D"" , \\*([D\c # if there's a date, print it ! 92: \&. # end reference with period ! 93: .if !"\\*([O"" \\*([O # if other information, print it ! 94: .FE # end -ms footnote ! 95: .. ! 96: .de [2 \" [2 - book ! 97: .FS # start -ms footnote ! 98: .if !"\\*([F"" .FP \\*([F # number for footnote paragraph ! 99: .if !"\\*([Q"" \\*([Q, # if corporate author, print it ! 100: .if !"\\*([A"" \\*([A, # if author, print with comma ! 101: .if !"\\*([T"" \f2\\*([T,\f1 # title and comma in italics ! 102: .if !"\\*([S"" \\*([S, # series title, not in italics ! 103: .if !"\\*([V"" \\*([V, # perhaps [V says "4 vols." ! 104: .if !"\\*([P"" \{\ ! 105: .ie \\n([P>0 pp. \\*([P, # if multiple pages, use pp. ! 106: .el p. \\*([P, # if only one page, use p. ! 107: .\} ! 108: \\*([I\c # always a publisher with book ! 109: .if !"\\*([C"" , \\*([C\c # if there's a city, print it ! 110: .if !"\\*([D"" , \\*([D\c # if there's a date, print it ! 111: \&. # end reference with period ! 112: .if !"\\*([O"" \\*([O # if other information, print it ! 113: .FE # end -ms footnote ! 114: .. ! 115: .de [3 \" [3 - article in book ! 116: .FS # start -ms footnote ! 117: .if !"\\*([F"" .FP \\*([F # number for footnote paragraph ! 118: .if !"\\*([Q"" \\*([Q, # if corporate author, print it ! 119: .if !"\\*([A"" \\*([A, # if author, print with comma ! 120: .if !"\\*([T"" \\*([o\\*([T,\\*([c # title and comma in quotes ! 121: in \f2\\*([B\f1\c # always "in" book, italicized ! 122: .if !"\\*([E"" , ed. \\*([E\c # if an editor, should follow book ! 123: .if !"\\*([S"" , \\*([S\c # series title, not in italics ! 124: .if !"\\*([V"" , vol. \\*([V\c # if volume, print after "vol." ! 125: .if !"\\*([P"" \{\ ! 126: .ie \\n([P>0 , pp. \\*([P\c # if multiple pages, use pp. ! 127: .el , p. \\*([P\c # if only one page, use p. ! 128: .\} ! 129: .if !"\\*([I"" , \\*([I\c # if there's a publisher, print it ! 130: .if !"\\*([C"" , \\*([C\c # if there's a city, print it ! 131: .if !"\\*([D"" , \\*([D\c # if there's a date, print it ! 132: \&. # end reference with period ! 133: .if !"\\*([O"" \\*([O # if other information, print it ! 134: .FE # end -ms footnote ! 135: .. ! 136: ! 137: ! 138: ! 139: ! 140: ! 141: ! 142: ! 143: ! 144: . \" [4 - report ! 145: .de [4 ! 146: .FS # start -ms footnote ! 147: .if !"\\*([F"" .FP \\*([F # number for footnote paragraph ! 148: .if !"\\*([Q"" \\*([Q, # if corporate author, print it ! 149: .if !"\\*([A"" \\*([A, # if author, print with comma ! 150: .if !"\\*([T"" \\*([o\\*([T,\\*([c # title and comma in quotes ! 151: .if !"\\*([R"" \\*([R\c # if a report number, print it ! 152: .if !"\\*([G"" \& (\\*([G)\c # put [G string in parentheses ! 153: .if !"\\*([P"" \{\ ! 154: .ie \\n([P>0 , pp. \\*([P\c # if multiple pages, use pp. ! 155: .el , p. \\*([P\c # if only one page, use p. ! 156: .\} ! 157: .if !"\\*([I"" , \\*([I\c # if there's a publisher, print it ! 158: .if !"\\*([C"" , \\*([C\c # if there's a city, print it ! 159: .if !"\\*([D"" , \\*([D\c # if there's a date, print it ! 160: \&. # end reference with period ! 161: .if !"\\*([O"" \\*([O # if other information, print it ! 162: .FE # end -ms footnote ! 163: .. ! 164: .de ]< # mysterious synonym for [< ! 165: .[< ! 166: .. ! 167: .de [< # For footnotes at end of text, ! 168: .SH # with the -e or -s $LIST$ options. ! 169: References # Print References section heading. ! 170: .LP # Initialize; IP references printed, ! 171: .rn IP FP # because FP is replaced by IP, ! 172: .rm FS FE # and footnote macros are removed. ! 173: .. ! 174: .de [> # mysterious synonym for ]> ! 175: .]> ! 176: .. ! 177: .de ]> # with the -e or -s $LIST$ options, ! 178: .sp # put a space between references ! 179: .. ! 180: .de ]- # mysterious synonym for [- ! 181: .[- ! 182: .. ! 183: .de [- # Appears at start of references, ! 184: .rm [Q [A [T [J [B [E [S [V # to remove old string definitions-- ! 185: .rm [N [P [I [C [D [O [R [G # if you add new field strings, ! 186: .. # they should be removed as well. ! 187: .de ]] ! 188: .\" circumvent EOF bug in troff # mysterious fix for .MC output ! 189: .. ! 190: ! 191: ! 192: ! 193: ! 194: ! 195: ! 196: Note: the double quotes in string comparisons are in fact control-g ! 197: characters; this allows fields to contain double quotes. ! 198: ! 199: ! 200: ! 201: ! 202: ! 203: ! 204:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.