contrib/mm/mm/0.MT

   1 .\" -*- nroff -*-
   2 .ig
   3
   4 Copyright (C) 1991-2018 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 submit bug reports with examples at
  21 http://savannah.gnu.org/bugs/?group=groff.
  22 ..
  23 .
  24 .\"------------
  25 .\" Cover sheet. Memorandum type 0-3 and "string".
  26 .\"------------
  27 .if !r Au .nr Au 1
  28 .nr cov*mt0-ind 1.1c
  29 .de cov@print-title
  30 .MOVE 4.8c 1.5c
  31 .S 8
  32 subject:
  33 .sp -1.1
  34 .S
  35 .PGFORM
  36 .ft \\*[@sdf_font]
  37 .ll 9c
  38 .fi
  39 .cov*title
  40 .ft
  41 .ll
  42 .nf
  43 .if d cov*title-charge-case \fBCharge Case \\*[cov*title-charge-case]\fP
  44 .if d cov*title-file-case \fBFile Case \\*[cov*title-file-case]\fP
  45 .fi
  46 ..
  47 .\"------------
  48 .de cov@print-authors
  49 .MOVE 5.7c 13.3c
  50 .nf
  51 .S 8
  52 \\$1:
  53 .br
  54 .S
  55 .sp -1
  56 .in 0.8c
  57 .ft \\*[@sdf_font]
  58 .nr cov*i 0 1
  59 .while \\n+[cov*i]<=\\n[cov*au] \{\
  60 .       cov@print-au1 \\n[cov*i] 1
  61 .       if \\n[Au] \{\
  62 .               cov@print-au2 \\n[cov*i] 3 4
  63 .               cov@print-au2 \\n[cov*i] 6 5
  64 .               cov@print-au1 \\n[cov*i] 7
  65 .               cov@print-au1 \\n[cov*i] 8
  66 .               cov@print-au1 \\n[cov*i] 9
  67 .       \}
  68 .       if \\n[cov*i]<\\n[cov*au] .SP 1
  69 .\}
  70 .ft
  71 .if r cov*mt-tm-max \{\
  72 .       SP 1
  73 .       nr cov*i 0 1
  74 .       ft \\*[@sdf_font]
  75 TM
  76 .       in 1.5c
  77 .       sp -1
  78 .       while \\n+[cov*i]<\\n[cov*mt-tm-max] \\*[cov*mt-tm!\\n[cov*i]]
  79 .       in
  80 .       ft
  81 .\}
  82 .fi
  83 .PGFORM
  84 ..
  85 .\"------------
  86 .\" index arg1
  87 .de cov@print-au1
  88 .if d cov*au!\\$1!\\$2 \\*[cov*au!\\$1!\\$2]
  89 ..
  90 .\"------------
  91 .de cov@print-au2
  92 .\" index arg1 arg2
  93 .if d cov*au!\\$1!\\$2 \\*[cov*au!\\$1!\\$2] \c
  94 .if \\$3=5 .if d cov*au!\\$1!\\$3 x\c
  95 .if d cov*au!\\$1!\\$3 \\*[cov*au!\\$1!\\$3]\c
  96 .br
  97 ..
  98 .\"------------
  99 .de cov@print-date
 100 .MOVE 4.8c 13.3c
 101 .S 8
 102 .nf
 103 \\$1:
 104 .br
 105 .S
 106 .sp -1
 107 .in 0.8c
 108 \f[\\*[@sdf_font]]\\*[cov*new-date]\fP
 109 .br
 110 .fi
 111 .PGFORM
 112 ..
 113 .\"------------
 114 .de cov@print-firm
 115 .if d cov*firm \{\
 116 .       MOVE 2.8c 0 17.7c
 117 .       S 18
 118 .       rj 1
 119 \fB\\*[cov*firm]\fP
 120 .       S
 121 .       PGFORM
 122 .\}
 123 ..
 124 .\"------------
 125 .de cov@print-abstract
 126 .SP 3
 127 .if d cov*abstract \{\
 128 .       misc@ev-keep cov*ev
 129 .       if \\n[cov*abs-ind]>0 \{\
 130 .               in +\\n[cov*abs-ind]u
 131 .               ll -\\n[cov*abs-ind]u
 132 .       \}
 133 .       ce
 134 \fI\\$1\fP
 135 .       SP 1.5
 136 .       fi
 137 .       cov*abstract
 138 .       br
 139 .       ev
 140 .\}
 141 ..
 142 .\"-----------------
 143 .ds cov*mt0-txt!1 MEMORANDUM FOR FILE
 144 .ds cov*mt0-txt!2 PROGRAMMER'S NOTES
 145 .ds cov*mt0-txt!3 ENGINEER'S NOTES
 146 .if d cov*default-firm .if !d cov*firm .ds cov*firm \\*[cov*default-firm]
 147 .\"
 148 .if !d cov*mt-printed \{\
 149 .       cov@print-firm
 150 .       cov@print-title subject
 151 .       cov@print-date date
 152 .       cov@print-authors from
 153 .       cov@print-abstract \\*[cov*abs-name]
 154 .       SP 3
 155 .       if (\*[cov*mt-type]>=1)&(\*[cov*mt-type]<=3) \{\
 156 .               ce
 157 \fI\*[cov*mt0-txt!\*[cov*mt-type]]\fP
 158 .               SP 1.5
 159 .       \}
 160 .       if \*[cov*mt-type]=6 \{\
 161 .               ce
 162 \fI\*[cov*mt-type-text]\fP
 163 .               SP 1.5
 164 .       \}
 165 .       pg@enable-top-trap
 166 .       pg@enable-trap
 167 .       ds cov*mt-printed
 168 .\}