/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..