0.mt

早期freebsd实现

.\"------------
.\" Cover sheet. Memorandum type 0-3 and "string".
.\"------------
.if !r Au .nr Au 1
.nr cov*mt0-ind 1.1c
.de cov@print-title
.MOVE 4.8c 1.5c
.S 8
subject:
.sp -1.1
.S
.PGFORM
.B
.ll 9c
.fi
.cov*title
.R
.ll
.nf
.if d cov*title-charge-case \fBCharge Case \\*[cov*title-charge-case]\fP
.if d cov*title-file-case \fBFile Case \\*[cov*title-file-case]\fP
.fi
..
.\"------------
.de cov@print-authors
.MOVE 5.7c 13.3c
.nf
.S 8
\\$1:
.br
.S
.sp -1
.in 0.8c
.B
.nr cov*i 0 1
.while \\n+[cov*i]<=\\n[cov*au] \{\
.	cov@print-au1 \\n[cov*i] 1
.	if \\n[Au] \{\
.		cov@print-au2 \\n[cov*i] 3 4
.		cov@print-au2 \\n[cov*i] 6 5
.		cov@print-au1 \\n[cov*i] 7
.		cov@print-au1 \\n[cov*i] 8
.		cov@print-au1 \\n[cov*i] 9
.	\}
.	if \\n[cov*i]<\\n[cov*au] .SP 1
.\}
.R
.if r cov*mt-tm-max \{\
.	SP 1
.	nr cov*i 0 1
.	B
TM
.	in 1.5c
.	sp -1
.	while \\n+[cov*i]<\\n[cov*mt-tm-max] \\*[cov*mt-tm!\\n[cov*i]]
.	in
.	R
.\}
.fi
.PGFORM
..
.\"------------
.\" index arg1
.de cov@print-au1
.if d cov*au!\\$1!\\$2 \\*[cov*au!\\$1!\\$2] 
..
.\"------------
.de cov@print-au2
.\" index arg1 arg2
.if d cov*au!\\$1!\\$2 \\*[cov*au!\\$1!\\$2] \c
.if \\$3=5 .if d cov*au!\\$1!\\$3 x\c
.if d cov*au!\\$1!\\$3 \\*[cov*au!\\$1!\\$3]\c
.br
..
.\"------------
.de cov@print-date
.MOVE 4.8c 13.3c
.S 8
\\$1:
.br
.S
.sp -1
.in 0.8c
.B "\\*[cov*new-date]"
.br
.PGFORM
..
.\"------------
.de cov@print-firm
.if d cov*firm \{\
.	MOVE 2.8c 0 17.7c
.	S 18
.	rj 1
\fB\\*[cov*firm]\fP
.	S
.	PGFORM
.\}
..
.\"------------
.de cov@print-abstract
.SP 3
.if d cov*abstract \{\
.	misc@ev-keep cov*ev
.	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
.\}
..
.\"-----------------
.ds cov*mt0-txt!1 MEMORANDUM FOR FILE
.ds cov*mt0-txt!2 PROGRAMMER'S NOTES
.ds cov*mt0-txt!3 ENGINEER'S NOTES
.if d cov*default-firm .if !d cov*firm .ds cov*firm \\*[cov*default-firm]
.\"
.if !d cov*mt-printed \{\
.	cov@print-firm
.	cov@print-title subject
.	cov@print-date date
.	cov@print-authors from
.	cov@print-abstract \\*[cov*abs-name]
.	SP 3
.	if (\*[cov*mt-type]>=1)&(\*[cov*mt-type]<=3) \{\
.		ce
\fI\*[cov*mt0-txt!\*[cov*mt-type]]\fP
.		SP 1.5
.	\}
.	if \*[cov*mt-type]=6 \{\
.		ce
\fI\*[cov*mt-type-text]\fP
.		SP 1.5
.	\}
.	pg@enable-top-trap
.	pg@enable-trap
.	ds cov*mt-printed
.\}