share/man/tools/mklinks

   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