|
|
1.1 root 1: set x $*
2: . ./.param
3:
4: for dir in $DIRLST
5: do
6: cd $MANDIR/man$dir
7: for file in $FILLST
8: do
9: so=`line < $file | sed "s/ .*//"`
10: if test "$so" = ".so"
11: then
12: continue
13: else
14: ed - $file > $TMPDIR/tmp.$$ <<!
15: /^\.SH NAME/+s/ .-.*//p
16: q
17: !
18: name=`line < $TMPDIR/tmp.$$`
19: echo $name | grep "," > /dev/null
20: if test $? -eq 0
21: then
22: name=`echo $name | sed "s/,/ /g"`
23: for ent in $name
24: do
25: if test $ent = `echo $file | sed "s/\..*//"`
26: then
27: continue
28: fi
29: suf=`echo $file | sed "s/.*\.\(.\{1,2\}\)\$/\1/"`
30: if test ! -f $ent.$suf
31: then
32: cat > $ent.$suf <<!
33: .so $MANDIR/man$dir/$file
34: !
35: fi
36: done
37: fi
38: fi
39: done
40:
41: rm -f tmp.$$
42: done
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.