@echo off

rem clear previous error level
mem > null 

cd %reduce%
if errorlevel 1 echo Warning: variable REDUCE not set properly

rem test if the log directory is accessible

mem > log\mkreduce.log
if errorlevel 1 goto nolog


rem select appropriate DOS extender
if not exist bin\psll.exe   goto win
if x%rbase%x == xWINx       goto win
if x%rbase%x == xwinx       goto win

rem   using ERGO extender
bin\psll bin\bpsl.img 3000000 <util\mkreduce.dat >log\mkreduce.log
if errorlevel 11 goto nofile
if errorlevel 10 goto lisperror
if errorlevel 1  goto continue
goto doserror

:win
rem   using WINDOWS
WIN bin\psllw bin\bpsl.img 3000000 -i util\mkreduce.dat -o log\mkreduce.log -x
goto continue

:nolog
echo ----------------------------------------------------------
echo error during MKREDUCE:  cannot create log file;
echo the directory reduce\log does not exist 
echo         or
echo variable REDUCE does not point to the reduce file tree  
echo -----------------------------------------------------------
pause
goto continue


:nofile
echo -----------------------------------------------
echo error during MKREDUCE:  
echo      variable REDUCE not set 
echo                or
echo the directory "reduce\fasl\*.b" does not exist 
echo                or
echo it does not contain the expected binaries
echo ------------------------------------------------
pause
goto continue

:lisperror
echo -----------------------------------------------------------
echo error during MKREDUCE; 
echo one of the LISP commands in util\mkreduce.dat failed.
echo look at file reduce\log\mkreduce.log for LISP error report.
echo -----------------------------------------------------------
pause
goto continue

:doserror
echo ------------------------------------------------------------
echo error during MKREDUCE; 
echo -
echo the LISP session could not be started: bad configuration
echo       or bad contents of directory \bin.
echo See error message in file log\mkreduce.log.
echo -----------------------------------------------------------
pause
goto continue


:continue
del null