examples/functions/inpath

   1 inpath()
   2 {
   3         local PROG
   4         path=$(echo $PATH | sed 's/^:/.:/
   5                                 s/::/:.:/g
   6                                 s/:$/:./
   7                                 s/:/ /g')
   8
   9         for x in $path
  10         do
  11                 [ -x $x/$1 ] && { PROG=$x/$1; break; }
  12         done
  13         [ -n "$PROG" ]
  14 }