blob: 403cec43345a25302db9d689f793e956852974e5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
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
|