|
|
1.1 root 1: .nr _0 \n(c.
2: .\" @(#)sh.me 2.4 3/27/86
3: .\" %beginstrip%
4: .de sh \" *** section heading
5: .fi
6: .if (\\n(si>0)&(\\n(si<1n) \
7: . nr si \\n(sin
8: .ce 0
9: .@d "\\$1" +1 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8
10: .if !"\\$2"_" \
11: \{\
12: . ds |n \&\\$2
13: . $p "\\*(|n" "\\*($n" \\n($0
14: . $0 "\\*(|n" "\\*($n" \\n($0
15: . rm |n
16: .\}
17: .nr $p 0 1 \" reset .np count
18: ..
19: .de @d \" --- change section depth
20: .if !""\\$1" \
21: . nr $0 \\$1
22: .if \\n($0&(\\n(.$>1) \
23: . nr $\\n($0 \\$2
24: .ds $n \&\"
25: .ie \\n($0>=1 \
26: \{\
27: . if '\\n($1'0' \
28: . nr $1 1
29: . if (\\n(.$>=3) .if !"\\$3"-" \
30: . nr $1 \\$3
31: . as $n \\n($1
32: .\}
33: .el \
34: . nr $1 0
35: .ie \\n($0>=2 \
36: \{\
37: . if '\\n($2'0' \
38: . nr $2 1
39: . if (\\n(.$>=4) .if !"\\$4"-" \
40: . nr $2 \\$4
41: . as $n .\\n($2
42: .\}
43: .el \
44: . nr $2 0
45: .ie \\n($0>=3 \
46: \{\
47: . if '\\n($3'0' \
48: . nr $3 1
49: . if (\\n(.$>=5) .if !"\\$5"-" \
50: . nr $3 \\$5
51: . as $n .\\n($3
52: .\}
53: .el \
54: . nr $3 0
55: .ie \\n($0>=4 \
56: \{\
57: . if '\\n($4'0' \
58: . nr $4 1
59: . if (\\n(.$>=6) .if !"\\$6"-" \
60: . nr $4 \\$6
61: . as $n .\\n($4
62: .\}
63: .el \
64: . nr $4 0
65: .ie \\n($0>=5 \
66: \{\
67: . if '\\n($5'0' \
68: . nr $5 1
69: . if (\\n(.$>=7) .if !"\\$7"-" \
70: . nr $5 \\$7
71: . as $n .\\n($5
72: .\}
73: .el \
74: . nr $5 0
75: .ie \\n($0>=6 \
76: \{\
77: . if '\\n($6'0' \
78: . nr $6 1
79: . if (\\n(.$>=8) .if !"\\$8"-" \
80: . nr $6 \\$8
81: . as $n .\\n($6
82: .\}
83: .el \
84: . nr $6 0
85: ..
86: .de sx \" *** heading up, no increment (2.1.1 -> 2.1)
87: .ce 0
88: .ul 0
89: .nr _0 \\n($0-1
90: .if \\n(.$ .nr _0 +1
91: .if \\n(.$ .nr _0 \\$1
92: .@d \\n(_0
93: .rr _0
94: .$p "" "" \\n($0
95: .nr $p 0 1 \" reset .np count
96: ..
97: .de uh \" *** unnumbered section heading
98: .$p "\\$1"
99: .$0 "\\$1"
100: ..
101: .if \n(sf<=0 \
102: . nr sf 8 \" section font -- Times Bold
103: .if \n(sp<=0 \
104: . nr sp 10 \" section title pointsize
105: .if \n(ss<=0 \
106: . nr ss 12p \" section prespacing
107: .if \n(si<=0 \
108: . nr si 0 \" section indent
109: .nr c. \n(_0
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.