cgi-bin/viewcvs.cgi/cduce_mktop

#!/bin/sh

FLAGS=

while true; do
 case "$1" in
   -I)
    FLAGS="$FLAGS -I $2"
    shift
    shift
    ;;
   -p)
    FLAGS="$FLAGS -I `ocamlfind query $2`"
    shift
    shift
    ;;
  *)
    break
    ;;
 esac
done

echo $FLAGS

TARG=$1
PRIMS=$2

if [ "${TARG}" = "" ] || [ "${PRIMS}" = "" ]; then
  echo "Usage: cduce_mktop [(-I path | -p package) ...] <target> <primitive file>"
  exit 2
fi

exec ocamlfind ocamlc -package cduce -o $TARG -linkpkg -pp "mlcduce_wrapper $FLAGS" -impl $PRIMS
1	#!/bin/sh
2
3	FLAGS=
4
5	while true; do
6	case "$1" in
7	-I)
8	FLAGS="$FLAGS -I $2"
9	shift
10	shift
11	;;
12	-p)
13	FLAGS="$FLAGS -I `ocamlfind query $2`"
14	shift
15	shift
16	;;
17	*)
18	break
19	;;
20	esac
21	done
22
23	echo $FLAGS
24
25	TARG=$1
26	PRIMS=$2
27
28	if [ "${TARG}" = "" ] \|\| [ "${PRIMS}" = "" ]; then
29	echo "Usage: cduce_mktop [(-I path \| -p package) ...] <target> <primitive file>"
30	exit 2
31	fi
32
33	exec ocamlfind ocamlc -package cduce -o $TARG -linkpkg -pp "mlcduce_wrapper $FLAGS" -impl $PRIMS