V10/man/adm/cachindex

M=/usr/man/man0
cd $M
for i in /usr/man/man[1-9]
do
	sh $M/makind1 $i
done >$M/junk1
cd $M
sh $M/makind1 /usr/man/mana | sed '
	s/([1-9])/(A)/
	s/(3I+)/(A)/
	s/(9\..)/(A)/
' >>junk1
sed '
s/\\(mi/-/
s/\\(em/-/
s/\\-/-/
s/\([^(]*\)(\(.\)[^)]*)\([^-]*\) \1\([, ].*\)/\3 \1(\2)\4/
s/^\([^ (]*(.\)[^)]*)/\1)/
s/^ //
' junk1 |sort -f >junk2
cp junk2 /usr/spool/man/index
rm junk1 junk2