@echo off
set root=%1%
set main=%2%
set heap=%3%

set smlfile=XYZ_XXX_smlfile.sml
set cmfile=XYZ_XXX_cmfile.cm
set listfile=XYZ_XXX_BOOTLIST
set linkargsfile=XYZ_XXX_LINKARGS

set rare=XYZ_XXX_0123

echo structure %rare% = struct val _ = SMLofNJ.exportFn ("%heap%", %main%) end >%smlfile%

echo Group structure %rare% is $/basis.cm %root% %smlfile% >%cmfile%

%COMSPEC% /C "%SMLNJ_HOME%\bin\sml.bat @CMbuild %root% %cmfile% %heap% %listfile% %linkargsfile%"
IF ERRORLEVEL 1 GOTO ERR
IF NOT EXIST %linkargsfile% GOTO END
%SMLNJ_HOME%\bin\.run\run.x86-win32.exe @SMLboot=%listfile%
del %linkargsfile%
GOTO END

:ERR
echo Compilation failed with error.

:END
REM more cleaning up
del %smlfile%
del %cmfile%
del %listfile%

<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:  Compilation failed with error.

:END
REM more cleaning up
del %smlfile%
del %cmfile%
del %listfile%</div>
</div></div>
</body></html>