|
|
1.1 ! root 1: # ! 2: # which : tells you which program you get ! 3: # hacked to do aliases (from .cshrc file only!) ! 4: set noglob ! 5: foreach arg ( $argv ) ! 6: set alius = `alias $arg` ! 7: switch ( $#alius ) ! 8: case 0 : ! 9: breaksw ! 10: case 1 : ! 11: set arg = $alius[1] ! 12: breaksw ! 13: default : ! 14: echo ${arg}: " " aliased to $alius ! 15: continue ! 16: endsw ! 17: unset found ! 18: if ( $arg:h != $arg:t ) then ! 19: if ( -e $arg ) then ! 20: echo $arg ! 21: else ! 22: echo $arg not found ! 23: endif ! 24: continue ! 25: else ! 26: foreach i ( $path ) ! 27: if ( -x $i/$arg && ! -d $i/$arg ) then ! 28: echo $i/$arg ! 29: set found ! 30: break ! 31: endif ! 32: end ! 33: endif ! 34: if ( ! $?found ) then ! 35: echo no $arg in $path ! 36: endif ! 37: end
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.