nojhan/paradiseo
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

added cmake lookup pages + i18n msgs + ctest/dart special error management

Browse source 
git-svn-id: svn://scm.gforge.inria.fr/svnroot/paradiseo@997 331e1502-861f-0410-8da2-ba01fb791d7f
This commit is contained in:
legrand 2008-02-21 16:55:08 +00:00
commit 298e8aa106
1 changed files with 303 additions and 88 deletions
Download patch file Download diff file Expand all files Collapse all files

383
utilities/trunk/windows/paradiseo_installer_script.iss
View file

@ -1,9 +1,14 @@
; ParadisEO install script ; ParadisEO install script
; Author: Thomas Legrand ; Author: Thomas Legrand
#define generatorWizardPageIndex= 7 #define cmakeLookupWizardPageIndex= 8
#define generatorWizardPageIndex= 8
#define buildModeWizardPageIndex= 9
#define launchBuildWizardPageIndex= 12 #define launchBuildWizardPageIndex= 12
#define ctestMemCheckDummyError= 16
#define dartSubmissionError= 64
//***************************************************************************************// //***************************************************************************************//
//********** ParadisEO Specific strategy - The rest of the code is generic ************* // //********** ParadisEO Specific strategy - The rest of the code is generic ************* //
//***************************************************************************************// //***************************************************************************************//
@ -12,13 +17,15 @@
#define OutputPath="E:\software\paradisEO\windows installer\compiler output" #define OutputPath="E:\software\paradisEO\windows installer\compiler output"
// installer source info // installer source info
#define ParadiseoSourceTag="E:\software\paradisEO\repository\tags\paradiseo-ix86-1.0\*" //#define ParadiseoSourceTag="E:\software\paradisEO\repository\tags\paradiseo-ix86-1.0\*"
#define EoTag="E:\software\eo\repository\tag_v_peo_1_0\*" //#define EoTag="E:\software\eo\repository\tag_v_peo_1_0\*"
#define ParadiseoSourceTag="E:\software\paradisEO\repository\trunk\*"
#define EoTag="E:\software\eo\repository\eo-ROOT\*"
// installer description info // installer description info
#define Version="1.0" #define Version="1.1"
#define VersionMain="ParadisEO-ix86-1.0" #define VersionMain="ParadisEO-ix86-1.1"
#define InstallerName="paradiseo-1.0-win32-preinstaller" #define InstallerName="paradiseo-1.1-win32-preinstaller"
#define ApplicationName="ParadisEO" #define ApplicationName="ParadisEO"
#define SetupIconPath="E:\software\paradisEO\repository\utilities\trunk\windows\img\paradiseo.ico" #define SetupIconPath="E:\software\paradisEO\repository\utilities\trunk\windows\img\paradiseo.ico"
#define WizardMainImage="E:\software\paradisEO\repository\utilities\trunk\windows\img\paradiseo.bmp" #define WizardMainImage="E:\software\paradisEO\repository\utilities\trunk\windows\img\paradiseo.bmp"
@ -73,19 +80,35 @@ english.EoDescription=EO: Evolving Objects: Library for evolutionnary computatio
english.MoDescription=MO: Moving Objects: Single based metaheuristics computation english.MoDescription=MO: Moving Objects: Single based metaheuristics computation
english.MoeoDescription=MOEO: Multi Objective Evolving Objects english.MoeoDescription=MOEO: Multi Objective Evolving Objects
english.ErrorOccured=An error has occured english.ErrorOccured=An error has occured
english.LaunchingBuildProcess=Launching CMake build process... english.LaunchingBuildProcess=Launching CMake build process and the compilation...
english.LaunchingEOBuildProcess=Configuring ParadisEO-EO...
english.LaunchingMOBuildProcess=Configuring ParadisEO-MO...
english.LaunchingMOEOBuildProcess=Configuring ParadisEO-MOEO...
english.LaunchingEOCompilation=Compiling ParadisEO-EO...
english.LaunchingMOCompilation=Compiling ParadisEO-MO...
english.LaunchingMOEOCompilation=Compiling ParadisEO-MOEO...
english.error=Error english.error=Error
english.ErrorAbort=Error,abort. english.ErrorAbort=Error,abort.
english.CannotCompleteInstall=Impossible to complete the install of english.CannotCompleteInstall=Impossible to complete the install of
english.BPFinished=Finished english.BPFinished=Finished
english.BPSuccessfull=The build process has been successfully performed. english.BPSuccessfull=The build process has been successfully performed.
english.SelectCompiler=Select the program you want to use to compile: english.SelectCompiler=Select the program you want to use to compile:
english.ChooseGenerator=ParadisEO can be compiled using several generators. english.ChooseGeneratorTitle=ParadisEO compilation
english.GenCMakeFiles=Generate CMake configuration files english.ChooseGeneratorSubtitle=Compiler selection
english.BuildProcess= english.GenCMakeFiles=CMake configuration
english.NextGenCaption=Click on the 'Next' button to launch the build process and generate the configuration files english.BuildProcess=CMake configuration files generation and compilation
english.ProcessingCMake=Generating the configuration files... english.NextGenCaption=Click on the 'Next' button to launch CMake and compile ...
english.DolphinMsg=ParadisEO: An INRIA Dolphin Team project - 2007 english.ProcessingCMake=Configuration and compilation
english.DolphinMsg=ParadisEO: An INRIA Dolphin Team project - Program developped by Thomas Legrand
english.BuildMode=Build and compilation mode.
english.SelectBuildMode=Please select the build and compilation mode:
english.Recommended=(recommended)
english.AcceptSendReport=I agree that the installation report will be sent to the DOLPHIN Team.
english.NoInfoSend1=Neither personal information nor data refering your computer will be sent.
english.NoInfoSend2=I could get a personalized and adapted support.
english.PathToCMakeTitle=Path to CMake
english.PathToCMakeSubTitle=CMake has not been found by the assistant. Please select the directory when CMake is installed on your computer
english.CMakeNotFound=The CMake binaries cannot be found in this directory
french.CMakeMissing=CMake n'a pas été détecté sur votre ordinateur. CMake doit être installé pour utiliser ParadisEO. french.CMakeMissing=CMake n'a pas été détecté sur votre ordinateur. CMake doit être installé pour utiliser ParadisEO.
french.FullInstall=Installation complète french.FullInstall=Installation complète
@ -94,19 +117,35 @@ french.EoDescription= EO: Evolving Objects: Librairie d
french.MoDescription= MO: Moving Objects: Métaheuristiques à base de solutions uniques french.MoDescription= MO: Moving Objects: Métaheuristiques à base de solutions uniques
french.MoeoDescription= MOEO: Multi Objective Evolving Objects: Module multi-objectif french.MoeoDescription= MOEO: Multi Objective Evolving Objects: Module multi-objectif
french.ErrorOccured=Une erreur est survenue french.ErrorOccured=Une erreur est survenue
french.LaunchingBuildProcess=Construction des fichiers de configuration (build process)... french.LaunchingBuildProcess=Construction des fichiers de configuration...
french.LaunchingEOBuildProcess=Configuration de ParadisEO-EO...
french.LaunchingMOBuildProcess=Configuration de ParadisEO-MO...
french.LaunchingMOEOBuildProcess=Configuration de ParadisEO-MOEO...
french.LaunchingEOCompilation=Compilation de ParadisEO-EO...
french.LaunchingMOCompilation=Compilation de ParadisEO-MO...
french.LaunchingMOEOCompilation=Compilation de ParadisEO-MOEO..
french.error=Erreur french.error=Erreur
french.ErrorAbort=Une erreur est survenue, installation annulée. french.ErrorAbort=Une erreur est survenue, installation annulée.
french.CannotCompleteInstall=Impossible de terminer l'installation de french.CannotCompleteInstall=Impossible de terminer l'installation de
french.BPFinished=Fin de la construction des fichiers de configuration french.BPFinished=Fin de la construction des fichiers de configuration
french.BPSuccessfull=Succès. french.BPSuccessfull=Succès.
french.SelectCompiler=Sélectionnez le programme que vous souhaitez utiliser pour compiler: french.SelectCompiler=Sélectionnez le programme que vous souhaitez utiliser pour compiler:
french.ChooseGenerator=ParadisEO peut être compiler par plusieurs programmes. french.ChooseGeneratorTitle=Compilation de ParadisEO
french.GenCMakeFiles=Générer les fichiers de configuration CMake french.ChooseGeneratorSubtitle=Selection du compilateur à utiliser
french.BuildProcess= french.GenCMakeFiles=Configuration CMake
french.NextGenCaption=Cliquez sur le bouton 'Suivant' pour lancer CMake et générer les fichiers de configuration french.BuildProcess=Génération des fichiers de configuration CMake et compilation
french.ProcessingCMake=Génération des fichiers de configuration en cours... french.NextGenCaption=Cliquez sur le bouton 'Suivant' pour lancer CMake et compiler ...
french.DolphinMsg=ParadisEO: Un projet de l'équipe INRIA Dolphin - 2007 french.ProcessingCMake=Configuration et compilation
french.DolphinMsg=ParadisEO: Un projet de l'équipe INRIA Dolphin - Programme réalisé par Thomas Legrand
french.BuildMode=Choix du mode de compilation.
french.SelectBuildMode=Veuillez sélectionner le type de compilation :
french.Recommended=(recommandé)
french.AcceptSendReport=Je souhaite que le rapport d'installation soit envoyé à l'équipe DOLPHIN.
french.NoInfoSend1=Aucune information personnelle ou liée à mon poste de travail ne sera transmise.
french.NoInfoSend2=Je pourrais bénéficier d'un support personnalisé et adapté.
french.PathToCMakeTitle=Chemin vers CMake
french.PathToCMakeSubTitle=CMake n'a pas été trouvé par l'assistant. Veuillez sélectionner le répertoire d'installation de CMake sur votre ordinateur
french.CMakeNotFound=Les exécutables CMake sont introuvables dans ce répertoire
[Types] [Types]
Name: "custom"; Description: {cm:CustomInstall}; Flags: iscustom Name: "custom"; Description: {cm:CustomInstall}; Flags: iscustom
@ -122,23 +161,32 @@ Source: {#ParadiseoSourceTag}; DestDir: "{app}"; Excludes: {#SkipParadiseoFiles}
Source: {#EoTag}; DestDir: "{app}"; Excludes: "*.~*" ; Flags: ignoreversion recursesubdirs createallsubdirs Source: {#EoTag}; DestDir: "{app}"; Excludes: "*.~*" ; Flags: ignoreversion recursesubdirs createallsubdirs
; SPECIFIC CORRECTION - EO TAG NOT MODIFIED, USED TRUNK SOURCES ; SPECIFIC CORRECTION - EO TAG NOT MODIFIED, USED TRUNK SOURCES
Source: E:\software\eo\repository\paradiseo-eo\CMakeLists.txt ; DestDir: "{app}\paradiseo-eo"; Excludes: "*.~*" ; Flags: ignoreversion recursesubdirs createallsubdirs Source: E:\software\eo\repository\eo-ROOT\paradiseo-eo\CMakeLists.txt ; DestDir: "{app}\paradiseo-eo"; Excludes: "*.~*" ; Flags: ignoreversion recursesubdirs createallsubdirs
Source: E:\software\eo\repository\paradiseo-eo\src\utils\pipecom.h; DestDir: "{app}\paradiseo-eo\src\utils"; Excludes: "*.~*" ; Flags: ignoreversion recursesubdirs createallsubdirs Source: E:\software\eo\repository\eo-ROOT\paradiseo-eo\src\utils\pipecom.h; DestDir: "{app}\paradiseo-eo\src\utils"; Excludes: "*.~*" ; Flags: ignoreversion recursesubdirs createallsubdirs
Source: E:\software\eo\repository\paradiseo-eo\src\utils\pipecom.cpp; DestDir: "{app}\paradiseo-eo\src\utils"; Excludes: "*.~*" ; Flags: ignoreversion recursesubdirs createallsubdirs Source: E:\software\eo\repository\eo-ROOT\paradiseo-eo\src\utils\pipecom.cpp; DestDir: "{app}\paradiseo-eo\src\utils"; Excludes: "*.~*" ; Flags: ignoreversion recursesubdirs createallsubdirs
Source: E:\software\eo\repository\paradiseo-eo\src\eoCtrlCContinue.h; DestDir: "{app}\paradiseo-eo\src"; Excludes: "*.~*" ; Flags: ignoreversion recursesubdirs createallsubdirs Source: E:\software\eo\repository\eo-ROOT\paradiseo-eo\src\eoCtrlCContinue.h; DestDir: "{app}\paradiseo-eo\src"; Excludes: "*.~*" ; Flags: ignoreversion recursesubdirs createallsubdirs
Source: E:\software\eo\repository\paradiseo-eo\src\eoCtrlCContinue.cpp; DestDir: "{app}\paradiseo-eo\src"; Excludes: "*.~*" ; Flags: ignoreversion recursesubdirs createallsubdirs Source: E:\software\eo\repository\eo-ROOT\paradiseo-eo\src\eoCtrlCContinue.cpp; DestDir: "{app}\paradiseo-eo\src"; Excludes: "*.~*" ; Flags: ignoreversion recursesubdirs createallsubdirs
[Code] [Code]
var var
GeneratorPage: TWizardPage; GeneratorPage: TWizardPage;
BuildModePage: TWizardPage;
BuildProcessPage: TWizardPage; BuildProcessPage: TWizardPage;
CMakeLookupPage: TWizardPage;
ProgressPage: TOutputProgressWizardPage; ProgressPage: TOutputProgressWizardPage;
GeneratorBox: TNewCheckListBox; GeneratorBox: TNewCheckListBox;
BuildModeBox: TNewCheckListBox;
SendReportBox: TCheckBox;
Generator: String; Generator: String;
CTestConfig: String;
CMakeBinDir: String;
ProgressBarLabel: TLabel; ProgressBarLabel: TLabel;
ProgressBar: TNewProgressBar; ProgressBar: TNewProgressBar;
FolderTreeView: TFolderTreeView;
ConfigBitmapImage: TBitmapImage;
BitmapFileName: String;
CMakeAdditionalTags: String;
procedure SetCmakeGenerator(); procedure SetCmakeGenerator();
begin begin
@ -195,28 +243,61 @@ begin
end; end;
function isError(ErrorCode: Integer): Boolean; procedure SetCTestConfig();
var
MinConfig: String;
begin
MinConfig:=' -D ExperimentalStart -D ExperimentalBuild' ;
if BuildModeBox.Checked[1] then
begin
CTestConfig:= MinConfig;
CMakeAdditionalTags:= ' -DENABLE_CMAKE_TESTING=FALSE ';
exit;
end;
if BuildModeBox.Checked[2] then
begin
CTestConfig:=MinConfig + ' -D ExperimentalTest -D ExperimentalCoverage -D ExperimentalMemCheck' ;
CMakeAdditionalTags:= ' -DENABLE_CMAKE_TESTING=TRUE ';
exit;
end;
if SendReportBox.Checked then
begin
CTestConfig:=CTestConfig + ' -D ExperimentalSubmit' ;
exit;
end;
end;
function isError(ErrorCode: Integer; PrintMsgBox: Boolean): Boolean;
begin begin
if not (ErrorCode = 0) then if not (ErrorCode = 0) then
begin begin
MsgBox(CustomMessage('ErrorOccured') + ': [code='+ IntToStr(ErrorCode) + ']' , mbCriticalError, mb_Ok); if(ErrorCode = {#ctestMemCheckDummyError}) then begin
Result:= false;
exit;
end;
if(ErrorCode = {#dartSubmissionError}) then begin
Result:= false;
exit;
end;
if(PrintMsgBox) then begin
MsgBox(CustomMessage('ErrorOccured') + ': [code='+ IntToStr(ErrorCode) + ']' , mbCriticalError, mb_Ok);
end;
Result:= true; Result:= true;
end else begin end else begin
Result:= false; Result:= false;
end; end;
end; end;
function checkCMakeAvailable(): Integer; function checkCMakeAvailable(Path: String): Integer;
var var
ErrorCode: Integer; ErrorCode: Integer;
FilePath: String;
begin begin
// Need the app path
FilePath := ExpandConstant('{app}');
// launch CMake for MOEO // launch CMake for MOEO
ShellExec('open', 'cmake.exe','','', SW_SHOWNORMAL, ewWaitUntilTerminated, ErrorCode); ShellExec('open', Path + 'cmake.exe','','', SW_SHOWNORMAL, ewWaitUntilTerminated, ErrorCode);
Result:= ErrorCode; Result:= ErrorCode;
end; end;
@ -230,11 +311,24 @@ begin
FilePath := ExpandConstant('{app}'); FilePath := ExpandConstant('{app}');
// launch CMake for EO // launch CMake for EO
ShellExec('open', 'cmake.exe', ' ..\' + ' -G"' + Generator + '"', FilePath +'\paradiseo-eo\build', SW_SHOWNORMAL, ewWaitUntilTerminated, ErrorCode); ShellExec('open', CMakeBinDir + 'cmake.exe', ' ..\' + ' -G"' + Generator + '"' + CMakeAdditionalTags, FilePath +'\paradiseo-eo\build', SW_SHOWNORMAL, ewWaitUntilTerminated, ErrorCode);
Result:= ErrorCode; Result:= ErrorCode;
end; end;
function LaunchEOCompilation():Integer;
var
ErrorCode: Integer;
FilePath: String;
begin
// Need the app path
FilePath := ExpandConstant('{app}');
// launch CTest for EO
ShellExec('open', CMakeBinDir + 'ctest.exe',CTestConfig, FilePath +'\paradiseo-eo\build', SW_SHOWNORMAL, ewWaitUntilTerminated, ErrorCode);
Result:= ErrorCode;
end;
function LaunchMOBuildProcess(): Integer; function LaunchMOBuildProcess(): Integer;
var var
@ -244,8 +338,23 @@ begin
// Need the app path // Need the app path
FilePath := ExpandConstant('{app}'); FilePath := ExpandConstant('{app}');
// launch CMake for MOEO // launch CMake for MO
ShellExec('open', 'cmake.exe', ' ..\' + ' -G"' + Generator + '" -Dconfig="'+FilePath + '\install.cmake"', FilePath +'\paradiseo-mo\build', SW_SHOWNORMAL, ewWaitUntilTerminated, ErrorCode); ShellExec('open', CMakeBinDir + 'cmake.exe', ' ..\' + ' -G"' + Generator + '" -Dconfig="'+FilePath + '\install.cmake"' + CMakeAdditionalTags, FilePath +'\paradiseo-mo\build', SW_SHOWNORMAL, ewWaitUntilTerminated, ErrorCode);
Result:= ErrorCode;
end;
function LaunchMOCompilation():Integer;
var
ErrorCode: Integer;
FilePath: String;
begin
// Need the app path
FilePath := ExpandConstant('{app}');
// launch CTest for MO
ShellExec('open', CMakeBinDir + 'ctest.exe',CTestConfig, FilePath +'\paradiseo-mo\build', SW_SHOWNORMAL, ewWaitUntilTerminated, ErrorCode);
Result:= ErrorCode; Result:= ErrorCode;
end; end;
@ -260,12 +369,26 @@ begin
FilePath := ExpandConstant('{app}'); FilePath := ExpandConstant('{app}');
// launch CMake for MOEO // launch CMake for MOEO
ShellExec('open', 'cmake.exe', ' ..\' + ' -G"' + Generator + '" -Dconfig="'+FilePath + '\install.cmake"', FilePath +'\paradiseo-moeo\build', SW_SHOWNORMAL, ewWaitUntilTerminated, ErrorCode); ShellExec('open', CMakeBinDir + 'cmake.exe', ' ..\' + ' -G"' + Generator + '" -Dconfig="'+FilePath + '\install.cmake"' + CMakeAdditionalTags, FilePath +'\paradiseo-moeo\build', SW_SHOWNORMAL, ewWaitUntilTerminated, ErrorCode);
Result:= ErrorCode; Result:= ErrorCode;
end; end;
function LaunchMOEOCompilation():Integer;
var
ErrorCode: Integer;
FilePath: String;
begin
// Need the app path
FilePath := ExpandConstant('{app}');
// launch CTest for MOEO
ShellExec('open', CMakeBinDir + 'ctest.exe',CTestConfig, FilePath +'\paradiseo-moeo\build', SW_SHOWNORMAL, ewWaitUntilTerminated, ErrorCode);
Result:= ErrorCode;
end;
procedure updateProgressBar(StartFrom: Integer;ProgressPurcentage: Integer); procedure updateProgressBar(StartFrom: Integer;ProgressPurcentage: Integer);
var var
@ -281,29 +404,21 @@ begin
end; end;
procedure CurStepChanged(CurStep: TSetupStep);
begin
if CurStep = ssInstall then begin
if (isError(checkCMakeAvailable())) then begin
MsgBox(CustomMessage('CMakeMissing'), mbCriticalError, mb_Ok);
Abort;
end;
end;
end;
function NextButtonClick(CurPageID: Integer): Boolean; function NextButtonClick(CurPageID: Integer): Boolean;
var
I: Integer;
begin begin
if (CurPageID = BuildProcessPage.ID) then begin
if (CurPageID = BuildProcessPage.ID) then
begin
ProgressPage.SetText('',CustomMessage('LaunchingBuildProcess')); ProgressPage.SetText('',CustomMessage('LaunchingBuildProcess'));
updateProgressBar(0,0); updateProgressBar(0,0);
ProgressPage.Show; ProgressPage.Show;
SetCmakeGenerator(); SetCmakeGenerator();
SetCTestConfig();
updateProgressBar(0,5); updateProgressBar(0,5);
//***************** EO *************************
if (isError(launchEOBuildProcess())) then ProgressPage.SetText('',CustomMessage('LaunchingEOBuildProcess'));
if (isError(launchEOBuildProcess(),true)) then
begin begin
ProgressPage.SetText(CustomMessage('Error'), CustomMessage('ErrorAbort')); ProgressPage.SetText(CustomMessage('Error'), CustomMessage('ErrorAbort'));
MsgBox(CustomMessage('CannotCompleteInstall')+' ParadisEO-EO' , mbCriticalError, mb_Ok); MsgBox(CustomMessage('CannotCompleteInstall')+' ParadisEO-EO' , mbCriticalError, mb_Ok);
@ -311,49 +426,110 @@ begin
Result := True; Result := True;
exit; exit;
end; end;
updateProgressBar(5,50); updateProgressBar(5,20);
if IsComponentSelected('mo') then ProgressPage.SetText('',CustomMessage('LaunchingEOCompilation'));
begin if (isError(LaunchEOCompilation(),true)) then
if (isError(launchMOBuildProcess())) then
begin begin
ProgressPage.SetText(CustomMessage('Error'), CustomMessage('ErrorAbort')); ProgressPage.SetText(CustomMessage('Error'), CustomMessage('ErrorAbort'));
MsgBox(CustomMessage('CannotCompleteInstall')+' ParadisEO-MO' , mbCriticalError, mb_Ok); MsgBox(CustomMessage('CannotCompleteInstall')+' ParadisEO-EO' , mbCriticalError, mb_Ok);
ProgressPage.Hide; ProgressPage.Hide;
Result := True; Result := True;
exit; exit;
end; end;
end; updateProgressBar(20,50);
updateProgressBar(50,80);
if IsComponentSelected('moeo') then
begin //***************** MO *************************
if (isError(launchMOEOBuildProcess())) then if IsComponentSelected('mo') then
begin begin
ProgressPage.SetText(CustomMessage('Error'), CustomMessage('ErrorAbort')); ProgressPage.SetText('',CustomMessage('LaunchingMOBuildProcess'));
MsgBox(CustomMessage('CannotCompleteInstall')+' ParadisEO-MOEO' , mbCriticalError, mb_Ok); if (isError(launchMOBuildProcess(),true)) then
ProgressPage.Hide; begin
Result := True; ProgressPage.SetText(CustomMessage('Error'), CustomMessage('ErrorAbort'));
exit; MsgBox(CustomMessage('CannotCompleteInstall')+' ParadisEO-MO' , mbCriticalError, mb_Ok);
end; ProgressPage.Hide;
end; Result := True;
updateProgressBar(80,100); exit;
end;
updateProgressBar(50,60);
ProgressPage.SetText(CustomMessage('BPFinished'), CustomMessage('BPSuccessfull')); ProgressPage.SetText('',CustomMessage('LaunchingMOCompilation'));
sleep(2000); if (isError(LaunchMOCompilation(),true)) then
ProgressPage.Hide; begin
ProgressPage.SetText(CustomMessage('Error'), CustomMessage('ErrorAbort'));
MsgBox(CustomMessage('CannotCompleteInstall')+' ParadisEO-MO' , mbCriticalError, mb_Ok);
ProgressPage.Hide;
Result := True;
exit;
end;
updateProgressBar(60,80);
end else
updateProgressBar(50,60);
//***************** MOEO *************************
if IsComponentSelected('moeo') then
begin
ProgressPage.SetText('',CustomMessage('LaunchingMOEOBuildProcess'));
if (isError(launchMOEOBuildProcess(),true)) then
begin
ProgressPage.SetText(CustomMessage('Error'), CustomMessage('ErrorAbort'));
MsgBox(CustomMessage('CannotCompleteInstall')+' ParadisEO-MOEO' , mbCriticalError, mb_Ok);
ProgressPage.Hide;
Result := True;
exit;
end;
updateProgressBar(60,75);
ProgressPage.SetText('',CustomMessage('LaunchingMOEOCompilation'));
if (isError(LaunchMOEOCompilation(),true)) then
begin
ProgressPage.SetText(CustomMessage('Error'), CustomMessage('ErrorAbort'));
MsgBox(CustomMessage('CannotCompleteInstall')+' ParadisEO-MOEO' , mbCriticalError, mb_Ok);
ProgressPage.Hide;
Result := True;
exit;
end;
updateProgressBar(75,100);
end else
updateProgressBar(60,100);
ProgressPage.SetText(CustomMessage('BPFinished'), CustomMessage('BPSuccessfull'));
sleep(2000);
ProgressPage.Hide;
end; end;
Result := True; Result := True;
end; end;
function Skeleton_NextButtonClick(Page: TWizardPage): Boolean;
begin
{ Get the Cmake directory provided by the user }
CMakeBinDir:= FolderTreeView.Directory + '\';
if isError(checkCMakeAvailable(CMakeBinDir),false) then begin
MsgBox(CustomMessage('CMakeNotFound'), mbCriticalError, mb_Ok);
Result := False;
end else
Result := True;
end;
procedure CreateTheWizardPages; procedure CreateTheWizardPages;
var var
Lbl: TLabel; Lbl1,Lbl2,Lbl3: TLabel;
begin begin
GeneratorPage := CreateCustomPage({#generatorWizardPageIndex}, CustomMessage('ChooseGenerator'), '');
if (isError(checkCMakeAvailable(' '),False)) then begin
CMakeLookupPage := CreateCustomPage({#cmakeLookupWizardPageIndex},CustomMessage('PathToCMakeTitle'),CustomMessage('PathToCMakeSubtitle'));
FolderTreeView := TFolderTreeView.Create(CMakeLookupPage);
FolderTreeView.Width := CMakeLookupPage.SurfaceWidth;
FolderTreeView.Height := CMakeLookupPage.SurfaceHeight;
FolderTreeView.Parent := CMakeLookupPage.Surface;
FolderTreeView.Directory := '';
CMakeLookupPage.OnNextButtonClick := @Skeleton_NextButtonClick;
end;
GeneratorPage := CreateCustomPage({#generatorWizardPageIndex}, CustomMessage('ChooseGeneratorTitle'), CustomMessage('ChooseGeneratorSubtitle'));
GeneratorBox := TNewCheckListBox.Create(GeneratorPage); GeneratorBox := TNewCheckListBox.Create(GeneratorPage);
GeneratorBox.Top := ScaleY(0); GeneratorBox.Top := ScaleY(0);
GeneratorBox.Width := GeneratorPage.SurfaceWidth; GeneratorBox.Width := GeneratorPage.SurfaceWidth;
@ -376,13 +552,54 @@ begin
GeneratorBox.AddRadioButton('MSYS', '', 0, False, True, nil); GeneratorBox.AddRadioButton('MSYS', '', 0, False, True, nil);
GeneratorBox.AddRadioButton('Watcom WMake', '', 0, False, True, nil); GeneratorBox.AddRadioButton('Watcom WMake', '', 0, False, True, nil);
BuildProcessPage := CreateCustomPage({#launchBuildWizardPageIndex},CustomMessage('GenCMakeFiles'),CustomMessage('BuildProcess')); BuildProcessPage := CreateCustomPage({#launchBuildWizardPageIndex},CustomMessage('GenCMakeFiles'),CustomMessage('BuildProcess'));
Lbl := TLabel.Create(BuildProcessPage); BuildModePage := CreateCustomPage({#buildModeWizardPageIndex}, CustomMessage('BuildMode'), '');
Lbl.Top := ScaleY(20); BuildModeBox := TNewCheckListBox.Create(BuildModePage);
Lbl.Caption :=CustomMessage('NextGenCaption'); BuildModeBox.Top := ScaleY(0);
Lbl.AutoSize := True; BuildModeBox.Width := BuildModePage.SurfaceWidth;
Lbl.Parent := BuildProcessPage.Surface; BuildModeBox.Height := ScaleY(80);
BuildModeBox.BorderStyle := bsNone;
BuildModeBox.ParentColor := True;
BuildModeBox.MinItemHeight := WizardForm.TasksList.MinItemHeight;
BuildModeBox.ShowLines := False;
BuildModeBox.WantTabs := True;
BuildModeBox.Parent := BuildModePage.Surface;
BuildModeBox.AddGroup(CustomMessage('SelectBuildMode'), '', 0, nil);
BuildModeBox.AddRadioButton('Normal = Release ' + CustomMessage('Recommended'), '', 0, True, True, nil);
BuildModeBox.AddRadioButton('Debug', '', 0, False, True, nil);
SendReportBox := TCheckBox.Create(BuildModePage);
SendReportBox.Top := BuildModeBox.Top + BuildModeBox.Height + ScaleY(90);
SendReportBox.Width := BuildModePage.SurfaceWidth;
SendReportBox.Height := ScaleY(15);
SendReportBox.Caption := CustomMessage('AcceptSendReport');
SendReportBox.Checked := True;
SendReportBox.Parent := BuildModePage.Surface;
SendReportBox.Font.Size := 7;
Lbl1 := TLabel.Create(BuildModePage);
Lbl1.Top := SendReportBox.Top + SendReportBox.Height + ScaleY(5);
Lbl1.Caption := CustomMessage('NoInfoSend1');
Lbl1.AutoSize := True;
Lbl1.Parent := BuildModePage.Surface;
Lbl1.Font.Size := 7 ;
Lbl1.Left := 15;
Lbl2 := TLabel.Create(BuildModePage);
Lbl2.Top := Lbl1.Top + Lbl1.Height + ScaleY(5);
Lbl2.Caption := CustomMessage('NoInfoSend2');
Lbl2.AutoSize := True;
Lbl2.Parent := BuildModePage.Surface;
Lbl2.Font.Size := 7 ;
Lbl2.Left := 15;
Lbl3 := TLabel.Create(BuildProcessPage);
Lbl3.Top := ScaleY(20);
Lbl3.Caption :=CustomMessage('NextGenCaption');
Lbl3.AutoSize := True;
Lbl3.Parent := BuildProcessPage.Surface;
ProgressPage := CreateOutputProgressPage(CustomMessage('ProcessingCMake'),CustomMessage('BuildProcess')); ProgressPage := CreateOutputProgressPage(CustomMessage('ProcessingCMake'),CustomMessage('BuildProcess'));
end; end;
@ -405,8 +622,6 @@ procedure InitializeWizard();
var var
AboutButton, CancelButton: TButton; AboutButton, CancelButton: TButton;
URLLabel: TNewStaticText; URLLabel: TNewStaticText;
BackgroundBitmapImage: TBitmapImage;
BackgroundBitmapText: TNewStaticText;
begin begin
CreateTheWizardPages; CreateTheWizardPages;
CancelButton := WizardForm.CancelButton; CancelButton := WizardForm.CancelButton;