first pass for new make

[unix-history] / usr / src / share / me / tmac.orig_me

diff --git a/usr/src/share/me/tmac.orig_me b/usr/src/share/me/tmac.orig_me
index aaf3f7b..7b5b762 100644 (file)
--- a/usr/src/share/me/tmac.orig_me
+++ b/usr/src/share/me/tmac.orig_me
@@ -1,4 +1,23 @@
 .nr _0 \n(.c
 .nr _0 \n(.c

+.\" Copyright (c) 1988 The Regents of the University of California.
+.\" All rights reserved.
+.\"
+.\" Redistribution and use in source and binary forms are permitted
+.\" provided that the above copyright notice and this paragraph are
+.\" duplicated in all such forms and that any documentation,
+.\" advertising materials, and other materials related to such
+.\" distribution and use acknowledge that the software was developed
+.\" by the University of California, Berkeley.  The name of the
+.\" University may not be used to endorse or promote products derived
+.\" from this software without specific prior written permission.
+.\" THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
+.\" IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
+.\" WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
+.\"
+.\"    @(#)tmac.orig_me        2.33 (Berkeley) %G%
+.\"
+.\"    %beginstrip%
+.\"

 .\"**********************************************************************
 .\"*                                                                   *
 .\"*   ******  - M E   N R O F F / T R O F F   M A C R O S  ******     *
 .\"**********************************************************************
 .\"*                                                                   *
 .\"*   ******  - M E   N R O F F / T R O F F   M A C R O S  ******     *


@@ -7,17 +26,18 @@
 .\"*           Eric Allman                                             *
 .\"*           Electronics Research Laboratory                         *
 .\"*           U.C. Berkeley.                                          *
 .\"*           Eric Allman                                             *
 .\"*           Electronics Research Laboratory                         *
 .\"*           U.C. Berkeley.                                          *

+.\"*   current address:                                                *
+.\"*           Britton-Lee, Inc.                                       *
+.\"*           1919 Addison Street Suite 105                           *
+.\"*           Berkeley, California  94704                             *

 .\"*                                                                   *
 .\"*                                                                   *

-.\"*   VERSION 2.11    First Release: 11 Sept 1978                     *
+.\"*   VERSION 2.33    First Release: 11 Sept 1978                     *

 .\"*   See file \*(||/revisions for revision history                   *
 .\"*                                                                   *
 .\"*   Documentation is available.                                     *
 .\"*                                                                   *
 .\"**********************************************************************
 .\"
 .\"*   See file \*(||/revisions for revision history                   *
 .\"*                                                                   *
 .\"*   Documentation is available.                                     *
 .\"*                                                                   *
 .\"**********************************************************************
 .\"

-.\"    @(#)tmac.orig_me        2.11    %G%
-.\"    %beginstrip%
-.\"

 .\"    Code on .de commands:
 .\"            ***     a user interface macro.
 .\"            &&&     a user interface macro which is redefined
 .\"    Code on .de commands:
 .\"            ***     a user interface macro.
 .\"            &&&     a user interface macro which is redefined


@@ -39,7 +59,7 @@
 .nr _F \\n(.f
 .nr _I \\n(.i
 .ev \\$1
 .nr _F \\n(.f
 .nr _I \\n(.i
 .ev \\$1

-.ps \\n(_Su
+.ps \\n(_S

 .vs \\n(_Vu
 .ft \\n(_F
 'in \\n(_Iu
 .vs \\n(_Vu
 .ft \\n(_F
 'in \\n(_Iu


@@ -172,7 +192,6 @@
 .if t .@m                      \" output cut mark
 .if \\n(hm>0 \
 .      sp |\\n(hmu             \" move to header position
 .if t .@m                      \" output cut mark
 .if \\n(hm>0 \
 .      sp |\\n(hmu             \" move to header position

-.if \\n($T=2 \\!.

 .@t $h                         \" output header title
 .if \\n(tm<=0 \
 .      nr tm \n(.Vu
 .@t $h                         \" output header title
 .if \\n(tm<=0 \
 .      nr tm \n(.Vu


@@ -192,13 +211,16 @@
 .      @n                      \" begin the column
 .if \n@>2 .tm << @h
 ..
 .      @n                      \" begin the column
 .if \n@>2 .tm << @h
 ..

-.de @m                 \" --- output cut mark
-.@O 0
-.lt 7.5i
-.tl '\(rn''\(rn'
-.@O
-.lt
+.if \nv=2 \
+\{\
+.      de @m           \" --- output cut mark (only on C/A/T-style)
+.      @O 0
+.      lt 7.5i
+.      tl '\(rn''\(rn'
+.      @O
+.      lt

 ..
 ..

+.\}

 .de @n                 \" --- new column or page
 .if \n@>3 .tm >> @n nl=\\n(nl %=\\n% ?f=\\n(?f ?o=\\n(?o
 .if \\n(bm<=0 \
 .de @n                 \" --- new column or page
 .if \n@>3 .tm >> @n nl=\\n(nl %=\\n% ?f=\\n(?f ?o=\\n(?o
 .if \\n(bm<=0 \


@@ -213,6 +235,8 @@
 .nr _B \\n(_bu
 .ch @f
 .wh -\\n(_bu @f
 .nr _B \\n(_bu
 .ch @f
 .wh -\\n(_bu @f

+.nr _b +(\\n(ppu*\\n($ru)      \" add 1 paragraph v in case of sweep past
+.if \n@>2 .tm @n .p=\\n(.p bm=\\n(bm _b=\\n(_b _B=\\n(_B

 .nr ?f 0                       \" reset footnote flag
 .if \\n(?o \
 \{\
 .nr ?f 0                       \" reset footnote flag
 .if \\n(?o \
 \{\


@@ -247,7 +271,9 @@
 .ns
 ..
 .de @f                 \" --- footer
 .ns
 ..
 .de @f                 \" --- footer

-.if \n@>1 .tm >> @f %=\\n% nl=\\n(nl ?a=\\n(?a ?b=\\n(?b
+.if \n@>1 .tm >> @f %=\\n% nl=\\n(nl ?a=\\n(?a ?b=\\n(?b ?f=\\n(?f
+.if \n@>2 .nr VL \\n(.pu-\\n(nlu
+.if \n@>2 .tm @f bm=\\n(bm _B=\\n(_B _b=\\n(_b .p-nl=\\n(VL

 .ec
 .if \\n(?T \
 \{\
 .ec
 .if \\n(?T \
 \{\


@@ -275,10 +301,13 @@
 .nf
 .ls 1
 .in 0
 .nf
 .ls 1
 .in 0

+.if \n@>2 .tm @o last printed text = \\n(nl placing @r trap at -\\n(_B

 .wh -\\n(_Bu @r
 .|f
 .fi
 .wh -\\n(_Bu @r
 .|f
 .fi

+.if \n@>2 .tm @o triggered @r (?o) = \\n(?o

 .if \\n(?o \
 .if \\n(?o \

+\{\

 .      di                      \" just in case triggered @r
 .      if \\n(dn=0 \
 \{\
 .      di                      \" just in case triggered @r
 .      if \\n(dn=0 \
 \{\


@@ -487,8 +516,21 @@
 .rr _0
 ..
 .de np                 \" *** numbered paragraph
 .rr _0
 ..
 .de np                 \" *** numbered paragraph

-.nr $p +1
-.ip (\\n($p)
+.if \\n($p<0 \
+.      nr $p 0                 \" reset number after .bu
+.nr $p +1                      \" increment paragraph number
+.@p \w'\0(000)\0'u
+.ti -\w'\0(000)\0'u
+\0(\\n($p)\h'|\w'\0(000)\0'u'\c
+..
+.de bu                 \" *** bulleted paragraph
+.br
+.if \\n($p<0 \
+.      ns                      \" don't space between .bu paragraphs
+.nr $p 0-1                     \" mark "bulleted paragraph" mode
+.@p \w'\0\(bu\0'u
+.ti -\w'\0\(bu\0'u
+\0\(bu\0\c

 ..
 .de @p                 \" --- initialize for paragraph
 .@I                            \" initialize macro processor
 ..
 .de @p                 \" --- initialize for paragraph
 .@I                            \" initialize macro processor


@@ -499,7 +541,7 @@
 .ce 0
 .fi
 .@F \\n(pf
 .ce 0
 .fi
 .@F \\n(pf

-.sz \\n(ppu
+.sz \\n(pp

 .sp \\n(psu
 .ne \\n(.Lv+\\n(.Vu
 .ns
 .sp \\n(psu
 .ne \\n(.Lv+\\n(.Vu
 .ns


@@ -524,16 +566,16 @@
 .      el \
 .              ti +\\n(sou
 .      @F \\n(sf
 .      el \
 .              ti +\\n(sou
 .      @F \\n(sf

-.      sz \\n(spu
+.      sz \\n(sp

 .      if \\$3>0 \
 .              $\\$3
 .      if \w"\\$2">0 \\$2.
 .      if \\$3>0 \
 .              $\\$3
 .      if \w"\\$2">0 \\$2.

-.      if \w"\\$1">0 \\$1\f1\ \  \"
+.      if \w"\\$1">0 \\$1\f1\ \ \&

 .\}
 .el \
 .      sp \\n(psu
 .@F \\n(pf
 .\}
 .el \
 .      sp \\n(psu
 .@F \\n(pf

-.sz \\n(ppu
+.sz \\n(pp

 ..
 .de uh                 \" *** unnumbered section heading
 .rn uh @T
 ..
 .de uh                 \" *** unnumbered section heading
 .rn uh @T


@@ -688,18 +730,102 @@
 .nr ?k 0
 ..
 .\"\f           *** PREPROCESSOR SUPPORT ***
 .nr ?k 0
 ..
 .\"\f           *** PREPROCESSOR SUPPORT ***

+.\"
+.\"    EQN
+.\"

 .de EQ                 \" &&& begin equation
 .rn EQ @T
 .so \\*(||/eqn.me
 .EQ \\$1 \\$2
 .rm @T
 ..
 .de EQ                 \" &&& begin equation
 .rn EQ @T
 .so \\*(||/eqn.me
 .EQ \\$1 \\$2
 .rm @T
 ..

+.\"
+.\"    TBL
+.\"

 .de TS                 \" &&& begin table
 .rn TS @W
 .so \\*(||/tbl.me
 .TS \\$1 \\$2
 .rm @W
 ..
 .de TS                 \" &&& begin table
 .rn TS @W
 .so \\*(||/tbl.me
 .TS \\$1 \\$2
 .rm @W
 ..

+.\"
+.\"    REFER
+.\"
+.de ]-                 \" &&& initialize reference
+.rn ]- @]
+.so \\*(||/refer.me
+.]-
+.rm @]
+..
+.de ]<                 \" &&& initialize reference
+.rn ]< @]
+.so \\*(||/refer.me
+.]<
+.rm @]
+..
+.if n .ds [. " [
+.if t .ds [. \s-2\v'-.4m'\f1
+.if n .ds .] ]
+.if t .ds .] \v'.4m'\s+2\fP
+.if n .ds <. "
+.if t .ds <. .
+.if n .ds >. .
+.if t .ds >. "
+.\"
+.\"    IDEAL
+.\"
+.de IS                 \" *** start ideal picture
+.nr g7 \\n(.u
+.ls 1
+..
+.de IF
+.if \\n(g7 .fi
+.ls
+..
+.de IE                 \" *** end ideal picture
+.if \\n(g7 .fi
+.ls
+..
+.\"
+.\"    PIC
+.\"
+.de PS         \" *** start picture: $1=height, $2=width in units or inches
+.if t \
+.      sp 0.3
+.nr g7 \\$2
+.in (\\n(.lu-\\n(g7u)/2u
+.ne \\$1u
+.nr g7 \\n(.u
+.ls 1
+..
+.de PE                 \" *** end picture
+.ls
+.in
+.if \\n(g7 .fi
+.if t .sp .6
+..
+.\"
+.\"    GREMLIN
+.\"
+.de GS                 \" *** start gremlin picture
+.nr g7 (\\n(.lu-\\n(g1u)/2u
+.if "\\$1"L" .nr g7 \\n(.iu
+.if "\\$1"R" .nr g7 \\n(.lu-\\n(g1u
+.in \\n(g7u
+.nr g7 \\n(.u
+.ls 1
+.nf
+.ne \\n(g2u
+..
+.de GE                 \" *** end gremlin picture
+.GF
+.if t .sp .6
+..
+.de GF                 \" *** finish gremlin picture; stay at top
+.ls
+.in
+.if \\n(g7 .fi
+..

 .\"\f           *** FONT AIDS ***
 .de sz                 \" *** set point size and vertical spacing
 .ps \\$1
 .\"\f           *** FONT AIDS ***
 .de sz                 \" *** set point size and vertical spacing
 .ps \\$1


@@ -723,13 +849,8 @@
 .de b                  \" *** enter boldface (underline in NROFF)
 .nr _F \\n(.f
 .ul 0
 .de b                  \" *** enter boldface (underline in NROFF)
 .nr _F \\n(.f
 .ul 0

-.ie t \
-.      ft 3
-.el \
-.      ul 10000
+.ft \\n($b

 .if \\n(.$ \&\\$1\f\\n(_F\\$2
 .if \\n(.$ \&\\$1\f\\n(_F\\$2

-.if \\n(.$ \
-.      ul 0

 .rr _F
 ..
 .de rb                 \" *** enter real boldface (not underlined in NROFF)
 .rr _F
 ..
 .de rb                 \" *** enter real boldface (not underlined in NROFF)


@@ -747,25 +868,24 @@
 ..
 .de bi                 \" *** enter word in bold italics
 .ft 2
 ..
 .de bi                 \" *** enter word in bold italics
 .ft 2

-.ie t \&\k~\\$1\h'|\\n~u+(\\n(.su/3u)'\\$1\fP\\$2
+.ie t \&\k~\\$1\h'|\\n~u+(\\w' 'u/4u)'\\$1\fP\\$2

 .el \&\\$1\fP\\$2
 ..
 .de bx                 \" *** enter boxed word
 .ie \\n($T \&\f2\\$1\fP\\$2
 .el \k~\(br\|\\$1\|\(br\l'|\\n~u\(rn'\l'|\\n~u\(ul'\^\\$2
 ..
 .el \&\\$1\fP\\$2
 ..
 .de bx                 \" *** enter boxed word
 .ie \\n($T \&\f2\\$1\fP\\$2
 .el \k~\(br\|\\$1\|\(br\l'|\\n~u\(rn'\l'|\\n~u\(ul'\^\\$2
 ..

+.de sm                 \" *** print in smaller font
+\s-1\\$1\\s0\\$2
+..

 .de @F                 \" --- change font (8 -> underlined, 0 -> no change)
 .nr ~ \\$1
 .if \\n~>0 \
 \{\
 .      ul 0
 .de @F                 \" --- change font (8 -> underlined, 0 -> no change)
 .nr ~ \\$1
 .if \\n~>0 \
 \{\
 .      ul 0

-.      ie \\n~>4 \
-\{\
-.              if n .ul 10000
-.              if t .ft 3
-.      \}
-.      el \
-.              ft \\n~
+.      if \\n~=8 \
+.              nr ~ \\n($b
+.      ft \\n~

 .\}
 .rr ~
 ..
 .\}
 .rr ~
 ..


@@ -919,6 +1039,9 @@
 .so \\*(||/local.me
 .rm lo
 ..
 .so \\*(||/local.me
 .rm lo
 ..

+.de lh                 \" *** letterhead
+.so \\*(||/letterhead.me
+..

 .\"\f           *** DATES ***
 .if \n(mo=1 .ds mo January
 .if \n(mo=2 .ds mo February
 .\"\f           *** DATES ***
 .if \n(mo=1 .ds mo January
 .if \n(mo=2 .ds mo February


@@ -953,7 +1076,7 @@
 .nr tf 3                       \" title font: (real) Times Bold
 .nr tp 10                      \" title point size
 .hy 14
 .nr tf 3                       \" title font: (real) Times Bold
 .nr tp 10                      \" title point size
 .hy 14

-.nr bi 4n                      \" indent for blocks
+.nr bi 4m                      \" indent for blocks

 .nr pi 5n                      \" indent for paragraphs
 .nr pf 1                       \" normal text font
 .nr pp 10                      \" normal text point size
 .nr pi 5n                      \" indent for paragraphs
 .nr pf 1                       \" normal text font
 .nr pp 10                      \" normal text point size


@@ -977,7 +1100,7 @@
 .      ds ] \s0\v'0.4m'
 .      ds < \v'0.4m'\x'0.2m'\s-3
 .      ds > \s0\v'-0.4m'
 .      ds ] \s0\v'0.4m'
 .      ds < \v'0.4m'\x'0.2m'\s-3
 .      ds > \s0\v'-0.4m'

-.      ds - \-
+.      ds - \(em

 .      nr fi 0.3i
 .\}
 .if n \
 .      nr fi 0.3i
 .\}
 .if n \


@@ -988,15 +1111,13 @@
 .if n .po 1i
 .if \n(.V=1v \
 .      nr $T 2
 .if n .po 1i
 .if \n(.V=1v \
 .      nr $T 2

-.if \n(.T=0 \
+.if n .if \n(.T=0 \

 .      nr $T 1
 .      nr $T 1

-.if t \
+.if \nv=2 \

 \{\
 .      nr $T 0
 \{\
 .      nr $T 0

-.      po -0.5i                \" make ugly line on LHS
+.      po -0.5i                \" make ugly line on LHS on C/A/T typesetters

 .\}
 .\}

-.if \nv \
-.      po 1i                   \" for vtroff

 .if \n($T \
 \{\
 .      if \n($T=1 \
 .if \n($T \
 \{\
 .      if \n($T=1 \


@@ -1006,6 +1127,13 @@
 .      ds < <
 .      ds > >
 .\}
 .      ds < <
 .      ds > >
 .\}

+.nr $b \nb                     \" figure the real font 8 font
+.rr b
+.if \n($b=0 \
+\{\
+.      if n .nr $b 2           \" italic
+.      if t .nr $b 3           \" bold
+.\}

 .nr ps 0.5v                    \" paragraph pre/post spacing
 .if \n($T \
 .      nr ps 1v
 .nr ps 0.5v                    \" paragraph pre/post spacing
 .if \n($T \
 .      nr ps 1v