| 1234567891011121314151617181920212223 |
- rem test --- Run a REDUCE test file.
- rem Author: Anthony C. Hearn.
- rem Modified by FJW for testing multiple files entirely within current directory.
- :loop
- if "%1" == "" goto ret
- set testfile=%1
- shift
- if %lisp% == psl goto psl
- start /wait /min %reduce%\lisp\csl\%MACHINE%\csl -i %reduce%\lisp\csl\reduce.img test.dat -- %testfile%.lg
- goto loop
- :psl
- start /wait /min %reduce%\lisp\psl\%MACHINE%\psl\bpsl -td 6000000 -f %reduce%\lisp\psl\%MACHINE%\red\reduce.img -i test.dat -o %testfile%.lg
- goto loop
- :ret
- set testfile=
|
