From:	mchase AT ix DOT netcom DOT com ("Michael A. Chase")
Subject:	My own which/whence
1 Jul 1997 18:41:11 -0700 :
Approved:	cygnus DOT gnu-win32 AT cygnus DOT com
Distribution:	cygnus
Message-ID:	<199707012227.RAA24358.cygnus.gnu-win32@dfw-ix8.ix.netcom.com>
Mime-Version:	1.0
Original-To:	<gnu-win32 AT cygnus DOT com>
Original-Cc:	"Kang Su Gatlin" <kgatlin AT cs DOT ucsd DOT edu>
X-MSMail-Priority:	Normal
X-Priority:	3
X-Mailer:	Microsoft Internet Mail 4.70.1161
Original-Sender:	owner-gnu-win32 AT cygnus DOT com

I found myself without which a while back and rolled my own.  It also will
search for non-executable files and on other 'path' variables.

==================
:
# onn_path.sh: Echo full specification of a file found in a search list
#   Normally called in back-quotes
#   _Don't_ execute with . !!!
# -q      = Quiet, don't complain if not found
# -m      = Multiple, report all files found on path
# '$1'    = File name
# '$2'... = Search list and additional directories to search

Once=true
Noisy=true
while [ $# -gt 0 ]; do
   case X$1 in
      X-m) Once=false; shift ;;
      X-q) Noisy=false; shift ;;
        *) break ;;
   esac
done
if [ $# -lt 2 ]; then exit 1; fi

# Get the file name and parse search list
file=$1; shift
list=`echo $* | \
      sed -e 's/^:/\.:/g' -e 's/::/:\.:/g' -e 's/:$/:\./g' -e 's/:/ /g'`

# Seek out the file
None=true
if [ `basename $file` != "$file" ]; then
   if [ -r $file ]; then echo $file; None=false; $Once && exit 0; fi
else
   for dir in $list; do
      if [ -r $dir/$file ]; then
         echo $dir/$file; None=false; $Once && exit 0
      fi
   done
fi
if $Noisy && $None; then
    echo no $file in $list >&2
fi

-
For help on using this list (especially unsubscribing), send a message to
"gnu-win32-request AT cygnus DOT com" with one line of text: "help".

- Raw text -