Return to which.csh CVS log

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

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

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