source: trunk/essentials/app-shells/bash/examples/scripts.v2/where@ 3263

#! /bin/bash
#
# original from:
# @(#) where.ksh 1.1 94/07/11
# 91/01/12 john h. dubois iii ([email protected])
# 92/08/10 Only print executable *files*.
# 92/10/06 Print err msg if no match found.
# 92/11/27 Added implicit *
# 93/07/23 Print help only if -h is given.
# 94/01/01 Added -x option
# 94/07/11 Don't bother with eval
#
# conversion to bash v2 syntax done by Chet Ramey

name=${0##*/}
Usage="Usage: $name [-hx] 'pattern' ..."
typeset -i exact=0

phelp()
{
echo "$name: find executable files in PATH that match patterns.
$Usage
$name searches each directory specified in the PATH environment variable
for executable files that match the specified patterns.  Patterns are
given as Korn shell filename patterns.  They are surrounded by implicit
'*' characters, so that \"foo\" will match any executble file whose name
contains contains \"foo\".  This can be overridden by using '^' and '$' to
force a match to start at the beginning and end at the end of a filename
respectively.  Characters that are special to the shell must generally
be protected from the shell by surrounding them with quotes.
Examples:
$name foo
lists all executable files in PATH that contain foo.
$name '^b*sh$'
lists all executable files in PATH that start with b and end with sh.
An error message is printed if a no matching file is found for a pattern.
Options:
-h: Print this help.
-x: Find exact matches only; equivalent to putting ^ and $ at the start
    and end of each pattern."
}

istrue()
{
        test 0 -ne "$1"
}

isfalse()
{
        test 0 -eq "$1"
}

while getopts "xh" opt; do
        case "$opt" in
        x)      exact=1;;
        h)      phelp ; exit 0;;
        *)      echo -e "$Usage\nUse -h for help." 1>&2; exit 2;;
        esac
done

shift $((OPTIND-1))

set +f                  # make sure filename globbing is on
Args=("$@")             # save args

OIFS=$IFS
IFS=:           # Make PATH be split on :
Paths=($PATH)
IFS=$OIFS

for arg in "${Args[@]}"; do

    # get rid of leading ^
    if istrue $exact; then
        arg=${arg}
    else
            case "$arg" in
            ^*) arg=${arg#?};;
            *) arg="*$arg" ;;   # Pattern is not anchored at start
            esac
    fi

    # get rid of trailing $
    if istrue $exact; then
        arg="$arg"
    else
        case "$arg" in
        *\$)    arg=${arg%?} ;;
        *)      arg="$arg*" ;;
        esac
    fi

    found=0     # Pattern not found yet
    Patterns=
    # Make a pattern for each element of PATH
    for PathElem in "${Paths[@]}"; do
        [ -z "$PathElem" ] && PathElem=.
        Patterns="$Patterns $PathElem/$arg"
    done

    # Find all pattern matches that are executable regular files.
    for file in $Patterns; do
        if [ -x "$file" ] && [ -f "$file" ]; then
            echo "$file"
            found=1
        fi
    done
    if [ $found = 0 ]; then
        echo "$arg: not found." 1>&2
    fi
done