ref: f3032eb9536fef95fc35a58a6831540b6ffe0893
dir: /sys/lib/tmac/me/sh.me/
.nr _0 \n(c.
.\" @(#)sh.me 2.1 8/18/80
.\" 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