Current File : //usr/local/share/groff/current/tmac/mm/0.MT
.\" -*- nroff -*-
.ig
Copyright (C) 1991-2018 Free Software Foundation, Inc.
mgm is written by Jörgen Hägg <jh@axis.com>
mgm is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation, either version 3 of the License, or
(at your option) any later version.
mgm is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with this program. If not, see <http://www.gnu.org/licenses/>.
Please submit bug reports with examples at
http://savannah.gnu.org/bugs/?group=groff.
..
.
.\"------------
.\" 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
.ft \\*[@sdf_font]
.ll 9c
.fi
.cov*title
.ft
.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
.ft \\*[@sdf_font]
.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
.\}
.ft
.if r cov*mt-tm-max \{\
. SP 1
. nr cov*i 0 1
. ft \\*[@sdf_font]
TM
. in 1.5c
. sp -1
. while \\n+[cov*i]<\\n[cov*mt-tm-max] \\*[cov*mt-tm!\\n[cov*i]]
. in
. ft
.\}
.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
.nf
\\$1:
.br
.S
.sp -1
.in 0.8c
\f[\\*[@sdf_font]]\\*[cov*new-date]\fP
.br
.fi
.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
.\}
Mini Shell