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 26465f6..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  ******     *


@@ -9,19 +28,16 @@
 .\"*           U.C. Berkeley.                                          *
 .\"*   current address:                                                *
 .\"*           Britton-Lee, Inc.                                       *
 .\"*           U.C. Berkeley.                                          *
 .\"*   current address:                                                *
 .\"*           Britton-Lee, Inc.                                       *

-.\"*           1919 Addison Street Suite 304                           *
+.\"*           1919 Addison Street Suite 105                           *

 .\"*           Berkeley, California  94704                             *
 .\"*                                                                   *
 .\"*           Berkeley, California  94704                             *
 .\"*                                                                   *

-.\"*   VERSION 2.22    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.22    %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


@@ -43,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


@@ -195,7 +211,7 @@
 .      @n                      \" begin the column
 .if \n@>2 .tm << @h
 ..
 .      @n                      \" begin the column
 .if \n@>2 .tm << @h
 ..

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

 \{\
 .      de @m           \" --- output cut mark (only on C/A/T-style)
 .      @O 0
 \{\
 .      de @m           \" --- output cut mark (only on C/A/T-style)
 .      @O 0


@@ -525,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


@@ -550,7 +566,7 @@
 .      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.


@@ -559,7 +575,7 @@
 .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


@@ -714,24 +730,39 @@
 .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 @]
 ..

+.de ]<                 \" &&& initialize reference
+.rn ]< @]
+.so \\*(||/refer.me
+.]<
+.rm @]
+..

 .if n .ds [. " [
 .if t .ds [. \s-2\v'-.4m'\f1
 .if n .ds .] ]
 .if n .ds [. " [
 .if t .ds [. \s-2\v'-.4m'\f1
 .if n .ds .] ]


@@ -740,6 +771,61 @@
 .if t .ds <. .
 .if n .ds >. .
 .if t .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


@@ -782,7 +868,7 @@
 ..
 .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
 .el \&\\$1\fP\\$2
 ..
 .de bx                 \" *** enter boxed word


@@ -797,7 +883,7 @@
 .if \\n~>0 \
 \{\
 .      ul 0
 .if \\n~>0 \
 \{\
 .      ul 0

-.      if \\n~>4 \
+.      if \\n~=8 \

 .              nr ~ \\n($b
 .      ft \\n~
 .\}
 .              nr ~ \\n($b
 .      ft \\n~
 .\}


@@ -953,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


@@ -1022,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 \