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

   1 .ig
   2
   3 Copyright (C) 1991-2000, 2009
   4   Free Software Foundation, Inc.
   5 mgm is written by Jörgen Hägg <jh@axis.com>
   6
   7 mgm is free software; you can redistribute it and/or modify it under
   8 the terms of the GNU General Public License as published by the Free
   9 Software Foundation, either version 3 of the License, or
  10 (at your option) any later version.
  11
  12 mgm is distributed in the hope that it will be useful, but WITHOUT ANY
  13 WARRANTY; without even the implied warranty of MERCHANTABILITY or
  14 FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
  15 for more details.
  16
  17 You should have received a copy of the GNU General Public License
  18 along with this program. If not, see <http://www.gnu.org/licenses/>.
  19
  20 Please send bugreports with examples to jh@axis.com.
  21 ..
  22 .
  23 .\"------------
  24 .\" Cover sheet. Memorandum type 0-3 and "string".
  25 .\"------------
  26 .if !r Au .nr Au 1
  27 .nr cov*mt0-ind 1.1c
  28 .de cov@print-title
  29 .MOVE 4.8c 1.5c
  30 .S 8
  31 subject:
  32 .sp -1.1
  33 .S
  34 .PGFORM
  35 .ft \\*[@sdf_font]
  36 .ll 9c
  37 .fi
  38 .cov*title
  39 .ft
  40 .ll
  41 .nf
  42 .if d cov*title-charge-case \fBCharge Case \\*[cov*title-charge-case]\fP
  43 .if d cov*title-file-case \fBFile Case \\*[cov*title-file-case]\fP
  44 .fi
  45 ..
  46 .\"------------
  47 .de cov@print-authors
  48 .MOVE 5.7c 13.3c
  49 .nf
  50 .S 8
  51 \\$1:
  52 .br
  53 .S
  54 .sp -1
  55 .in 0.8c
  56 .ft \\*[@sdf_font]
  57 .nr cov*i 0 1
  58 .while \\n+[cov*i]<=\\n[cov*au] \{\
  59 .       cov@print-au1 \\n[cov*i] 1
  60 .       if \\n[Au] \{\
  61 .               cov@print-au2 \\n[cov*i] 3 4
  62 .               cov@print-au2 \\n[cov*i] 6 5
  63 .               cov@print-au1 \\n[cov*i] 7
  64 .               cov@print-au1 \\n[cov*i] 8
  65 .               cov@print-au1 \\n[cov*i] 9
  66 .       \}
  67 .       if \\n[cov*i]<\\n[cov*au] .SP 1
  68 .\}
  69 .ft
  70 .if r cov*mt-tm-max \{\
  71 .       SP 1
  72 .       nr cov*i 0 1
  73 .       ft \\*[@sdf_font]
  74 TM
  75 .       in 1.5c
  76 .       sp -1
  77 .       while \\n+[cov*i]<\\n[cov*mt-tm-max] \\*[cov*mt-tm!\\n[cov*i]]
  78 .       in
  79 .       ft
  80 .\}
  81 .fi
  82 .PGFORM
  83 ..
  84 .\"------------
  85 .\" index arg1
  86 .de cov@print-au1
  87 .if d cov*au!\\$1!\\$2 \\*[cov*au!\\$1!\\$2]
  88 ..
  89 .\"------------
  90 .de cov@print-au2
  91 .\" index arg1 arg2
  92 .if d cov*au!\\$1!\\$2 \\*[cov*au!\\$1!\\$2] \c
  93 .if \\$3=5 .if d cov*au!\\$1!\\$3 x\c
  94 .if d cov*au!\\$1!\\$3 \\*[cov*au!\\$1!\\$3]\c
  95 .br
  96 ..
  97 .\"------------
  98 .de cov@print-date
  99 .MOVE 4.8c 13.3c
 100 .S 8
 101 .nf
 102 \\$1:
 103 .br
 104 .S
 105 .sp -1
 106 .in 0.8c
 107 \f[\\*[@sdf_font]]\\*[cov*new-date]\fP
 108 .br
 109 .fi
 110 .PGFORM
 111 ..
 112 .\"------------
 113 .de cov@print-firm
 114 .if d cov*firm \{\
 115 .       MOVE 2.8c 0 17.7c
 116 .       S 18
 117 .       rj 1
 118 \fB\\*[cov*firm]\fP
 119 .       S
 120 .       PGFORM
 121 .\}
 122 ..
 123 .\"------------
 124 .de cov@print-abstract
 125 .SP 3
 126 .if d cov*abstract \{\
 127 .       misc@ev-keep cov*ev
 128 .       if \\n[cov*abs-ind]>0 \{\
 129 .               in +\\n[cov*abs-ind]u
 130 .               ll -\\n[cov*abs-ind]u
 131 .       \}
 132 .       ce
 133 \fI\\$1\fP
 134 .       SP 1.5
 135 .       fi
 136 .       cov*abstract
 137 .       br
 138 .       ev
 139 .\}
 140 ..
 141 .\"-----------------
 142 .ds cov*mt0-txt!1 MEMORANDUM FOR FILE
 143 .ds cov*mt0-txt!2 PROGRAMMER'S NOTES
 144 .ds cov*mt0-txt!3 ENGINEER'S NOTES
 145 .if d cov*default-firm .if !d cov*firm .ds cov*firm \\*[cov*default-firm]
 146 .\"
 147 .if !d cov*mt-printed \{\
 148 .       cov@print-firm
 149 .       cov@print-title subject
 150 .       cov@print-date date
 151 .       cov@print-authors from
 152 .       cov@print-abstract \\*[cov*abs-name]
 153 .       SP 3
 154 .       if (\*[cov*mt-type]>=1)&(\*[cov*mt-type]<=3) \{\
 155 .               ce
 156 \fI\*[cov*mt0-txt!\*[cov*mt-type]]\fP
 157 .               SP 1.5
 158 .       \}
 159 .       if \*[cov*mt-type]=6 \{\
 160 .               ce
 161 \fI\*[cov*mt-type-text]\fP
 162 .               SP 1.5
 163 .       \}
 164 .       pg@enable-top-trap
 165 .       pg@enable-trap
 166 .       ds cov*mt-printed
 167 .\}