W=../man/whatis
M=../man
mv $W $W.old
for D in man1 man2 man3 man4 man5 man6 man7 man8
do
find $M/$D -exec awk \
'got == 1 {printf "%s %s",$1,sect; for (i=2; i<=NF; i++) printf " %s",$i;printf "\n"; exit} \
/\.SH NAME/ {got = 1} \
/\.TH/ && ($3 != "") {sect = "(" $3 ")"}' {} >> $W \;
done
sort -u $W > $W$$
mv $W$$ $W

