#!/bin/sh

if domain | grep -i sun > /dev/null; then
	PATH=$PATH:/net/suntools.eng/export/tools/sparc/bin
fi

ROFF="nroff"
ROFF_ARGS="-man"
XTERM="xterm -geometry 80x50+1+1"
LESSCMD="less"
LESSKEYCMD="lesskey"
LESSKEYINPUT="-"
#LESSKEYINPUT=""         # Old lesskey stdin


Program=`basename $0`
if [ "$Program" = "" ]; then
	Program="nman";
fi
if [ "X$1" = "X-d" ]; then
	shift
	set -xv
fi

if [ "X$1" = "X-m" -o "X$1" = "X-M" ]; then
	rem=$1
	shift
	f=$1
	if echo "$f" | grep '^/' > /dev/null; then
		:
	else
		f="`pwd`/$f"
	fi
	dir=`dirname "$f"`
	if [ "X$rem" = "X-M" ]; then
		sect=`basename "$dir" | sed -e 's/^.*man//'`
		if [ "X$sect" != "X" ]; then
			if uname | grep SunOS > /dev/null; then
				sect="-s $sect"
			else
				:
			fi
		fi
	fi
	dir=`cd "$dir"; pwd`
	mdir=`dirname "$dir"`
	name=`basename "$f" | sed -e 's/\.[^.]*$//'`
	MANPATH=$mdir:$MANPATH man $sect $name
	exit $?

elif [ "X$1" = "X-l" ]; then
	loop=1
	shift
elif [ "X$1" = "X-x" ]; then
	shift
	file="$1"
	case $file in
		*.ms) ROFF_ARGS="-ms"
			;;
	esac
	testfile="$file.$Program"
	if [ -f "$testfile" ]; then
		doxterm=""
	else
		doxterm=1
	fi
	# echo "$ROFF $ROFF_ARGS $file > $testfile ... " 1>&2
	$ROFF $ROFF_ARGS $file > $testfile
	if [ $doxterm ]; then
		tmp=/tmp/lesskey.$$
		$LESSKEYCMD -o $tmp $LESSKEYINPUT << END
r flush-repaint
q flush-repaint
END
		(sleep 30; rm -f $tmp) &
		$XTERM -title $Program -e sh -c "win_title $Program; $LESSCMD -k $tmp $testfile; rm -f $testfile" &
	fi
	exit 0
fi

file=$1

if echo "$file" | grep '\.ms' > /dev/null; then
	ROFF_ARGS="-ms"
fi
if echo "$file" | egrep '\.(gz|Z)$' > /dev/null; then
	tmp=/tmp/nman.$$.1
	zcat "$file" > $tmp
	file=$tmp
	(sleep 30; rm -f $tmp) &
fi

ROFF="$ROFF $ROFF_ARGS $file"

while [ 1 ]
do
	$ROFF | $LESSCMD
	if [ $loop ] ; then
		: sleep 1
	else
		break
	fi
done