Return to which.csh CVS log

Up to [local] / src / usr.bin / which

Annotation of src/usr.bin/which/which.csh, Revision 1.1.1.1

1.1       deraadt     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