tmac.p

早期freebsd实现

'so /usr/lib/tmac/tmac.s
.if t .tr \(rh-
.if t .tr *\(**=\(eq/\(sl+\(pl
.bd S B 3
.de SM
.if "\\$1"" .ps -2
.if !"\\$1"" \s-2\\$1\s0\\$2
..
.de LG
.if "\\$1"" .ps +2
.if !"\\$1"" \s+2\\$a\s0\\$2
..
.de HP
.nr pd \\n(PD
.nr PD 0
.if \\n(.$=0 .IP
.if \\n(.$=1 .IP "\\$1"
.if \\n(.$>=2 .IP "\\$1" "\\$2"
.nr PD \\n(pd
.rm pd
..
.de LS		\"LS - Literal display, ASCII, constant spaced DS
.XD
.ID
.nf
.if t .tr '\'`\`^\(ua-\(mi
.if t .tr _\(ul
..
.de LE		\"LE - End literal display
.DE
.tr ''``__--^^
..
.de UP
Berkeley Pascal\\$1
..
.de PD
\s-2PDP\s0
.if \\n(.$=0 11/70
.if \\n(.$>0 11/\\$1
..
.de DK
Digital Equipment Corporation\\$1
..
.de IN
.I
.if \\n(.$<2 \\$1 1.0 Implementation Notes
.if \\n(.$>=2 \\$1 1.0 Implementation Notes\\c
.R
.if \\n(.$>=2 \\$2
..
.de UM
.I
User's Manual
.R
..
.de PC
.I pc \\$1
..
.de PI
.I pi \\$1
..
.de XP
.I pxp \\$1
..
.de IX
.I pix \\$1
..
.de X
.I px \\$1
..
.if n .ds dg +
.if t .ds dg \(dg
.if n .ds dd *
.if t .ds dd \(dd
.if n .nr FM 1.12i
.if t .ds b \\fB
.if n .ds b \\fI
.ds i \\fI
.nr xx 1