PROG="$0"
CMDLINE="$*"
usage() {
- echo "$PROG [-native] [-I dir .. -I dir] Module"
+ echo "$PROG [-inter] [-native] [-I dir .. -I dir] Module"
}
INCLUDES=""
MODULES=""
NATIVE=0
INTER=0
+OCAMLWHERE=$(ocamlc -where)
while true; do
case $1 in
-I)
- dir=`echo "$2" | sed "s:^+:$(ocamlc -where)/:"`
+ dir=`echo "$2" | sed "s:^+:${OCAMLWHERE}/:"`
INCLUDES="$INCLUDES
-$2"
+$dir"
shift
;;
-native)
ext=cmo
fi
+
for MODULE in $MODULES; do
- module="$(echo $MODULE | cut -b1 | tr A-Z a-z)$(echo $MODULE | cut -b2-)"
+ module="$(echo ${MODULE} | sed -e 's:\(.*\):\l\1:')"
echo "$INCLUDES" | while read include; do
- base="$include/$module"
- if test -z "$include"; then continue; fi
+ if test -z "$include"; then continue; fi
+ base="${include}/${module}"
if test \( "$INTER" = "1" \) -a \( -f "$base".mli \) ; then
- echo -n "$base"."cmi "
- elif test -f "$base".ml -o -f "$base".mly -o -f "$base".mll -o -f "$base".pack; then
- echo -n "$base"."$ext "
+ ## if we want to depend only on cmi of a module
+ /bin/echo -n "${base}"."cmi "
+ elif test -f "$base".ml -o -f "$base".mly -o -f "$base".mll -o -f "$base".pack -o -f "$base".ml.str; then
+ ## else we depend on the implementation
+ /bin/echo -n "${base}"."${ext} "
break
- elif test -f "$base".mli; then
- echo -n "$base"."cmi "
+ elif test -f "${base}".mli; then
+ ## and fall back on depending on the cmi if the cmx is not available
+ ## (which prevents cross-module inlining in the case of cmx)
+ /bin/echo -n "${base}"."cmi "
break
fi
done