|
|
1.1 root 1: .nr _0 \n(c.
2: .\" Copyright (c) 1988 The Regents of the University of California.
3: .\" All rights reserved.
4: .\"
5: .\" Redistribution and use in source and binary forms are permitted
6: .\" provided that the above copyright notice and this paragraph are
7: .\" duplicated in all such forms and that any documentation,
8: .\" advertising materials, and other materials related to such
9: .\" distribution and use acknowledge that the software was developed
10: .\" by the University of California, Berkeley. The name of the
11: .\" University may not be used to endorse or promote products derived
12: .\" from this software without specific prior written permission.
13: .\" THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
14: .\" IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
15: .\" WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
16: .\"
17: .\" @(#)sh.me 2.7 (Berkeley) 9/30/88
18: .\"
19: .\" %beginstrip%
20: .\"
21: .de sh \" *** section heading
22: .fi
23: .if (\\n(si>0)&(\\n(si<1n) \
24: . nr si \\n(sin
25: .ce 0
26: .@d "\\$1" +1 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8
27: .if !"\\$2"_" \
28: \{\
29: . ds |n \&\\$2
30: . $p "\\*(|n" "\\*($n" \\n($0
31: . $0 "\\*(|n" "\\*($n" \\n($0
32: . rm |n
33: .\}
34: .nr $p 0 1 \" reset .np count
35: ..
36: .de @d \" --- change section depth
37: .if !""\\$1" \
38: . nr $0 \\$1
39: .if \\n($0&(\\n(.$>1) \
40: . nr $\\n($0 \\$2
41: .ds $n \&\"
42: .ie \\n($0>=1 \
43: \{\
44: . if '\\n($1'0' \
45: . nr $1 1
46: . if (\\n(.$>=3) .if !"\\$3"-" \
47: . nr $1 \\$3
48: . as $n \\n($1
49: .\}
50: .el \
51: . nr $1 0
52: .ie \\n($0>=2 \
53: \{\
54: . if '\\n($2'0' \
55: . nr $2 1
56: . if (\\n(.$>=4) .if !"\\$4"-" \
57: . nr $2 \\$4
58: . as $n .\\n($2
59: .\}
60: .el \
61: . nr $2 0
62: .ie \\n($0>=3 \
63: \{\
64: . if '\\n($3'0' \
65: . nr $3 1
66: . if (\\n(.$>=5) .if !"\\$5"-" \
67: . nr $3 \\$5
68: . as $n .\\n($3
69: .\}
70: .el \
71: . nr $3 0
72: .ie \\n($0>=4 \
73: \{\
74: . if '\\n($4'0' \
75: . nr $4 1
76: . if (\\n(.$>=6) .if !"\\$6"-" \
77: . nr $4 \\$6
78: . as $n .\\n($4
79: .\}
80: .el \
81: . nr $4 0
82: .ie \\n($0>=5 \
83: \{\
84: . if '\\n($5'0' \
85: . nr $5 1
86: . if (\\n(.$>=7) .if !"\\$7"-" \
87: . nr $5 \\$7
88: . as $n .\\n($5
89: .\}
90: .el \
91: . nr $5 0
92: .ie \\n($0>=6 \
93: \{\
94: . if '\\n($6'0' \
95: . nr $6 1
96: . if (\\n(.$>=8) .if !"\\$8"-" \
97: . nr $6 \\$8
98: . as $n .\\n($6
99: .\}
100: .el \
101: . nr $6 0
102: ..
103: .de sx \" *** heading up, no increment (2.1.1 -> 2.1)
104: .ce 0
105: .ul 0
106: .nr _0 \\n($0-1
107: .if \\n(.$ .nr _0 +1
108: .if \\n(.$ .nr _0 \\$1
109: .@d \\n(_0
110: .rr _0
111: .$p "" "" \\n($0
112: .nr $p 0 1 \" reset .np count
113: ..
114: .de uh \" *** unnumbered section heading
115: .$p "\\$1"
116: .$0 "\\$1"
117: ..
118: .if \n(sf<=0 \
119: . nr sf 8 \" section font -- Times Bold
120: .if \n(sp<=0 \
121: . nr sp 10 \" section title pointsize
122: .if \n(ss<=0 \
123: . nr ss 12p \" section prespacing
124: .if \n(si<=0 \
125: . nr si 0 \" section indent
126: .nr c. \n(_0
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.