/contrib/groff/contrib/mm/mm/ms.cov
https://bitbucket.org/freebsd/freebsd-head/ · Unknown · 84 lines · 84 code · 0 blank · 0 comment · 0 complexity · d07773d25bde1e6fe306a236e4705435 MD5 · raw file
- .\"------------
- .\" $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
- .\}
- ..