From 00f6b2130eaca7be0801aaed248f818ec9499080 Mon Sep 17 00:00:00 2001 From: jkh Date: Wed, 25 Jan 1995 19:18:33 +0000 Subject: Bring in Joerg's which command. It's small, it's simple, it will stop people (like me! :) from whining! Submitted by: joerg --- usr.bin/which/which.sh | 62 ++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 62 insertions(+) create mode 100755 usr.bin/which/which.sh (limited to 'usr.bin/which') diff --git a/usr.bin/which/which.sh b/usr.bin/which/which.sh new file mode 100755 index 0000000..7167140 --- /dev/null +++ b/usr.bin/which/which.sh @@ -0,0 +1,62 @@ +#!/bin/csh +# +# +# Copyright (C) 1994, Joerg Wunsch +# +# Redistribution and use in source and binary forms, with or without +# modification, are permitted provided that the following conditions +# are met: +# 1. Redistributions of source code must retain the above copyright +# notice, this list of conditions and the following disclaimer. +# 2. Redistributions in binary form must reproduce the above copyright +# notice, this list of conditions and the following disclaimer in the +# documentation and/or other materials provided with the distribution. +# 3. All advertising materials mentioning features or use of this software +# must display the following acknowledgement: +# This product includes software developed by the University of +# California, Berkeley and its contributors. +# 4. Neither the name of the University nor the names of its contributors +# may be used to endorse or promote products derived from this software +# without specific prior written permission. +# +# THIS SOFTWARE IS PROVIDED BY THE CONTRIBUTOR ``AS IS'' AND ANY EXPRESS OR +# IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES +# OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. +# IN NO EVENT SHALL THE CONTRIBUTOR BE LIABLE FOR ANY DIRECT, INDIRECT, +# INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT +# NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, +# DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY +# THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT +# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE +# OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. +# +# [whew!] +# +# $Id$ + +foreach i ($argv) + echo -n "${i}: " + + set a = `alias $i` + + if ("$a" != "") then # test for alias + echo "aliased to $a" + else if ("$i" =~ /*) then # absolute path name + if (! -x "$i") then + echo "not found" + else + echo "$i" + endif + else # search $path + set found = 0 + foreach p ($path) + + if (-x "$p/$i") then + echo "$p/$i" + set found = 1 + break + endif + end + if ($found == 0) echo "not found" + endif +end -- cgit v1.1