#!/bin/csh

# a wrapper for the ls command to give full pathnames
#
# usage: lspath <file>
#
# Michael L. Love, proclus@gnu-darwin.org  
# GPL, Mon Jun 26 13:11:20 EDT 2006

if ( $* == '' || $* == '.' || $* == './' || $* == './.' ) then 
	setenv theArgs '*'
else
	setenv theArgs $*
endif

foreach i ( $theArgs )
\ls -A $i | grep -v '/$'
foreach k ( `\ls -AR $i | grep ':$'| sed s/':$'/'\/'/ | sed s/'\/'/'\\\/'/g` )

	\ls -Ap `echo $k | sed s/'\\\/'/'\/'/g` | sed s/"^"/"$k"/

end
end