Changed to use environment path, not .cshrc path

[unix-history] / usr / src / old / which / which.csh

#! /bin/csh -f
#
#       @(#)which.csh   4.2     (Berkeley)      83/02/14
#
#       which : tells you which program you get
#
set noglob
foreach arg ( $argv )
   set alius = `alias $arg`
   switch ( $#alius )
       case 0 :
           breaksw
       case 1 :
           set arg = $alius[1]
           breaksw
       default :
           echo ${arg}: "      " aliased to $alius
           continue
   endsw
   unset found
   if ( $arg:h != $arg:t ) then
       if ( -e $arg ) then
           echo $arg
       else
           echo $arg not found
       endif
       continue
   else
       foreach i ( $path )
           if ( -x $i/$arg && ! -d $i/$arg ) then
               echo $i/$arg
               set found
               break
           endif
       end
   endif
   if ( ! $?found ) then
       echo no $arg in $path
   endif
end