#! /bin/sh
# @(#)OBJECTS version 3.10 created 10/31/92
# @(#)Copyright (c), 1987, 1992 StatSci, Inc.  All rights reserved.

# Usage: Splus OBJECTS [directory]. Default is first writeable directory in
# $S_WORK.

# OBJECTS: print a list of S-PLUS objects in a directory.

: ${S_WORK?}

prog=OBJECTS

case $# in
	1)      dir="$1"
		if [ ! -d "$dir" -o ! -r "$dir" ]
		then
			echo "$prog: $dir is not a readable directory." >&2
			exit 1
		fi
		;;
	0)      dir=""
		OLD_IFS="$IFS"
		IFS=:
		for i in $S_WORK
		do
			[ -d $i ] && [ -w $i ] && [ -r $i ] && { dir=$i ; break ; }
		done
		IFS="$OLD_IFS"
		if [ -z "$dir" ]; then
			echo "$prog : no directory in \$S_WORK with read/write permission." >&2
			exit 1; fi
		echo "S-PLUS objects in $dir:" >&2
		# send that to stderr so can catch stdout separately
		;;


	*)      echo "Usage: Splus $prog [directory]" >&2
		exit 1
		;;
esac


{	
	cd $dir
	ls -a | egrep -v '^__|^\.\.$|^\.$|^\.Audit$|^\.Help$' ;
	if test -r ___nonfile ; then
        	awk 'NR % 2 == 1 { print $0 }'  < ___nonfile
	fi ;
} | sort
exit 0