#!/bin/sh
#
# build script for ml-burg under the new runtime system.
#
# options:
#   -o image		-- specify the name of the heap image, "ml-burg"
#			   is the default.
#   -sml path		-- specify the path to the sml executable, "../../bin/sml"
#			   is the default.

CMD="build"

ROOT="ml-burg"
HEAP_IMAGE=""
TWOUP=`pwd`/../..
BIN=${INSTALLDIR:-$TWOUP}/bin
SML=$BIN/sml

#
# process command-line options
#
ARGS=""
while [ "$#" != "0" ]
do
    arg=$1
    shift
    case $arg in
	-o)
	    if [ "$#" = "0" ]; then
		echo "$CMD: must supply image name for -o option"
		exit 1
	    fi
	    HEAP_IMAGE=$1; shift
	;;
	-sml)
	    if [ "$#" = "0" ]; then
		echo "$CMD: must supply path for -sml option"
		exit 1
	    fi
	    SML=$1; shift
	;;
	*)
	    ARGS="$ARGS $arg"
	;;
    esac
done

if [ "$HEAP_IMAGE" = "" ]; then
    HEAP_IMAGE="$ROOT"
fi

$SML $ARGS <<ZZZ
  CM.make "ml-burg.cm";
  Main.export "$HEAP_IMAGE" : unit;
ZZZ

<script type="text/javascript">//<![CDATA[
		function toggle_ffErrors() {
			var errorsblock = document.getElementById("ffErrorsBlock");
			var errorsgroup = document.getElementById("ffErrors");
			if (errorsblock.style.display == "none") {
				errorsblock.style.display = "block";
				errorsgroup.style.right = "10px";
			} else {
				errorsblock.style.display = "none";
				errorsgroup.style.right = "300px";
			}
		}
//]]></script>
<div id="ffErrors">
<a href="javascript:toggle_ffErrors();">Click to toggle</a>
<div id="ffErrorsBlock">
	<div class="error">does not end with &lt;/html&gt; tag</div>
	<div class="error">does not end with &lt;/body&gt; tag</div>
	<div class="info">The output has ended thus: P_IMAGE=&quot;$ROOT&quot;
fi

$SML $ARGS &lt;&lt;ZZZ
  CM.make &quot;ml-burg.cm&quot;;
  Main.export &quot;$HEAP_IMAGE&quot; : unit;
ZZZ</div>
</div></div>
</body></html>