/contrib/groff/contrib/mm/mm/0.MT

https://bitbucket.org/freebsd/freebsd-head/ · Unknown · 146 lines · 146 code · 0 blank · 0 comment · 0 complexity · 819f6cf2bc66910b084cabfd52a05dd0 MD5 · raw file 

    

  1. .\"------------
    2. 

  2. .\" $Id: 0.MT,v 2.0 2000/09/14 03:40:25 jhaegg Exp $
    3. 

  3. .\" Cover sheet. Memorandum type 0-3 and "string".
    4. 

  4. .\"------------
    5. 

  5. .if !r Au .nr Au 1
    6. 

  6. .nr cov*mt0-ind 1.1c
    7. 

  7. .de cov@print-title
    8. 

  8. .MOVE 4.8c 1.5c
    9. 

  9. .S 8
    10. 

  10. subject:
    11. 

  11. .sp -1.1
    12. 

  12. .S
    13. 

  13. .PGFORM
    14. 

  14. .ft \\*[@sdf_font]
    15. 

  15. .ll 9c
    16. 

  16. .fi
    17. 

  17. .cov*title
    18. 

  18. .ft
    19. 

  19. .ll
    20. 

  20. .nf
    21. 

  21. .if d cov*title-charge-case \fBCharge Case \\*[cov*title-charge-case]\fP
    22. 

  22. .if d cov*title-file-case \fBFile Case \\*[cov*title-file-case]\fP
    23. 

  23. .fi
    24. 

  24. ..
    25. 

  25. .\"------------
    26. 

  26. .de cov@print-authors
    27. 

  27. .MOVE 5.7c 13.3c
    28. 

  28. .nf
    29. 

  29. .S 8
    30. 

  30. \\$1:
    31. 

  31. .br
    32. 

  32. .S
    33. 

  33. .sp -1
    34. 

  34. .in 0.8c
    35. 

  35. .ft \\*[@sdf_font]
    36. 

  36. .nr cov*i 0 1
    37. 

  37. .while \\n+[cov*i]<=\\n[cov*au] \{\
    38. 

  38. .	cov@print-au1 \\n[cov*i] 1
    39. 

  39. .	if \\n[Au] \{\
    40. 

  40. .		cov@print-au2 \\n[cov*i] 3 4
    41. 

  41. .		cov@print-au2 \\n[cov*i] 6 5
    42. 

  42. .		cov@print-au1 \\n[cov*i] 7
    43. 

  43. .		cov@print-au1 \\n[cov*i] 8
    44. 

  44. .		cov@print-au1 \\n[cov*i] 9
    45. 

  45. .	\}
    46. 

  46. .	if \\n[cov*i]<\\n[cov*au] .SP 1
    47. 

  47. .\}
    48. 

  48. .ft
    49. 

  49. .if r cov*mt-tm-max \{\
    50. 

  50. .	SP 1
    51. 

  51. .	nr cov*i 0 1
    52. 

  52. .	ft \\*[@sdf_font]
    53. 

  53. TM
    54. 

  54. .	in 1.5c
    55. 

  55. .	sp -1
    56. 

  56. .	while \\n+[cov*i]<\\n[cov*mt-tm-max] \\*[cov*mt-tm!\\n[cov*i]]
    57. 

  57. .	in
    58. 

  58. .	ft
    59. 

  59. .\}
    60. 

  60. .fi
    61. 

  61. .PGFORM
    62. 

  62. ..
    63. 

  63. .\"------------
    64. 

  64. .\" index arg1
    65. 

  65. .de cov@print-au1
    66. 

  66. .if d cov*au!\\$1!\\$2 \\*[cov*au!\\$1!\\$2] 
    67. 

  67. ..
    68. 

  68. .\"------------
    69. 

  69. .de cov@print-au2
    70. 

  70. .\" index arg1 arg2
    71. 

  71. .if d cov*au!\\$1!\\$2 \\*[cov*au!\\$1!\\$2] \c
    72. 

  72. .if \\$3=5 .if d cov*au!\\$1!\\$3 x\c
    73. 

  73. .if d cov*au!\\$1!\\$3 \\*[cov*au!\\$1!\\$3]\c
    74. 

  74. .br
    75. 

  75. ..
    76. 

  76. .\"------------
    77. 

  77. .de cov@print-date
    78. 

  78. .MOVE 4.8c 13.3c
    79. 

  79. .S 8
    80. 

  80. .nf
    81. 

  81. \\$1:
    82. 

  82. .br
    83. 

  83. .S
    84. 

  84. .sp -1
    85. 

  85. .in 0.8c
    86. 

  86. \f[\\*[@sdf_font]]\\*[cov*new-date]\fP
    87. 

  87. .br
    88. 

  88. .fi
    89. 

  89. .PGFORM
    90. 

  90. ..
    91. 

  91. .\"------------
    92. 

  92. .de cov@print-firm
    93. 

  93. .if d cov*firm \{\
    94. 

  94. .	MOVE 2.8c 0 17.7c
    95. 

  95. .	S 18
    96. 

  96. .	rj 1
    97. 

  97. \fB\\*[cov*firm]\fP
    98. 

  98. .	S
    99. 

  99. .	PGFORM
    100. 

  100. .\}
    101. 

  101. ..
    102. 

  102. .\"------------
    103. 

  103. .de cov@print-abstract
    104. 

  104. .SP 3
    105. 

  105. .if d cov*abstract \{\
    106. 

  106. .	misc@ev-keep cov*ev
    107. 

  107. .	if \\n[cov*abs-ind]>0 \{\
    108. 

  108. .		in +\\n[cov*abs-ind]u
    109. 

  109. .		ll -\\n[cov*abs-ind]u
    110. 

  110. .	\}
    111. 

  111. .	ce
    112. 

  112. \fI\\$1\fP
    113. 

  113. .	SP 1.5
    114. 

  114. .	fi
    115. 

  115. .	cov*abstract
    116. 

  116. .	br
    117. 

  117. .	ev
    118. 

  118. .\}
    119. 

  119. ..
    120. 

  120. .\"-----------------
    121. 

  121. .ds cov*mt0-txt!1 MEMORANDUM FOR FILE
    122. 

  122. .ds cov*mt0-txt!2 PROGRAMMER'S NOTES
    123. 

  123. .ds cov*mt0-txt!3 ENGINEER'S NOTES
    124. 

  124. .if d cov*default-firm .if !d cov*firm .ds cov*firm \\*[cov*default-firm]
    125. 

  125. .\"
    126. 

  126. .if !d cov*mt-printed \{\
    127. 

  127. .	cov@print-firm
    128. 

  128. .	cov@print-title subject
    129. 

  129. .	cov@print-date date
    130. 

  130. .	cov@print-authors from
    131. 

  131. .	cov@print-abstract \\*[cov*abs-name]
    132. 

  132. .	SP 3
    133. 

  133. .	if (\*[cov*mt-type]>=1)&(\*[cov*mt-type]<=3) \{\
    134. 

  134. .		ce
    135. 

  135. \fI\*[cov*mt0-txt!\*[cov*mt-type]]\fP
    136. 

  136. .		SP 1.5
    137. 

  137. .	\}
    138. 

  138. .	if \*[cov*mt-type]=6 \{\
    139. 

  139. .		ce
    140. 

  140. \fI\*[cov*mt-type-text]\fP
    141. 

  141. .		SP 1.5
    142. 

  142. .	\}
    143. 

  143. .	pg@enable-top-trap
    144. 

  144. .	pg@enable-trap
    145. 

  145. .	ds cov*mt-printed
    146. 

  146. .\}
    147.