33 lines
1.2 KiB
Bash
Executable File
33 lines
1.2 KiB
Bash
Executable File
#!/bin/sh
|
|
|
|
#########################################################################
|
|
# #
|
|
# OCaml #
|
|
# #
|
|
# Xavier Leroy, projet Cristal, INRIA Rocquencourt #
|
|
# #
|
|
# Copyright 1996 Institut National de Recherche en Informatique et #
|
|
# en Automatique. All rights reserved. This file is distributed #
|
|
# under the terms of the GNU Library General Public License, with #
|
|
# the special exception on linking described in file ../../LICENSE. #
|
|
# #
|
|
#########################################################################
|
|
|
|
# Find a program in the path
|
|
|
|
doprint=false
|
|
case $1 in
|
|
-p) shift; doprint=true;;
|
|
*) ;;
|
|
esac
|
|
|
|
IFS=':'
|
|
for dir in $PATH; do
|
|
if test -z "$dir"; then dir=.; fi
|
|
if test -f $dir/$1 -a -x $dir/$1; then
|
|
if $doprint; then echo "$dir/$1"; fi
|
|
exit 0
|
|
fi
|
|
done
|
|
exit 1
|