contrib/groff/contrib/mm/mm/4.MT

   1 .\"------------
   2 .\" $Id: 4.MT,v 2.2 2003/04/02 04:06:40 jhaegg Exp $
   3 .\" Cover sheet. Memorandum type 4
   4 .\"------------
   5 .de cov@print-title
   6 .if !d cov*title .@error title (.TL) not defined!
   7 .MOVE 2.8c
   8 .S +2
   9 .ad c
  10 .fi
  11 .B
  12 .cov*title
  13 .br
  14 .S
  15 .R
  16 .ad b
  17 ..
  18 .\"------------
  19 .de cov@print-authors
  20 .SP 0.5
  21 .I
  22 .S +1
  23 .nr cov*i 0 1
  24 .while \\n+[cov*i]<=\\n[cov*au] \{\
  25 .ce
  26 \\*[cov*au!\\n[cov*i]!1]
  27 .br
  28 .\}
  29 .S
  30 .R
  31 ..
  32 .\"------------
  33 .de cov@print-firm
  34 .if d cov*firm \{\
  35 .       SP 0.5
  36 .       ce
  37 \\*[cov*firm]
  38 .\}
  39 ..
  40 .\"------------
  41 .de cov@print-abstract
  42 .SP 2
  43 .if d cov*abstract \{\
  44 .       misc@ev-keep cov*ev
  45 .       init@reset
  46 .       if \\n[cov*abs-ind]>0 \{\
  47 .               in +\\n[cov*abs-ind]u
  48 .               ll -\\n[cov*abs-ind]u
  49 .       \}
  50 .       ce
  51 \fI\\*[cov*abs-name]\fP
  52 .       SP 2
  53 .       fi
  54 .       cov*abstract
  55 .       br
  56 .       ev
  57 .\}
  58 ..
  59 .\"-----------------
  60 .if d cov*default-firm .if !d cov*firm .ds cov*firm \\*[cov*default-firm]
  61 .if !d cov*mt-printed \{\
  62 .       cov@print-title
  63 .       cov@print-authors
  64 .       cov@print-firm
  65 .       if d cov*abstract \{\
  66 .               if !\n[cov*abs-arg] .cov@print-abstract
  67 .       \}
  68 .       SP 2
  69 .       nr hd*cur-bline \n[nl]
  70 .       ds cov*mt-printed
  71 .       pg@enable-top-trap
  72 .       pg@enable-trap
  73 .\}
  74 .de CS
  75 .pg@disable-top-trap
  76 .SK
  77 .cov@print-title
  78 .cov@print-authors
  79 .cov@print-firm
  80 .cov@print-abstract
  81 ..
  82