ack/mach/sun3/libcc.ansi/homefromsubdir

if [ $# = 1 ]
then
	NAM=`expr $1 : '^\(\/.*\)'`
	if [ X$NAM != X ]
	then
	    NAM=$1
	else
	    NAM=../$1
	fi
	echo $NAM
	exit 0
else
	echo PATH_ERROR
	exit 1
fi
added head_ac 1990-09-27 16:37:22 +00:00			`if [ $# = 1 ]`
			`then`
changed homefromsubdir a little 1990-10-16 10:07:12 +00:00			NAM=`expr $1 : '^\(\/.*\)'`
			`if [ X$NAM != X ]`
added head_ac 1990-09-27 16:37:22 +00:00			`then`
			`NAM=$1`
			`else`
changed homefromsubdir a little 1990-10-16 10:07:12 +00:00			`NAM=../$1`
added head_ac 1990-09-27 16:37:22 +00:00			`fi`
			`echo $NAM`
			`exit 0`
			`else`
			`echo PATH_ERROR`
			`exit 1`
			`fi`