OVMS3-idf/tools/windows/tool_setup/git_page.iss.inc

{ Copyright 2019 Espressif Systems (Shanghai) PTE LTD
  SPDX-License-Identifier: Apache-2.0 }

{ ------------------------------ Page to select Git ------------------------------ }

#include "git_find_installed.iss.inc"

var
  GitPage: TInputOptionWizardPage;
  GitPath, GitExecutablePath, GitVersion: String;
  GitUseExisting: Boolean;
  GitSelectionInstallIndex: Integer;
  GitSelectionCustomPathIndex: Integer;

function GetGitPath(Unused: String): String;
begin
  Result := GitPath;
end;

function GitInstallRequired(): Boolean;
begin
  Result := not GitUseExisting;
end;

function GitVersionSupported(Version: String): Boolean;
var
  Major, Minor: Integer;
begin
  Result := False;
  if not VersionExtractMajorMinor(Version, Major, Minor) then
  begin
    Log('GitVersionSupported: Could not parse version=' + Version);
    exit;
  end;

  { Need at least git 2.12 for 'git clone --reference' to work with submodules }
  if (Major = 2) and (Minor >= 12) then Result := True;
  if (Major > 2) then Result := True;
end;

procedure GitCustomPathUpdateEnabled();
var
  Enable: Boolean;
begin
  if GitPage.SelectedValueIndex = GitSelectionCustomPathIndex then
    Enable := True;

  ChoicePageSetInputEnabled(GitPage, Enable);
end;

procedure OnGitPagePrepare(Sender: TObject);
var
  Page: TInputOptionWizardPage;
  FullName: String;
  i, Index, FirstEnabledIndex: Integer;
  OfferToInstall: Boolean;
  VersionToInstall: String;
  VersionSupported: Boolean;
begin
  Page := TInputOptionWizardPage(Sender);
  Log('OnGitPagePrepare');
  if Page.CheckListBox.Items.Count > 0 then
    exit;

  FindInstalledGitVersions();

  VersionToInstall := '{#GitVersion}';
  OfferToInstall := True;
  FirstEnabledIndex := -1;

  for i := 0 to InstalledGitVersions.Count - 1 do
  begin
    VersionSupported := GitVersionSupported(InstalledGitVersions[i]);
    FullName := InstalledGitDisplayNames.Strings[i];
    if not VersionSupported then
    begin
      FullName := FullName + ' (unsupported)';
    end;
    FullName := FullName + #13#10 + InstalledGitExecutables.Strings[i];
    Index := Page.Add(FullName);
    if not VersionSupported then
    begin
      Page.CheckListBox.ItemEnabled[Index] := False;
    end else begin
      if FirstEnabledIndex < 0 then FirstEnabledIndex := Index;
    end;
    if InstalledGitVersions[i] = VersionToInstall then
    begin
      OfferToInstall := False;
    end;
  end;

  if OfferToInstall then
  begin
    Index := Page.Add('Install Git ' + VersionToInstall);
    if FirstEnabledIndex < 0 then FirstEnabledIndex := Index;
    GitSelectionInstallIndex := Index;
  end;

  Index := Page.Add('Custom git.exe location');
  if FirstEnabledIndex < 0 then FirstEnabledIndex := Index;
  GitSelectionCustomPathIndex := Index;

  Page.SelectedValueIndex := FirstEnabledIndex;
  GitCustomPathUpdateEnabled();
end;

procedure OnGitSelectionChange(Sender: TObject);
var
  Page: TInputOptionWizardPage;
begin
  Page := TInputOptionWizardPage(Sender);
  Log('OnGitSelectionChange index=' + IntToStr(Page.SelectedValueIndex));
  GitCustomPathUpdateEnabled();
end;

function OnGitPageValidate(Sender: TWizardPage): Boolean;
var
  Page: TInputOptionWizardPage;
  Version, ErrStr: String;
begin
  Page := TInputOptionWizardPage(Sender);
  Log('OnGitPageValidate index=' + IntToStr(Page.SelectedValueIndex));
  if Page.SelectedValueIndex = GitSelectionInstallIndex then
  begin
    GitUseExisting := False;
    GitExecutablePath := '';
    GitPath := '';
    GitVersion := '{#GitVersion}';
    Result := True;
  end else if Page.SelectedValueIndex = GitSelectionCustomPathIndex then
  begin
    GitPath := ChoicePageGetInputText(Page);
    GitExecutablePath := GitPath + '\git.exe';
    if not FileExists(GitExecutablePath) then
    begin
      MsgBox('Can not find git.exe in ' + GitPath, mbError, MB_OK);
      Result := False;
      exit;
    end;

    if not GetVersionOfGitExe(GitExecutablePath, Version, ErrStr) then
    begin
      MsgBox('Can not determine version of git.exe.' + #13#10
             + 'Please check that this copy of git works from cmd.exe.', mbError, MB_OK);
      Result := False;
      exit;
    end;
    Log('Version of ' + GitExecutablePath + ' is ' + Version);
    if not GitVersionSupported(Version) then
    begin
      MsgBox('Selected git version (' + Version + ') is not supported.', mbError, MB_OK);
      Result := False;
      exit;
    end;
    Log('Version of git is supported');
    GitUseExisting := True;
    GitVersion := Version;
  end else begin
    GitUseExisting := True;
    GitExecutablePath := InstalledGitExecutables[Page.SelectedValueIndex];
    GitPath := ExtractFilePath(GitExecutablePath);
    GitVersion := InstalledGitVersions[Page.SelectedValueIndex];
    Result := True;
  end;
end;

procedure GitExecutablePathUpdateAfterInstall();
var
  GitInstallPath: String;
begin
  GitInstallPath := GetInstallPath('SOFTWARE\GitForWindows', 'InstallPath');
  if GitInstallPath = '' then
  begin
    Log('Failed to find Git install path');
    exit;
  end;
  GitPath := GitInstallPath + '\cmd';
  GitExecutablePath := GitPath + '\git.exe';
end;

<event('InitializeWizard')>
procedure CreateGitPage();
begin
  GitPage := ChoicePageCreate(
    wpLicense,
    'Git choice', 'Please choose Git version',
    'Available Git versions',
    'Enter custom location of git.exe',
    True,
    @OnGitPagePrepare,
    @OnGitSelectionChange,
    @OnGitPageValidate);
end;