[net.sources] Proff macros to emulate Nroff ms macros

georgew@tekig4.UUCP (George Walker) (11/16/86)

Well, no one responded to my requests for this, so I went ahead and wrote a
macro package for Proff.  (For the uninitiated, proff is similar to nroff,
but runs on micros.)  This is a hack.  It only supports some of the common
ms macros, and leaves out some important ones like .IP that are trickier.
If someone thinks they have a better package, please mail or post.

George S. Walker	  {decvax,ucbvax,...}!tektronix!tekig4!georgew UUCP
Tektronix, Inc.		  tekig4!georgew@tektronix		       CSNET
P.O. Box 500, M/S 39-222  tekig4!georgew.tektronix@Udel-Relay          ARPANET
Beaverton, OR 97077	  503-627-4669
------------------------------------------------------------------------------
.! This file includes the proff versions of a few common nroff ms macros.
.! These are NOT identical to the ms ones, but do almost the same things.
.!
.! Set escape character same as ms uses
.ec \
.! Non-indented paragraph preceded by a blank line.
.de LP
.ne 2
.sp 1
.en
.! Paragraph preceded by a blank line
.de PP
.ne 3
.sp 1
.ti +5
.en
.! Paragraph NOT preceded by a blank line (same as ms ".PP 0")
.de PP0
.ne 2
.ti +5
.en
.! Relative indented section
.de RS
.sp 1
.in +5
.en
.! End of relative indented section
.de RE
.in -5
.en
.! Quoted paragraph (indent both margins by 5)
.de QP
.sp 1
.rm -5
.lm +5
.en
.! End of quoted paragraph
.de QE
.br
.rm +5
.lm -5
.en
.! Bold font for words on line
.de B
.bold 1
$1 $2 $3 $4 $5 $6 $7 $8 $9
.en
.! Italic font for words on line (actually underline)
.de I
.ul 1
$1 $2 $3 $4 $5 $6 $7 $8 $9
.en
.! Underline words on line
.de UL
.ul 1
$1 $2 $3 $4 $5 $6 $7 $8 $9
.en
.! Force a line break
.de BR
.br
.en
.! Set line spacing
.de LS
.ls $1
.en
.! Insert N blank lines
.de SP
.sp $1
.en
.! Force a page break
.de BP
.bp
.en
.! Set Date (not implemented)
.de ND
.en
.! Enable/Disable hyphenation (not implemented)
.de HY
.en
.! Section Heading (centered)
.de SH
.ne 4
.sp 1
.ce on
.en
.! End of section heading
.de EH
.ce off
.br
.en
.! Centered, literal display
.de CD
.sv
.ce on
.nf
.sp
.ne 3
.en
.! Literal display
.de DS
.sv
.sp
.nf
.ne 3
.en
.! Literal display
.de LD
.sv
.sp
.nf
.ne 3
.en
.! Indented section
.de IS
.sp
.in +8
.ne 3
.en
.! Need lines on page
.de NE
.ne $1
.en
.! Display end
.de DE
.rs
.ce off
.en
.! Indented section end
.de IE
.in -8
.en
.! Return to Roman text
.de R
.ul off
.bd off
.en
.! Generate table of contents entry
.de TC
.cl 0 $1 $2 $3 $4 $5 $6 $7 $8 $9
$1 $2 $3 $4 $5 $6 $7 $8 $9
.en
.! Center and Bold a title line
.de TL
.ce 1
.bd 1
.en