contrib/groff/contrib/mm/mm/ms.cov

   1 .\"------------
   2 .\" $Id: ms.cov,v 2.0 2000/09/14 03:40:25 jhaegg Exp $
   3 .\" Cover sheet. Mostly like ms cover.
   4 .\"------------
   5 .de cov@print-title
   6 .in 0
   7 .misc@ev-keep cov*ev
   8 .init@reset
   9 .ad c
  10 .hy 0
  11 .fi
  12 .B
  13 .cov*title
  14 .br
  15 .ad b
  16 .R
  17 .ev
  18 ..
  19 .\"------------
  20 .de cov@print-authors
  21 .SP
  22 .nr cov*i 0 1
  23 .while \\n+[cov*i]<=\\n[cov*au] \{\
  24 .       ce
  25 \fI\\*[cov*au!\\n[cov*i]!1]\fP
  26 .       nr cov*j 0 1
  27 .       while \\n+[cov*j]<=9 \{\
  28 .               if d cov*at!\\n[cov*i]!\\n[cov*j] \{\
  29 .                       if \w'\\*[cov*at!\\n[cov*i]!\\n[cov*j]]' \{\
  30 .                               ce
  31 \s-1\\*[cov*at!\\n[cov*i]!\\n[cov*j]]\s0
  32 .                       .\}
  33 .               \}
  34 .       \}
  35 .\}
  36 ..
  37 .\"------------
  38 .de cov@print-firm
  39 .SP .5
  40 .ce
  41 \\*[cov*firm]
  42 ..
  43 .\"------------
  44 .de cov@print-abstract
  45 .SP 2
  46 .if d cov*abstract \{\
  47 .       misc@ev-keep cov*ev
  48 .       init@reset
  49 .       if \\n[cov*abs-ind]>0 \{\
  50 .               in +\\n[cov*abs-ind]u
  51 .               ll -\\n[cov*abs-ind]u
  52 .       \}
  53 .       ce
  54 \fI\\$1\fP
  55 .       SP 1.5
  56 .       fi
  57 .       cov*abstract
  58 .       br
  59 .       ev
  60 .\}
  61 ..
  62 .\"------------
  63 .de cov@print-date
  64 .SP 2
  65 \f[\\*[@sdf_font]]\\*[cov*new-date]\fP
  66 ..
  67 .\"-----------------
  68 .de COVEND
  69 .br
  70 .if d cov*default-firm .if !d cov*firm .ds cov*firm \\*[cov*default-firm]
  71 .sp |4.2c
  72 .cov@print-title
  73 .cov@print-authors
  74 .cov@print-firm
  75 .cov@print-abstract \\*[cov*abs-name]
  76 .cov@print-date
  77 .pg@enable-top-trap
  78 .bp 1
  79 .pg@enable-trap
  80 .if d cov*abs-arg .if \\n[cov*abs-arg] \{\
  81 .       cov@print-abstract ABSTRACT
  82 .       SP 2
  83 .\}
  84 ..