BSD 3 development
authorBill Joy <wnj@ucbvax.Berkeley.EDU>
Tue, 18 Dec 1979 02:43:13 +0000 (18:43 -0800)
committerBill Joy <wnj@ucbvax.Berkeley.EDU>
Tue, 18 Dec 1979 02:43:13 +0000 (18:43 -0800)
Work on file usr/lib/me/src/acm.me
Work on file usr/lib/me/src/chars.me
Work on file usr/lib/me/src/float.me
Work on file usr/lib/me/src/deltext.me
Work on file usr/lib/me/src/footnote.me
Work on file usr/lib/me/src/eqn.me
Work on file usr/lib/me/src/null.me
Work on file usr/lib/me/src/index.me
Work on file usr/lib/me/src/local.me
Work on file usr/lib/me/src/tbl.me
Work on file usr/lib/me/src/sh.me
Work on file usr/lib/me/src/thesis.me

Synthesized-from: 3bsd

12 files changed:
usr/lib/me/src/acm.me [new file with mode: 0644]
usr/lib/me/src/chars.me [new file with mode: 0644]
usr/lib/me/src/deltext.me [new file with mode: 0644]
usr/lib/me/src/eqn.me [new file with mode: 0644]
usr/lib/me/src/float.me [new file with mode: 0644]
usr/lib/me/src/footnote.me [new file with mode: 0644]
usr/lib/me/src/index.me [new file with mode: 0644]
usr/lib/me/src/local.me [new file with mode: 0644]
usr/lib/me/src/null.me [new file with mode: 0644]
usr/lib/me/src/sh.me [new file with mode: 0644]
usr/lib/me/src/tbl.me [new file with mode: 0644]
usr/lib/me/src/thesis.me [new file with mode: 0644]

diff --git a/usr/lib/me/src/acm.me b/usr/lib/me/src/acm.me
new file mode 100644 (file)
index 0000000..df713a9
--- /dev/null
@@ -0,0 +1,54 @@
+.nr _0 \n(c.
+.\" This version has had comments stripped; an unstripped version is available.
+.de ac
+.ll 8.9i
+.nr $s 0.5i
+.if !\\n($T \
+.      po 1.0i
+.ie "\\$2"*" \
+\{\
+.      nr hm 0.375i
+.      nr tm 1.125i
+.      pl 14.25i
+.      nr bm 1.5i
+.      de $h ..
+.      tl ''%''
+...
+.      rm $f
+.\}
+.el \
+\{\
+.      nr hm 0
+.      nr tm 0
+.      pl 15i
+.      nr bm 3i
+.      nr fm 0.9i
+.      de $f ..
+.      ti 0
+\h'|0.5i'\\\\n%\h'|1.25i'\\$2\h'|3i'\\$1
+.      br
+...
+.      rm $h
+.\}
+.bp
+.rs
+.sp 0.75i
+.rm ac
+..
+.if t .tm Line \n(c. -- macro .ac will not work in TROFF -- request ignored.
+.if t .rm ac
+.de +c
+.if \\n(?A \
+\{\
+.      nr ch 0 1
+.      pn 1
+.      ep
+.      af % 1
+.      bp
+.\}
+.nr ?A 0
+.sp 1i
+.if \\n(.$ \
+.      $c "\\$1"
+..
+.nr c. \n(_0
diff --git a/usr/lib/me/src/chars.me b/usr/lib/me/src/chars.me
new file mode 100644 (file)
index 0000000..262dfb4
--- /dev/null
@@ -0,0 +1,52 @@
+.nr _0 \n(c.
+.\" This version has had comments stripped; an unstripped version is available.
+.if n \
+\{\
+.      ds #[ \f1
+.      ds #] \fP
+.      ds #h 0
+.      ds #v 0.8m
+.      ds #f +0.3m
+.\}
+.if t \
+\{\
+.      ds #[ \&
+.      ds #] \&
+.      ds #h ((1u-(\\\\n(.fu%2u))*0.13m)
+.      ds #v 0.6m
+.      ds #f "\"
+.\}
+.ds ' \k_\h'-(\\n(.wu*8/10-\*(#h)'\*(#[\(aa\h'|\\n_u'\*(#]
+.ds ` \k_\h'-(\\n(.wu*7/10-\*(#h)'\*(#[\(ga\h'|\\n_u'\*(#]
+.ds : \k_\h'-(\\n(.wu*8/10-\*(#h+0.1m\*(#f)'\v'-\*(#v'\*(#[\z.\h'0.2m\*(#f'.\h'|\\n_u'\v'\*(#v'\*(#]
+.ds ^ \k_\h'-(\\n(.wu-\*(#h-0.05m)'\*(#[^\h'|\\n_u'\*(#]
+.ds ~ \k_\h'-(\\n(.wu-\*(#h-0.05m)'\*(#[~\h'|\\n_u'\*(#]
+.ds , \k_\h'-(\\n(.wu)'\*(#[,\h'|\\n_u'\*(#]
+.ds v \k_\h'-(\\n(.wu*9/10-\*(#h)'\v'-\*(#v'\*(#[\s-4v\s0\v'\*(#v'\h'|\\n_u'\*(#]
+.ds o \k_\h'-(\\n(.wu+\w'\(de'u-\*(#h)/2u'\v'-0.4n'\*(#[\z\(de\v'0.4n'\h'|\\n_u'\*(#]
+.ds qe \*(#[\v'0.5m'\z\(em\v'-0.65m'\z\(em\v'-0.65m'\z\(em\v'0.8m'\h'0.3m'|\h'-0.3m'\*(#]
+.ds qa \*(#[\h'-0.24m'\z\e\h'0.48m'\z\(sl\h'-0.24m'\v'-0.15m'\(em\v'0.15m'\*(#]
+.if t \
+\{\
+.      ds qe \s-2\v'0.45m'\z\(em\v'-0.625m'\z\(em\v'-0.625m'\(em\v'0.8m'\s0\h'-0.1m'\v'-0.05m'\(br\v'0.05m'\h'0.1m'
+.      ds qa \z\e\h'0.35m'\z\(sl\h'-0.33m'\v'-0.3m'\s-4\(em\s0\v'0.3m'\h'0.15m'
+.\}
+.if \n($T \
+\{\
+.      ds ' \*(#[\h'-1'\(aa\*(#]
+.      ds ` \*(#[\h'-1'\(ga\*(#]
+.      ds : \&
+.      ds ^ \*(#[\h'-1'^\*(#]
+.      ds ~ \*(#[\h'-1'~\*(#]
+.      ds , \*(#[\h'-1',\*(#]
+.      ds v \&
+.      ds o \&
+.      ds qe EXISTS
+.      ds qa FORALL
+.\}
+.rm #[
+.rm #]
+.rm #h
+.rm #v
+.rm #f
+.nr c. \n(_0
diff --git a/usr/lib/me/src/deltext.me b/usr/lib/me/src/deltext.me
new file mode 100644 (file)
index 0000000..1ceaee0
--- /dev/null
@@ -0,0 +1,18 @@
+.nr _0 \n(c.
+.de (d                 \" *** begin delayed text
+.am |d )d
+.sp \\n(bsu
+..
+.de )d                 \" *** end delayed text
+.if \\n# \
+.      nr $d +1
+.ds # [\\n($d]\k#
+.rr #
+..
+.de pd                 \" *** print delayed text
+.|d
+.rm |d
+.nr $d 1 1
+.ds # [1]\k#
+..
+.nr c. \n(_0
diff --git a/usr/lib/me/src/eqn.me b/usr/lib/me/src/eqn.me
new file mode 100644 (file)
index 0000000..0794e2c
--- /dev/null
@@ -0,0 +1,76 @@
+.nr _0 \n(c.
+.\" This version has had comments stripped; an unstripped version is available.
+.de EQ
+.ec
+.if !\\n(?e \
+\{\
+.      if "\\n(.z"|e" .tm Line \\n(c. -- Nested .EQ request
+.      @D 1 "\\$1" "\\$2"
+.      @C 2
+.      di |e
+.\}
+.ls 1
+.in 0
+.nf
+..
+.de EN
+.br
+.ie "\\$1"C" \
+\{\
+.      nr ?e 1
+.      sp \\n(esu
+.\}
+.el \
+\{\
+.      nr ?e 0
+.      di
+.      if \\n(dn \
+.              @q
+.      rm |e
+.      rm 10
+.      rm 11
+.      rm 12
+.      rm 13
+.      rm 14
+.      rm 15
+.      rm 16
+.      rm 17
+.      rm 18
+.      rm 19
+.      rm 20
+.      rm 21
+.      rm 22
+.      rm 23
+.      ev
+.\}
+..
+.de @q
+.nr _Q \\n(dnu
+.ev
+.sp \\n(esu
+.@C 2
+.ie \\n(_d=1 \
+.      in (\\n(.lu+\\n($iu-\\n(dlu)/2u
+.el .ie \\n(_d=2 \
+.      in \\n($iu
+.el .ie \\n(_d=3 \
+.      in \\n(biu+\\n($iu
+.el .if \\n(_d=4 \
+.      in 0
+.if !"\\n(.z"" \!.ne \\n(_Qu
+.ne \\n(_Qu+\n(.Vu
+.mk _q
+.if !"\\*(|p"" \
+\{\
+.      rs
+.      sp (\\n(_Qu-\\n(.vu)/2u
+.      tl """\\*(|p"
+.      rt \\n(_qu
+.\}
+.|e
+.sp |\\n(_qu+\\n(_Qu
+.sp \\n(esu+\\n(.Lv-1v
+.rr _q
+.rr _Q
+..
+.nr c. \n(_0
diff --git a/usr/lib/me/src/float.me b/usr/lib/me/src/float.me
new file mode 100644 (file)
index 0000000..0dbade2
--- /dev/null
@@ -0,0 +1,56 @@
+.nr _0 \n(c.
+.de (z                 \" *** begin floating keep
+.@D 4 \\$1 \\$2
+.@(
+.nr ?T 0
+..
+.de )z                 \" *** end floating keep
+.sp \\n(zsu
+.@)
+.rr _0
+.if !\\n(?b \
+.      nr dn +(\\n(ppu*\\n($ru)/2u+\\n(zsu
+.ie ((\\n(dn+\n(.V)>=\\n(.t):(\\n(?a) \
+\{\
+.      nr ?a 1
+.      ds |x |t
+.\}
+.el \
+\{\
+.      nr ?b 1
+.      nr _b +\\n(dnu
+.      ch @f -\\n(_bu
+.      ds |x |b
+.\}
+.da \\*(|x                     \" copy to save macro
+.nf
+.ls 1
+.nr ?k 1
+\!.if \\\\n(nl>(\\\\n(tm+2v) .ne \\n(dnu-\\n(zsu
+.eo
+.cc @
+@|k                            \" and the body
+@cc
+.ec
+.nr ?k 0
+.rm |k                         \" remove the temp macro
+.da
+.in 0
+.ls 1
+.xl \\n($lu
+.ev
+..
+.de @k                 \" --- output floating keep
+.ev 1
+.nf
+.ls 1
+.in 0
+.sp \\n(zsu
+.\\$1
+.ec
+.br
+.rm \\$1
+.ev
+.nr ?T 0
+..
+.nr c. \n(_0
diff --git a/usr/lib/me/src/footnote.me b/usr/lib/me/src/footnote.me
new file mode 100644 (file)
index 0000000..e992ef2
--- /dev/null
@@ -0,0 +1,70 @@
+.nr _0 \n(c.
+.\" This version has had comments stripped; an unstripped version is available.
+.de (f
+.ec
+.if "\\n(.z"|f" .tm Line \\n(c. -- Illegal footnote nesting
+.nr _D \\n(dn
+.nr _0 1v+\\n(nlu
+.ev 2
+.da |f
+.in 0
+.xl \\n($lu-\\n(fuu
+.@F \\n(ff
+.sz \\n(fpu
+.vs \\n(.su*\\n($Ru
+.if !\\n(?f \
+\{\
+.      nr _b +2u*\n(.Vu
+.      $s
+.\}
+.br
+.if \\n(.p-\\n(_b-\\n(_0-\\n(.h-1v-\\n(fs<0 \
+\{\
+.      da\"
+.      bc
+.      if !\\n(?f \
+.              rm |f
+.      da |f
+.      in 0
+.      xl \\n($lu-\\n(fuu
+.      @F \\n(ff
+.      sz \\n(fpu
+.      vs \\n(.su*\\n($Ru
+.      if !\\n(?f \
+.              $s
+.      br
+.\}
+.rr _0
+.sp \\n(fsu
+.nr ?f 1
+.fi
+.if !"\\$1"_" \
+.      ti \\n(fiu
+..
+.de )f
+.if \\n* \
+.      nr $f +1
+.ds * \\*[\\n($f\\*]\k*
+.rr *
+.in 0
+.da
+.ev
+.if \\n(_w<\\n(dl \
+.      nr _w \\n(dl
+.nr _b +\\n(dn
+.ch @f -\\n(_bu
+.if \\n(.p-\\n(_b<=\\n(nl \
+.      ch @f \\n(nlu+\n(.Vu
+.nr dn _D
+.rr _D
+..
+.if \n(ff<=0 \
+.      nr ff 1
+.if \n(fp<=0 \
+.      nr fp 8
+.if \n(fi<=0 \
+\{\
+.      if n .nr fi 3n
+.      if t .nr fi 0.3i
+.\}
+.nr c. \n(_0
diff --git a/usr/lib/me/src/index.me b/usr/lib/me/src/index.me
new file mode 100644 (file)
index 0000000..fddcb2f
--- /dev/null
@@ -0,0 +1,52 @@
+.nr _0 \n(c.
+.\" This version has had comments stripped; an unstripped version is available.
+.de (x
+.ds |X x
+.if \\n(.$ \
+.      ds |X \\$1
+.am %\\*(|X )x
+.sp \\n(xsu
+..
+.de )x
+.ds |x \\n%
+.if \\n(.$ \
+.      ds |x \\$1
+.if "\\*(|x"_" \
+.      ig ..
+.am %\\*(|X ..
+.if \w"\\$2">(\\n(.l-\\n(.i-\\n(.k) \
+.      ti +\\n(xuu
+\\\\a\\\\t\\$2\\*(|x
+...
+.rm |x
+.rm |X
+..
+.de xp
+.br
+.@C 2
+.ls 1
+.vs \\n(.su*\\n($Ru
+.fi
+.ds |X x
+.if \\n(.$ \
+.      ds |X \\$1
+.xl -(\\n(xuu+\w'...'u)
+.di |x
+.%\\*(|X
+.br
+.di
+.rm %\\*(|X
+.xl \\n($lu
+.rm |X
+.ev
+.nf
+.in 0
+.ta \\n(.lu-\\n(xuuR \\n(.luR
+.|x
+.fi
+.in
+.rm |x
+..
+.if \n(xu<=0 \
+.      nr xu 0.5i
+.nr c. \n(_0
diff --git a/usr/lib/me/src/local.me b/usr/lib/me/src/local.me
new file mode 100644 (file)
index 0000000..718e1d6
--- /dev/null
@@ -0,0 +1,9 @@
+.nr _0 \n(c.
+.\" this file may contain local macros, which are initialized with
+.\" the ".lo" request.  All macros and number registers in this file
+.\" should be named ".*X", where X is any letter (upper or lower case)
+.\" or digit, to avoid naming conflicts.
+.\"
+.\" %beginstrip%
+. \"  *** insert new definitions before this line ***
+.nr c. \n(_0
diff --git a/usr/lib/me/src/null.me b/usr/lib/me/src/null.me
new file mode 100644 (file)
index 0000000..bd0c9cf
--- /dev/null
@@ -0,0 +1,3 @@
+.\" This file should be null -- it is called when tmac.e is sourced
+.\" This version has had comments stripped; an unstripped version is available.
+.cc .
diff --git a/usr/lib/me/src/sh.me b/usr/lib/me/src/sh.me
new file mode 100644 (file)
index 0000000..91e9d36
--- /dev/null
@@ -0,0 +1,107 @@
+.nr _0 \n(c.
+.\" This version has had comments stripped; an unstripped version is available.
+.de sh
+.if (\\n(si>0)&(\\n(si<1n) \
+.      nr si \\n(sin
+.ce 0
+.@d "\\$1" +1 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8
+.if !"\\$2"_" \
+\{\
+.      ds |x \&\\$2
+.      $p "\\*(|x" "\\*($n" \\n($0
+.      $0 "\\*(|x" "\\*($n" \\n($0
+.      rm |x
+.\}
+.nr $p 0 1
+..
+.de @d
+.if !""\\$1" \
+.      nr $0 \\$1
+.if \\n($0&(\\n(.$>1) \
+.      nr $\\n($0 \\$2
+.ds $n \&\"
+.ie \\n($0>=1 \
+\{\
+.      if \\n($1=0 \
+.              nr $1 1
+.      if (\\n(.$>=3) .if !"\\$3"-" \
+.              nr $1 \\$3
+.      as $n \\n($1
+.\}
+.el \
+.      nr $1 0
+.ie \\n($0>=2 \
+\{\
+.      if \\n($2=0 \
+.              nr $2 1
+.      if (\\n(.$>=4) .if !"\\$4"-" \
+.              nr $2 \\$4
+.      as $n .\\n($2
+.\}
+.el \
+.      nr $2 0
+.ie \\n($0>=3 \
+\{\
+.      if \\n($3=0 \
+.              nr $3 1
+.      if (\\n(.$>=5) .if !"\\$5"-" \
+.              nr $3 \\$5
+.      as $n .\\n($3
+.\}
+.el \
+.      nr $3 0
+.ie \\n($0>=4 \
+\{\
+.      if \\n($4=0 \
+.              nr $4 1
+.      if (\\n(.$>=6) .if !"\\$6"-" \
+.              nr $4 \\$6
+.      as $n .\\n($4
+.\}
+.el \
+.      nr $4 0
+.ie \\n($0>=5 \
+\{\
+.      if \\n($5=0 \
+.              nr $5 1
+.      if (\\n(.$>=7) .if !"\\$7"-" \
+.              nr $5 \\$7
+.      as $n .\\n($5
+.\}
+.el \
+.      nr $5 0
+.ie \\n($0>=6 \
+\{\
+.      if \\n($6=0 \
+.              nr $6 1
+.      if (\\n(.$>=8) .if !"\\$8"-" \
+.              nr $6 \\$8
+.      as $n .\\n($6
+.\}
+.el \
+.      nr $6 0
+..
+.de sx
+.ce 0
+.ul 0
+.nr _0 \\n($0-1
+.if \\n(.$ .nr _0 +1
+.if \\n(.$ .nr _0 \\$1
+.@d \\n(_0
+.rr _0
+.$p "" "" \\n($0
+.nr $p 0 1
+..
+.de uh
+.$p "\\$1"
+.$0 "\\$1"
+..
+.if \n(sf<=0 \
+.      nr sf 8
+.if \n(sp<=0 \
+.      nr sp 10
+.if \n(ss<=0 \
+.      nr ss 12p
+.if \n(si<=0 \
+.      nr si 0
+.nr c. \n(_0
diff --git a/usr/lib/me/src/tbl.me b/usr/lib/me/src/tbl.me
new file mode 100644 (file)
index 0000000..586b309
--- /dev/null
@@ -0,0 +1,107 @@
+.nr _0 \n(c.
+.de TS                 \" *** table start
+.sp \\n(bsu
+.@C 1
+.if "\\$1"H" \
+\{\
+.      di |h                   \" save header part
+.      nr ?T 1
+.\}
+.ls 1
+.ch @f -(\\n(_bu+1v)           \" set pseudo-trap for bottom line
+..
+.de TH                 \" *** end header part of table
+.nr T. 0
+.T# 0
+.di
+.nr _i \\n(.i
+.in 0
+.|h                            \" put in the initial header
+.in \\n(_iu
+.rr _i
+.mk #T
+..
+.de TE                 \" *** table end
+.nr ?T 0
+.ch @f -\\n(_bu                        \" reset pseudo-trap
+.ev
+.sp \\n(bsu+\\n(.Lv-1v
+.re
+.rr 31
+.rr 32
+.rr 33
+.rr 34
+.rr 35
+.rr 36
+.rr 37
+.rr 38
+.rr 39
+.rr 40
+.rr 41
+.rr 42
+.rr 43
+.rr 44
+.rr 45
+.rr 46
+.rr 47
+.rr 48
+.rr 49
+.rr 50
+.rr 51
+.rr 52
+.rr 53
+.rr 54
+.rr 55
+.rr 56
+.rr 57
+.rr 58
+.rr 59
+.rr 60
+.rr 61
+.rr 62
+.rr 63
+.rr 64
+.rr 65
+.rr 66
+.rr 67
+.rr 68
+.rr 69
+.rr 70
+.rr 71
+.rr 72
+.rr 73
+.rr 74
+.rr 75
+.rr 76
+.rr 77
+.rr 78
+.rr 79
+.rr 80
+.rr 81
+.rr 82
+.rr 83
+.rr 84
+.rr 85
+.rr 86
+.rr 87
+.rr 88
+.rr 89
+.rr 90
+.rr 91
+.rr 92
+.rr 93
+.rr 94
+.rr 95
+.rr 96
+.rr 97
+.rr 98
+.rr 99
+.rr #I
+.rr #T
+.rr #a
+.rr ##
+.rr #-
+.rr #^
+.rr T.
+..
+.nr c. \n(_0
diff --git a/usr/lib/me/src/thesis.me b/usr/lib/me/src/thesis.me
new file mode 100644 (file)
index 0000000..01eff78
--- /dev/null
@@ -0,0 +1,18 @@
+.nr _0 \n(c.
+.\"  Setup for thesis.
+.\"    This file should be modified to keep up with the standard
+.\"    for a doctoral thesis at Berkeley.  Other macros which may
+.\"    be useful for a thesis are defined here.
+.\" %beginstrip%
+.nr tf 1                       \" set titles in Roman
+.he '''%'
+.if n .if \n(_o \
+.      po 1.5i
+.if t .po 1.125i               \" + .5 inch (off 8i paper roll) = 1.5i
+.ll 5.75i                      \" allow 1/4 inch fudge
+.if n .if 1n=0.1i \
+.      ll 5.8i                 \" make it even character amount
+.m1 1i
+.nr ?t 1
+.ls 2
+.nr c. \n(_0