[gimp-help/wip/Jehan/ci-2-10-split] gitlab-ci, build: TEST.
- From: Jehan <jehanp src gnome org>
- To: commits-list gnome org
- Cc:
- Subject: [gimp-help/wip/Jehan/ci-2-10-split] gitlab-ci, build: TEST.
- Date: Thu, 17 Mar 2022 12:23:23 +0000 (UTC)
commit ee216a42dad5e2378616631981c5bf0c28ee2ada
Author: Jehan <jehan girinstud io>
Date: Thu Mar 17 00:03:51 2022 +0100
gitlab-ci, build: TEST.
.gitlab-ci.yml | 22 +-
build/windows/installer/build.bat | 25 +
build/windows/installer/gimp-help.iss | 699 +++++++++++++++++++++
.../windows/installer/installer-gimp-help-msys2.sh | 64 ++
4 files changed, 809 insertions(+), 1 deletion(-)
---
diff --git a/.gitlab-ci.yml b/.gitlab-ci.yml
index fcfd4c5fe..48f72d743 100644
--- a/.gitlab-ci.yml
+++ b/.gitlab-ci.yml
@@ -3,6 +3,7 @@ image: debian:testing
stages:
- prepare
- build
+ - www
- distribution
variables:
@@ -75,7 +76,7 @@ build-debian-4:
PDF_DIR: "_pdf4"
www-debian:
- stage: distribution
+ stage: www
image: $CI_REGISTRY_IMAGE:build-debian-latest
dependencies:
- build-debian-1
@@ -104,3 +105,22 @@ www-debian:
- mv _html2/* htdocs/2.10/
- mv _html3/* htdocs/2.10/
- mv _html4/* htdocs/2.10/
+
+win-installer:
+ variables:
+ CHERE_INVOKING: "yes"
+ tags:
+ - win32-ps
+ stage: distribution
+ dependencies:
+ - www-debian
+ artifacts:
+ name: "${CI_JOB_NAME}-${CI_COMMIT_REF_SLUG}"
+ when: always
+ expire_in: 1 week
+ paths:
+ - build/windows/installer/_Output
+ - installer.log
+ script:
+ - C:\msys64\usr\bin\pacman --noconfirm -Syyuu
+ - C:\msys64\usr\bin\bash -lc "bash -x ./build/windows/installer/installer-gimp-help-msys2.sh >
installer.log 2>&1"
diff --git a/build/windows/installer/build.bat b/build/windows/installer/build.bat
new file mode 100644
index 000000000..7d651c609
--- /dev/null
+++ b/build/windows/installer/build.bat
@@ -0,0 +1,25 @@
+@echo off
+if "%1"=="" goto help
+
+if [%INNOPATH%]==[] (
+FOR /F "usebackq tokens=5,* skip=2" %%A IN (`REG QUERY
"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Uninstall\Inno Setup 6_is1" /v "Inno Setup: App
Path" /reg:32`) DO set INNOPATH=%%B
+) else (if [%INNOPATH%]==[] (
+FOR /F "usebackq tokens=5,* skip=2" %%A IN (`REG QUERY
"HKLM\Software\Microsoft\Windows\CurrentVersion\Uninstall\Inno Setup 6_is1" /v "Inno Setup: App Path"
/reg:32`) DO set INNOPATH=%%B
+))
+if not exist "%INNOPATH%\iscc.exe" goto noinno
+
+for /a:d %l in (..\..\..\htdocs\2.10\*) if not "%l"=="..\..\..\htdocs\2.10\." .and. not
"%l"=="..\..\..\htdocs\2.10\.." (
+ echo %@name[%l]
+ start "" /LOW "%INNOPATH%\iscc.exe" "gimp-help.iss" /DVERSION="%1" /DLANG="%@name[%l]"
+)
+goto end
+
+:help
+echo Usage: %0 version
+goto end
+:end
+
+:noinno
+echo Inno Setup path could not be read from Registry - install Inno Setup or set INNOPATH environment
variable pointing at it's
+echo install directory
+goto :eof
diff --git a/build/windows/installer/gimp-help.iss b/build/windows/installer/gimp-help.iss
new file mode 100644
index 000000000..76b3bbaef
--- /dev/null
+++ b/build/windows/installer/gimp-help.iss
@@ -0,0 +1,699 @@
+;Installer for GIMP Help
+;
+;.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,
+; ;
+;Copyright (c) 2002-2012 Jernej Simon�i� ;
+; ;
+;This software is provided 'as-is', without any express or implied ;
+;warranty. In no event will the authors be held liable for any damages ;
+;arising from the use of this software. ;
+; ;
+;Permission is granted to anyone to use this software for any purpose, ;
+;including commercial applications, and to alter it and redistribute it ;
+;freely, subject to the following restrictions: ;
+; ;
+; 1. The origin of this software must not be misrepresented; you must ;
+; not claim that you wrote the original software. If you use this ;
+; software in a product, an acknowledgment in the product ;
+; documentation would be appreciated but is not required. ;
+; ;
+; 2. Altered source versions must be plainly marked as such, and must ;
+; not be misrepresented as being the original software. ;
+; ;
+; 3. This notice may not be removed or altered from any source ;
+; distribution. ;
+;.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.;
+
+#ifndef VERSION
+ #define VERSION='2.10.0'
+#endif
+#ifndef LANG
+ #define LANG='en'
+#endif
+
+;gimp version
+#define MIN_VERSION='2.10'
+
+;#define dontcompress
+;#define nofiles
+
+#ifndef VERSION
+ #error VERSION must be defined
+#endif
+#ifndef LANG
+ #error LANG must be defined
+#endif
+
+;for picking up the correct Inno Setup language file
+#if LANG=='en'
+ #define LANGUAGE='English'
+#elif LANG=='ca'
+ #define LANGUAGE='Catalan'
+#elif LANG=='de'
+ #define LANGUAGE='German'
+#elif LANG=='da'
+ #define LANGUAGE='Danish'
+#elif LANG=='el'
+ #define LANGUAGE='Greek'
+#elif LANG=='en_GB'
+ #define LANGUAGE='English'
+#elif LANG=='es'
+ #define LANGUAGE='Spanish'
+#elif LANG=='fi'
+ #define LANGUAGE='Finnish'
+#elif LANG=='fr'
+ #define LANGUAGE='French'
+#elif LANG=='hr'
+ #define LANGUAGE='Croatian'
+#elif LANG=='it'
+ #define LANGUAGE='Italian'
+#elif LANG=='ja'
+ #define LANGUAGE='Japanese'
+#elif LANG=='ko'
+ #define LANGUAGE='Korean'
+#elif LANG=='lt'
+ #define LANGUAGE='Lithuanian'
+#elif LANG=='nl'
+ #define LANGUAGE='Dutch'
+#elif LANG=='no'
+ #define LANGUAGE='Norwegian'
+#elif LANG=='nn'
+ #define LANGUAGE='Norwegian Nynorsk'
+#elif LANG=='pl'
+ #define LANGUAGE='Polish'
+#elif LANG=='pt_BR'
+ #define LANGUAGE='BrazilianPortuguese'
+#elif LANG=='ro'
+ #define LANGUAGE='Romanian'
+#elif LANG=='ru'
+ #define LANGUAGE='Russian'
+#elif LANG=='sl'
+ #define LANGUAGE='Slovenian'
+#elif LANG=='sv'
+ #define LANGUAGE='Swedish'
+#elif LANG=='zh_CN'
+ #define LANGUAGE='ChineseSimplified'
+#endif
+[Setup]
+AppName={cm:GimpHelp} {#VERSION}
+AppID=GIMP-Help-2
+AppVerName=GIMP Help {#VERSION}
+AppPublisherURL=https://www.gimp.org/
+AppSupportURL=https://www.gimp.org/
+AppUpdatesURL=https://www.gimp.org/
+DefaultDirName={pf}\GIMP Help 2
+DirExistsWarning=no
+DisableProgramGroupPage=yes
+DisableDirPage=yes
+FlatComponentsList=yes
+WizardImageFile=big.bmp
+WizardImageBackColor=$ffffff
+WizardSmallImageFile=small.bmp
+WizardImageStretch=no
+CreateUninstallRegKey=no
+UpdateUninstallLogAppName=no
+UninstallFilesDir={app}\uninst
+UsePreviousLanguage=no
+VersionInfoDescription=GIMP Help {#VERSION}
+VersionInfoProductName=GIMP Help {#VERSION}
+#ifdef dontcompress
+OutputDir=_Output\unc
+Compression=none
+InternalCompressLevel=0
+#else
+OutputDir=_Output
+Compression=lzma/ultra
+InternalCompressLevel=ultra
+SolidCompression=yes
+OutputBaseFilename=gimp-help-2-{#VERSION}-{#LANG}-setup
+#endif
+SignedUninstaller=yes
+SignedUninstallerDir=_Uninst
+PrivilegesRequired=lowest
+PrivilegesRequiredOverridesAllowed=commandline
+
+[Languages]
+#if FileExists('D:\Program Files\Inno Setup 6 Dev\Languages\' + LANGUAGE + '.isl')
+ #if FileExists('help.'+LANG+'.isl')
+Name: "{#LANG}"; MessagesFile:
"compiler:Languages\{#LANGUAGE}.isl,N:\gimp\compile\gimp\build\windows\installer\lang\en.setup.isl,N:\gimp\compile\gimp\build\windows\installer\lang\{#LANG}.setup.isl"
+ #else
+Name: "{#LANG}"; MessagesFile:
"compiler:Languages\{#LANGUAGE}.isl,N:\gimp\compile\gimp\build\windows\installer\lang\en.setup.isl"
+ #endif
+#else
+Name: "en"; MessagesFile:
"compiler:Default.isl,N:\gimp\compile\gimp\build\windows\installer\lang\en.setup.isl"
+#endif
+
+[Files]
+#ifndef nofiles
+Source: "N:\gimp\output\2.10.12\x86_64-w64-mingw32\share\gimp\2.0\help\{#LANG}\*.*"; DestDir:
"{app}\share\gimp\2.0\help\{#LANG}"; Flags: recursesubdirs ignoreversion
+#endif
+;Source: "html\{#LANG}\*.jpg"; DestDir: "{app}\share\gimp\2.0\help\{#LANG}"; Flags: recursesubdirs
nocompression
+;Source: "html\{#LANG}\*.png"; DestDir: "{app}\share\gimp\2.0\help\{#LANG}"; Flags: recursesubdirs
nocompression
+
+[Code]
+function WideCharToMultiByte(CodePage: Cardinal; dwFlags: DWORD; lpWideCharStr: String; cchWideCharStr:
Integer;
+ lpMultiByteStr: PAnsiChar; cbMultiByte: Integer; lpDefaultChar: Integer;
+ lpUsedDefaultChar: Integer): Integer; external 'WideCharToMultiByte@Kernel32
stdcall';
+
+function MultiByteToWideChar(CodePage: Cardinal; dwFlags: DWORD; lpMultiByteStr: PAnsiChar; cbMultiByte:
Integer;
+ lpWideCharStr: String; cchWideChar: Integer): Integer;
+ external 'MultiByteToWideChar@Kernel32 stdcall';
+
+function GetLastError(): DWORD; external 'GetLastError@Kernel32 stdcall';
+
+const
+ SHACF_FILESYSTEM = $1;
+ CP_UTF8 = 65001;
+
+ BCM_SETSHIELD = $160C;
+
+ RegGimpUnins = 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\GIMP-2_is1';
+ RegGimpUninsPathKey = 'Inno Setup: App Path';
+ RegGimpUninsDispVerKey = 'DisplayVersion';
+
+type
+ TGimpInstall = record
+ Path: String;
+ RequireAdmin: Boolean;
+ InstallCheckbox: TCheckbox;
+ end;
+ TGimpInstalls = array of TGimpInstall;
+
+ TInstallModePreReqs = record
+ Dir: Boolean;
+ PrivOverride: Boolean;
+ end;
+
+var
+ wpInstalls: TWizardPage;
+
+ GimpInstalls: TGimpInstalls;
+
+ InstallMode: (imFindInstalls, imInstall);
+
+ LogParameter: String;
+ SilentParameter: String;
+
+ PreparingCounter: Integer;
+
+
+function Count(What, Where: String): Integer;
+begin
+ Result := 0;
+ if Length(What) = 0 then //nothing to count - should this throw an error?
+ exit;
+
+ while Pos(What,Where)>0 do
+ begin
+ Where := Copy(Where,Pos(What,Where)+Length(What),Length(Where));
+ Result := Result + 1;
+ end;
+end;
+
+
+//split text to array
+procedure Explode(var ADest: TArrayOfString; aText, aSeparator: String);
+var tmp: Integer;
+begin
+ if aSeparator='' then
+ exit;
+
+ SetArrayLength(ADest,Count(aSeparator,aText)+1)
+
+ tmp := 0;
+ repeat
+ if Pos(aSeparator,aText)>0 then
+ begin
+
+ ADest[tmp] := Copy(aText,1,Pos(aSeparator,aText)-1);
+ aText := Copy(aText,Pos(aSeparator,aText)+Length(aSeparator),Length(aText));
+ tmp := tmp + 1;
+
+ end else
+ begin
+
+ ADest[tmp] := aText;
+ aText := '';
+
+ end;
+ until Length(aText)=0;
+end;
+
+
+
+//compares two version numbers, returns -1 if vA is newer, 0 if both are identical, 1 if vB is newer
+function CompareVersion(vA,vB: String): Integer;
+var tmp: TArrayOfString;
+ verA,verB: Array of Integer;
+ i,len: Integer;
+begin
+
+ StringChange(vA,'-','.');
+ StringChange(vB,'-','.');
+
+ Explode(tmp,vA,'.');
+ SetArrayLength(verA,GetArrayLength(tmp));
+ for i := 0 to GetArrayLength(tmp) - 1 do
+ verA[i] := StrToIntDef(tmp[i],0);
+
+ Explode(tmp,vB,'.');
+ SetArrayLength(verB,GetArrayLength(tmp));
+ for i := 0 to GetArrayLength(tmp) - 1 do
+ verB[i] := StrToIntDef(tmp[i],0);
+
+ len := GetArrayLength(verA);
+ if GetArrayLength(verB) < len then
+ len := GetArrayLength(verB);
+
+ for i := 0 to len - 1 do
+ if verA[i] < verB[i] then
+ begin
+ Result := 1;
+ exit;
+ end else
+ if verA[i] > verB[i] then
+ begin
+ Result := -1;
+ exit
+ end;
+
+ if GetArrayLength(verA) < GetArrayLength(verB) then
+ begin
+ Result := 1;
+ exit;
+ end else
+ if GetArrayLength(verA) > GetArrayLength(verB) then
+ begin
+ Result := -1;
+ exit;
+ end;
+
+ Result := 0;
+
+end;
+
+
+function RevPos(const SearchStr, Str: string): Integer;
+var i: Integer;
+begin
+
+ if Length(SearchStr) < Length(Str) then
+ for i := (Length(Str) - Length(SearchStr) + 1) downto 1 do
+ begin
+
+ if Copy(Str, i, Length(SearchStr)) = SearchStr then
+ begin
+ Result := i;
+ exit;
+ end;
+
+ end;
+
+ Result := 0;
+end;
+
+
+function Replace(pSearchFor, pReplaceWith, pText: String): String;
+begin
+ StringChangeEx(pText,pSearchFor,pReplaceWith,True);
+
+ Result := pText;
+end;
+
+
+function Utf82String(const pInput: AnsiString): String;
+var Output: String;
+ ret, outLen, nulPos: Integer;
+begin
+ outLen := MultiByteToWideChar(CP_UTF8, 0, pInput, -1, Output, 0);
+ Output := StringOfChar(#0,outLen);
+ ret := MultiByteToWideChar(CP_UTF8, 0, pInput, -1, Output, outLen);
+
+ if ret = 0 then
+ RaiseException('MultiByteToWideChar failed: ' + IntToStr(GetLastError));
+
+ nulPos := Pos(#0,Output) - 1;
+ if nulPos = -1 then
+ nulPos := Length(Output);
+
+ Result := Copy(Output,1,nulPos);
+end;
+
+
+function LoadStringFromUTF8File(const pFileName: String; var oS: String): Boolean;
+var Utf8String: AnsiString;
+begin
+ Result := LoadStringFromFile(pFileName, Utf8String);
+ oS := Utf82String(Utf8String);
+end;
+
+
+function String2Utf8(const pInput: String): AnsiString;
+var Output: AnsiString;
+ ret, outLen, nulPos: Integer;
+begin
+ outLen := WideCharToMultiByte(CP_UTF8, 0, pInput, -1, Output, 0, 0, 0);
+ Output := StringOfChar(#0,outLen);
+ ret := WideCharToMultiByte(CP_UTF8, 0, pInput, -1, Output, outLen, 0, 0);
+
+ if ret = 0 then
+ RaiseException('WideCharToMultiByte failed: ' + IntToStr(GetLastError));
+
+ nulPos := Pos(#0,Output) - 1;
+ if nulPos = -1 then
+ nulPos := Length(Output);
+
+ Result := Copy(Output,1,nulPos);
+end;
+
+
+function SaveStringToUTF8File(const pFileName, pS: String; const pAppend: Boolean): Boolean;
+begin
+ Result := SaveStringToFile(pFileName, String2Utf8(pS), pAppend);
+end;
+
+
+procedure SaveToUninstInf(const pText: AnsiString);
+var sUnInf: String;
+ sOldContent: String;
+begin
+ sUnInf := ExpandConstant('{app}\uninst\uninst.inf');
+
+ if not FileExists(sUnInf) then //save small header
+ SaveStringToUTF8File(sUnInf,#$feff+'#Additional uninstall tasks'#13#10+ //#$feff BOM is
required for LoadStringsFromFile
+ '#This file uses UTF-8 encoding'#13#10+
+ '#'#13#10+
+ '#Empty lines and lines beginning with # are ignored'#13#10+
+ '#'#13#10+
+ '#Add uninstallers for GIMP add-ons that should be removed
together with GIMP like this:'#13#10+
+ '#Run:<description>/<full path to uninstaller>/<parameters for
automatic uninstall>'#13#10+
+ '#'#13#10+
+ '#The file is parsed in reverse order' + #13#10 +
+ '' + #13#10 //needs '' in front, otherwise preprocessor complains
+ ,False)
+ else
+ begin
+ if LoadStringFromUTF8File(sUnInf,sOldContent) then
+ if Pos(#13#10+pText+#13#10,sOldContent) > 0 then //don't write duplicate lines
+ exit;
+ end;
+
+ SaveStringToUTF8File(sUnInf,pText+#13#10,True);
+end;
+
+
+function ExtractGimpVersion(const VerStr: String): String;
+var p: Integer;
+begin
+ p := Pos('gimp ',LowerCase(VerStr));
+ if p > 0 then
+ Result := Copy(VerStr,p+5,Length(VerStr))
+ else
+ Result := '0';
+end;
+
+
+procedure GetGimpInstall(const RootKey: Integer);
+var n: Integer;
+ Path, Version: String;
+begin
+ if RegQueryStringValue(RootKey, RegGimpUnins, RegGimpUninsPathKey, Path) then
+ if RegQueryStringValue(RootKey, RegGimpUnins, RegGimpUninsDispVerKey, Version) then
+ begin
+ Log('Found GIMP install: ' + Path + '; ' + Version);
+
+ if CompareVersion('{#MIN_VERSION}', Version) >= 0 then
+ begin
+
+ n := GetArrayLength(GimpInstalls);
+ Inc(n);
+ SetArrayLength(GimpInstalls,n);
+ GimpInstalls[n-1].Path := Path;
+ GimpInstalls[n-1].RequireAdmin := not (RootKey = HKCU);
+
+ end;
+
+ end;
+end;
+
+
+function GetGimpInfo(): Boolean;
+begin
+
+ if IsWin64 then
+ GetGimpInstall(HKLM64);
+
+ GetGimpInstall(HKLM);
+
+ GetGimpInstall(HKCU);
+
+ if GetArrayLength(GimpInstalls) = 0 then
+ begin
+
SuppressibleMsgBox(FmtMessage(CustomMessage('NoGimpInstallsFound'),[CustomMessage('GimpHelp'),
'{#MIN_VERSION}']),mbError,MB_OK,IDOK);
+ Result := False
+ end else
+ begin
+ Result := True;
+ end;
+
+end;
+
+
+procedure WriteUninstallInfo();
+begin
+ SaveToUninstInf('Run:GIMP Help/'+ExpandConstant('{uninstallexe}')+'//SILENT /NORESTART');
+end;
+
+
+function InitializeSetup(): Boolean;
+var i: Integer;
+ InstallModePreReqs: TInstallModePreReqs;
+begin
+ Result := True;
+ InstallMode := imFindinstalls; //default
+ PreparingCounter := 0;
+ SilentParameter := '/SILENT'
+
+ InstallModePreReqs.Dir := False;
+ InstallModePreReqs.PrivOverride := False;
+
+ for i := 0 to ParamCount do
+ begin
+ if LowerCase(ParamStr(i)) = '/install' then
+ InstallMode := imInstall
+ else if LowerCase(Copy(ParamStr(i),1,5)) = '/dir=' then
+ InstallModePreReqs.Dir := True
+ else if (LowerCase(Copy(ParamStr(i),1,9)) = '/allusers') or
(LowerCase(Copy(ParamStr(i),1,12)) = '/currentuser') then
+ InstallModePreReqs.PrivOverride := True
+ else if LowerCase(Copy(ParamStr(i),1,4)) = '/log' then
+ LogParameter := ParamStr(i)
+ else if LowerCase(ParamStr(i)) = '/verysilent' then
+ SilentParameter := '/VERYSILENT';
+ end;
+
+ if InstallMode = imInstall then
+ begin
+ //check for required parameters
+ if (InstallModePreReqs.Dir = False) or (InstallModePreReqs.PrivOverride = False) then
+ begin
+ SuppressibleMsgBox(CustomMessage('MissingParameters'),mbError,MB_OK,IDOK);
+ Result := False;
+ end;
+
+ exit;
+ end;
+
+ if Pos('=',LogParameter) > 0 then //needed, because only 1 instance of Setup can write to the same
log file
+ begin
+ i := RevPos('.', LogParameter);
+ if i > 0 then
+ LogParameter := Copy(LogParameter, 1, i) + '?' + Copy(LogParameter, i,
Length(LogParameter) - i + 1)
+ else
+ LogParameter := LogParameter + '.?';
+ Log('New LogParameter: ' + LogParameter);
+ end;
+
+ Result := GetGimpInfo();
+end;
+
+
+procedure CurStepChanged(pCurStep: TSetupStep);
+begin
+ case pCurStep of
+ ssInstall:
+ if InstallMode = imFindinstalls then
+ begin
+ Abort();
+ end;
+ ssPostInstall:
+ begin
+ WriteUninstallInfo();
+ end;
+ end;
+end;
+
+
+function PrepareToInstall(var NeedsRestart: Boolean): String;
+var n, r: Integer;
+ Params: String;
+begin
+ if InstallMode = imFindInstalls then
+ begin
+ WizardForm.Hide;
+
+ for n := 0 to GetArrayLength(GimpInstalls) - 1 do
+ if (GimpInstalls[n].InstallCheckbox = nil) or
(GimpInstalls[n].InstallCheckbox.Checked) then
+ begin
+ Params := '"' + ExpandConstant('{srcexe}') + '" ' + SilentParameter + '
/NOCANCEL /INSTALL /DIR="' +
+ GimpInstalls[n].Path + '" ' +
+ Replace('?', IntToStr(n + 1), LogParameter);
+
+ if GimpInstalls[n].RequireAdmin then
+ Params := Params + ' /ALLUSERS'
+ else
+ Params := Params + ' /CURRENTUSER';
+
+ Log('Running: ' + Params);
+ if Exec('>', Params, GetCurrentDir, SW_SHOW, ewWaitUntilTerminated, r) then
+ Log('Success, Setup return code: ' + IntToStr(r))
+ else
+ Log('Failed, return code: ' + IntToStr(r) + ' (' + SysErrorMessage(r)
+ ')');
+ end;
+
+ WizardForm.Show;
+
+ if not WizardSilent then
+ Result := 'Abort'; //nothing to install in this session, abuse this to abort the
setup, and show "finished" page
+ //(only in non-silent mode, to not show an error dialog; in silent mode,
abort in ssInstall)
+ end;
+end;
+
+
+procedure InstallChecks();
+var n: Integer;
+ SomethingSelected, AdminReqd: Boolean;
+begin
+ AdminReqd := False;
+ SomethingSelected := False;
+
+ for n := 0 to GetArrayLength(GimpInstalls) - 1 do
+ begin
+ if (GimpInstalls[n].InstallCheckbox = nil) or GimpInstalls[n].InstallCheckbox.Checked then
+ begin
+ SomethingSelected := True;
+
+ if GimpInstalls[n].RequireAdmin then
+ AdminReqd := True;
+ end;
+ end;
+
+ WizardForm.NextButton.Enabled := SomethingSelected;
+
+ if AdminReqd then
+ PostMessage(WizardForm.NextButton.Handle, BCM_SETSHIELD, 0, 1)
+ else
+ PostMessage(WizardForm.NextButton.Handle, BCM_SETSHIELD, 0, 0);
+end;
+
+
+procedure CBInstallOnClick(Sender: TObject);
+begin
+ InstallChecks();
+end;
+
+
+procedure InitializeWizard();
+var n: Integer;
+ lblInfo: TNewStaticText;
+begin
+ if (InstallMode = imFindInstalls) and (GetArrayLength(GimpInstalls) > 1) then
+ begin
+ wpInstalls := CreateCustomPage(wpWelcome, CustomMessage('SelectGimpInstallsCaption'),
+
FmtMessage(CustomMessage('SelectGimpInstallsDescription'),[CustomMessage('GimpHelp')]));
+
+ lblInfo := TNewStaticText.Create(wpInstalls);
+ with lblInfo do
+ begin
+ Top := 0;
+ Left := 0;
+ Parent := wpInstalls.Surface;
+ Caption := 'Text';
+ Visible := False;
+ end;
+ WizardForm.AdjustLabelHeight(lblInfo);
+
+ for n := 0 to GetArrayLength(GimpInstalls) - 1 do
+ begin
+ GimpInstalls[n].InstallCheckbox := TCheckBox.Create(wpInstalls);
+ with GimpInstalls[n].InstallCheckbox do
+ begin
+
+ Left := 0;
+ Width := wpInstalls.Surface.Width - Left;
+ if n = 0 then
+ Top := 0 //lblInfo.Top + lblInfo.Height + ScaleY(12)
+ else
+ Top := GimpInstalls[n-1].InstallCheckbox.Top +
GimpInstalls[n-1].InstallCheckbox.Height + ScaleY(12);
+ Height := lblInfo.Height;
+ Tag := n;
+
+ Checked := True;
+ Caption := GimpInstalls[n].Path;
+ OnClick := @CBInstallOnClick;
+
+ Parent := wpInstalls.Surface;
+
+ end;
+ end;
+ end;
+end;
+
+
+function ShouldSkipPage(PageID: Integer): Boolean;
+begin
+ Result := False;
+ case PageID of
+ wpReady:
+ Result := GetArrayLength(GimpInstalls) > 1; //skip the Ready page when confirmation
page was shown
+ end;
+end;
+
+
+procedure ChangeWPPreparing();
+begin
+ Inc(PreparingCounter);
+
+ if PreparingCounter = 2 then //second time happens after PrepareToInstall returns non-empty string
+ begin
+ //TODO: this doesn't look like the normal Finished page
+ WizardForm.NextButton.Visible := False;
+ WizardForm.BackButton.Visible := False;
+ WizardForm.CancelButton.Caption := SetupMessage(msgButtonFinish);
+ WizardForm.PreparingErrorBitmapImage.Visible := False;
+ WizardForm.PreparingLabel.Caption := SetupMessage(msgClickFinish);
+ WizardForm.PreparingLabel.Left := 0;
+ WizardForm.PreparingLabel.Width := WizardForm.PreparingPage.Width;
+ WizardForm.AdjustLabelHeight(WizardForm.PreparingLabel);
+ WizardForm.PageNameLabel.Caption :=
Replace('[name]',CustomMessage('GimpHelp'),SetupMessage(msgFinishedHeadingLabel));
+ WizardForm.PageDescriptionLabel.Caption :=
Replace('[name]',CustomMessage('GimpHelp'),SetupMessage(msgFinishedLabel));
+ end;
+end;
+
+
+procedure CurPageChanged(CurPageID: Integer);
+begin
+ Log('CurPageChanged: ' + IntToStr(CurPageID));
+ if (CurPageID = wpReady) and (InstallMode = imFindInstalls) then
+ InstallChecks();
+
+ if (CurPageID = wpPreparing) and (InstallMode = imFindInstalls) then
+ ChangeWPPreparing();
+
+ if (wpInstalls <> nil) and (CurPageID = wpInstalls.ID) then
+ begin
+ InstallChecks();
+ WizardForm.NextButton.Caption := SetupMessage(msgButtonInstall);
+ end;
+end;
+
+#expr SaveToFile(AddBackslash(SourcePath) + "Preprocessed." + LANG + ".iss")
diff --git a/build/windows/installer/installer-gimp-help-msys2.sh
b/build/windows/installer/installer-gimp-help-msys2.sh
new file mode 100644
index 000000000..4540378d9
--- /dev/null
+++ b/build/windows/installer/installer-gimp-help-msys2.sh
@@ -0,0 +1,64 @@
+# Install Inno Setup.
+wget https://jrsoftware.org/download.php/is.exe
+./is.exe //SILENT //SUPPRESSMSGBOXES //CURRENTUSER //SP- //LOG="innosetup.log"
+
+# Install unofficial language files. These are translations of "unknown
+# translation quality or might not be maintained actively".
+# Cf. https://jrsoftware.org/files/istrans/
+ISCCDIR=`grep "Dest filename:.*ISCC.exe" innosetup.log | sed 's/.*Dest filename: *\|ISCC.exe//g'`
+ISCCDIR=`cygpath -u "$ISCCDIR"`
+mkdir -p "${ISCCDIR}/Languages/Unofficial"
+cd "${ISCCDIR}/Languages/Unofficial"
+
+download_lang ()
+{
+ langfile="$1"
+ rm -f "$langfile"
+ wget "https://raw.githubusercontent.com/jrsoftware/issrc/main/Files/Languages/Unofficial/$langfile";
+ downloaded="$?"
+ if [ $downloaded -ne 0 ]; then
+ echo "Download of '$langfile' failed."
+ exit 1
+ fi
+}
+
+add_bom ()
+{
+ langfile="$1"
+ file "$langfile" |grep "with BOM" 2>&1 > /dev/null
+ has_bom="$?"
+ if [ $has_bom -ne 0 ]; then
+ sed -i "1s/^/\xEF\xBB\xBF/" "$langfile"
+ fi
+}
+
+download_lang ChineseSimplified.isl
+download_lang EnglishBritish.isl
+download_lang Greek.isl
+download_lang Korean.isl
+download_lang Lithuanian.isl
+download_lang Romanian.isl
+download_lang Swedish.isl
+cd -
+
+# Copy generated language files into the source directory.
+#cp _build-w64/build/windows/installer/lang/*isl build/windows/installer/lang
+
+# Construct now the installer.
+MAJOR_VERSION=`grep 'm4_define(\[help_major_version' configure.ac |sed
's/m4_define(\[help_major_version.*\[\([0-9]*\)\].*/\1/'`
+MINOR_VERSION=`grep 'm4_define(\[help_minor_version' configure.ac |sed
's/m4_define(\[help_minor_version.*\[\([0-9]*\)\].*/\1/'`
+MICRO_VERSION=`grep 'm4_define(\[help_micro_version' configure.ac |sed
's/m4_define(\[help_micro_version.*\[\([0-9]*\)\].*/\1/'`
+cd build/windows/installer
+./build.bat ${MAJOR_VERSION}.${MINOR_VERSION}.${MICRO_VERSION}
+
+# Test if the installer was created and return success/failure.
+if [ -f "_Output/gimp-help-${MAJOR_VERSION}.${MINOR_VERSION}.${MICRO_VERSION}-en-setup.exe" ]; then
+ cd _Output/
+ # TODO: do all langs.
+ INSTALLER="gimp-${MAJOR_VERSION}.${MINOR_VERSION}.${MICRO_VERSION}-en-setup.exe"
+ sha256sum $INSTALLER > ${INSTALLER}.SHA256SUMS
+ sha512sum $INSTALLER > ${INSTALLER}.SHA512SUMS
+ exit 0
+else
+ exit 1
+fi
[
Date Prev][
Date Next] [
Thread Prev][
Thread Next]
[
Thread Index]
[
Date Index]
[
Author Index]
