8
0
mirror of https://github.com/FirebirdSQL/firebird.git synced 2025-01-22 18:43:02 +01:00

White space and some clean up

This commit is contained in:
Paul Reeves 2024-05-27 12:27:05 +02:00
parent 9637af52cc
commit c40c091260
5 changed files with 196 additions and 229 deletions

View File

@ -44,7 +44,7 @@ if not defined FB2_SNAPSHOT (set FB2_SNAPSHOT=0)
:: See what we have on the command line
for %%v in ( %* ) do (
@for %%v in ( %* ) do (
( if /I "%%v"=="DEBUG" (set FBBUILD_BUILDTYPE=debug) )
( if /I "%%v"=="PDB" (set FBBUILD_SHIP_PDB=ship_pdb) )
( if /I "%%v"=="ZIP" (set FBBUILD_ZIP_PACK=1) )
@ -72,7 +72,7 @@ if "%FB2_SNAPSHOT%"=="1" (
(cmd /c "sed.exe --version 2>&1 > nul ") || ( call :ERROR Could not locate sed && @goto :EOF )
@echo o Checking for unix2dos...
(cmd /c "unix2dos.exe --version 2>&1 > nul" ) || ( call :ERROR Could not locate unix2dos && @goto :EOF )
(cmd /c "unix2dos.exe --quiet --version 2>&1 > nul" ) || ( call :ERROR Could not locate unix2dos && @goto :EOF )
@for /f "usebackq tokens=*" %%c in (`where /f md5sum 2^>nul`) do set MD5_COMMAND=%%c
if defined MD5_COMMAND (
@ -86,7 +86,9 @@ if %FBBUILD_ZIP_PACK% EQU 1 (
if not defined SEVENZIP (
call :ERROR SEVENZIP environment variable is not defined.
@goto :EOF
) else (@echo o Compression utility found.)
) else (
@echo o Compression utility found.
)
)
if %FBBUILD_ISX_PACK% NEQ 1 goto :SKIP_INNO
@ -96,7 +98,7 @@ if defined INNO6_SETUP_PATH (
)
:: If the environment variable is not set let's search in PATH
if not defined ISCC_COMMAND (
@for /f "usebackq tokens=*" %%c in (`where /f iscc 2^>nul`) do set ISCC_COMMAND=%%c
@for /f "usebackq tokens=*" %%c in ( `where /f iscc 2^>nul` ) do set ISCC_COMMAND=%%c
)
if not defined ISCC_COMMAND (
@echo Required Inno Setup compiler not found
@ -137,17 +139,17 @@ if not defined FB_EXTERNAL_DOCS (
:: Cut off everything that is not #define to let Inno Setup use it
findstr /B /L "#define" "%FB_ROOT_PATH%\src\jrd\build_no.h" >"%FB_ROOT_PATH%\gen\jrd\build_no.h"
:: Read version parameters from build_no.h
for /F "tokens=2*" %%a in (%FB_ROOT_PATH%\gen\jrd\build_no.h) do (
@echo Setting %%a to %%~b
SET %%a=%%~b
@for /F "tokens=2*" %%a in ( %FB_ROOT_PATH%\gen\jrd\build_no.h ) do (
echo Setting %%a to %%~b
SET %%a=%%~b
)
:: Set our package number at 0 and increment every
:: time we rebuild in a single session
if not defined FBBUILD_PACKAGE_NUMBER (
set FBBUILD_PACKAGE_NUMBER=0
@if not defined FBBUILD_PACKAGE_NUMBER (
set FBBUILD_PACKAGE_NUMBER=0
) else (
set /A FBBUILD_PACKAGE_NUMBER+=1
set /A FBBUILD_PACKAGE_NUMBER+=1
)
@echo Setting FBBUILD_PACKAGE_NUMBER to %FBBUILD_PACKAGE_NUMBER%
@ -162,38 +164,38 @@ set /A FBBUILD_PACKAGE_NUMBER+=1
:: Set up our final destination
set FBBUILD_INSTALL_IMAGES=%FB_ROOT_PATH%\builds\install_images
if not exist "%FBBUILD_INSTALL_IMAGES%" (mkdir "%FBBUILD_INSTALL_IMAGES%")
@if not exist "%FBBUILD_INSTALL_IMAGES%" ( mkdir "%FBBUILD_INSTALL_IMAGES%" )
:: Determine Product Status
if %FB_BUILD_TYPE%==V (
set FBBUILD_PROD_STATUS=PROD
set FBBUILD_PROD_STATUS=PROD
) else (
set FBBUILD_PROD_STATUS=DEV
set FBBUILD_PROD_STATUS=DEV
)
if "%FB_TARGET_PLATFORM%"=="x64" (
set FBBUILD_FILE_ID=%PRODUCT_VER_STRING%-%FBBUILD_PACKAGE_NUMBER%%FBBUILD_FILENAME_SUFFIX%-windows-x64
set FBBUILD_FILE_ID=%PRODUCT_VER_STRING%-%FBBUILD_PACKAGE_NUMBER%%FBBUILD_FILENAME_SUFFIX%-windows-x64
) else (
set FBBUILD_FILE_ID=%PRODUCT_VER_STRING%-%FBBUILD_PACKAGE_NUMBER%%FBBUILD_FILENAME_SUFFIX%-windows-x86
set FBBUILD_FILE_ID=%PRODUCT_VER_STRING%-%FBBUILD_PACKAGE_NUMBER%%FBBUILD_FILENAME_SUFFIX%-windows-x86
)
@setlocal
@echo.
@if not exist %FB_GEN_DIR%\readmes (@mkdir %FB_GEN_DIR%\readmes)
set SED_COMMAND=sed -e s/\$MAJOR/%FB_MAJOR_VER%/g ^
@if not exist %FB_GEN_DIR%\readmes ( mkdir %FB_GEN_DIR%\readmes )
@set SED_COMMAND=sed -e s/\$MAJOR/%FB_MAJOR_VER%/g ^
-e s/\$MINOR/%FB_MINOR_VER%/g ^
-e s/\$RELEASE/%FB_REV_NO%/g
@echo Processing version strings in Readme_%FBBUILD_PROD_STATUS%.txt
@%SED_COMMAND% Readme_%FBBUILD_PROD_STATUS%.txt > %FB_GEN_DIR%\readmes\Readme.txt
@for %%f in (installation_readme.txt) do (
@echo Processing version strings in %%f
@%SED_COMMAND% %%f > %FB_GEN_DIR%\readmes\%%f
@echo Processing version strings in %%f
@%SED_COMMAND% %%f > %FB_GEN_DIR%\readmes\%%f
)
@for %%d in (ba cz de es fr hu it pl pt ru si ) do (
@if not exist %FB_GEN_DIR%\readmes\%%d (@mkdir %FB_GEN_DIR%\readmes\%%d)
@for %%f in ( %%d\*.txt ) do (
@echo Processing version strings in %%f
@%SED_COMMAND% %%f > %FB_GEN_DIR%\readmes\%%f
if not exist %FB_GEN_DIR%\readmes\%%d ( @mkdir %FB_GEN_DIR%\readmes\%%d )
for %%f in ( %%d\*.txt ) do (
echo Processing version strings in %%f
%SED_COMMAND% %%f > %FB_GEN_DIR%\readmes\%%f
)
)
@ -222,35 +224,35 @@ set SED_COMMAND=sed -e s/\$MAJOR/%FB_MAJOR_VER%/g ^
:: these version numbers. %MSVC_RUNTIME_FILE_VERSION% should represent 140.
:: %MSVC_RUNTIME_LIBRARY_VERSION% is based on the Visual Studio version used.
:: These variables are set in setenvvar.bat.
for %%f in ( msvcp%MSVC_RUNTIME_FILE_VERSION%.dll vcruntime%MSVC_RUNTIME_FILE_VERSION%.dll ) do (
@for %%f in ( msvcp%MSVC_RUNTIME_FILE_VERSION%.dll vcruntime%MSVC_RUNTIME_FILE_VERSION%.dll ) do (
echo Copying "%VCToolsRedistDir%\%VSCMD_ARG_TGT_ARCH%\Microsoft.VC%MSVC_RUNTIME_LIBRARY_VERSION%.CRT\%%f"
copy "%VCToolsRedistDir%\%VSCMD_ARG_TGT_ARCH%\Microsoft.VC%MSVC_RUNTIME_LIBRARY_VERSION%.CRT\%%f" %FB_OUTPUT_DIR%\ >nul
if ERRORLEVEL 1 (
call :ERROR Copying "%VCToolsRedistDir%\%VSCMD_ARG_TGT_ARCH%\Microsoft.VC%MSVC_RUNTIME_LIBRARY_VERSION%.CRT\%%f" failed with error %ERRLEV% ) & (goto :EOF)
call :ERROR Copying "%VCToolsRedistDir%\%VSCMD_ARG_TGT_ARCH%\Microsoft.VC%MSVC_RUNTIME_LIBRARY_VERSION%.CRT\%%f" failed with error %ERRLEV% & goto :EOF
)
)
@where /Q implib.exe
@if not ERRORLEVEL 1 (
if "%VSCMD_ARG_TGT_ARCH%"=="x86" (
@echo Generating fbclient_bor.lib
@implib %FB_OUTPUT_DIR%\lib\fbclient_bor.lib %FB_OUTPUT_DIR%\fbclient.dll > nul
)
if "%VSCMD_ARG_TGT_ARCH%"=="x86" (
@echo Generating fbclient_bor.lib
@implib %FB_OUTPUT_DIR%\lib\fbclient_bor.lib %FB_OUTPUT_DIR%\fbclient.dll > nul
)
)
@if "%FBBUILD_SHIP_PDB%"=="ship_pdb" (
@echo Copying pdb files...
@copy %FB_TEMP_DIR%\%FBBUILD_BUILDTYPE%\fbserver\firebird.pdb %FB_OUTPUT_DIR%\ > nul
@copy %FB_TEMP_DIR%\%FBBUILD_BUILDTYPE%\burp\burp.pdb %FB_OUTPUT_DIR%\gbak.pdb > nul
@copy %FB_TEMP_DIR%\%FBBUILD_BUILDTYPE%\gfix\gfix.pdb %FB_OUTPUT_DIR%\ > nul
@copy %FB_TEMP_DIR%\%FBBUILD_BUILDTYPE%\isql\isql.pdb %FB_OUTPUT_DIR%\ > nul
@copy %FB_TEMP_DIR%\%FBBUILD_BUILDTYPE%\yvalve\fbclient.pdb %FB_OUTPUT_DIR%\ > nul
@copy %FB_TEMP_DIR%\%FBBUILD_BUILDTYPE%\engine\engine*.pdb %FB_OUTPUT_DIR%\plugins\ > nul
@copy %FB_TEMP_DIR%\%FBBUILD_BUILDTYPE%\fbtrace\fbtrace.pdb %FB_OUTPUT_DIR%\plugins\ > nul
@copy %FB_TEMP_DIR%\%FBBUILD_BUILDTYPE%\legacy_auth\legacy_auth.pdb %FB_OUTPUT_DIR%\plugins\ > nul
@copy %FB_TEMP_DIR%\%FBBUILD_BUILDTYPE%\legacy_usermanager\legacy_usermanager.pdb %FB_OUTPUT_DIR%\plugins\ > nul
@copy %FB_TEMP_DIR%\%FBBUILD_BUILDTYPE%\srp\srp.pdb %FB_OUTPUT_DIR%\plugins\ > nul
@copy %FB_TEMP_DIR%\%FBBUILD_BUILDTYPE%\udr_engine\udr_engine.pdb %FB_OUTPUT_DIR%\plugins\ > nul
echo Copying pdb files...
copy %FB_TEMP_DIR%\%FBBUILD_BUILDTYPE%\fbserver\firebird.pdb %FB_OUTPUT_DIR%\ > nul
copy %FB_TEMP_DIR%\%FBBUILD_BUILDTYPE%\burp\burp.pdb %FB_OUTPUT_DIR%\gbak.pdb > nul
copy %FB_TEMP_DIR%\%FBBUILD_BUILDTYPE%\gfix\gfix.pdb %FB_OUTPUT_DIR%\ > nul
copy %FB_TEMP_DIR%\%FBBUILD_BUILDTYPE%\isql\isql.pdb %FB_OUTPUT_DIR%\ > nul
copy %FB_TEMP_DIR%\%FBBUILD_BUILDTYPE%\yvalve\fbclient.pdb %FB_OUTPUT_DIR%\ > nul
copy %FB_TEMP_DIR%\%FBBUILD_BUILDTYPE%\engine\engine*.pdb %FB_OUTPUT_DIR%\plugins\ > nul
copy %FB_TEMP_DIR%\%FBBUILD_BUILDTYPE%\fbtrace\fbtrace.pdb %FB_OUTPUT_DIR%\plugins\ > nul
copy %FB_TEMP_DIR%\%FBBUILD_BUILDTYPE%\legacy_auth\legacy_auth.pdb %FB_OUTPUT_DIR%\plugins\ > nul
copy %FB_TEMP_DIR%\%FBBUILD_BUILDTYPE%\legacy_usermanager\legacy_usermanager.pdb %FB_OUTPUT_DIR%\plugins\ > nul
copy %FB_TEMP_DIR%\%FBBUILD_BUILDTYPE%\srp\srp.pdb %FB_OUTPUT_DIR%\plugins\ > nul
copy %FB_TEMP_DIR%\%FBBUILD_BUILDTYPE%\udr_engine\udr_engine.pdb %FB_OUTPUT_DIR%\plugins\ > nul
)
@echo Started copying docs...
@ -264,17 +266,17 @@ if "%VSCMD_ARG_TGT_ARCH%"=="x86" (
)
:: Various upgrade scripts and docs
for %%d in ( v3.0 v4.0 ) do (
@echo Copy various upgrade scripts and docs
@for %%d in ( v3.0 v4.0 ) do (
mkdir %FB_OUTPUT_DIR%\misc\upgrade\%%d 2>nul
@copy %FB_ROOT_PATH%\src\misc\upgrade\%%d\*.* %FB_OUTPUT_DIR%\misc\upgrade\%%d > nul
@if ERRORLEVEL 1 (
copy %FB_ROOT_PATH%\src\misc\upgrade\%%d\*.* %FB_OUTPUT_DIR%\misc\upgrade\%%d > nul
if ERRORLEVEL 1 (
call :ERROR copy %FB_ROOT_PATH%\src\misc\upgrade\%%d\*.* %FB_OUTPUT_DIR%\misc\upgrade\%%d failed.
goto :EOF
)
)
:: INTL script
@echo Copy INTL script
@copy %FB_ROOT_PATH%\src\misc\intl.sql %FB_OUTPUT_DIR%\misc\ > nul
@if ERRORLEVEL 1 (
call :ERROR copy %FB_ROOT_PATH%\src\misc\intl.sql %FB_OUTPUT_DIR%\misc failed.
@ -284,15 +286,6 @@ for %%d in ( v3.0 v4.0 ) do (
@echo Copying other documentation...
@copy %FB_GEN_DIR%\readmes\installation_readme.txt %FB_OUTPUT_DIR%\doc\installation_readme.txt > nul
:: FIX ME - we now have some .md files and ChangeLog is no longer a monster.
:: Maybe we can just do nothing here.
:: If we are not doing a final release then include stuff that is
:: likely to be of use to testers, especially as our release notes
:: may be incomplete or non-existent
::@if /I "%FBBUILD_PROD_STATUS%"=="DEV" (
:: @copy %FB_ROOT_PATH%\ChangeLog %FB_OUTPUT_DIR%\doc\ChangeLog.txt > nul
::)
@mkdir %FB_OUTPUT_DIR%\doc\sql.extensions 2>nul
@if ERRORLEVEL 2 ( ( call :ERROR MKDIR for doc\sql.extensions dir failed) & ( goto :EOF ) )
@copy %FB_ROOT_PATH%\doc\sql.extensions\*.* %FB_OUTPUT_DIR%\doc\sql.extensions\ > nul
@ -302,30 +295,25 @@ for %%d in ( v3.0 v4.0 ) do (
:: an error if FB_EXTERNAL_DOCS is not defined. On the other hand,
:: if the docs are available then we must include them.
@if defined FB_EXTERNAL_DOCS (
echo Copying pdf docs...
echo Copying essential pdf docs...
for %%v in ( Firebird-%FB_MAJOR_VER%.%FB_MINOR_VER%.%FB_REV_NO%%FBBUILD_FILENAME_SUFFIX%-ReleaseNotes.pdf ) do (
echo ... %FB_EXTERNAL_DOCS%\%%v to %FB_OUTPUT_DIR%\doc\%%v
copy /Y %FB_EXTERNAL_DOCS%\%%v %FB_OUTPUT_DIR%\doc\%%v > nul
if ERRORLEVEL 1 ( call :ERROR Copying %FB_EXTERNAL_DOCS%\%%v to %FB_OUTPUT_DIR%\doc\%%v FAILED. & (@goto :EOF) )
if ERRORLEVEL 1 ( call :ERROR Copying %FB_EXTERNAL_DOCS%\%%v to %FB_OUTPUT_DIR%\doc\%%v FAILED. & @goto :EOF )
)
for %%v in ( Firebird-%FB_MAJOR_VER%.%FB_MINOR_VER%-QuickStart.pdf ) do (
echo Copying optional pdf docs...
for %%v in ( firebird-%FB_MAJOR_VER%-quickstartguide.pdf ) do (
echo ... %%v
copy /Y %FB_EXTERNAL_DOCS%\%%v %FB_OUTPUT_DIR%\doc\%%v > nul
if ERRORLEVEL 1 (
REM - As of RC1 there is no quick start guide so we do not want
REM the packaging to fail for something that doesn't exist
if "%FBBUILD_FILENAME_SUFFIX%" == "-RC1" (
echo Copying %FB_EXTERNAL_DOCS%\%%v failed.
) else (
call :WARNING Copying %FB_EXTERNAL_DOCS%\%%v failed.
)
)
if ERRORLEVEL 1 ( call :WARNING Copying %FB_EXTERNAL_DOCS%\%%v to %FB_OUTPUT_DIR%\doc\%%v FAILED. & @goto :EOF )
)
echo Finished copying pdf docs...
echo.
echo Finished copying pdf docs...
echo.
)
@echo Cleaning irrelevant files...
:: Clean out text notes that are either not relevant to Windows or
:: are only of use to engine developers.
@ -340,7 +328,7 @@ for %%v in (IPLicense.txt IDPLicense.txt ) do (
)
:: And readme
@copy %FB_GEN_DIR%\readmes\Readme.txt %FB_OUTPUT_DIR%\ > nul
@copy %FB_GEN_DIR%\readmes\Readme.txt %FB_OUTPUT_DIR%\ > nul
:: Walk through all docs and transform any that are not .txt, .pdf or .html to .txt
@echo Setting .txt filetype to ascii docs.
@ -378,14 +366,14 @@ if %FB2_SNAPSHOT% EQU 1 (
@if %MSVC_VERSION% EQU 15 (
if not exist %FB_OUTPUT_DIR%\system32\vccrt%MSVC_RUNTIME_LIBRARY_VERSION%_%FB_TARGET_PLATFORM%.msi (
"%WIX%\bin\candle.exe" -v -sw1091 %FB_ROOT_PATH%\builds\win32\msvc%MSVC_VERSION%\VCCRT_%FB_TARGET_PLATFORM%.wxs -out %FB_GEN_DIR%\vccrt_%FB_TARGET_PLATFORM%.wixobj
@if ERRORLEVEL 1 (
( call :ERROR Could not generate wixobj for MSVC Runtime MSI ) & (goto :EOF)
if ERRORLEVEL 1 (
( call :ERROR Could not generate wixobj for MSVC Runtime MSI ) & ( goto :EOF )
) else (
"%WIX%\bin\light.exe" -sw1076 %FB_GEN_DIR%\vccrt_%FB_TARGET_PLATFORM%.wixobj -out %FB_OUTPUT_DIR%\system32\vccrt%MSVC_RUNTIME_LIBRARY_VERSION%_%FB_TARGET_PLATFORM%.msi
@if ERRORLEVEL 1 ( ( call :ERROR Could not generate MSVCC Runtime MSI %MSVC_RUNTIME_LIBRARY_VERSION% ) & ( goto :EOF ) )
if ERRORLEVEL 1 ( ( call :ERROR Could not generate MSVCC Runtime MSI %MSVC_RUNTIME_LIBRARY_VERSION% ) & ( goto :EOF ) )
)
) else (
@echo Using an existing build of %FB_OUTPUT_DIR%\system32\vccrt%MSVC_RUNTIME_LIBRARY_VERSION%_%FB_TARGET_PLATFORM%.msi
echo Using an existing build of %FB_OUTPUT_DIR%\system32\vccrt%MSVC_RUNTIME_LIBRARY_VERSION%_%FB_TARGET_PLATFORM%.msi
)
)
@ -434,8 +422,8 @@ copy %FB_ROOT_PATH%\builds\install\misc\databases.conf %FB_OUTPUT_DIR%\databases
:: in builds\win32 by build_msg.bat. Copying from there to output dir
::=================================================================
@if not exist %FB_OUTPUT_DIR%\firebird.msg (
(copy %FB_GEN_DIR%\firebird.msg %FB_OUTPUT_DIR%\firebird.msg > nul)
(if ERRORLEVEL 1 ( ( call :ERROR Could not copy firebird.msg ) & ( goto :EOF ) ) )
copy %FB_GEN_DIR%\firebird.msg %FB_OUTPUT_DIR%\firebird.msg > nul
if ERRORLEVEL 1 ( call :ERROR Could not copy firebird.msg & goto :EOF )
)
::End of FB_MSG
@ -448,7 +436,7 @@ copy %FB_ROOT_PATH%\builds\install\misc\databases.conf %FB_OUTPUT_DIR%\databases
:: that and they all have windows EOL
::===============================================
for /R %FB_OUTPUT_DIR% %%W in ( *.txt *.conf *.sql *.c *.cpp *.hpp *.h *.bat *.pas *.e *.def *.rc *.md *.html ) do (
unix2dos --safe %%W || exit /b 1
unix2dos --quiet --safe %%W || exit /b 1
)
::End of SET_CRLF
@ -475,9 +463,7 @@ set SKIP_FILES=%SKIP_FILES% -x!*.wixpdb
if "%FB2_EXAMPLES%" == "0" set SKIP_FILES=%SKIP_FILES% -xr-!examples
if exist %FBBUILD_ZIPFILE% (
@del %FBBUILD_ZIPFILE%
)
if exist %FBBUILD_ZIPFILE% del %FBBUILD_ZIPFILE%
"%SEVENZIP%\7z.exe" a -r -tzip -mx9 %SKIP_FILES% %FBBUILD_ZIPFILE% %FB_OUTPUT_DIR%\*
@ -497,7 +483,7 @@ endlocal
::
::=================================================
@echo.
call %ISCC_COMMAND% %FB_ROOT_PATH%\builds\install\arch-specific\win32\FirebirdInstall.iss
@call %ISCC_COMMAND% %FB_ROOT_PATH%\builds\install\arch-specific\win32\FirebirdInstall.iss
@echo.
::End of ISX_PACK
@ -513,19 +499,19 @@ if not defined MD5_COMMAND (
call :WARNING md5sum utility not found. Cannot generate md5 sums.
@goto :EOF
)
set FBBUILD_MD5SUMS_FILENAME=Firebird-%PRODUCT_VER_STRING%-%FBBUILD_PACKAGE_NUMBER%%FBBUILD_FILENAME_SUFFIX%-windows.md5sum
@echo Generating md5sums for %FBBUILD_MD5SUMS_FILENAME%
@set FBBUILD_MD5SUMS_FILENAME=Firebird-%PRODUCT_VER_STRING%-%FBBUILD_PACKAGE_NUMBER%%FBBUILD_FILENAME_SUFFIX%-windows.md5sum
@echo Generating md5sums for %FBBUILD_MD5SUMS_FILENAME%
:: write sums into temporary file to avoid including it into the process
pushd %FBBUILD_INSTALL_IMAGES%
call %MD5_COMMAND% Firebird-%PRODUCT_VER_STRING%-%FBBUILD_PACKAGE_NUMBER%*.* > md5sum.tmp
@pushd %FBBUILD_INSTALL_IMAGES%
@call %MD5_COMMAND% Firebird-%PRODUCT_VER_STRING%-%FBBUILD_PACKAGE_NUMBER%*.* > md5sum.tmp
:: then rename it to the proper name
if not ERRORLEVEL 1 (
@if not ERRORLEVEL 1 (
del %FBBUILD_MD5SUMS_FILENAME% >nul 2>nul
ren md5sum.tmp %FBBUILD_MD5SUMS_FILENAME%
) else (
(@echo Error calling %0 & popd & @goto :END)
echo Error calling %0 & popd & @goto :END
)
popd
@ -607,14 +593,14 @@ set ERRLEV=%ERRORLEVEL%
@echo **** WARNING - Execution of a non-critical component failed with error level %ERRLEV%. ****
@echo %*
@echo.
if "%FBBUILD_PROD_STATUS%"=="PROD" (
@echo.
@echo Production status is Final or Release Candidate
@echo Error %ERRLEV% must be fixed before continuing
@echo.
@if "%FBBUILD_PROD_STATUS%" == "PROD" (
echo.
echo Production status is Final or Release Candidate
echo Error %ERRLEV% must be fixed before continuing
echo.
) else (
set ERRLEV=
@ver > nul
set ERRLEV=
ver > nul
)
::End of WARNING
::--------------
@ -624,16 +610,16 @@ set ERRLEV=
:MAIN
::====
::Check if on-line help is required
for %%v in ( %1 %2 %3 %4 %5 %6 %7 %8 %9 ) do (
( @if /I "%%v"=="-h" (goto :HELP & goto :EOF) )
( @if /I "%%v"=="/h" (goto :HELP & goto :EOF) )
( @if /I "%%v"=="HELP" (goto :HELP & goto :EOF) )
@for %%v in ( %1 %2 %3 %4 %5 %6 %7 %8 %9 ) do (
if /I "%%v"=="-h" ( goto :HELP & goto :EOF )
if /I "%%v"=="/h" ( goto :HELP & goto :EOF )
if /I "%%v"=="HELP" ( goto :HELP & goto :EOF )
)
pushd ..\..\..\win32
::This must be called from the directory it resides in.
@call setenvvar.bat %*
@if ERRORLEVEL 1 (popd & (call :ERROR Failure after calling setenvvar.bat ) & goto :END )
@if ERRORLEVEL 1 ( popd & ( call :ERROR Failure after calling setenvvar.bat ) & goto :END )
popd
@if not defined FB2_ISS_DEBUG (set FB2_ISS_DEBUG=0)
@ -645,54 +631,54 @@ popd
@echo.
@echo Checking that all required components are available...
@(@call :CHECK_ENVIRONMENT ) || (@echo Error calling CHECK_ENVIRONMENT && @goto :END)
@(@call :CHECK_ENVIRONMENT ) || ( @echo Error calling CHECK_ENVIRONMENT && @goto :END )
@echo.
@echo Setting version number...
@(@call :SET_VERSION ) || (@echo Error calling SET_VERSION && @goto :END)
@(@call :SET_VERSION ) || (@echo Error calling SET_VERSION && @goto :END )
@echo.
@echo Copying additional files needed for installation, documentation etc.
@(@call :COPY_XTRA ) || (@echo Error calling COPY_XTRA && @goto :END )
@( @call :COPY_XTRA ) || ( @echo Error calling COPY_XTRA && @goto :END )
@echo.
:: WIX is not necessary for a snapshot build, so we don't throw
:: an error if WIX is not defined. On the other hand,
:: if it is there anyway, use it.
if defined WIX (
@echo Building MSI runtimes
@(@call :BUILD_CRT_MSI ) || (@echo Error calling BUILD_CRT_MSI && @goto :END)
@echo.
@if defined WIX (
echo Building MSI runtimes
( call :BUILD_CRT_MSI ) || ( echo Error calling BUILD_CRT_MSI & @goto :END )
echo.
)
@echo Prepare include directory
@(@call :INCLUDE_DIR ) || (@echo Error calling INCLUDE_DIR && @goto :END)
@( call :INCLUDE_DIR ) || ( @echo Error calling INCLUDE_DIR & @goto :END )
@echo.
@echo Writing databases conf
@(@call :DB_CONF ) || (@echo Error calling DB_CONF && @goto :END)
@(@call :DB_CONF ) || (@echo Error calling DB_CONF & @goto :END)
@echo.
@echo Copying firebird.msg
@(@call :FB_MSG ) || (@echo Error calling FB_MSG && @goto :END)
@(@call :FB_MSG ) || (@echo Error calling FB_MSG & @goto :END)
@echo.
@echo Fix up line endings...
@(@call :SET_CRLF ) || (@echo Error calling SET_CRLF && @goto :EOF)
@(@call :SET_CRLF ) || ( @echo Error calling SET_CRLF & @goto :EOF )
@echo.
if %FBBUILD_ZIP_PACK% EQU 1 (
@echo Zipping files for zip pack
@(@call :ZIP_PACK ) || (@echo Error calling ZIP_PACK && @goto :END)
@echo.
@if %FBBUILD_ZIP_PACK% EQU 1 (
@echo Zipping files for zip pack
(@call :ZIP_PACK ) || ( @echo Error calling ZIP_PACK & @goto :END )
@echo.
)
if %FBBUILD_ISX_PACK% EQU 1 (
@echo Now let's compile the InnoSetup scripts
@(@call :ISX_PACK ) || (@echo Error calling ISX_PACK && @goto :END)
@echo.
@if %FBBUILD_ISX_PACK% EQU 1 (
echo Now let's compile the InnoSetup scripts
( call :ISX_PACK ) || ( echo Error calling ISX_PACK & goto :END )
echo.
)
@(@call :DO_MD5SUMS ) || (@echo Error calling DO_MD5SUMS && @goto :END)
@( call :DO_MD5SUMS ) || ( echo Error calling DO_MD5SUMS & goto :END)
@echo.
@echo Completed building installation kit(s)
@ -702,7 +688,6 @@ if %FBBUILD_ISX_PACK% EQU 1 (
:: because run_all.bat will check for ERRLEV
@set ERRLEV=
::@if %FB2_ISS_DEBUG% equ 0 (ENDLOCAL)
::End of MAIN
::-----------
@goto :END

View File

@ -638,7 +638,7 @@ program Setup;
// Some global variables are also in FirebirdInstallEnvironmentChecks.inc
// This is not ideal, but then this scripting environment is not ideal, either.
// The basic point of the include files is to isolate chunks of code that are
// a) Form a module or have common functionality
// a) From a module or have common functionality
// b) Debugged.
// This hopefully keeps the main script simpler to follow.
@ -739,7 +739,7 @@ begin
exit;
end;
//By default we want to install and confugure,
//By default we want to install and configure,
//unless subsequent analysis suggests otherwise.
InstallAndConfigure := Install + Configure;
@ -877,26 +877,25 @@ begin
end;
function InitSecurityDB: Boolean;
var
AStringList: TStringList;
TempDir: String;
ResultCode: Integer;
CmdStr: string;
ResultCode: Integer;
CmdStr: string;
begin
TempDir := ExpandConstant( '{tmp}' );
CmdStr := ExpandConstant( '{app}\isql.exe' );
AStringList := TStringList.create;
with AStringList do begin
Add( 'create user ' + GetAdminUserName + ' password ''' + GetAdminUserPassword + ''' using plugin Srp;' );
Add( 'commit;' ); //Technically exit implies a commit so this not necessary. OTOH, explicitly committing makes for more readable code.
Add( 'exit;' );
SaveToFile( Tempdir +'\temp.sql' );
end;
Result := Exec( CmdStr , ' -m -m2 -user SYSDBA -i ' + TempDir + '\temp.sql -o ' + TempDir + '\temp.sql.txt employee ' , TempDir, SW_HIDE, ewWaitUntilTerminated, ResultCode );
DeleteFile( TempDir + +'\temp.sql ');
TempDir := ExpandConstant( '{tmp}' );
CmdStr := ExpandConstant( '{app}\isql.exe' );
AStringList := TStringList.create;
with AStringList do begin
Add( 'create user ' + GetAdminUserName + ' password ''' + GetAdminUserPassword + ''' using plugin Srp;' );
Add( 'commit;' ); //Technically exit implies a commit so this not necessary. OTOH, explicitly committing makes for more readable code.
Add( 'exit;' );
SaveToFile( Tempdir +'\temp.sql' );
end;
Result := Exec( CmdStr , ' -m -m2 -user SYSDBA -i ' + TempDir + '\temp.sql -o ' + TempDir + '\temp.sql.txt employee ' , TempDir, SW_HIDE, ewWaitUntilTerminated, ResultCode );
DeleteFile( TempDir + '\temp.sql');
DeleteFile( TempDir + '\temp.sql.txt');
end;
@ -980,16 +979,16 @@ begin
// These attempts to modify firebird.conf may not survice repeated installs.
if WizardIsTaskSelected('UseClassicServerTask') then
ReplaceLine(GetAppPath+'\firebird.conf','ServerMode = ','ServerMode = Classic','#');
if WizardIsTaskSelected('UseClassicServerTask') then
ReplaceLine(GetAppPath+'\firebird.conf','ServerMode = ','ServerMode = Classic','#');
if WizardIsTaskSelected('UseSuperClassicTask') then
ReplaceLine(GetAppPath+'\firebird.conf','ServerMode = ','ServerMode = SuperClassic','#');
ReplaceLine(GetAppPath+'\firebird.conf','ServerMode = ','ServerMode = SuperClassic','#');
if WizardIsTaskSelected('UseSuperServerTask') then
ReplaceLine(GetAppPath+'\firebird.conf','ServerMode = ','ServerMode = Super','#');
if WizardIsTaskSelected('UseSuperServerTask') then
ReplaceLine(GetAppPath+'\firebird.conf','ServerMode = ','ServerMode = Super','#');
end;
end;
end;
end;
@ -1012,16 +1011,16 @@ var
begin
//Do resize only once!
if wizardform.height = initWizardHeight then begin
AHeight := HEIGHT_INCREASE;
AWidth := WIDTH_INCREASE;
AHeight := HEIGHT_INCREASE;
AWidth := WIDTH_INCREASE;
if not Increase then begin
AHeight := (AHeight * (-1));
AWidth := (AWidth * (-1));
end;
if not Increase then begin
AHeight := (AHeight * (-1));
AWidth := (AWidth * (-1));
end;
SetupWizardFormComponentsArrays;
ResizeWizardFormHeight(AHeight);
SetupWizardFormComponentsArrays;
ResizeWizardFormHeight(AHeight);
// ResizeWizardFormWidth(AWidth);
end;
end;
@ -1045,9 +1044,8 @@ var
AppStr: String;
ReadMeFileStr: String;
begin
case CurStep of
case CurStep of
ssInstall: begin
// RenamePreFB3RC1Files;
SetupSharedFilesArray;
GetSharedLibCountBeforeCopy;
end;
@ -1106,7 +1104,7 @@ end;
// # FIXME - we can probably remove this function
function ChooseUninstallIcon(Default: String): String;
begin
result := GetAppPath+'\firebird.exe';
result := GetAppPath+'\firebird.exe';
end;
//InnoSetup has a Check Parameter that allows installation if the function returns true.
@ -1229,12 +1227,12 @@ end;
function NextButtonClick(CurPageID: Integer): Boolean;
var
i: integer;
i: integer;
begin
Result := True;
case CurPageID of
AdminUserPage.ID : begin
{ check user has entered new sysdba password correctly. }
{ check user has entered new sysdba password correctly. }
i := CompareStr(AdminUserPage.Values[0],AdminUserPage.Values[1]);
If not (i = 0) then begin
Result := False;
@ -1248,3 +1246,4 @@ end;
begin
end.

View File

@ -387,11 +387,9 @@ var
product: Integer;
gds32VersionString: String;
VerInt: Array of Integer;
// BoolOne, BoolTwo, BoolEval: Boolean;
// EvalOne, EvalTwo: Integer;
dbg_ProductPath, dbg_BinPath, dbg_ClientVersion, dbg_GBAKVersion, dbg_Server: String;
dbg_InstallType : Integer;
// eval_bool: boolean;
begin
@ -1181,23 +1179,6 @@ begin
end;
{ procedure RenamePreFB3RC1Files;
//The method of specifying the architecture used changed after Beta 2
//Detect this old config and rename it.
var
FirebirdConfStr: AnsiString;
begin
if FileExists(GetAppPath+'\firebird.conf') then begin
LoadStringFromFile( GetAppPath+'\firebird.conf', FirebirdConfStr );
if pos('SharedDatabase', FirebirdConfStr) > 0 then begin
RenameFile(GetAppPath+'\firebird.conf', GetAppPath+'\firebird.conf.preRC1');
RenameFile(GetAppPath+'\security5.fdb', GetAppPath+'\security5.fdb.preRC1');
end
end
end;
}
function ConfigureAuthentication: boolean;
begin
if IsNotServerInstall then

View File

@ -30,11 +30,11 @@
o EnumerateObjectList;
- Simple demonstration of object enumeration.
o Show Help
o Show Help
- CreateHelpDlg;
- ShowHelpDlg: Integer;
- CloseHelpDlg;
o Show some debug info for debugging inno setup script
- CreateDebugDlg
- CloseDebugDlg;
@ -49,9 +49,9 @@ var
CompGroupButtonsArray: array of string;
CompGroup1, CompGroup2, CompGroup3, CompGroupButtons: TStringList;
// This is a non-exhaustive list of components that need to be repositioned
// and/or resized if the form size is changed. Use EnumerateObjectList to
// get a full list of components.
// This is a non-exhaustive list of components that need to be repositioned
// and/or resized if the form size is changed. Use EnumerateObjectList to
// get a full list of components.
procedure SetupWizardFormComponentsArrays;
var
i: integer;
@ -85,12 +85,12 @@ begin
CompGroup1Array[23]:='OuterNotebook';
CompGroup1 := TStringList.create;
for i := 0 to GetArrayLength( CompGroup1Array )-1 do begin
CompGroup1.add( CompGroup1Array[i] );
CompGroup1.add( CompGroup1Array[i] );
CompGroup1.objects[i] := (WizardForm.FindComponent(CompGroup1Array[i]));
end;
SetArrayLength(CompGroup2Array,8);
CompGroup2Array[0] := 'Bevel';
CompGroup2Array[1] := 'BeveledLabel';
@ -103,7 +103,7 @@ begin
CompGroup2 := TStringList.create;
for i := 0 to GetArrayLength( CompGroup2Array )-1 do begin
CompGroup2.add(CompGroup2Array[i]);
CompGroup2.add(CompGroup2Array[i]);
CompGroup2.objects[i] := (WizardForm.FindComponent(CompGroup2Array[i]));
end;
@ -111,7 +111,7 @@ begin
CompGroup3Array[0] := 'WizardBitmapImage';
CompGroup3 := TStringList.create;
for i:=0 to GetArrayLength(CompGroup3Array)-1 do begin
CompGroup3.add(CompGroup3Array[i]);
CompGroup3.add(CompGroup3Array[i]);
CompGroup3.objects[i] := (WizardForm.FindComponent(CompGroup3Array[i]));
end;
@ -121,12 +121,12 @@ begin
CompGroupButtonsArray[2] := 'CancelButton';
CompGroupButtons := TStringList.create;
for i:=0 to GetArrayLength(CompGroupButtonsArray)-1 do begin
CompGroupButtons.add(CompGroupButtonsArray[i]);
CompGroupButtons.add(CompGroupButtonsArray[i]);
CompGroupButtons.objects[i] := (WizardForm.FindComponent(CompGroupButtonsArray[i]));
end;
end;
procedure ResizeWizardFormHeight(AValue: Integer);
var
i: integer;
@ -145,11 +145,11 @@ begin
// Group 3 - reset top of components but keep 'centered' vertically.
for i:=0 to GetArrayLength(CompGroup3Array)-1 do
TControl( CompGroup3.objects[i]).top := TControl(CompGroup3.objects[i]).top + (AValue div 2);
// Group Buttons - reset top of components
// Group Buttons - reset top of components
for i:=0 to GetArrayLength(CompGroupButtonsArray)-1 do
TControl(CompGroupButtons.objects[i]).top := TControl(CompGroupButtons.objects[i]).top + AValue;
end;
@ -160,7 +160,7 @@ var
begin
wizardform.width := wizardform.width + AValue;
wizardform.left := wizardform.left - (AValue div 2);
// Group 1 - reset width of components
for i:=0 to GetArrayLength(CompGroup1Array)-1 do begin
TControl(CompGroup1.objects[i]).width := TControl(CompGroup1.objects[i]).width + Avalue;
@ -291,9 +291,9 @@ end;
// Add a simple debug dialogue
var
var
DebugDlg: TForm;
procedure CreateDebugDlg(aString: String; ADescription: String);
var
DebugText: TMemo;
@ -328,8 +328,8 @@ begin
DebugDlg.ActiveControl := OKButton;
end;
procedure CloseDebugDlg;
begin
with DebugDlg do begin

View File

@ -14,14 +14,15 @@ General notes on preparing a scripted install
---------------------------------------------
These notes only document the firebird specific options for a scripted
installation. Developers should refer to the full InnoSetup documentation
for a description of the other options available for a scripted install.
installation. Developers should refer to the full InnoSetup documentation
for a description of the other options available for a scripted install.
This can be found here:
http://www.jrsoftware.org/ishelp/
It is highly recommended that a scripted install is tested thoroughly
before deployment. The easiest way to test is to run the script without
the /SILENT parameter. This will present a standard installer with the
It is highly recommended that a scripted install is tested thoroughly
before deployment. The easiest way to test is to run the script without
the /SILENT parameter. This will present a standard installer with the
scripted options preselected.
NOTE that the /TASKS parameter clears all the default task settings. If
@ -44,7 +45,7 @@ HELP
Setup parameters specific to the Firebird Uninstaller
/CLEAN
For general parameters available to all InnoSetup based installers see the
For general parameters available to all InnoSetup based installers see the
documentation for innosetup. A summary is available via /? or /HELP
@ -53,10 +54,10 @@ Parameters specific to Firebird installs
HELP
Invoke this file as a help screen at installation time.
Note no / is prefixed !! Because /? and /HELP are now
used by innosetup itself to dispaly innosetup specific help.
Note no / is prefixed !! Because /? and /HELP are now
used by innosetup itself to display innosetup specific help.
/COMPONENTS="comma separated list of component names"
Choose from - ServerComponent,
@ -67,31 +68,31 @@ HELP
parameter causes Setup to automatically select a custom type. A full
install requires combining components. For example:
/COMPONENTS="ClientComponent"
/COMPONENTS="ClientComponent"
would be required for a client only install.
NOTE - If a full server instal is required there is no need to
NOTE - If a full server install is required there is no need to
specify /COMPONENTS. All three are chosen by default.
/TASKS="comma separated list of task names"
Specifies a list of tasks that should be initially selected or
deselected. To deselect a task, prefix its name with a "!" character.
Choose from - UseSuperServerTask
Choose from - UseSuperServerTask
UseSuperServerTask\UseGuardianTask (optional)
or
UseSuperClassicTask
or
UseSuperClassicTask
UseSuperClassicTask\UseGuardianTask (optional)
or
UseClassicServerTask
UseApplicationTask
or
UseApplicationTask
or
UseServiceTask
AutoStartTask
CopyFbClientToSysTask
CopyFbClientAsGds32Task
@ -103,7 +104,8 @@ HELP
By default the following tasks are run:
UseSuperServerTask,UseServiceTask,AutoStartTask,CopyFbClientToSysTask
UseSuperServerTask,UseServiceTask,AutoStartTask,CopyFbClientToSysTask
/MERGETASKS="comma separated list of task names"
@ -118,8 +120,8 @@ HELP
/SYSDBAPASSWORD="mypassword"
If supplied this will override the default SYSDBA password "masterkey".
NOTE: If an existing Security database is found this parameter will be
NOTE: If an existing Security database is found this parameter will be
ignored.
@ -134,8 +136,8 @@ HELP
users by breaking a perfectly good working install of Firebird or InterBase.
Its your choice.
Parameters specific to Firebird uninstalls
------------------------------------------
@ -159,26 +161,26 @@ Parameters specific to Firebird uninstalls
Examples
--------
These examples are just for firebird related options. In practice you
they will probably be combined with options such as /SILENT, /LOG,
These examples are just for firebird related options. In practice you
they will probably be combined with options such as /SILENT, /LOG,
/RESTARTEXITCODE etc.
1/ Full server install of super server architecture
o Change SYSDBA password from default masterkey,
o Change SYSDBA password from default masterkey,
o deploy gds32 to <SYS>
/MERGETASKS="CopyFbClientAsGds32Task" /SYSDBAPASSWORD="mypassword"
2/ Deploy Classic Server and keep other default tasks
/MERGETASKS="UseClassicServerTask"
/MERGETASKS="UseClassicServerTask"
3/ Really mess things up by accidentally deselecting the defaults and
3/ Really mess things up by accidentally deselecting the defaults and
letting InnoSetup guess:
/TASKS="CopyFbClientAsGds32Task"
/TASKS="CopyFbClientAsGds32Task"
Be careful when using the /TASKS parameter !