|
|
1.1 root 1: .nr _0 \n(c.
2: .\" @(#)index.me 2.8 3/19/81
3: .\" %beginstrip%
4: .de (x \" *** begin index entry
5: .if \n@>4 .tm >> (x, .z=\\n(.z
6: .ds |X x
7: .if \\n(.$>0 \
8: . ds |X \\$1
9: .\" please note these cases MUST be in this order
10: .ie !"\\n(.z"" \
11: \{\
12: . ev 2 \" if in a diversion, save & process later
13: \!.(x \\*(|X
14: .rm |X
15: .\}
16: .el \
17: \{\
18: . am %\\*(|X )x
19: . sp \\n(xsu
20: . ti -\\n(piu
21: .\}
22: ..
23: .de )x \" *** end index entry
24: .if \n@>4 .tm >> )x, .z=\\n(.z
25: .ie "\\n(.z"" \
26: \{\
27: . ds |x \\n%
28: . if \\n(.$>0 \
29: . ds |x \\$1
30: . if "\\*(|x"_" \
31: . ig ..
32: . am %\\*(|X ..
33: . if \w"\\$2">(\\n(.l-\\n(.i-\\n(.k) \
34: . ti +\\n(xuu
35: \\\\a\\\\t\\$2\\*(|x
36: ...
37: . rm |x
38: . rm |X
39: .\}
40: .el \
41: \{\
42: \!.)x \\$1 \\$2
43: . br \" if in a diversion, save & process later
44: . ev
45: .\}
46: ..
47: .de xp \" *** print the index
48: .br
49: .@C 2
50: .ls 1
51: .vs \\n(.su*\\n($Ru
52: .fi
53: .in +\\n(piu
54: .ds |X x
55: .if \\n(.$>0 \
56: . ds |X \\$1
57: .xl -(\\n(xuu+\w'...'u)
58: .di |x
59: .%\\*(|X
60: .br
61: .di
62: .rm %\\*(|X
63: .xl \\n($lu
64: .rm |X
65: .ev
66: .nf
67: .in 0
68: .ta \\n(.lu-\\n(xuuR \\n(.luR
69: .|x
70: .fi
71: .in
72: .rm |x
73: ..
74: .if \n(xu<=0 \
75: . nr xu 0.5i \" index undent
76: .nr c. \n(_0
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.