|
|
@@ -5,7 +5,7 @@ rem *** $Id$
|
|
|
rem *** Batch file for creating of FPC snapshot for OS/2.
|
|
|
rem *** FPCDIR variable must be set to your base FPC directory and
|
|
|
rem *** must _not_ contain forward slashes (only backslashes allowed).
|
|
|
-rem *** Your compiler (PPC386.EXE per default) and AS.EXE must be somewhere
|
|
|
+rem *** Your compiler (PPOS2.EXE per default) and AS.EXE must be somewhere
|
|
|
rem *** on PATH (unless you set path to them explicitly using FPCTOOLS
|
|
|
rem *** variable, which must end with \ if present). However, be sure which
|
|
|
rem *** version of AS.EXE, etc. gets called if several such files exist.
|
|
|
@@ -13,33 +13,31 @@ rem *** One of the following parameters may be specified: rtl, compiler,
|
|
|
rem *** both, cycle and snapshot ("snapshot" being the default), optionally
|
|
|
rem *** followed by parameters "debug" (causing debugging symbols not to be
|
|
|
rem *** stripped from the created compiler), "release" (code optimization,
|
|
|
-rem *** debug info stripped out, no SNAPSHOT.TXT file generated), and
|
|
|
-rem *** "verbose" (compiler messages are shown). Parameters "debug" and
|
|
|
-rem *** "release" are mutually exclusive (the later one is used if both are
|
|
|
-rem *** present). Parameter "ppas" forces only PPAS script to be created by
|
|
|
-rem *** the compiler and called manually afterwards. This might help to
|
|
|
-rem *** resolve LD crashes due to low stack (e.g. under WinXX). Parameter
|
|
|
-rem *** "continue" disables the standard cleanup (deleting possible
|
|
|
-rem *** previously compiled versions), so compilation can continue after
|
|
|
-rem *** previous unsuccessful attempt. All the parameters _must_ be in
|
|
|
-rem *** lowercase to be recognized correctly, unless running under 4os2
|
|
|
-rem *** or compatible (e.g. 4nt under WinNT).
|
|
|
-rem *** Meaning of basic parameters:
|
|
|
+rem *** debug info stripped out), and "verbose" (compiler messages are
|
|
|
+rem *** shown; the same can be accomplished with setting environment
|
|
|
+rem *** variable DOVERBOSE to 1). Parameters "debug" and "release" are
|
|
|
+rem *** mutually exclusive (the later one is used if both are present).
|
|
|
+rem *** Parameter "ppas" forces only PPAS script to be created
|
|
|
+rem *** by the compiler and called manually afterwards. This might help
|
|
|
+rem *** to resolve LD crashes due to low stack (e.g. under WinXX).
|
|
|
+rem *** Parameters _must_ be in lowercase to be recognized correctly,
|
|
|
+rem *** unless running under 4os2 or compatible.
|
|
|
+rem *** Meaning of parameters:
|
|
|
rem *** rtl .......... RTL only, _no_ snapshot created
|
|
|
rem *** compiler ..... compiler only, _no_ snapshot created
|
|
|
rem *** both ......... both RTL and compiler, _no_ snapshot created
|
|
|
rem *** snapshot ..... both RTL and compiler, snapshot _is_ created
|
|
|
rem *** cycle ........ RTL and compiler compiled, the resulting compiler
|
|
|
rem *** is then copied to %FPCTOOLS% (BIN\OS2 by default)
|
|
|
-rem *** backing up possible previous version to ppc386.x),
|
|
|
+rem *** backing up possible previous version to ppos2.x),
|
|
|
rem *** the whole procedure is started again (RTL is compiled
|
|
|
rem *** with the new compiler version this time) and after
|
|
|
rem *** another cycle (to make sure the new compiler works
|
|
|
rem *** correctly) the snapshot is finally created
|
|
|
-rem *** PPC386.EXE is used for the compilation, unless a different compiler
|
|
|
-rem *** name is specified in FPCCOMPILER variable. In any case, the
|
|
|
-rem *** compiler should reside in the same directory as the other required
|
|
|
-rem *** tools (AS.EXE, LD.EXE, etc.).
|
|
|
+rem *** PPOS2.EXE is used for the compilation, unless a different compiler name
|
|
|
+rem *** is specified in FPCCOMPILER variable. In any case, the compiler should
|
|
|
+rem *** reside in the same directory as the other required tools (AS.EXE,
|
|
|
+rem *** LD.EXE, etc.).
|
|
|
rem *** Environment variable OTHEROPTS may be used to specify additional
|
|
|
rem *** switches (e.g. setting level of verbosity, etc.).
|
|
|
rem *** Environment variable FPCLOG can specify a file for error logging
|
|
|
@@ -68,8 +66,6 @@ if exist %FPCDIR%\makefile goto DirOK
|
|
|
if exist %FPCDIR%\COMPILER\pp.pas goto DirOK
|
|
|
if exist %FPCDIR%\SOURCE\makefile goto DirOK
|
|
|
if exist %FPCDIR%\SOURCE\COMPILER\pp.pas goto DirOK
|
|
|
-if exist %FPCDIR%\SRC\makefile goto DirOK
|
|
|
-if exist %FPCDIR%\SRC\COMPILER\pp.pas goto DirOK
|
|
|
goto ErrorDir
|
|
|
|
|
|
:DirOK
|
|
|
@@ -79,19 +75,11 @@ if exist %FPCDIR%\SOURCE goto SrcExists
|
|
|
if exist %FPCDIR%\SOURCE\. goto SrcExists
|
|
|
if exist %FPCDIR%\SOURCE\makefile goto SrcExists
|
|
|
if exist %FPCDIR%\SOURCE\COMPILER\pp.pas goto SrcExists
|
|
|
-if exist %FPCDIR%\SRC goto Src2Exists
|
|
|
-if exist %FPCDIR%\SRC\. goto Src2Exists
|
|
|
-if exist %FPCDIR%\SRC\makefile goto Src2Exists
|
|
|
-if exist %FPCDIR%\SRC\COMPILER\pp.pas goto Src2Exists
|
|
|
set FPCSRC=%FPCDIR%
|
|
|
goto SnapDir
|
|
|
|
|
|
:SrcExists
|
|
|
set FPCSRC=%FPCDIR%\SOURCE
|
|
|
-goto SnapDir
|
|
|
-
|
|
|
-:Src2Exists
|
|
|
-set FPCSRC=%FPCDIR%\SRC
|
|
|
|
|
|
:SnapDir
|
|
|
set FPCSNAP=%FPCSNAPPATH%
|
|
|
@@ -185,9 +173,8 @@ set OS2OPT2=-dGDB
|
|
|
set OS2OPT3=-dI386
|
|
|
set OS2OPT4=-Sg
|
|
|
rem "Release" options (optimizations, strip debug symbols)
|
|
|
-set RELEASEOPT1=-OG3p3
|
|
|
+set RELEASEOPT1=-Og2p1
|
|
|
set RELEASEOPT2=-Xs
|
|
|
-set DORELEASE=
|
|
|
rem "Debug" options (add debug symbols, do all code generation checks)
|
|
|
set DEBUGOPT1=-g
|
|
|
set DEBUGOPT2=-Crtoi
|
|
|
@@ -205,10 +192,16 @@ set OS2OBJP=-Fo%OS2RTL%
|
|
|
rem Path to units
|
|
|
set OS2UNITP=-Fu%FPCSNAPRTL%
|
|
|
rem Path to compiler units
|
|
|
-set COMPUNITP=-Fu%COMPSPATH%
|
|
|
+set COMPUNITP=-Fu%COMPSPATH%;%COMPSPATH%\i386;%COMPSPATH%\targets
|
|
|
+set COMPUNIT386=-Fu%COMPSPATH%\i386
|
|
|
+set COMPUNITTRG=-Fu%COMPSPATH%\targets
|
|
|
+
|
|
|
rem Path to compiler include files
|
|
|
-set COMPINCP=-Fi%COMPSPATH%
|
|
|
+set COMPINCP=-Fi%COMPSPATH%;%COMPSPATH%\i386
|
|
|
+set COMPINCP386=-Fu%COMPSPATH%\i386
|
|
|
rem Path to compiler object files
|
|
|
+
|
|
|
+
|
|
|
set COMPOBJP=-Fo%COMPSPATH%
|
|
|
rem Target path for RTL units
|
|
|
set OS2UNITT=-FU%FPCSNAPRTL%
|
|
|
@@ -224,14 +217,11 @@ rem Name of the PPAS script
|
|
|
set PPASNAME=PPAS.CMD
|
|
|
rem Default compiler for the first compilation
|
|
|
set CYCLE=0
|
|
|
-rem Do the cleanup by default
|
|
|
-set CONT=
|
|
|
-if not .%CYCLE% == .0 goto EnvErr
|
|
|
set COMPILER=%FPCCOMPILER%
|
|
|
if .%FPCCOMPILER% == . goto SetCompiler
|
|
|
goto PrgFound
|
|
|
:SetCompiler
|
|
|
-set COMPILER=PPC386.EXE
|
|
|
+set COMPILER=PPOS2.EXE
|
|
|
|
|
|
:PrgFound
|
|
|
|
|
|
@@ -275,26 +265,22 @@ if not %@EVAL[0] == 0 goto ParLoop
|
|
|
set PARAMS=%@LOWER[%PARAMS%]
|
|
|
:ParLoop
|
|
|
shift
|
|
|
-if .%1 == . goto NoPars
|
|
|
+if %1. == . goto NoPars
|
|
|
if %@EVAL[0] == 0 goto Shl1
|
|
|
if %1 == debug set CURRENTOPT1=%DEBUGOPT1%
|
|
|
if %1 == debug set CURRENTOPT2=%DEBUGOPT2%
|
|
|
if %1 == release set CURRENTOPT1=%RELEASEOPT1%
|
|
|
if %1 == release set CURRENTOPT2=%RELEASEOPT2%
|
|
|
-if %1 == release set DORELEASE=1
|
|
|
if %1 == verbose set DOVERBOSE=1
|
|
|
if %1 == ppas set FORCEPPAS=1
|
|
|
-if %1 == continue set CONT=1
|
|
|
goto ParLoop
|
|
|
:Shl1
|
|
|
if %@LOWER[%1] == debug set CURRENTOPT1=%DEBUGOPT1%
|
|
|
if %@LOWER[%1] == debug set CURRENTOPT2=%DEBUGOPT2%
|
|
|
if %@LOWER[%1] == release set CURRENTOPT1=%RELEASEOPT1%
|
|
|
if %@LOWER[%1] == release set CURRENTOPT2=%RELEASEOPT2%
|
|
|
-if %@LOWER[%1] == release set DORELEASE=1
|
|
|
if %@LOWER[%1] == verbose set DOVERBOSE=1
|
|
|
if %@LOWER[%1] == ppas set FORCEPPAS=1
|
|
|
-if %@LOWER[%1] == continue set CONT=1
|
|
|
goto ParLoop
|
|
|
:NoPars
|
|
|
if %PARAMS% == clean goto CleanRTL
|
|
|
@@ -307,7 +293,6 @@ echo *Error: Unknown parameter - %PARAMS% >> %FPCERRLOG%
|
|
|
goto End
|
|
|
|
|
|
:CleanRTL
|
|
|
-if .%CONT% == .1 goto ContClRTL
|
|
|
if %@EVAL[0] == 0 goto JPCleanRTL
|
|
|
echo *Cleaning up the RTL (error messages are OK here) ... >> %FPCERRLOG%
|
|
|
del %OS2OPTF% >> %FPCERRLOG%
|
|
|
@@ -338,7 +323,6 @@ del %FPCSNAPRTL%\link.res >& nul >> %FPCERRLOG%
|
|
|
:ContClRTL
|
|
|
if %PARAMS% == rtl goto Branches
|
|
|
:CleanCompiler
|
|
|
-if .%CONT% == .1 goto ContClComp
|
|
|
if %@EVAL[0] == 0 goto JPCleanComp
|
|
|
echo *Cleaning up the compiler (error messages are OK here) ... >> %FPCERRLOG%
|
|
|
del %OS2OPTF% >> %FPCERRLOG%
|
|
|
@@ -346,7 +330,7 @@ del %COMPSPATH%\*.ppo >> %FPCERRLOG%
|
|
|
del %COMPSPATH%\*.oo2 >> %FPCERRLOG%
|
|
|
del %COMPSPATH%\pp >> %FPCERRLOG%
|
|
|
del %COMPSPATH%\pp.exe >> %FPCERRLOG%
|
|
|
-del %COMPSPATH%\ppc386.exe >> %FPCERRLOG%
|
|
|
+del %COMPSPATH%\ppos2.exe >> %FPCERRLOG%
|
|
|
del %COMPSPATH%\ppas.bat >> %FPCERRLOG%
|
|
|
del %COMPSPATH%\ppas.cmd >> %FPCERRLOG%
|
|
|
del %COMPSPATH%\link.res >> %FPCERRLOG%
|
|
|
@@ -354,7 +338,7 @@ del %FPCSNAPBIN%\*.ppo >> %FPCERRLOG%
|
|
|
del %FPCSNAPBIN%\*.oo2 >> %FPCERRLOG%
|
|
|
del %FPCSNAPBIN%\pp >> %FPCERRLOG%
|
|
|
del %FPCSNAPBIN%\pp.exe >> %FPCERRLOG%
|
|
|
-del %FPCSNAPBIN%\ppc386.exe >> %FPCERRLOG%
|
|
|
+del %FPCSNAPBIN%\ppos2.exe >> %FPCERRLOG%
|
|
|
del %FPCSNAPBIN%\ppas.bat >> %FPCERRLOG%
|
|
|
del %FPCSNAPBIN%\ppas.cmd >> %FPCERRLOG%
|
|
|
del %FPCSNAPBIN%\link.res >> %FPCERRLOG%
|
|
|
@@ -366,7 +350,7 @@ del %COMPSPATH%\*.ppo >& nul >> %FPCERRLOG%
|
|
|
del %COMPSPATH%\*.oo2 >& nul >> %FPCERRLOG%
|
|
|
del %COMPSPATH%\pp >& nul >> %FPCERRLOG%
|
|
|
del %COMPSPATH%\pp.exe >& nul >> %FPCERRLOG%
|
|
|
-del %COMPSPATH%\ppc386.exe >& nul >> %FPCERRLOG%
|
|
|
+del %COMPSPATH%\ppos2.exe >& nul >> %FPCERRLOG%
|
|
|
del %COMPSPATH%\ppas.bat >& nul >> %FPCERRLOG%
|
|
|
del %COMPSPATH%\ppas.cmd >& nul >> %FPCERRLOG%
|
|
|
del %COMPSPATH%\link.res >& nul >> %FPCERRLOG%
|
|
|
@@ -374,7 +358,7 @@ del %FPCSNAPBIN%\*.ppo >& nul >> %FPCERRLOG%
|
|
|
del %FPCSNAPBIN%\*.oo2 >& nul >> %FPCERRLOG%
|
|
|
del %FPCSNAPBIN%\pp >& nul >> %FPCERRLOG%
|
|
|
del %FPCSNAPBIN%\pp.exe >& nul >> %FPCERRLOG%
|
|
|
-del %FPCSNAPBIN%\ppc386.exe >& nul >> %FPCERRLOG%
|
|
|
+del %FPCSNAPBIN%\ppos2.exe >& nul >> %FPCERRLOG%
|
|
|
del %FPCSNAPBIN%\ppas.bat >& nul >> %FPCERRLOG%
|
|
|
del %FPCSNAPBIN%\ppas.cmd >& nul >> %FPCERRLOG%
|
|
|
del %FPCSNAPBIN%\link.res >& nul >> %FPCERRLOG%
|
|
|
@@ -382,7 +366,6 @@ del %FPCSNAPBIN%\link.res >& nul >> %FPCERRLOG%
|
|
|
if %PARAMS% == compiler goto Branches
|
|
|
if %PARAMS% == both goto Branches
|
|
|
:CleanSnapshot
|
|
|
-if .%CONT% == .1 goto ContClSnap
|
|
|
if %@EVAL[0] == 0 goto JPCleanSnap
|
|
|
echo *Deleting the old snapshot (error messages are OK here) ... >> %FPCERRLOG%
|
|
|
del %FPCSNAPDOC%\*.txt >> %FPCERRLOG%
|
|
|
@@ -436,10 +419,10 @@ echo *End of basic options used for compilation >> %FPCERRLOG%
|
|
|
if not .%OTHEROPTS% == . echo *User specified options: %OTHEROPTS% >> %FPCERRLOG%
|
|
|
:CompS1
|
|
|
echo *Assembling the helpers ... >> %FPCERRLOG%
|
|
|
-%REALTOOLS%\as -o %FPCSNAPRTL%\prt0.oo2 %OS2RTL%\prt0.as >> %FPCERRLOG%
|
|
|
-%REALTOOLS%\as -o %FPCSNAPRTL%\prt1.oo2 %OS2RTL%\prt1.as >> %FPCERRLOG%
|
|
|
-%REALTOOLS%\as -o %FPCSNAPRTL%\code2.oo2 %OS2RTL%\code2.as >> %FPCERRLOG%
|
|
|
-%REALTOOLS%\as -o %FPCSNAPRTL%\code3.oo2 %OS2RTL%\code3.as >> %FPCERRLOG%
|
|
|
+%REALTOOLS%as -o %FPCSNAPRTL%\prt0.oo2 %OS2RTL%\prt0.as >> %FPCERRLOG%
|
|
|
+%REALTOOLS%as -o %FPCSNAPRTL%\prt1.oo2 %OS2RTL%\prt1.as >> %FPCERRLOG%
|
|
|
+%REALTOOLS%as -o %FPCSNAPRTL%\code2.oo2 %OS2RTL%\code2.as >> %FPCERRLOG%
|
|
|
+%REALTOOLS%as -o %FPCSNAPRTL%\code3.oo2 %OS2RTL%\code3.as >> %FPCERRLOG%
|
|
|
echo *Compiling the system unit ... >> %FPCERRLOG%
|
|
|
%REALTOOLS%%COMPILER% @%OS2OPTF% -Us %OTHEROPTS% %OS2RTL%\SYSOS2.PAS
|
|
|
if .%FORCEPPAS% == .1 echo *Calling the PPAS script >> %FPCERRLOG%
|
|
|
@@ -480,10 +463,6 @@ echo *Compiling unit SysUtils ... >> %FPCERRLOG%
|
|
|
%REALTOOLS%%COMPILER% @%OS2OPTF% %OTHEROPTS% %OS2RTL%\SYSUTILS.PP
|
|
|
if .%FORCEPPAS% == .1 echo *Calling the PPAS script >> %FPCERRLOG%
|
|
|
if .%FORCEPPAS% == .1 call %FPCSNAPRTL%\%PPASNAME% >> %FPCERRLOG%
|
|
|
-echo *Compiling unit VarUtils (doesn't exist in 1.0.x - won't be found then) ... >> %FPCERRLOG%
|
|
|
-%REALTOOLS%%COMPILER% @%OS2OPTF% %OTHEROPTS% %OS2RTL%\VARUTILS.PP
|
|
|
-if .%FORCEPPAS% == .1 echo *Calling the PPAS script >> %FPCERRLOG%
|
|
|
-if .%FORCEPPAS% == .1 call %FPCSNAPRTL%\%PPASNAME% >> %FPCERRLOG%
|
|
|
echo *Compiling unit TypInfo ... >> %FPCERRLOG%
|
|
|
%REALTOOLS%%COMPILER% @%OS2OPTF% %OTHEROPTS% %OS2RTLO%\TYPINFO.PP
|
|
|
if .%FORCEPPAS% == .1 echo *Calling the PPAS script >> %FPCERRLOG%
|
|
|
@@ -512,10 +491,6 @@ echo *Compiling unit LineInfo ... >> %FPCERRLOG%
|
|
|
%REALTOOLS%%COMPILER% @%OS2OPTF% %OTHEROPTS% %OS2RTLC%\LINEINFO.PP
|
|
|
if .%FORCEPPAS% == .1 echo *Calling the PPAS script >> %FPCERRLOG%
|
|
|
if .%FORCEPPAS% == .1 call %FPCSNAPRTL%\%PPASNAME% >> %FPCERRLOG%
|
|
|
-echo *Compiling unit DynLibs (doesn't exist in 1.0.x - won't be found then) ... >> %FPCERRLOG%
|
|
|
-%REALTOOLS%%COMPILER% @%OS2OPTF% %OTHEROPTS% %OS2RTLC%\DYNLIBS.PP
|
|
|
-if .%FORCEPPAS% == .1 echo *Calling the PPAS script >> %FPCERRLOG%
|
|
|
-if .%FORCEPPAS% == .1 call %FPCSNAPRTL%\%PPASNAME% >> %FPCERRLOG%
|
|
|
echo *Compiling unit KbdCalls ... >> %FPCERRLOG%
|
|
|
%REALTOOLS%%COMPILER% @%OS2OPTF% %OTHEROPTS% %OS2RTL%\KBDCALLS.PAS
|
|
|
if .%FORCEPPAS% == .1 echo *Calling the PPAS script >> %FPCERRLOG%
|
|
|
@@ -549,6 +524,10 @@ if .%FORCEPPAS% == .1 echo *Calling the PPAS script >> %FPCERRLOG%
|
|
|
if .%FORCEPPAS% == .1 call %FPCSNAPRTL%\%PPASNAME% >> %FPCERRLOG%
|
|
|
echo *Compiling MMOS2 units ... >> %FPCERRLOG%
|
|
|
%REALTOOLS%%COMPILER% @%OS2OPTF% %OTHEROPTS% %OS2RTL%\DIVE.PAS
|
|
|
+echo *Compiling API units... >> %FPCERRLOG%
|
|
|
+%REALTOOLS%%COMPILER% @%OS2OPTF% %OTHEROPTS% %OS2RTL%\MOUSE.PP
|
|
|
+%REALTOOLS%%COMPILER% @%OS2OPTF% %OTHEROPTS% %OS2RTL%\KEYBOARD.PP
|
|
|
+%REALTOOLS%%COMPILER% @%OS2OPTF% %OTHEROPTS% %OS2RTL%\VIDEO.PP
|
|
|
if .%FORCEPPAS% == .1 echo *Calling the PPAS script >> %FPCERRLOG%
|
|
|
if .%FORCEPPAS% == .1 call %FPCSNAPRTL%\%PPASNAME% >> %FPCERRLOG%
|
|
|
if .%FORCEPPAS% == .1 echo * Deleting the PPAS script >> %FPCERRLOG%
|
|
|
@@ -584,12 +563,6 @@ echo *End of basic options used for compilation >> %FPCERRLOG%
|
|
|
if not .%OTHEROPTS% == . echo *User specified options: %OTHEROPTS% >> %FPCERRLOG%
|
|
|
:CompS2
|
|
|
echo *Compiling the compiler ... >> %FPCERRLOG%
|
|
|
-%REALTOOLS%%COMPILER% @%OS2OPTF% %OTHEROPTS% %COMPSPATH%\FPC.PAS
|
|
|
-if .%FORCEPPAS% == .1 echo *Calling the PPAS script >> %FPCERRLOG%
|
|
|
-if .%FORCEPPAS% == .1 call %FPCSNAPBIN%\%PPASNAME% >> %FPCERRLOG%
|
|
|
-if .%FORCEPPAS% == .1 echo * Deleting the PPAS script >> %FPCERRLOG%
|
|
|
-if .%FORCEPPAS% == .1 del %FPCSNAPBIN%\%PPASNAME% >> %FPCERRLOG%
|
|
|
-if .%FORCEPPAS% == .1 del %FPCSNAPBIN%\link.res >> %FPCERRLOG%
|
|
|
%REALTOOLS%%COMPILER% @%OS2OPTF% %OTHEROPTS% %COMPSPATH%\PP.PAS
|
|
|
if .%FORCEPPAS% == .1 echo *Calling the PPAS script >> %FPCERRLOG%
|
|
|
if .%FORCEPPAS% == .1 call %FPCSNAPBIN%\%PPASNAME% >> %FPCERRLOG%
|
|
|
@@ -597,8 +570,9 @@ if .%FORCEPPAS% == .1 echo * Deleting the PPAS script >> %FPCERRLOG%
|
|
|
if .%FORCEPPAS% == .1 del %FPCSNAPBIN%\%PPASNAME% >> %FPCERRLOG%
|
|
|
if .%FORCEPPAS% == .1 del %FPCSNAPBIN%\link.res >> %FPCERRLOG%
|
|
|
:Comp2
|
|
|
-ren %FPCSNAPBIN%\pp.exe ppc386.exe >> %FPCERRLOG%
|
|
|
-if exist %FPCSNAPBIN%\ppc386.exe goto OKCompiler
|
|
|
+ren %FPCSNAPBIN%\pp.exe ppos2.exe >> %FPCERRLOG%
|
|
|
+copy %FPCSNAPBIN%\ppos2.exe ppc386.exe >> %FPCERRLOG%
|
|
|
+if exist %FPCSNAPBIN%\ppos2.exe goto OKCompiler
|
|
|
if not exist %FPCSNAPBIN%\pp goto C2Cont
|
|
|
if exist %FPCSNAPBIN%\ppas.bat goto PPasBat
|
|
|
if exist %FPCSNAPBIN%\ppas.cmd goto PPasCmd
|
|
|
@@ -627,13 +601,14 @@ goto CopyFiles
|
|
|
:Cycle
|
|
|
|
|
|
rem Another loop?
|
|
|
-if .%CYCLE% == .2 goto CopyFiles
|
|
|
-echo *Backing up previous compiler version to ppc386.%CYCLE% ... >> %FPCERRLOG%
|
|
|
-copy %REALTOOLS%ppc386.exe %REALTOOLS%ppc386.%CYCLE% >> %FPCERRLOG%
|
|
|
+if %CYCLE% == 2 goto CopyFiles
|
|
|
+echo *Backing up previous compiler version to ppos2.%CYCLE% ... >> %FPCERRLOG%
|
|
|
+copy %REALTOOLS%ppos2.exe %REALTOOLS%ppos2.%CYCLE% >> %FPCERRLOG%
|
|
|
echo *Copying the newly created compiler to %REALTOOLS% ... >> %FPCERRLOG%
|
|
|
-copy %FPCSNAPBIN%\ppc386.exe %REALTOOLS%. >> %FPCERRLOG%
|
|
|
-if .%CYCLE% == .1 goto Cycle2
|
|
|
-set COMPILER=PPC386.EXE
|
|
|
+copy %FPCSNAPBIN%\ppos2.exe %REALTOOLS%. >> %FPCERRLOG%
|
|
|
+copy %FPCSNAPBIN%\ppos2.exe %REALTOOLS%ppc386.exe >> %FPCERRLOG%
|
|
|
+if %CYCLE% == 1 goto Cycle2
|
|
|
+set COMPILER=PPOS2.EXE
|
|
|
set CYCLE=1
|
|
|
goto NoPars
|
|
|
|
|
|
@@ -642,15 +617,12 @@ set CYCLE=2
|
|
|
goto NoPars
|
|
|
|
|
|
:CopyFiles
|
|
|
-echo *Copying the message files ... >> %FPCERRLOG%
|
|
|
-copy %COMPSPATH%\*.msg %FPCSNAPMSG% >> %FPCERRLOG%
|
|
|
+set FPCSNAPTXT=%FPCSNAPDOC%\snapshot.txt
|
|
|
echo *Copying the documentation ... >> %FPCERRLOG%
|
|
|
copy %FPCSRC%\INSTALL\DOC\*.txt %FPCSNAPDOC% >> %FPCERRLOG%
|
|
|
copy %FPCSRC%\INSTALL\DOC\*.htm* %FPCSNAPDOC% >> %FPCERRLOG%
|
|
|
copy %FPCSRC%\INSTALL\DOC\copying.* %FPCSNAPDOC% >> %FPCERRLOG%
|
|
|
-if .%DORELEASE% == .1 goto CopyDone
|
|
|
echo *Creating the snapshot readme file ... >> %FPCERRLOG%
|
|
|
-set FPCSNAPTXT=%FPCSNAPDOC%\snapshot.txt
|
|
|
echo This is a FPC snapshot for OS/2. It contains compilation of the most current >> %FPCSNAPTXT%
|
|
|
echo developers' sources as of time of its creation. It contains the latest fixes >> %FPCSNAPTXT%
|
|
|
echo but might contain some new bugs as well, since it's less tested than regular >> %FPCSNAPTXT%
|
|
|
@@ -660,13 +632,17 @@ echo the list in your e-mail, if it's the case). >> %FPCSNAPTXT%
|
|
|
echo The snapshot has the same structure as the release ZIP files, so it may be >> %FPCSNAPTXT%
|
|
|
echo installed using the normal installer (INSTALL.EXE and INSTALL.DAT must be >> %FPCSNAPTXT%
|
|
|
echo in the same directory) or directly unzipped into your FPC tree. >> %FPCSNAPTXT%
|
|
|
+echo *Copying the message files ... >> %FPCERRLOG%
|
|
|
+copy %COMPSPATH%\msg\*.msg %FPCSNAPMSG% >> %FPCERRLOG%
|
|
|
|
|
|
-:CopyDone
|
|
|
if %@EVAL[0] == 0 goto Pack
|
|
|
echo *Warning: Packing in this environment might fail. >> %FPCERRLOG%
|
|
|
-echo *Should you encounter any problems, make sure the current directory, i.e. >> %FPCERRLOG%
|
|
|
-cd >> %FPCERRLOG%
|
|
|
-echo *is on the same drive as %FPCSNAP%. >> %FPCERRLOG%
|
|
|
+echo *You should press Ctrl-Break now if the current drive is different from that >> %FPCERRLOG%
|
|
|
+echo *of %FPCSNAP%; otherwise press any key to continue. >> %FPCERRLOG%
|
|
|
+if not %FPCERRLOG% == CON echo *Warning: Packing in this environment might fail.
|
|
|
+if not %FPCERRLOG% == CON echo *You should press Ctrl-Break now if the current drive is different from that
|
|
|
+if not %FPCERRLOG% == CON echo *of %FPCDIR%; otherwise press any key to continue.
|
|
|
+pause>nul
|
|
|
cd %FPCSNAP%
|
|
|
|
|
|
:Pack
|
|
|
@@ -679,7 +655,7 @@ cdd %FPCSNAP%
|
|
|
:Cmd2
|
|
|
|
|
|
rem ZIP.EXE must be on the PATH
|
|
|
-zip -9r baseemx bin\os2\*.exe doc\* msg\* units\os2\rtl\*.ppo units\os2\rtl\*.oo2 units\os2\rtl\*.ao2 units\os2\rtl\*.rst >> %FPCERRLOG%
|
|
|
+zip -9 -r baseemx.zip bin\os2\ppc386.exe doc\* msg\* units\os2\rtl\*.ppo units\os2\rtl\*.oo2 units\os2\rtl\*.ao2 >> %FPCERRLOG%
|
|
|
if exist baseemx.zip goto ZipOK
|
|
|
echo *Error: The ZIP file hasn't been created!! >> %FPCERRLOG%
|
|
|
:ZipOK
|
|
|
@@ -695,17 +671,11 @@ goto End
|
|
|
|
|
|
|
|
|
$Log$
|
|
|
- Revision 1.5 2000-12-03 18:40:56 hajny
|
|
|
- * fpc.pas added
|
|
|
-
|
|
|
- Revision 1.4 2000/10/14 19:46:58 hajny
|
|
|
- * fix for continue parameter
|
|
|
-
|
|
|
- Revision 1.3 2000/10/08 18:44:36 hajny
|
|
|
- + DynLibs added
|
|
|
+ Revision 1.6 2001-06-28 21:09:43 peter
|
|
|
+ * latest versions from 1.0.5 branch
|
|
|
|
|
|
- Revision 1.2 2000/10/07 11:47:54 hajny
|
|
|
- * updates for 1.1, etc.
|
|
|
+ Revision 1.1.2.1 2001/05/15 18:41:14 carl
|
|
|
+ * updated to work with FPC v1.0.x
|
|
|
|
|
|
Revision 1.1 2000/07/14 10:09:29 michael
|
|
|
+ Moved from base
|
peter