sys/lib/tmac/tmac.srefs

   1 .\" REFER macros .... citations
   2 .de []
   3 .][ \\$1
   4 ..
   5 .de ][
   6 .if \\$1>5 .tm Bad arg to []
   7 .[\\$1
   8 ..
   9 .if n .ds [. [
  10 .if t .ds [. \s-2\v'-.4m'\f1
  11 .if n .ds .] ]
  12 .if t .ds .] \v'.4m'\s+2\fP
  13 .if n .ds [o ""
  14 .if n .ds [c ""
  15 .if t .ds [o ``
  16 .if t .ds [c ''
  17 .\" the next lines deal with the problem of .[1] or [1].
  18 .\" refer will write "linexxx\*(<.[1]\*(>.
  19 .\" and either "<." or ">." should produce the .;
  20 .\" similarly for ,
  21 .if n .ds >. .
  22 .if t .ds <. .
  23 .if n .ds >, ,
  24 .if t .ds <, ,
  25 .\" default separator for authors
  26 .ds [a ,
  27 .de [5 \" tm style
  28 .FS
  29 .IP "\\*([F.\0"
  30 .nr %T 2
  31 \\*([A, \\f2\\*([T\\f1,
  32 .ie \\n(TN \\*([M.
  33 .el Bell Laboratories internal memorandum (\\*([D).
  34 .RT
  35 .FE
  36 ..
  37 .de [0 \" other
  38 .FS
  39 .nr [: 0
  40 .if !"\\*([F"" .IP "\\*([F.\0"
  41 .if !"\\*([A"" \{.nr [: 1
  42 \\*([A\c\}
  43 .if !"\\*([T"" \{.if \\n([:>0 ,
  44 .nr [: 1
  45 \\f2\\*([T\\f1\c\}
  46 .if !"\\*([O""\{.if \\n([:>0 ,
  47 .nr [: 1
  48 .if \\n([O>0 .nr [: 0
  49 \\*([O\c
  50 .if \\n([O>0 \& \c\}
  51 .if !"\\*([D"" \{.if \\n([:>0 ,
  52 .nr [: 1
  53 \\*([D\c\}
  54 .if \\n([:>0 \&.
  55 .if !"\\*([%"" Cited p. \\*([%.
  56 .RT
  57 .FE
  58 ..
  59 .de [1 \" journal article
  60 .nr %T 1 \" title font
  61 .FS
  62 .if !"\\*([R"" .rm [C
  63 .if !"\\*([F"" .IP "\\*([F.\0"
  64 .if !"\\*([A"" \\*([A,
  65 .if !"\\*([T"" \\*([o\\*([T,\\*([c
  66 \\f2\\*([J\\f1\c
  67 .if !"\\*([C"" , \\*([C\c
  68 .if !"\\*([V"" .if n ,\& Vol.\&\c
  69 .if !"\\*([V"" \& \\f3\\*([V\\f1\c
  70 .if !"\\*([N"" (\\*([N)\c
  71 .if !"\\*([P"" \{\
  72 .ie \\n([P>0 , pp.\ \&\c
  73 .el , p.\ \&\c
  74 \\*([P\c\}
  75 .if !"\\*([I"" .if "\\*([R"" , \\*([I\c
  76 .if !"\\*([O"" .if \\n([O=0 , \\*([O\c
  77 .if !"\\*([D"" \& (\\*([D)\c
  78 \&.
  79 .if !"\\*([O"" .if \\n([O>0  \\*([O
  80 .if !"\\*([%"" Cited p. \\*([%.
  81 .RT
  82 .FE
  83 ..
  84 .de [2 \" book
  85 .FS
  86 .nr %T 2
  87 .if !"\\*([F"" .IP "\\*([F.\0"
  88 .if !"\\*([A"" \\*([A,
  89 .if !"\\*([T"" \\f2\\*([T,\\f1
  90 \\*([I\c
  91 .if !"\\*([C"" , \\*([C\c
  92 .if !"\\*([D"" \& (\\*([D)\c
  93 \&.
  94 .if !"\\*([G"" Gov't. ordering no. \\*([G.
  95 .if !"\\*([O"" \\*([O
  96 .if !"\\*([%"" Cited p. \\*([%.
  97 .RT
  98 .FE
  99 ..
 100 .de [4 \" report
 101 .FS
 102 .if !"\\*([F"" .IP "\\*([F.\0"
 103 .nr %T 1
 104 \\*([A, \\*([o\\*([T,\\*([c
 105 \\*([R\c
 106 .if !"\\*([G"" \& (\\*([G)\c
 107 .if !"\\*([I"" ,  \\*([I\c
 108 .if !"\\*([C"" ,  \\*([C\c
 109 .if !"\\*([D"" \& (\\*([D)\c
 110 \&.
 111 .if !"\\*([O"" \\*([O
 112 .if !"\\*([%"" Cited p. \\*([%.
 113 .RT
 114 .FE
 115 ..
 116 .de [3 \" article in book
 117 .FS
 118 .nr %T 1
 119 .if !"\\*([F"" .IP "\\*([F.\0"
 120 .if !"\\*([A"" \\*([A,
 121 .if !"\\*([T"" \\*([o\\*([T,\\*([c
 122 .if !"\\*([P"" pp. \\*([P
 123 in \\f2\\*([B\\f1\c
 124 .if !"\\*([E"" , ed. \\*([E\c
 125 .if !"\\*([I"" , \\*([I\c
 126 .if !"\\*([C"" , \\*([C\c
 127 .if !"\\*([D"" \& (\\*([D)\c
 128 \&.
 129 .if !"\\*([O"" \\*([O
 130 .if !"\\*([%"" Cited p. \\*([%.
 131 .RT
 132 .FE
 133 ..
 134 .de ]<
 135 .[<
 136 ..
 137 .de [<
 138 .LP
 139 .rm FS FE
 140 ..
 141 .de [>
 142 .]>
 143 ..
 144 .de ]>
 145 .sp
 146 ..
 147 .de ]-
 148 .[-
 149 ..
 150 .de [-
 151 .rm [V [P [A [T
 152 .rm [N [C [B [O
 153 .rm [R [I [E [D
 154 .rm [G [%
 155 ..
 156 .de ]]
 157 .\"this is never executed and just uses up an end-of-file bug.
 158 ..