|
|
1.1 root 1: if $2x != x goto both
2: goto $1x
3: : allx
4: sh $0 1 I
5: sh $0 2 II
6: sh $0 3 III
7: sh $0 4 IV
8: sh $0 5 V
9: sh $0 6 VI
10: sh $0 7 VII
11: sh $0 8 VIII
12: cat tocx? >gorp
13: ptx -t gorp ptxx
14: rm gorp
15: ed - tocx1
16: 1,$s/([IV]*) /" "/
17: 1,$s/.*/.xx "&"/
18: w
19: e tocx2
20: 1,$s/([IV]*) /" "/
21: 1,$s/.*/.xx "&"/
22: w
23: e tocx3
24: 1,$s/([IV]*) /" "/
25: 1,$s/.*/.xx "&"/
26: w
27: e tocx4
28: 1,$s/([IV]*) /" "/
29: 1,$s/.*/.xx "&"/
30: w
31: e tocx5
32: 1,$s/([IV]*) /" "/
33: 1,$s/.*/.xx "&"/
34: w
35: e tocx6
36: 1,$s/([IV]*) /" "/
37: 1,$s/.*/.xx "&"/
38: w
39: e tocx7
40: 1,$s/([IV]*) /" "/
41: 1,$s/.*/.xx "&"/
42: w
43: e tocx8
44: 1,$s/([IV]*) /" "/
45: 1,$s/.*/.xx "&"/
46: w
47: q
48: exit
49: : 1x
50: sh $0 1 I
51: exit
52: : 2x
53: sh $0 2 II
54: exit
55: : 3x
56: sh $0 3 III
57: exit
58: : 4x
59: sh $0 4 IV
60: exit
61: : 5x
62: sh $0 5 V
63: exit
64: : 6x
65: sh $0 6 VI
66: exit
67: : 7x
68: sh $0 7 VII
69: exit
70: : 8x
71: sh $0 8 VIII
72: exit
73: : x
74: echo usage: sh tocrc "[12345678]"
75: exit
76: : both
77: chdir /usr/man/man$1
78: ls >xa
79: ed - xa
80: v/\.[12345678]$/d
81: g/^/s//e /\
82: .a\
83: /NAME/1p
84: w
85: q
86: ed - <xa >xb
87: echo "1,$s/ *\\\*- */("$2") /" >xa
88: echo w /usr/man/man0/tocx$1 >>xa
89: ed - xb <xa
90: rm xa xb
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.