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