contrib/groff-1.19/contrib/mm/mm/0.MT

   1 .\"------------
   2 .\" $Id: 0.MT,v 2.0 2000/09/14 03:40:25 jhaegg Exp $
   3 .\" Cover sheet. Memorandum type 0-3 and "string".
   4 .\"------------
   5 .if !r Au .nr Au 1
   6 .nr cov*mt0-ind 1.1c
   7 .de cov@print-title
   8 .MOVE 4.8c 1.5c
   9 .S 8
  10 subject:
  11 .sp -1.1
  12 .S
  13 .PGFORM
  14 .ft \\*[@sdf_font]
  15 .ll 9c
  16 .fi
  17 .cov*title
  18 .ft
  19 .ll
  20 .nf
  21 .if d cov*title-charge-case \fBCharge Case \\*[cov*title-charge-case]\fP
  22 .if d cov*title-file-case \fBFile Case \\*[cov*title-file-case]\fP
  23 .fi
  24 ..
  25 .\"------------
  26 .de cov@print-authors
  27 .MOVE 5.7c 13.3c
  28 .nf
  29 .S 8
  30 \\$1:
  31 .br
  32 .S
  33 .sp -1
  34 .in 0.8c
  35 .ft \\*[@sdf_font]
  36 .nr cov*i 0 1
  37 .while \\n+[cov*i]<=\\n[cov*au] \{\
  38 .       cov@print-au1 \\n[cov*i] 1
  39 .       if \\n[Au] \{\
  40 .               cov@print-au2 \\n[cov*i] 3 4
  41 .               cov@print-au2 \\n[cov*i] 6 5
  42 .               cov@print-au1 \\n[cov*i] 7
  43 .               cov@print-au1 \\n[cov*i] 8
  44 .               cov@print-au1 \\n[cov*i] 9
  45 .       \}
  46 .       if \\n[cov*i]<\\n[cov*au] .SP 1
  47 .\}
  48 .ft
  49 .if r cov*mt-tm-max \{\
  50 .       SP 1
  51 .       nr cov*i 0 1
  52 .       ft \\*[@sdf_font]
  53 TM
  54 .       in 1.5c
  55 .       sp -1
  56 .       while \\n+[cov*i]<\\n[cov*mt-tm-max] \\*[cov*mt-tm!\\n[cov*i]]
  57 .       in
  58 .       ft
  59 .\}
  60 .fi
  61 .PGFORM
  62 ..
  63 .\"------------
  64 .\" index arg1
  65 .de cov@print-au1
  66 .if d cov*au!\\$1!\\$2 \\*[cov*au!\\$1!\\$2]
  67 ..
  68 .\"------------
  69 .de cov@print-au2
  70 .\" index arg1 arg2
  71 .if d cov*au!\\$1!\\$2 \\*[cov*au!\\$1!\\$2] \c
  72 .if \\$3=5 .if d cov*au!\\$1!\\$3 x\c
  73 .if d cov*au!\\$1!\\$3 \\*[cov*au!\\$1!\\$3]\c
  74 .br
  75 ..
  76 .\"------------
  77 .de cov@print-date
  78 .MOVE 4.8c 13.3c
  79 .S 8
  80 .nf
  81 \\$1:
  82 .br
  83 .S
  84 .sp -1
  85 .in 0.8c
  86 \f[\\*[@sdf_font]]\\*[cov*new-date]\fP
  87 .br
  88 .fi
  89 .PGFORM
  90 ..
  91 .\"------------
  92 .de cov@print-firm
  93 .if d cov*firm \{\
  94 .       MOVE 2.8c 0 17.7c
  95 .       S 18
  96 .       rj 1
  97 \fB\\*[cov*firm]\fP
  98 .       S
  99 .       PGFORM
 100 .\}
 101 ..
 102 .\"------------
 103 .de cov@print-abstract
 104 .SP 3
 105 .if d cov*abstract \{\
 106 .       misc@ev-keep cov*ev
 107 .       if \\n[cov*abs-ind]>0 \{\
 108 .               in +\\n[cov*abs-ind]u
 109 .               ll -\\n[cov*abs-ind]u
 110 .       \}
 111 .       ce
 112 \fI\\$1\fP
 113 .       SP 1.5
 114 .       fi
 115 .       cov*abstract
 116 .       br
 117 .       ev
 118 .\}
 119 ..
 120 .\"-----------------
 121 .ds cov*mt0-txt!1 MEMORANDUM FOR FILE
 122 .ds cov*mt0-txt!2 PROGRAMMER'S NOTES
 123 .ds cov*mt0-txt!3 ENGINEER'S NOTES
 124 .if d cov*default-firm .if !d cov*firm .ds cov*firm \\*[cov*default-firm]
 125 .\"
 126 .if !d cov*mt-printed \{\
 127 .       cov@print-firm
 128 .       cov@print-title subject
 129 .       cov@print-date date
 130 .       cov@print-authors from
 131 .       cov@print-abstract \\*[cov*abs-name]
 132 .       SP 3
 133 .       if (\*[cov*mt-type]>=1)&(\*[cov*mt-type]<=3) \{\
 134 .               ce
 135 \fI\*[cov*mt0-txt!\*[cov*mt-type]]\fP
 136 .               SP 1.5
 137 .       \}
 138 .       if \*[cov*mt-type]=6 \{\
 139 .               ce
 140 \fI\*[cov*mt-type-text]\fP
 141 .               SP 1.5
 142 .       \}
 143 .       pg@enable-top-trap
 144 .       pg@enable-trap
 145 .       ds cov*mt-printed
 146 .\}