home *** CD-ROM | disk | FTP | other *** search
/ H4CK3R 4 / hacker04 / 04_HACK04.ISO / darwin / darwinx86.iso / usr / bin / which < prev    next >
Encoding:
Text File  |  2001-09-18  |  2.4 KB  |  76 lines
  1. #!/bin/csh
  2. #
  3. # DO NOT USE "csh -f"
  4. #
  5. # Copyright (c) 1983 The Regents of the University of California.
  6. # All rights reserved.
  7. #
  8. # Redistribution and use in source and binary forms, with or without
  9. # modification, are permitted provided that the following conditions
  10. # are met:
  11. # 1. Redistributions of source code must retain the above copyright
  12. #    notice, this list of conditions and the following disclaimer.
  13. # 2. Redistributions in binary form must reproduce the above copyright
  14. #    notice, this list of conditions and the following disclaimer in the
  15. #    documentation and/or other materials provided with the distribution.
  16. # 3. All advertising materials mentioning features or use of this software
  17. #    must display the following acknowledgement:
  18. #    This product includes software developed by the University of
  19. #    California, Berkeley and its contributors.
  20. # 4. Neither the name of the University nor the names of its contributors
  21. #    may be used to endorse or promote products derived from this software
  22. #    without specific prior written permission.
  23. #
  24. # THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  25. # ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  26. # IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  27. # ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  28. # FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  29. # DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  30. # OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  31. # HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  32. # LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  33. # OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  34. # SUCH DAMAGE.
  35. #
  36. #    @(#)which.csh    5.5 (Berkeley) 4/18/91
  37. #
  38.  
  39. #    which : tells you which program you get
  40. #
  41. set prompt = "% "
  42. set noglob
  43. foreach arg ( $argv )
  44.     set alius = `alias $arg`
  45.     switch ( $#alius )
  46.     case 0 :
  47.         breaksw
  48.     case 1 :
  49.         set arg = $alius[1]
  50.         breaksw
  51.         default :
  52.         echo ${arg}: "    " aliased to $alius
  53.         continue
  54.     endsw
  55.     unset found
  56.     if ( $arg:h != $arg:t ) then
  57.     if ( -e $arg ) then
  58.         echo $arg
  59.     else
  60.         echo $arg not found
  61.     endif
  62.     continue
  63.     else
  64.     foreach i ( $path )
  65.         if ( -x $i/$arg && ! -d $i/$arg ) then
  66.         echo $i/$arg
  67.         set found
  68.         break
  69.         endif
  70.     end
  71.     endif
  72.     if ( ! $?found ) then
  73.     echo no $arg in $path
  74.     endif
  75. end
  76.