home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 0 / 0997 / tmac.sprite < prev   
Text File  |  1990-12-28  |  5KB  |  222 lines
  1. .\" This file contains extra Ditroff macros used in Sprite man pages:
  2. .\"
  3. .\" .HS name section [date [version]]
  4. .\"    Replacement for .TH in other man pages.  See below for valid
  5. .\"    section names.
  6. .\"
  7. .\" .LG
  8. .\"    Increase font size;  opposite of .SM
  9. .\"
  10. .\" .AP type name in/out [indent]
  11. .\"    Start paragraph describing an argument to a library procedure.
  12. .\"    type is type of argument (int, etc.), in/out is either "in", "out",
  13. .\"    or "in/out" to describe whether procedure reads or modifies arg,
  14. .\"    and indent is equivalent to second arg of .IP (shouldn't ever be
  15. .\"    needed;  use .AS below instead)
  16. .\"
  17. .\" .AS [type [name]]
  18. .\"    Give maximum sizes of arguments for setting tab stops.  Type and
  19. .\"    name are examples of largest possible arguments that will be passed
  20. .\"    to .AP later.  If args are omitted, default tab stops are used.
  21. .\"
  22. .\" .BS
  23. .\"    Start box enclosure.  From here until next .BE, everything will be
  24. .\"    enclosed in one large box.
  25. .\"
  26. .\" .BE
  27. .\"    End of box enclosure.
  28. .\"
  29. .\" .VS
  30. .\"    Begin vertical sidebar, for use in marking newly-changed parts
  31. .\"    of man pages.
  32. .\"
  33. .\" .VE
  34. .\"    End of vertical sidebar.
  35. .\"
  36. '    # Heading for Sprite man pages
  37. .de HS
  38. .TH "\\$1" "\\$2"
  39. .\" .PD
  40. .\" .DT
  41. .\" .AS
  42. .\" .if n .nr IN .5i
  43. .\" .if t .nr IN .5i
  44. .\" .nr LL \\n(.l
  45. .\" .ds ]S UNKNOWN SECTION (\\$2)
  46. .\" .if '\\$2'cmds'       .ds ]S User Commands
  47. .\" .if '\\$2'lib'        .ds ]S C Library Procedures
  48. .\" .if '\\$2'dev'        .ds ]S Devices
  49. .\" .if '\\$2'tcl'        .ds ]S Tcl Command Language Library
  50. .\" .if '\\$2'admin'      .ds ]S Administrative Commands
  51. .\" .if '\\$2'daemons'    .ds ]S Daemons
  52. .\" .if '\\$2'files'      .ds ]S File Formats
  53. .\" .ds ]H \\$1
  54. .\" .ds ]D \\*(]S
  55. .\" .ie '\\$3'' .ds ]L  Printed:\\ \\ \\*(DY
  56. .\" .el         .ds ]L  Modified:\\ \\ \\$3
  57. .\" .if t .ie '\\$4'' .ds ]W Sprite version 1.0
  58. .\" .if t .el         .ds ]W Sprite version \\$4
  59. .\" .if n .ie '\\$4'' .ds ]W Sprite v.1.0
  60. .\" .if n .el         .ds ]W Sprite v.\\$4
  61. .\" .if !"\\$3"" .ds ]L \\$3
  62. .\" .wh 0 }H
  63. .\" .if t .wh -1i }B
  64. .\" .if n .wh -1.167i }F
  65. .\" .if \\n(nl .bp 1
  66. .\" .em }M
  67. .\" .}E
  68. .\" .DT
  69. .\" .nr )I .5i
  70. .\" .nr )R 0
  71. ..
  72. '    # Increase point size 1 tick
  73. .de LG
  74. .ps +1
  75. .it 1 }N
  76. .if !"\\$1"" \&\\$1 \\$2 \\$3 \\$4 \\$5 \\$6
  77. ..
  78. '    # Start an argument description
  79. .de AP
  80. .ie !"\\$4"" .TP \\$4
  81. .el \{\
  82. .   ie !"\\$2"" .TP \\n()Cu
  83. .   el          .TP 15
  84. .\}
  85. .ie !"\\$3"" \{\
  86. .ta \\n()Au \\n()Bu
  87. \&\\$1    \\fI\\$2\\fP    (\\$3)
  88. .\".b
  89. .\}
  90. .el \{\
  91. .br
  92. .ie !"\\$2"" \{\
  93. \&\\$1    \\fI\\$2\\fP
  94. .\}
  95. .el \{\
  96. \&\\fI\\$1\\fP
  97. .\}
  98. .\}
  99. .DT
  100. ..
  101. '    # define tabbing values for .AP
  102. .de AS
  103. .nr )A 10n
  104. .if !"\\$1"" .nr )A \\w'\\$1'u+3n
  105. .nr )B \\n()Au+15n
  106. .\"
  107. .if !"\\$2"" .nr )B \\w'\\$2'u+\\n()Au+3n
  108. .nr )C \\n()Bu+\\w'(in/out)'u+2n
  109. ..
  110. '    # BS - start boxed text
  111. .de BS
  112. .\" .br
  113. .\" .mk )a
  114. .\" .ds )b 1
  115. .\" .if n .nf
  116. .\" .if n .ti 0
  117. .\" .if n \l'\\n(.lu\(ul'
  118. .\" .if n .fi
  119. ..
  120. '    # Special macro to handle page bottom:  finish off current
  121. '    # box/sidebar if in box/sidebar mode, then invoked standard
  122. '    # page bottom macro.
  123. .de }B
  124. .if '\\*()b'1' \{\
  125. .ev 1
  126. 'ti 0
  127. 'nf
  128. .if t \h'-1.5n'\L'|\\n()au-1.5v'\l'\\n(.lu+3n\(ul'\L'-|\\n()au+1.5v'\l'|0u-1.5n\(ul'
  129. 'sp -1
  130. .ev
  131. 'fi
  132. .\}
  133. .if '\\*()v'2' \{\
  134. .if t \{\
  135. .ev 1
  136. 'ti 0
  137. 'nf
  138. \h'|\\n(.lu+2n'\v'-1v'\L'|\\n()bu-1v\(br'\v'-|\\n()bu+2v'\h'-|\\n(.lu+2n'
  139. 'sp -1
  140. 'fi
  141. .ev
  142. .\}
  143. .\}
  144. .}F
  145. ..
  146. '    # What to do when the head of the page occurs during boxed text
  147. '    # or vertical sidebar: update starting position for box/sidebar.
  148. .am }H
  149. .mk )a
  150. .mk )b
  151. ..
  152. '    # BE - end boxed text (draw box now)
  153. .de BE
  154. .\" .sp -1
  155. .\" .nf
  156. .\" .ti 0
  157. .\" .ie n \l'\\n(.lu\(ul'
  158. .\" .el \{
  159. .\" \h'-1.5n'\L'|\\n()au-1.5v'\l'\\n(.lu+3n\(ul'\L'-|\\n()au+1.5v'\l'|0u-1.5n\(ul'
  160. .\"   \h = move left 1.5n
  161. .\"   \L = draw up,   len=  )a units + 1.5v 
  162. .\"    \L draws a line, arg = distance. if negative, draws up.
  163. .\"    The position in reg. )a is used to draw the vertical lines.
  164. .\"      |\\n)au = distance from current loc. to )a (negative distance)
  165. .\"      -1.5v   = distance above )a since there is text at )a's location
  166. .\"   \l = draw right, len= cur. line length + 3n using underrule
  167. .\"   \L = draw down, len=  )a units + 1.5v 
  168. .\"   \l = draw left, back to original spot
  169. .\}
  170. .\" .fi
  171. .\" .br
  172. .\" .ds )b 0
  173. ..
  174. '    # VS - start vertical sidebar
  175. .de VS
  176. .if n 'mc \s12\(br\s0
  177. .if t \{\
  178. .mk )b
  179. .ds )v 2
  180. .\}
  181. ..
  182. '    # VE - end of vertical sidebar
  183. .de VE
  184. .if n 'mc
  185. .if t \{\
  186. .ev 1
  187. .nf
  188. .ti 0
  189. \h'|\\n(.lu+2n'\L'|\\n()bu-1v\(br'\v'-|\\n()bu+1v'\h'-|\\n(.lu+2n'
  190. .sp -1
  191. .fi
  192. .ev
  193. .\}
  194. .ds )v 0
  195. ..
  196. .\"
  197. .\"  Define the string DY to be the current date
  198. .\"  format:  month day, year
  199. .\"
  200. .if \n(mo-0 .ds MO January
  201. .if \n(mo-1 .ds MO February
  202. .if \n(mo-2 .ds MO March
  203. .if \n(mo-3 .ds MO April
  204. .if \n(mo-4 .ds MO May
  205. .if \n(mo-5 .ds MO June
  206. .if \n(mo-6 .ds MO July
  207. .if \n(mo-7 .ds MO August
  208. .if \n(mo-8 .ds MO September
  209. .if \n(mo-9 .ds MO October
  210. .if \n(mo-10 .ds MO November
  211. .if \n(mo-11 .ds MO December
  212. .ds DY \*(MO \n(dy, 19\n(yr
  213.  
  214. .de DS
  215. .sp
  216. .nf
  217. ..
  218. .de DE
  219. .sp
  220. .fi
  221. ..
  222.