#!/bin/sh

# %Z%$RCSfile: call,v $ version $Revision: #21 $ created $Date: 2001/08/29 $
# %Z%%Q%
typesetter=${S_TYPESETTER-"-Ttn300"}
name="$1"
exth=".html"
exts=".sgm"
shift
for i
do
    if [ -d "$i/.Data" ]
    then
      dataname=".Data"
     else
       dataname=""
    fi
        if [ -s "$i/$dataname/__Hhelp/$name$exth" ]; then
		newer=`find "$i/$dataname/__Hhelp/$name$exth" -newer "$i/$dataname/__Shelp/$name$exts" -print`
		if [ "$newer" != "" ]; then
			sed -e '1,/^USAGE/d' \
			    -e '/^ *$/,$d' "$i/$dataname/__Hhelp/$name$exth"
			exit 0
		fi
	elif [ -s "$i/$dataname/__Hhelp/$name$exth" ]; then
		# remove the description
		# then remove everything after the USAGE statement
		# by deleting from RA OA AG SE RT XY onward.
		(sed -e ' /^.CS/p
			/^.DN/,/^.CS/d
			/^.RA/,$d
			/^.OA/,$d
			/^.AG/,$d
			/^.SE/,$d
			/^.RT/,$d
			/^.XY/,$d' "$i/$dataname/__Hhelp/$name$exth"; echo .WR) |
			sed -e '/.CS/N
				s/^.CS\n.CS/.CS/' |
			sed -e "/\`/s/\'//g" -e "/\`/s/\`//g" |
			nroff $typesetter $SHOME/cmd/help.nr - 2>/dev/null
		exit 0
	fi
done

echo "No documentation available for $name"
