1234567891011121314151617181920212223242526272829303132333435363738 |
- 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=
|