#!/bin/sh

# @(#)call version 3.15 created 5/31/95
# @(#)Copyright (c), 1987, 1995 StatSci, Inc.  All rights reserved.
typesetter=${S_TYPESETTER-"-Ttn300"}
name="$1"
shift
for i
do
        if [ -s "$i/.Cat.Help/$name" ]; then
		newer=`find "$i/.Cat.Help/$name" -newer "$i/.Help/$name" -print`
		if [ "$newer" != "" ]; then
			sed -e '1,/^USAGE/d' \
			    -e '/^ *$/,$d' "$i/.Cat.Help/$name"
			exit 0
		fi
	elif [ -s "$i/.Help/$name" ]; 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/.Help/$name"; 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"