#! /bin/sh
# hp Fr Jun  7 10:55:29 GMT 2002
# 'isForth' glossary to stdout, xec in "asmsrc" directory 

c=;l=;o=
find $(pwd) -name \*\.1 -exec cat \{\} \;|while read i
do
    [ -z "${i}" ]&&continue
    [ -z "${c}" -a "${i}" = "${i#;-------------*}" -a -n "${l}" ]&&{ l=;continue; }
    o=${c};c=" ${i#;*}"
    [ " ${i}" != "${c}" -a "${i}" = "${i#;-*}" -a "${l}" != "x" ]&&l=${c}
    [ -z "${l}" ]&&continue
    [ "${i}" = "${i#var *}" -a "${i}" = "${i#*dd *}" ]||{ c=;l=;continue; }
    [ "${l}" = "x" -o "${o}" = "${l}" -o -z "${o}" -o "${o}" = " " ]&&
	{ [ "${c}" = " " -o -z "${c}" ]||echo ${c};o=; }||
	{ echo -e "\n${o}\n${l}";l=x; }
    [ "${i}" = "${i#*:*}" -a "${i}" = "${i#code*}" -a "${i}" = "${i#colon*}" -a \
      "${i}" = "${i#sys[0-9]:*}" -a "${i}" = "${i#*dd *}" -a \
      "${i}" = "${i#%macro*}" -a "${i}" = "${i#%define*}" ]&&continue
    c=;l=
done
