| Current Path : /usr/share/tmac/mm/ |
FreeBSD hs32.drive.ne.jp 9.1-RELEASE FreeBSD 9.1-RELEASE #1: Wed Jan 14 12:18:08 JST 2015 root@hs32.drive.ne.jp:/sys/amd64/compile/hs32 amd64 |
| Current File : //usr/share/tmac/mm/ms.cov |
.\"------------
.\" $Id: ms.cov,v 2.0 2000/09/14 03:40:25 jhaegg Exp $
.\" Cover sheet. Mostly like ms cover.
.\"------------
.de cov@print-title
.in 0
.misc@ev-keep cov*ev
.init@reset
.ad c
.hy 0
.fi
.B
.cov*title
.br
.ad b
.R
.ev
..
.\"------------
.de cov@print-authors
.SP
.nr cov*i 0 1
.while \\n+[cov*i]<=\\n[cov*au] \{\
. ce
\fI\\*[cov*au!\\n[cov*i]!1]\fP
. nr cov*j 0 1
. while \\n+[cov*j]<=9 \{\
. if d cov*at!\\n[cov*i]!\\n[cov*j] \{\
. if \w'\\*[cov*at!\\n[cov*i]!\\n[cov*j]]' \{\
. ce
\s-1\\*[cov*at!\\n[cov*i]!\\n[cov*j]]\s0
. .\}
. \}
. \}
.\}
..
.\"------------
.de cov@print-firm
.SP .5
.ce
\\*[cov*firm]
..
.\"------------
.de cov@print-abstract
.SP 2
.if d cov*abstract \{\
. misc@ev-keep cov*ev
. init@reset
. if \\n[cov*abs-ind]>0 \{\
. in +\\n[cov*abs-ind]u
. ll -\\n[cov*abs-ind]u
. \}
. ce
\fI\\$1\fP
. SP 1.5
. fi
. cov*abstract
. br
. ev
.\}
..
.\"------------
.de cov@print-date
.SP 2
\f[\\*[@sdf_font]]\\*[cov*new-date]\fP
..
.\"-----------------
.de COVEND
.br
.if d cov*default-firm .if !d cov*firm .ds cov*firm \\*[cov*default-firm]
.sp |4.2c
.cov@print-title
.cov@print-authors
.cov@print-firm
.cov@print-abstract \\*[cov*abs-name]
.cov@print-date
.pg@enable-top-trap
.bp 1
.pg@enable-trap
.if d cov*abs-arg .if \\n[cov*abs-arg] \{\
. cov@print-abstract ABSTRACT
. SP 2
.\}
..