rem test --- Run a REDUCE test file.
rem Author: Anthony C. Hearn.
set package=%1
if %lisp% == psl goto psl
if not %MACHINE% == cygwin32 goto l2
if not "%Cygroot%" == "" goto l1
set Cygroot=c:\cygwin
echo *** Using %Cygroot% as Cygroot value
:l1
set opath=%path%
set path=%Cygroot%\bin;%PATH%
:l2
start /wait /min %reduce%\lisp\csl\%MACHINE%\csl -i %reduce%\lisp\csl\reduce.img %reduce%\util\tstpckge.dat -- %reduce%\log\%1.rlg
goto ret
:psl
if not "%pslsize%" == "" goto cont
set pslsize=12000000
:cont
start /wait /min %reduce%\lisp\psl\%MACHINE%\psl\bpsl -td %pslsize% -f %reduce%\lisp\psl\%MACHINE%\red\reduce.img -i %reduce%\util\tstpckge.dat -o %reduce%\log\%1.rlg
:ret
set package=
if not "%opath%" == "" set path=%opath%
set opath=