326 lines
6.2 KiB
Batchfile
326 lines
6.2 KiB
Batchfile
@echo off
|
|
|
|
rem generic compile batch file for most console compilers
|
|
rem pause after each compiler if %1 not empty
|
|
rem call self on low env space condition
|
|
rem (c) 2003-2008 W.Ehrhardt
|
|
|
|
rem test file
|
|
rem =========
|
|
|
|
::set SRC=T_GSpeed
|
|
::set SRC=T_AESCRP
|
|
::set SRC=T_CYCCNT
|
|
::set SRC=T_FBMODI
|
|
set SRC=T_AES_WS
|
|
::set SRC=T_EAX2
|
|
::set SRC=t_cprf
|
|
::set SRC=T_XTS
|
|
|
|
rem log file (may be con or nul)
|
|
rem ============================
|
|
::set LOG=nul
|
|
set LOG=%SRC%.LOG
|
|
|
|
|
|
rem parameters for test file
|
|
rem ========================
|
|
set PARA=test
|
|
|
|
rem build options
|
|
rem ========================
|
|
::set OPT=-ddebug
|
|
|
|
|
|
rem test whether enough space in environment
|
|
rem =========================================
|
|
set PCB=A_rather_long_environment_string_for_testing
|
|
if (%PCB%)==(A_rather_long_environment_string_for_testing) goto OK
|
|
|
|
|
|
rem call self with 4096 byte env
|
|
rem ============================
|
|
set PCB=
|
|
%COMSPEC% /E:4096 /C %0 %1 %2 %3 %4 %5 %6 %7 %8 %9
|
|
goto ende
|
|
|
|
|
|
:OK
|
|
|
|
echo Test %SRC% for most console compilers >%LOG%
|
|
ver >>%LOG%
|
|
|
|
set PCB=bpc -b
|
|
del %SRC%.exe >nul
|
|
%PCB% %OPT% %SRC%.pas
|
|
if not (%1%)==() pause
|
|
echo. >>%LOG%
|
|
echo Results for %PCB% >>%LOG%
|
|
%SRC%.exe %PARA% >>%LOG%
|
|
|
|
set PCB=bpc -CP -b
|
|
del %SRC%.exe >nul
|
|
%PCB% %OPT% %SRC%.pas
|
|
if not (%1%)==() pause
|
|
echo. >>%LOG%
|
|
echo Results for %PCB% >>%LOG%
|
|
%SRC%.exe %PARA% >>%LOG%
|
|
|
|
set PCB=call fpc1 -B
|
|
del %SRC%.exe >nul
|
|
%PCB% %OPT% %SRC%.pas
|
|
if not (%1%)==() pause
|
|
echo. >>%LOG%
|
|
echo Results for %PCB% >>%LOG%
|
|
%SRC%.exe %PARA% >>%LOG%
|
|
|
|
set PCB=call fpc2 -B
|
|
del %SRC%.exe >nul
|
|
%PCB% %OPT% %SRC%.pas
|
|
if not (%1%)==() pause
|
|
echo. >>%LOG%
|
|
echo Results for %PCB% >>%LOG%
|
|
%SRC%.exe %PARA% >>%LOG%
|
|
|
|
set PCB=call fpc22 -B
|
|
del %SRC%.exe >nul
|
|
%PCB% %OPT% %SRC%.pas
|
|
if not (%1%)==() pause
|
|
echo. >>%LOG%
|
|
echo Results for %PCB% >>%LOG%
|
|
%SRC%.exe %PARA% >>%LOG%
|
|
|
|
set PCB=call fpc222 -B
|
|
del %SRC%.exe >nul
|
|
%PCB% %OPT% %SRC%.pas
|
|
if not (%1%)==() pause
|
|
echo. >>%LOG%
|
|
echo Results for %PCB% >>%LOG%
|
|
%SRC%.exe %PARA% >>%LOG%
|
|
|
|
set PCB=call fpc224 -B
|
|
del %SRC%.exe >nul
|
|
%PCB% %OPT% %SRC%.pas
|
|
if not (%1%)==() pause
|
|
echo. >>%LOG%
|
|
echo Results for %PCB% >>%LOG%
|
|
%SRC%.exe %PARA% >>%LOG%
|
|
|
|
set PCB=call fpc240 -B
|
|
del %SRC%.exe >nul
|
|
%PCB% %OPT% %SRC%.pas
|
|
if not (%1%)==() pause
|
|
echo. >>%LOG%
|
|
echo Results for %PCB% >>%LOG%
|
|
%SRC%.exe %PARA% >>%LOG%
|
|
|
|
set PCB=call fpc242 -B
|
|
del %SRC%.exe >nul
|
|
%PCB% %OPT% %SRC%.pas
|
|
if not (%1%)==() pause
|
|
echo. >>%LOG%
|
|
echo Results for %PCB% >>%LOG%
|
|
%SRC%.exe %PARA% >>%LOG%
|
|
|
|
set PCB=call fpc244 -B
|
|
del %SRC%.exe >nul
|
|
%PCB% %OPT% %SRC%.pas
|
|
if not (%1%)==() pause
|
|
echo. >>%LOG%
|
|
echo Results for %PCB% >>%LOG%
|
|
%SRC%.exe %PARA% >>%LOG%
|
|
|
|
set PCB=call fpc260 -B
|
|
del %SRC%.exe >nul
|
|
%PCB% %OPT% %SRC%.pas
|
|
if not (%1%)==() pause
|
|
echo. >>%LOG%
|
|
echo Results for %PCB% >>%LOG%
|
|
%SRC%.exe %PARA% >>%LOG%
|
|
|
|
set PCB=call fpc262 -B
|
|
del %SRC%.exe >nul
|
|
%PCB% %OPT% %SRC%.pas
|
|
if not (%1%)==() pause
|
|
echo. >>%LOG%
|
|
echo Results for %PCB% >>%LOG%
|
|
%SRC%.exe %PARA% >>%LOG%
|
|
|
|
set PCB=call fpc264d -B
|
|
del %SRC%.exe >nul
|
|
%PCB% %OPT% %SRC%.pas
|
|
if not (%1%)==() pause
|
|
echo. >>%LOG%
|
|
echo Results for %PCB% >>%LOG%
|
|
%SRC%.exe %PARA% >>%LOG%
|
|
|
|
set PCB=call fpc264 -B
|
|
del %SRC%.exe >nul
|
|
%PCB% %OPT% %SRC%.pas
|
|
if not (%1%)==() pause
|
|
echo. >>%LOG%
|
|
echo Results for %PCB% >>%LOG%
|
|
%SRC%.exe %PARA% >>%LOG%
|
|
|
|
set PCB=call fpc300 -B
|
|
del %SRC%.exe >nul
|
|
%PCB% %OPT% %SRC%.pas
|
|
if not (%1%)==() pause
|
|
echo. >>%LOG%
|
|
echo Results for %PCB% >>%LOG%
|
|
%SRC%.exe %PARA% >>%LOG%
|
|
|
|
set PCB=call fpc302 -B
|
|
del %SRC%.exe >nul
|
|
%PCB% %OPT% %SRC%.pas
|
|
if not (%1%)==() pause
|
|
echo. >>%LOG%
|
|
echo Results for %PCB% >>%LOG%
|
|
%SRC%.exe %PARA% >>%LOG%
|
|
|
|
set PCB=call fpc311 -B
|
|
del %SRC%.exe >nul
|
|
%PCB% %OPT% %SRC%.pas
|
|
if not (%1%)==() pause
|
|
echo. >>%LOG%
|
|
echo Results for %PCB% >>%LOG%
|
|
%SRC%.exe %PARA% >>%LOG%
|
|
|
|
|
|
set PCB=call vpc -b
|
|
del %SRC%.exe >nul
|
|
%PCB% %OPT% %SRC%.pas
|
|
if not (%1%)==() pause
|
|
echo. >>%LOG%
|
|
echo Results for %PCB% >>%LOG%
|
|
%SRC%.exe %PARA% >>%LOG%
|
|
|
|
set PCB=call p5 -b
|
|
del %SRC%.exe >nul
|
|
%PCB% %OPT% %SRC%.pas
|
|
if not (%1%)==() pause
|
|
echo. >>%LOG%
|
|
echo Results for %PCB% >>%LOG%
|
|
%SRC%.exe %PARA% >>%LOG%
|
|
|
|
set PCB=call p55 -b
|
|
del %SRC%.exe >nul
|
|
%PCB% %OPT% %SRC%.pas
|
|
if not (%1%)==() pause
|
|
echo. >>%LOG%
|
|
echo Results for %PCB% >>%LOG%
|
|
%SRC%.exe %PARA% >>%LOG%
|
|
|
|
set PCB=call p6 -b
|
|
del %SRC%.exe >nul
|
|
%PCB% %OPT% %SRC%.pas
|
|
if not (%1%)==() pause
|
|
echo. >>%LOG%
|
|
echo Results for %PCB% >>%LOG%
|
|
%SRC%.exe %PARA% >>%LOG%
|
|
|
|
set PCB=D:\DMX\M2\DCC32.EXE -b
|
|
del %SRC%.exe >nul
|
|
%PCB% %OPT% %SRC%.pas
|
|
if not (%1%)==() pause
|
|
echo. >>%LOG%
|
|
echo Results for %PCB% >>%LOG%
|
|
%SRC%.exe %PARA% >>%LOG%
|
|
|
|
set PCB=D:\DMX\M3\DCC32.EXE -b
|
|
del %SRC%.exe >nul
|
|
%PCB% %OPT% %SRC%.pas
|
|
if not (%1%)==() pause
|
|
echo. >>%LOG%
|
|
echo Results for %PCB% >>%LOG%
|
|
%SRC%.exe %PARA% >>%LOG%
|
|
|
|
set PCB=D:\DMX\M4\DCC32.EXE -b
|
|
del %SRC%.exe >nul
|
|
%PCB% %OPT% %SRC%.pas
|
|
if not (%1%)==() pause
|
|
echo. >>%LOG%
|
|
echo Results for %PCB% >>%LOG%
|
|
%SRC%.exe %PARA% >>%LOG%
|
|
|
|
set PCB=D:\DMX\M5\DCC32.EXE -b
|
|
del %SRC%.exe >nul
|
|
%PCB% %OPT% %SRC%.pas
|
|
if not (%1%)==() pause
|
|
echo. >>%LOG%
|
|
echo Results for %PCB% >>%LOG%
|
|
%SRC%.exe %PARA% >>%LOG%
|
|
|
|
set PCB=D:\DMX\M6\DCC32.EXE -b
|
|
del %SRC%.exe >nul
|
|
%PCB% %OPT% %SRC%.pas
|
|
if not (%1%)==() pause
|
|
echo. >>%LOG%
|
|
echo Results for %PCB% >>%LOG%
|
|
%SRC%.exe %PARA% >>%LOG%
|
|
|
|
set PCB=D:\DMX\M7\DCC32.EXE -b
|
|
del %SRC%.exe >nul
|
|
%PCB% %OPT% %SRC%.pas
|
|
if not (%1%)==() pause
|
|
echo. >>%LOG%
|
|
echo Results for %PCB% >>%LOG%
|
|
%SRC%.exe %PARA% >>%LOG%
|
|
|
|
set PCB=D:\DMX\M9\DCC32.EXE -b
|
|
del %SRC%.exe >nul
|
|
%PCB% %OPT% %SRC%.pas
|
|
if not (%1%)==() pause
|
|
echo. >>%LOG%
|
|
echo Results for %PCB% >>%LOG%
|
|
%SRC%.exe %PARA% >>%LOG%
|
|
|
|
call wdosx %SRC%.exe
|
|
echo. >>%LOG%
|
|
echo Results for WDOSX >>%LOG%
|
|
%SRC%.exe %PARA% >>%LOG%
|
|
|
|
set PCB=D:\DMX\M10\DCC32.EXE -b
|
|
del %SRC%.exe >nul
|
|
%PCB% %OPT% %SRC%.pas
|
|
if not (%1%)==() pause
|
|
echo. >>%LOG%
|
|
echo Results for %PCB% >>%LOG%
|
|
%SRC%.exe %PARA% >>%LOG%
|
|
|
|
set PCB=D:\DMX\M12\DCC32.EXE -b
|
|
del %SRC%.exe >nul
|
|
%PCB% %OPT% %SRC%.pas
|
|
if not (%1%)==() pause
|
|
echo. >>%LOG%
|
|
echo Results for %PCB% >>%LOG%
|
|
%SRC%.exe %PARA% >>%LOG%
|
|
|
|
set PCB=D:\DMX\M17\DCC32.EXE -b
|
|
del %SRC%.exe >nul
|
|
%PCB% %OPT% %SRC%.pas
|
|
if not (%1%)==() pause
|
|
echo. >>%LOG%
|
|
echo Results for %PCB% >>%LOG%
|
|
%SRC%.exe %PARA% >>%LOG%
|
|
|
|
set PCB=D:\DMX\M18\DCC32.EXE -b
|
|
del %SRC%.exe >nul
|
|
%PCB% %OPT% %SRC%.pas
|
|
if not (%1%)==() pause
|
|
echo. >>%LOG%
|
|
echo Results for %PCB% >>%LOG%
|
|
%SRC%.exe %PARA% >>%LOG%
|
|
|
|
echo.
|
|
echo **** Log file: %LOG%
|
|
|
|
:ende
|
|
|
|
set PCB=
|
|
set SRC=
|
|
set LOG=
|
|
set PARA=
|
|
set OPT=
|
|
|