Listing 1: refer.mm--Refer macro package

.\" Macros to deal with refer output. These macros are invoked by the
.\" Output generated by refer.
.\"     .ds [F <label>  Label associated with the book/article
.\"     .ds [x   String for character x, see addbib
.\"
.\" Macro ]- to start bibliographic data in input
.\" Macro ][ A B to terminate bibliographic data in input.
.\"     if A is 0 B is set to other
.\"     if A is 1 B is set to journal-article
.\"     if A is 2 B is set to book
.\"     if A is 3 B is set to article-in-book
.\"     if A is 4 B is set to report
.\" Macro ]< is invoked at beginning of bibliography when -e flag specified.
.\"     Sets register r? to 1, prints bibliograpy in list mode at end of
.\"     document. Otherwise each reference entry is printed as footnote.
.\" Macro ]> is invoked at end of bibliography when -e flag of refer
.\"
.\" This macro package uses the mm macros
.\" .PH .PF .H .VL .LI .LE .FS .FE
.\" Strings to delimit label in text.
.ds [. "\ [\s-2
.ds .] \s+2]\
.\"
.\" Open/close quotation marks
.if n .ds [o \&"
.if n .ds [c \&"
.if t .ds [o ``
.if t .ds [c ''
.nr r? 0 \" Set refer collector mode off
.\"
.de]<
.nr r? 1
.nf
.PF ''''
.PH ''''
.H 1 Bibliography
.VL 10
..
.\"
.de]>
.if \\n(r? .LE
.bp
..
.\"
.de][
.ie \\n(r? .LI \\*([F
.el .FS "\\*([.\\*([F\\*(.]"
.if \w'\\*([Q' \\*([Q.
.if \w'\\*([A' \\*([A,
.if '\\$1'0' \{\
\\*([o\\*([T\\*([c\c
.if \w'\\*([S' , \\*([S\c
.if \w'\\*([V' , \\*([V\c
.if \w'\\*([P' \{\
.ie \\n([P>0 , pp. \\*([P\c
.el , p. \\*([P\c
.\}
.if \w'\\*([C' , \\*([C\c
.if \w'\\*([D' , \\*([D\c
\&. \}
.if '\\$1'1' \{\
\\*([o\\*([T\\*([c
.I "\\*([J\\\\c"
.if \w'\\*([V' , Vol\ \\*([V\c
.if \w'\\*([N' , No\ \\*([N\c
.if \w'\\*([P' \{\
.ie \\n([P>0 , pp. \\*([P\c
.el , p. \\*([P\c
.\}
.if \w'\\*([I' , \\*([I\c
.if \w'\\*([C' , \\*([C\c
.if \w'\\*([D' , \\*([D\c
\&. \}
.if '\\$1'2' \{\
.I "\\*([T" ,
.if \w'\\*([S' \\*([S,
.if \w'\\*([V' \\*([V,
.if \w'\\*([P' \{\
.ie \\n([P>0 pp. \\*([P\c
.el p. \\*([P\c
.\}
\\*([I\c
.if \w'\\*([C' , \\*([C\c
.if \w'\\*([D' , \\*([D\c
\&. \}
.if '\\$1'3' \{\
.if \w'\\*([T' \\*([o\\*([T\\*([c,
in
.I "\\*([B\\\\c"
.if \w'\\*([E' , ed. \\*([E\c
.if \w'\\*([S' , \\*([S\c
.if \w'\\*([V' , Vol\ \\*([V\c
.if \w'\\*([P' \{\
.ie \\n([P>0 , pp. \\*([P\c
.el , p. \\*([P\c
.\}
.if \w'\\*([I' , \\*([I\c
.if \w'\\*([C' , \\*([C\c
.if \w'\\*([D' , \\*([D\c
\&. \}
.if '\\$1'4' \{\
.if \w'\\*([T' \\*([o\\*([T\\*([c,
.if \w'\\*([R' \\*([R\c
.if \w'\\*([G' \& (\\*([G)\c
.if \w'\\*([P' \{\
.ie \\n([P>0 , pp. \\*([P\c
.el , p. \\*([P\c
.\}
.if \w'\\*([I' , \\*([I\c
.if \w'\\*([C' , \\*([C\c
.if \w'\\*([D' , \\*([D\c
\&. \}
.if \w'\\*([O' \\*([O
.if !\\n(r? .FE
.rm [Q [A [T [J [B [E [S [V
.rm [N [P [I [C [D [O [R [G
..