#!/bin/sh
################################
# makewhatis 4 PTM             #
# (c) 1999 Przemek Borys, v0.2 #
################################

DIRS="man1 man2 man3 man4 man5 man6 man7 man8 mann"

echo -n >whatis

for i in $DIRS
	do
	echo Wchodz do katalogu $i
	cd $i
	rm -f *~
	for k in *
		do
		echo Testuj stron $k
###                                                                   ###
# awk robi to tak, e szuka sekcji NAZWA, potem drukuje nastpn lini, #
# lub dwie nastpne, jeli tytu jest napisany w konwencji .Nm nazwa    #
# .Nd opis.                                                             #
# Zmienn `trafione' mona uy do szukania niepoprawnych wpisw        #
###                                                                   ###
		cat $k |                                \
		awk -- 'BEGIN				\
			{liczba=0;trafione=0}		\
			{				\
                         if(liczba==1)                  \
		           {				\
			     trafione=1;		\
			     if(!match($0,"\.Nm"))   	\
                               print $0;		\
			     else			\
			       {			\
                                  ORS=" ";		\
			          print $0;		\
			          ORS="\n";		\
                               }			\
                           }	 			\
			 if(liczba==1)			\
			   {                       	\
                             if(!match($0,"\.Nm"))	\
                               liczba=liczba+1   	\
                           }	                 	\
			}				\
                        /^\.SH NAZWA/			\
			{liczba=1}			\
                        /^\.Sh NAZWA/			\
			{liczba=1}		' >>	\
		../whatis
		done
	cd ..
	done
###                              ###
# Wywalamy niepotrzebne znaczki... #
###                              ###
cat whatis | sed -e "s/\\\-/\-/g" \
                 -e "s/\.Nm //g"   \
                 -e "s/\.Nd /\- /g"   \
                 -e "s/\\\f.//g"   > whatis.tmp
mv whatis.tmp whatis
