1#! /usr/bin/csh -f
2#
3# Copyright 2005 Sun Microsystems, Inc.  All rights reserved.
4# Use is subject to license terms.
5#
6# Copyright (c) 1980 Regents of the University of California.
7# All rights reserved.  The Berkeley Software License Agreement
8# specifies the terms and conditions for redistribution.
9#
10#ident	"%Z%%M%	%I%	%E% SMI"
11#
12#       which : tells you which program you get
13#
14# Set prompt so .cshrc will think we're interactive and set aliases.
15# Save and restore path to prevent .cshrc from messing it up.
16set _which_saved_path_ = ( $path )
17set prompt = ""
18if ( -r ~/.cshrc && -f ~/.cshrc ) source ~/.cshrc
19set path = ( $_which_saved_path_ )
20unset prompt _which_saved_path_
21set noglob
22set exit_status = 0
23foreach arg ( $argv )
24    set alius = `alias $arg`
25    switch ( $#alius )
26        case 0 :
27            breaksw
28        case 1 :
29            set arg = $alius[1]
30            breaksw
31        default :
32            echo ${arg}: "      " aliased to $alius
33            continue
34    endsw
35    unset found
36    if ( "$arg:h" != "$arg:t" ) then		# head != tail, don't search
37        if ( -e $arg ) then			# just do simple lookup
38            echo $arg
39        else
40            echo $arg not found
41	    set exit_status = 1
42        endif
43        continue
44    else
45        foreach i ( $path )
46            if ( -x $i/$arg && ! -d $i/$arg ) then
47                echo $i/$arg
48                set found
49                break
50            endif
51        end
52    endif
53    if ( ! $?found ) then
54        echo no $arg in $path
55	set exit_status = 1
56    endif
57end
58
59exit ${exit_status}
60
61