1set x $*
2. ./.param
3
4for dir in $DIRLST
5do
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-9][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-9][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-9][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-9]\)/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
78done
79