1set x $*
2. ./.param
3
4for dir in $DIRLST
5do
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.$$
42done
43