Return to which.csh CVS log

Up to [CSRG BSD Unix] / 43BSD / ucb

Annotation of 43BSD/ucb/which.csh, revision 1.1.1.1

1.1       root        1: #!/bin/csh -f
                      2: #
                      3: # Copyright (c) 1980 Regents of the University of California.
                      4: # All rights reserved.  The Berkeley software License Agreement
                      5: # specifies the terms and conditions for redistribution.
                      6: #
                      7: #      @(#)which.csh   5.2 (Berkeley) 7/29/85
                      8: #
                      9: #      which : tells you which program you get
                     10: #
                     11: set prompt = "% "
                     12: if ( -f ~/.cshrc) then
                     13:        source ~/.cshrc
                     14: endif
                     15: set noglob
                     16: foreach arg ( $argv )
                     17:     set alius = `alias $arg`
                     18:     switch ( $#alius )
                     19:        case 0 :
                     20:            breaksw
                     21:        case 1 :
                     22:            set arg = $alius[1]
                     23:            breaksw
                     24:         default :
                     25:            echo ${arg}: "      " aliased to $alius
                     26:            continue
                     27:     endsw
                     28:     unset found
                     29:     if ( $arg:h != $arg:t ) then
                     30:        if ( -e $arg ) then
                     31:            echo $arg
                     32:        else
                     33:            echo $arg not found
                     34:        endif
                     35:        continue
                     36:     else
                     37:        foreach i ( $path )
                     38:            if ( -x $i/$arg && ! -d $i/$arg ) then
                     39:                echo $i/$arg
                     40:                set found
                     41:                break
                     42:            endif
                     43:        end
                     44:     endif
                     45:     if ( ! $?found ) then
                     46:        echo no $arg in $path
                     47:     endif
                     48: end

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.