tmac.q9 4.1 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185
  1. .\" MACROES FOR REFER REFERENCES (file tmac.q9)
  2. .\"
  3. .\" E.G. Keizer
  4. .\"
  5. .nr %F 2 \" The number of the attention font
  6. .if \n(%w=0 .nr %w 8n \" Default footnote number indent
  7. .ds [" \(l" \" Quotes surrounding article titles
  8. .ds "] \(r"
  9. .if \w'\\*(["'==0 \{.ds [" "
  10. .ds "] "\}
  11. . \" The special strings have been defined in tmac.kun
  12. . \" The macroes
  13. .de ]<
  14. .nr %l 1
  15. ..
  16. .de ]>
  17. .rr %l
  18. ..
  19. .de ][
  20. .if \\n(%l=0 .FS
  21. .in +\\n(%wu \" Indent by hand, using .PS causes problems
  22. .if !\&\\*([F\&\& \{\
  23. .ti -\\n(%wu
  24. .as [F .
  25. \&\\*([F\c
  26. .nr [w \\n(%wu-\w'\\*([F'u \" Width of footnote indicator
  27. .ie \\n([w<1n .br \" Break if indicator too large
  28. .el \h'\\n([wu'\c\}
  29. .%\\$1 \" Use the peculiar format
  30. .in -\\n(%wu
  31. .if \\n(%l=0 .FE
  32. .rr [P [w
  33. .rm %,
  34. .rm [A [B [C [D [E [F [G [H [I [J [K [L [M [N [O [P [Q [R [S [T [U [W [X [Y [Z
  35. .rm [a [b [c [d [e [f [g [h [i [j [k [l [m [n [o [p [q [r [s [t [u [w [x [y [z
  36. ..
  37. .de %1 \" Journal article
  38. .if !\&\\*([i\&\& .rm [I [C
  39. .if !\&\\*([A\&\& \\*([A:
  40. .if !\&\\*([T\&\& \{\&\\*(["\\*([T\\*("]\c
  41. .ds %, , \}
  42. .if !\&\\*([J\&\& \{\\*(%,\f\\n(%F\\*([J\fP\c
  43. .ds %, , \}
  44. .if !\&\\*([V\&\& \{\\*(%,vol. \\*([V\c
  45. .ds %, , \}
  46. .if !\&\\*([N\&\& \{\\*(%,no. \\*([N\c
  47. .ds %, , \}
  48. .if !\&\\*([P\&\& \{.if \\n([P \\*(%,pp.\|\c
  49. .el \\*(%,p.\|\c
  50. .ds %, ,
  51. \&\\*([P\c\}
  52. .if !\&\\*([i\&\& \{\\*(%,ISSN\|\\*([i\c
  53. .ds %, , \}
  54. .if !\&\\*([I\&\& \{\\*(%,\\*([I\c
  55. .ds %, , \}
  56. .if !\&\\*([D\&\& \{\\*(%,\\*([D\c
  57. .ds %, , \}
  58. .if !\&\\*([O\&\& \{\\*(%,\\*([O\c
  59. .ds %, , \}
  60. \&.
  61. ..
  62. .de %2 \" Book
  63. .if !\&\\*([i\&\& .rm [I [C
  64. .if !\&\\*([A\&\& \\*([A:
  65. .if !\&\\*([T\&\& \{\&\f\\n(%F\\*([T\f1\c
  66. .ds %, , \}
  67. .if !\&\\*([V\&\& \{\\*(%,vol. \\*([V\c
  68. .ds %, , \}
  69. .if !\&\\*([N\&\& \{\\*(%,no. \\*([N\c
  70. .ds %, , \}
  71. .if !\&\\*([I\&\& \{\\*(%,\\*([I\c
  72. .ds %, , \}
  73. .if !\&\\*([C\&\& \{\\*(%,\\*([C\c
  74. .ds %, , \}
  75. .if !\&\\*([D\&\& \{\\*(%,\\*([D\c
  76. .ds %, , \}
  77. .if !\&\\*([i\&\& \{\\*(%,ISBN\|\\*([i\c
  78. .ds %, , \}
  79. .if !\&\\*([O\&\& \{\\*(%,\\*([O\c
  80. .ds %, , \}
  81. \&.
  82. ..
  83. .de %3 \" Article within Book
  84. .if !\&\\*([i\&\& .rm [I [C
  85. .if !\&\\*([A\&\& \\*([A:
  86. .if !\&\\*([T\&\& \{\&\\*(["\\*([T\\*("]\c
  87. .ds %, , \}
  88. .if !\&\\*([B\&\& \{ in \f\\n(%F\\*([B\f1\c
  89. .ds %, , \}
  90. .if !\&\\*([V\&\& \{\\*(%,vol. \\*([V\c
  91. .ds %, , \}
  92. .if !\&\\*([N\&\& \{\\*(%,no. \\*([N\c
  93. .ds %, , \}
  94. .if !\&\\*([P\&\& \{.if \\n([P \\*(%,pp.\|\c
  95. .el \\*(%,p.\|\c
  96. .ds %, ,
  97. \&\\*([P\c\}
  98. .if !\&\\*([E\&\& \{\\*(%,\\*([E\^\c
  99. .if \\n([E (eds.)\c
  100. .el (ed.)\c
  101. .ds %, , \}
  102. .if !\&\\*([I\&\& \{\\*(%,\\*([I\c
  103. .ds %, , \}
  104. .if !\&\\*([C\&\& \{\\*(%,\\*([C\c
  105. .ds %, , \}
  106. .if !\&\\*([D\&\& \{\\*(%,\\*([D\c
  107. .ds %, , \}
  108. .if !\&\\*([i\&\& \{\\*(%,ISBN\|\\*([i\c
  109. .ds %, , \}
  110. .if !\&\\*([O\&\& \{\\*(%,\\*([O\c
  111. .ds %, , \}
  112. \&.
  113. ..
  114. .de %4 \" Report
  115. .if !\&\\*([i\&\& .rm [I [C
  116. .if !\&\\*([A\&\& \\*([A:
  117. .if !\&\\*([T\&\& \{\&\\*(["\\*([T\\*("]\c
  118. .ds %, , \}
  119. .if !\&\\*([V\&\& \{\\*(%,vol. \\*([V\c
  120. .ds %, , \}
  121. .if !\&\\*([N\&\& \{\\*(%,no. \\*([N\c
  122. .ds %, , \}
  123. .if !\&\\*([P\&\& \{.if \\n([P \\*(%,pp.\|\c
  124. .el \\*(%,p.\|\c
  125. .ds %, ,
  126. \&\\*([P\c\}
  127. .if !\&\\*([E\&\& \{\\*(%,\\*([E\^\c
  128. .if \\n([E (eds.)\c
  129. .el (ed.)\c
  130. .ds %, , \}
  131. .if !\&\\*([R\&\& \{\\*(%,\\*([R\c
  132. .ds %, , \}
  133. .if !\&\\*([I\&\& \{\\*(%,\\*([I\c
  134. .ds %, , \}
  135. .if !\&\\*([C\&\& \{\\*(%,\\*([C\c
  136. .ds %, , \}
  137. .if !\&\\*([D\&\& \{\\*(%,\\*([D\c
  138. .ds %, , \}
  139. .if !\&\\*([i\&\& \{\\*(%,ISBN\|\\*([i\c
  140. .ds %, , \}
  141. .if !\&\\*([O\&\& \{\\*(%,\\*([O\c
  142. .ds %, , \}
  143. \&.
  144. ..
  145. .de %4 \" Bell Labs report
  146. .if !\&\\*([A\&\& \\*([A:
  147. .if !\&\\*([T\&\& \{\&\\*(["\\*([T\\*("]\c
  148. .ds %, , \}
  149. .if !\&\\*([M\&\& \{\\*(%,\\*([M\c
  150. .ds %, , \}
  151. .if !\&\\*([D\&\& \{\\*(%,\\*([D\c
  152. .ds %, , \}
  153. .if !\&\\*([O\&\& \{\\*(%,\\*([O\c
  154. .ds %, , \}
  155. \&.
  156. ..
  157. .de %0 \" Something else
  158. .if !\&\\*([i\&\& .rm [I [C
  159. .if !\&\\*([A\&\& \\*([A:
  160. .if !\&\\*([T\&\& \{\&\f\\n(%F\\*([T\f1\c
  161. .ds %, , \}
  162. .if !\&\\*([V\&\& \{\\*(%,vol. \\*([V\c
  163. .ds %, , \}
  164. .if !\&\\*([N\&\& \{\\*(%,no. \\*([N\c
  165. .ds %, , \}
  166. .if !\&\\*([P\&\& \{.if \\n([P \\*(%,pp.\|\c
  167. .el \\*(%,p.\|\c
  168. .ds %, ,
  169. \&\\*([P\c\}
  170. .if !\&\\*([E\&\& \{\\*(%,\\*([E\^\c
  171. .if \\n([E (eds.)\c
  172. .el (ed.)\c
  173. .ds %, , \}
  174. .if !\&\\*([C\&\& \{\\*(%,\\*([C\c
  175. .ds %, , \}
  176. .if !\&\\*([D\&\& \{\\*(%,\\*([D\c
  177. .ds %, , \}
  178. .if !\&\\*([i\&\& \{\\*(%,ISBN\|\\*([i\c
  179. .ds %, , \}
  180. .if !\&\\*([O\&\& \{\\*(%,\\*([O\c
  181. .ds %, , \}
  182. \&.
  183. ..
  184. .\*($0
  185. .rm $0 ]R