Source Code 1992 March/Source_Code_CD-ROM_Walnut_Creek_March_1992.iso/usenet/compsrcs/misc/volume03/which2

Internet Message Format | 1991-08-27 | 1.7 KB

Path: uunet!lll-winken!lll-tis!ames!necntc!ncoast!allbery
From: [e-mail] (Steven Pemberton)
Newsgroups: comp.sources.misc
Subject: v03i042: another fast 'which(ucb)' command
Message-ID: <[e-mail]>
Date: 3 Jun 88 15:43:47 GMT
Sender: [e-mail]
Reply-To: [e-mail] (Steven Pemberton)
Organization: CWI, Amsterdam
Lines: 48
Approved: [e-mail]

comp.sources.misc: Volume 3, Issue 42
Submitted-By: "Steven Pemberton" <[e-mail]>
Archive-Name: which2

Here is the version of 'which' that I use. Advantages:
    - twice as fast as the ucb version
    - still a shell script
    - tells you about ALL versions reachable from your path,
      not just the first
    - silent if it finds nothing, so you can use it in `` expansions
        e.g. for f in `which which`; do file $f; done
    - (this is the biggy:) wildcards work!
        which '*uu*' gives all commands reachable with uu in the name.
        which '?'    gives all 1 character commands
        which '*'    gives *all* commands.
      Don't forget the quotes if you use wildcards.

It only works if 'test -x' works for you.

Steven Pemberton, CWI, Amsterdam; [e-mail]

Here's the source:

-------------------- Cut here -------------------------
# A faster version of which, that also prints ALL versions in your PATH,
# and accepts wildcards, e.g.: which '*uu*'. Silent if nothing found.
# Only works if test -x works...

case $# in
0) echo Usage: $0 cmd ...; exit 1;;
esac

dirs=`echo $PATH|sed 's/^:/. /
     s/:$/ ./
     s/::/ . /g
     s/:/ /g'`

for cmd
do
   for d in $dirs
   do
      for file in $d/$cmd
      do
         if test -x $file -a ! -d $file
         then echo $file
         fi
      done
   done
done