ocaml/config/auto-aux/searchpath

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