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

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