|
|
1.1 root 1: set x $*
2: . ./.param
3:
4: for dir in $DIRLST
5: do
6: > $TMPDIR/cref$dir
7: cd $MANDIR/man$dir
8: for file in $FILLST
9: do
10: so=`line < $file | sed "s/ .*$//"`
11: if test "$so" = ".so"
12: then
13: continue
14: fi
15: grep ".*([1-8][cmsgxjvCMSGXJV]*)" $file >> $TMPDIR/cref$dir
16: done
17:
18: cd $TMPDIR
19: echo " ," >> cref$dir
20: date > lower.suf$dir
21: echo >> lower.suf$dir
22: date > badcref$dir
23: echo >> badcref$dir
24: ed - cref$dir >> lower.suf$dir <<!
25: g/ *\(([1-8][CMSGXJVcmsgxjv]*)\)/s//\1/
26: 1,\$s/ /\\
27: /g
28: 1,\$s/ /\\
29: /g
30: 1,\$s/,/\\
31: /g
32: v/(/d
33: g/\\\\\^/s///
34: g/\\\\\|/s///
35: g/([1-8][cgmsxjv])/p
36: g//d
37: g/^(/d
38: g/(/s//./
39: g/^\./d
40: g/C).*/s//c/
41: g/G).*/s//g/
42: g/M).*/s//m/
43: g/S).*/s//s/
44: g/X).*/s//x/
45: g/J).*/s//j/
46: g/V).*/s//v/
47: g/).*/s///
48: w
49: q
50: !
51: sort -i cref$dir | uniq > tmp.$$
52: while read cref
53: do
54: sect=`echo $cref | sed "s/.*\.\(.\).*/\1/"`
55: try=`ls $MANDIR/man$sect/$cref 2>&1`
56: if test "$try" = "$MANDIR/man$sect/$cref"
57: then
58: continue
59: else
60: echo $try | sed -e "s;$MANDIR/man..;;" -e "s; not found;;" >> badcref$dir
61: fi
62: done < tmp.$$
63: ed - badcref$dir <<!
64: g/\.\([1-8]\)/s//(\1/
65: g/c$/s//C)/
66: g/m$/s//M)/
67: g/s$/s//S)/
68: g/g$/s//G)/
69: g/x$/s//X)/
70: g/j$/s//J)/
71: g/v$/s//V)/
72: g/[^)]$/s/$/)/
73: 1s/.$//
74: w
75: q
76: !
77: rm -f tmp.$$ cref$dir
78: done
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.