NetBSD/share/man/tools/mklinks

43 lines
692 B
Plaintext
Raw Normal View History

1992-07-13 20:18:25 +04:00
set x $*
. ./.param
for dir in $DIRLST
do
cd $MANDIR/man$dir
for file in $FILLST
do
so=`line < $file | sed "s/ .*//"`
if test "$so" = ".so"
then
continue
else
ed - $file > $TMPDIR/tmp.$$ <<!
/^\.SH NAME/+s/ .-.*//p
q
!
name=`line < $TMPDIR/tmp.$$`
echo $name | grep "," > /dev/null
if test $? -eq 0
then
name=`echo $name | sed "s/,/ /g"`
for ent in $name
do
if test $ent = `echo $file | sed "s/\..*//"`
then
continue
fi
suf=`echo $file | sed "s/.*\.\(.\{1,2\}\)\$/\1/"`
if test ! -f $ent.$suf
then
cat > $ent.$suf <<!
.so $MANDIR/man$dir/$file
!
fi
done
fi
fi
done
rm -f tmp.$$
done