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

   1 .ig
   2
   3 Copyright (C) 1991-2000, 2005, 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. Mostly like ms cover.
  25 .\"------------
  26 .de cov@print-title
  27 .in 0
  28 .misc@ev-keep cov*ev
  29 .init@reset
  30 .ad c
  31 .hy 0
  32 .fi
  33 .B
  34 .cov*title
  35 .br
  36 .ad b
  37 .R
  38 .ev
  39 ..
  40 .\"------------
  41 .de cov@print-authors
  42 .SP
  43 .nr cov*i 0 1
  44 .while \\n+[cov*i]<=\\n[cov*au] \{\
  45 .       ce
  46 \fI\\*[cov*au!\\n[cov*i]!1]\fP
  47 .       nr cov*j 0 1
  48 .       while \\n+[cov*j]<=9 \{\
  49 .               if d cov*at!\\n[cov*i]!\\n[cov*j] \{\
  50 .                       if \w'\\*[cov*at!\\n[cov*i]!\\n[cov*j]]' \{\
  51 .                               ce
  52 \s-1\\*[cov*at!\\n[cov*i]!\\n[cov*j]]\s0
  53 .                       .\}
  54 .               \}
  55 .       \}
  56 .\}
  57 ..
  58 .\"------------
  59 .de cov@print-firm
  60 .SP .5
  61 .ce
  62 \\*[cov*firm]
  63 ..
  64 .\"------------
  65 .de cov@print-abstract
  66 .SP 2
  67 .if d cov*abstract \{\
  68 .       misc@ev-keep cov*ev
  69 .       init@reset
  70 .       if \\n[cov*abs-ind]>0 \{\
  71 .               in +\\n[cov*abs-ind]u
  72 .               ll -\\n[cov*abs-ind]u
  73 .       \}
  74 .       ce
  75 \fI\\$1\fP
  76 .       SP 1.5
  77 .       fi
  78 .       cov*abstract
  79 .       br
  80 .       ev
  81 .\}
  82 ..
  83 .\"------------
  84 .de cov@print-date
  85 .SP 2
  86 \f[\\*[@sdf_font]]\\*[cov*new-date]\fP
  87 ..
  88 .\"-----------------
  89 .de COVEND
  90 .br
  91 .if d cov*default-firm .if !d cov*firm .ds cov*firm \\*[cov*default-firm]
  92 .sp |4.2c
  93 .cov@print-title
  94 .cov@print-authors
  95 .cov@print-firm
  96 .cov@print-abstract "\\*[cov*abs-name]"
  97 .cov@print-date
  98 .pg@enable-top-trap
  99 .bp 1
 100 .pg@enable-trap
 101 .if d cov*abs-arg .if \\n[cov*abs-arg] \{\
 102 .       cov@print-abstract ABSTRACT
 103 .       SP 2
 104 .\}
 105 ..