diff options
Diffstat (limited to 'tmac/me/sh.me')
-rw-r--r-- | tmac/me/sh.me | 108 |
1 files changed, 108 insertions, 0 deletions
diff --git a/tmac/me/sh.me b/tmac/me/sh.me new file mode 100644 index 00000000..403cec43 --- /dev/null +++ b/tmac/me/sh.me @@ -0,0 +1,108 @@ +.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 |