Return to checkfilref CVS log

Up to [Research Unix] / researchv10dc / man / adm

Annotation of researchv10dc/man/adm/checkfilref, revision 1.1.1.1

1.1       root        1: >filref                        # list of files & man pages that mention them
                      2: >filnam                        # file names only
                      3: for i in /usr/man/man[123456789]
                      4: do
                      5: cd $i
                      6: for j in *
                      7: do
                      8: >junka
                      9: >junkb
                     10: sed -n '
                     11: /^.TH  *.[^ ]*  *.[^ ]*  *\(..*\)/{
                     12:        s//\1/
                     13:        ty
                     14:        d
                     15:        :y
                     16:        h
                     17: }
                     18: /^\.F  */{
                     19:        s///
                     20:        b x
                     21: }
                     22: /^\.FR  */{
                     23:        s///
                     24:        s/ .*//
                     25:        b x
                     26: }
                     27: /^\.RF  */{
                     28:        s///
                     29:        s/^[^ ]* *//
                     30:        s/ .*//
                     31:        b x
                     32: }
                     33: d
                     34: :x
                     35: /</{
                     36:        s/^</\/usr\/include\//
                     37:        s/>$//
                     38: }
                     39: /</!{
                     40:        G
                     41:        /^\/.*\n./ s/\(.*\)\n\(.*\)/\/n\/\2\1/
                     42:        s/\n.*//
                     43: }
                     44: w junka
                     45: s/$/ '"$j"'/
                     46: w junkb
                     47: /\/\* .*/!d
                     48: s///
                     49: w junka
                     50: s/$/ '"$j"'/
                     51: w junkb
                     52: ' $j
                     53: cat junka >>../filnam
                     54: cat junkb >>../filref
                     55: done
                     56: rm -f junka junkb
                     57: cd ..
                     58: done
                     59: sort -u filnam -o filnam
                     60: sort -u filref -o filref
                     61: e - filnam 2>/dev/null <<'!'
                     62: g/ /d
                     63: 1,$g/./s/$/ /
                     64: 1,$-15g/./.,.+15j
                     65: g/^/s//ls -d /
                     66: w junka
                     67: !
                     68: sh junka 2>junkc >/dev/null
                     69: sed '
                     70: /.*: \(.*\): .*/!d
                     71: s//\1/
                     72: ' junkc | sort -u  >junkd
                     73: sed '
                     74: / .* /d
                     75: /^ /d
                     76: ' filref | join - junkd 

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.