cgi-bin/viewcvs.cgi/cduce_mktop

#!/bin/sh

FLAGS=
LINK=
NATIVE=true

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

TARG=$1
PRIMS=$2

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


if [ ${NATIVE} = "true" ]; then
 CAML=ocamlopt
else
 CAML=ocamlc
fi

echo "Effective flags for CDuce: $FLAGS"
echo "Effective flags for OCaml: $LINK"

exec ocamlfind $CAML -package cduce -o $TARG $FLAGS -linkpkg -pp "mlcduce_wrapper $FLAGS" $LINK -impl $PRIMS
1	abate	1497	#!/bin/sh
2
3	abate	1508	FLAGS=
4	abate	1509	LINK=
5			NATIVE=true
6	abate	1508
7			while true; do
8			case "$1" in
9			-I)
10			FLAGS="$FLAGS -I $2"
11			shift
12			shift
13			;;
14			-p)
15			FLAGS="$FLAGS -I `ocamlfind query $2`"
16	abate	1509	LINK="$LINK -package $2"
17	abate	1508	shift
18			shift
19			;;
20	abate	1509	-l)
21			LINK="$LINK $2"
22			shift
23			shift
24			;;
25			-byte)
26			NATIVE=false
27			shift
28			;;
29	abate	1508	*)
30			break
31			;;
32			esac
33			done
34
35	abate	1497	TARG=$1
36			PRIMS=$2
37
38			if [ "${TARG}" = "" ] \|\| [ "${PRIMS}" = "" ]; then
39	abate	1509	echo "Usage: cduce_mktop [(-I path \| -p package \| -l unit.cmo/cma/cmx/cmxa) ...] <target> <primitive file>"
40	abate	1497	exit 2
41			fi
42
43	abate	1509
44			if [ ${NATIVE} = "true" ]; then
45			CAML=ocamlopt
46			else
47			CAML=ocamlc
48			fi
49
50			echo "Effective flags for CDuce: $FLAGS"
51			echo "Effective flags for OCaml: $LINK"
52
53			exec ocamlfind $CAML -package cduce -o $TARG $FLAGS -linkpkg -pp "mlcduce_wrapper $FLAGS" $LINK -impl $PRIMS