home *** CD-ROM | disk | FTP | other *** search
- '\"#ident "@(#)//usr/ucblib/doctools/tmac/sh.me.sl 1.1 4.0 12/08/90 27110 AT&T-USL"
- '\" PROPRIETARY NOTICE (Combined)
- '\"
- '\"This source code is unpublished proprietary information
- '\"constituting, or derived under license from AT&T's UNIX(r) System V.
- '\"In addition, portions of such source code were derived from Berkeley
- '\"4.3 BSD under license from the Regents of the University of
- '\"California.
- '\"
- '\"
- '\"
- '\" Copyright Notice
- '\"
- '\"Notice of copyright on this source code product does not indicate
- '\"publication.
- '\"
- '\" (c) 1986,1987,1988,1989 Sun Microsystems, Inc
- '\" (c) 1983,1984,1985,1986,1987,1988,1989 AT&T.
- '\" All rights reserved.
- .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
-