11.1Smrgset x $* 21.1Smrg. ./.param 31.1Smrg 41.1Smrgfor dir in $DIRLST 51.1Smrgdo 61.1Smrg cd $MANDIR/man$dir 71.1Smrg for file in $FILLST 81.1Smrg do 91.1Smrg so=`line < $file | sed "s/ .*//"` 101.1Smrg if test "$so" = ".so" 111.1Smrg then 121.1Smrg continue 131.1Smrg else 141.1Smrg ed - $file > $TMPDIR/tmp.$$ <<! 151.1Smrg /^\.SH NAME/+s/ .-.*//p 161.1Smrg q 171.1Smrg! 181.1Smrg name=`line < $TMPDIR/tmp.$$` 191.1Smrg echo $name | grep "," > /dev/null 201.1Smrg if test $? -eq 0 211.1Smrg then 221.1Smrg name=`echo $name | sed "s/,/ /g"` 231.1Smrg for ent in $name 241.1Smrg do 251.1Smrg if test $ent = `echo $file | sed "s/\..*//"` 261.1Smrg then 271.1Smrg continue 281.1Smrg fi 291.1Smrg suf=`echo $file | sed "s/.*\.\(.\{1,2\}\)\$/\1/"` 301.1Smrg if test ! -f $ent.$suf 311.1Smrg then 321.1Smrg cat > $ent.$suf <<! 331.1Smrg.so $MANDIR/man$dir/$file 341.1Smrg! 351.1Smrg fi 361.1Smrg done 371.1Smrg fi 381.1Smrg fi 391.1Smrg done 401.1Smrg 411.1Smrg rm -f tmp.$$ 421.1Smrgdone 43