contrib/groff/contrib/mm/mm/4.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 4
  25 .\"------------
  26 .de cov@print-title
  27 .if !d cov*title .@error title (.TL) not defined!
  28 .MOVE 2.8c
  29 .S +2
  30 .ad c
  31 .fi
  32 .B
  33 .cov*title
  34 .br
  35 .S
  36 .R
  37 .ad b
  38 ..
  39 .\"------------
  40 .de cov@print-authors
  41 .SP 0.5
  42 .I
  43 .S +1
  44 .nr cov*i 0 1
  45 .while \\n+[cov*i]<=\\n[cov*au] \{\
  46 .ce
  47 \\*[cov*au!\\n[cov*i]!1]
  48 .br
  49 .\}
  50 .S
  51 .R
  52 ..
  53 .\"------------
  54 .de cov@print-firm
  55 .if d cov*firm \{\
  56 .       SP 0.5
  57 .       ce
  58 \\*[cov*firm]
  59 .\}
  60 ..
  61 .\"------------
  62 .de cov@print-abstract
  63 .SP 2
  64 .if d cov*abstract \{\
  65 .       misc@ev-keep cov*ev
  66 .       init@reset
  67 .       if \\n[cov*abs-ind]>0 \{\
  68 .               in +\\n[cov*abs-ind]u
  69 .               ll -\\n[cov*abs-ind]u
  70 .       \}
  71 .       ce
  72 \fI\\*[cov*abs-name]\fP
  73 .       SP 2
  74 .       fi
  75 .       cov*abstract
  76 .       br
  77 .       ev
  78 .\}
  79 ..
  80 .\"-----------------
  81 .if d cov*default-firm .if !d cov*firm .ds cov*firm \\*[cov*default-firm]
  82 .if !d cov*mt-printed \{\
  83 .       cov@print-title
  84 .       cov@print-authors
  85 .       cov@print-firm
  86 .       if d cov*abstract \{\
  87 .               if !\n[cov*abs-arg] .cov@print-abstract
  88 .       \}
  89 .       SP 2
  90 .       nr hd*cur-bline \n[nl]
  91 .       ds cov*mt-printed
  92 .       pg@enable-top-trap
  93 .       pg@enable-trap
  94 .\}
  95 .de CS
  96 .pg@disable-top-trap
  97 .SK
  98 .cov@print-title
  99 .cov@print-authors
 100 .cov@print-firm
 101 .cov@print-abstract
 102 ..
 103