rubyinstaller-build 0.1.0

data/recipes/installer-inno/rubyinstaller.iss.erb

@@ -0,0 +1,157 @@
+; RubyInstaller - InnoSetup Script (base)
+; This script is used to build Ruby Installers for Windows
+; Copyright (c) 2009-2012 Jon Maken
+; Copyright (c) 2009-2012 Gordon Thiesfeld
+; Copyright (c) 2009-2012 Luis Lavena
+; Copyright (c) 2012 Yusuke Endoh
+; Revision: 2012-05-28 13:57:37 -0600
+; License: Modified BSD License
+
+<% require "etc" %>
+<% with_msys = package.respond_to?(:msysdir) %>
+
+#define RubyVersion <%=q package.rubyver %>
+#define PackageRelease <%=q package.pkgrel %>
+#define RubyBuildPlatform <%=q package.ruby_arch %>
+
+; Build Installer details using above values
+#define InstallerName "Ruby " + <%=q package.packagever %> + "-" + <%=q package.arch %> + "<%= " with MSYS2" if with_msys %>"
+#define InstallerPublisher "RubyInstaller Team"
+#define InstallerHomepage "http://rubyinstaller.org"
+
+#define CurrentYear GetDateTimeString('yyyy', '', '')
+#define PackageBaseId "MRI"
+
+#define MsysDir <%=q( with_msys ? package.msysdir : '' )%>
+
+[Setup]
+DefaultDirName=<%=q package.default_instdir %>
+
+; NOTE: The value of AppId uniquely identifies this application.
+; Do not use the same AppId value in installers for other applications!
+AppId=<%=q "RubyInstaller-#{package.rubyver2}-#{package.ruby_arch}" %>
+AppName={#InstallerName}
+AppVerName={#InstallerName}
+AppPublisher={#InstallerPublisher}
+AppPublisherURL={#InstallerHomepage}
+AppVersion=<%=q package.packagever %>
+DefaultGroupName={#InstallerName}
+DisableWelcomePage=true
+DisableProgramGroupPage=true
+LicenseFile=<%= ovl_expand_file("recipes/sandbox/LICENSE.txt") %>
+Compression=lzma2/ultra64
+SolidCompression=true
+CompressionThreads=<%= Etc.nprocessors %>
+LZMANumBlockThreads=<%= Etc.nprocessors %>
+LZMAUseSeparateProcess=yes
+AlwaysShowComponentsList=false
+DisableReadyPage=true
+InternalCompressLevel=ultra64
+VersionInfoCompany={#InstallerPublisher}
+VersionInfoCopyright=(c) {#CurrentYear} {#InstallerPublisher}
+VersionInfoDescription=Ruby Programming Language for Windows
+VersionInfoTextVersion=<%=q package.packagever %>
+VersionInfoVersion=<%=q(package.rubyver[/^\d+\.\d+\.\d+/] || package.rubyver2)%>
+UninstallDisplayIcon={app}\bin\ruby.exe
+WizardStyle=modern
+WizardImageFile=<%=q ovl_expand_file("recipes/installer-inno/images/wizard-large.bmp") %>
+WizardSmallImageFile=<%=q ovl_expand_file("recipes/installer-inno/images/wizard-logo.bmp") %>
+PrivilegesRequired=lowest
+ChangesAssociations=yes
+ChangesEnvironment=yes
+MinVersion=6.0
+#if Defined(SignPackage) == 1
+SignTool=risigntool sign /a /d $q{#InstallerName}$q /du $q{#InstallerHomepage}$q /t $qhttp://timestamp.comodoca.com/authenticode$q $f
+#endif
+
+[Languages]
+Name: en; MessagesFile: compiler:Default.isl
+
+[Messages]
+en.WelcomeLabel1=Welcome to the [name] Installer
+en.WelcomeLabel2=This will install [name/ver] on your computer. Please close all other applications before continuing.
+en.WizardLicense={#InstallerName} License Agreement
+en.LicenseLabel=
+en.LicenseLabel3=Please read the following License Agreement and accept the terms before continuing the installation.
+en.LicenseAccepted=I &accept the License
+en.LicenseNotAccepted=I &decline the License
+en.WizardSelectDir=Installation Destination and Optional Tasks
+en.SelectDirDesc=
+en.SelectDirLabel3=Setup will install [name] into the following folder. Click Install to continue or click Browse to use a different one.
+en.SelectDirBrowseLabel=Please avoid any folder name that contains spaces (e.g. Program Files).
+en.DiskSpaceMBLabel=Required free disk space: ~[mb] MB
+en.DirExists=The folder:%n%n%1%n%nalready exists. Would you like to install to that folder anyway?%n%nOverwriting a Ruby version with the same major and minor version usually works, but for example Ruby-2.5.0 over 2.4.0 doesn't.
+
+[CustomMessages]
+AddPath=Add Ruby executables to your PATH
+AddPathHint=Select to make this Ruby installation available from everywhere.%nThis may affect existing Ruby installations.
+AssociateExt=Associate .rb and .rbw files with this Ruby installation
+AssociateExtHint=Select to enable running your Ruby scripts by double clicking%nor simply typing the script name at your shell prompt. This may%naffect existing Ruby installations.
+DevkitInstall=Run 'ridk install' to setup MSYS2 and development toolchain.
+DevkitInstall2=MSYS2 is required to install gems with C extensions.
+DevkitInstallHint=The MSYS2 development tools consists of the GCC compiler suite and%nmany common UNIX tools required to build OpenSource software.%nIt is safe to run `ridk install` even if MSYS2 is already installed.
+DefaultUtf8=Use UTF-8 as default external encoding.
+DefaultUtf8Hint=This sets the environment variable 'RUBYOPT=-Eutf-8'.%nRubyInstaller-2.6 will probably set this as default.%nSee the wiki for more information.
+MouseoverHint=TIP: Mouse over the above options for more detailed information.
+WebSiteLabel=Web Site:
+SupportGroupLabel=Support group:
+WikiLabel=Wiki:
+InteractiveRubyTitle=Interactive Ruby
+RubyGemsDocumentationServerTitle=RubyGems Documentation Server
+StartCmdPromptWithRubyTitle=Start Command Prompt with Ruby
+DocumentationTitle=Documentation
+APIReferenceTitle=Ruby %1 API Reference
+TheBookofRubyTitle=The Book of Ruby
+
+[Files]
+#define InstallerFileList "filelist-ruby-" + RubyVersion + "-" + RubyBuildPlatform + ".iss"
+#include InstallerFileList
+
+[Registry]
+<% [["HKLM", "IsAdmin"],
+    ["HKCU", "IsNotAdmin"]].each do |regroot, chkadmin| %>
+
+<% [[".rb", "Ruby", "ruby.exe"],
+    [".rbw", "RubyW", "rubyw.exe"]].each do |extension, rubyname, rubyexe| %>
+
+; .rb, *.rbw file for admin+nonadmin
+Root: <%= regroot %>; Subkey: Software\Classes\<%= extension %>; ValueType: string; ValueName: ; ValueData: <%= rubyname %>File; Flags: uninsdeletevalue uninsdeletekeyifempty; Check: <%= chkadmin %> and IsAssociated
+Root: <%= regroot %>; Subkey: Software\Classes\<%= rubyname %>File; ValueType: string; ValueName: ; ValueData: <%= rubyname %> File; Flags: uninsdeletekey; Check: <%= chkadmin %> and IsAssociated
+Root: <%= regroot %>; Subkey: Software\Classes\<%= rubyname %>File\DefaultIcon; ValueType: string; ValueName: ; ValueData: {app}\bin\<%= rubyexe %>,0; Check: <%= chkadmin %> and IsAssociated
+Root: <%= regroot %>; Subkey: Software\Classes\<%= rubyname %>File\shell\open\command; ValueType: string; ValueName: ; ValueData: """{app}\bin\<%= rubyexe %>"" ""%1"" %*"; Check: <%= chkadmin %> and IsAssociated
+
+<% end %>
+
+; RubyInstaller identification for admin+nonadmin
+Root: <%= regroot %>; Subkey: Software\RubyInstaller; ValueType: string; ValueName: ; ValueData: ; Flags: uninsdeletevalue uninsdeletekeyifempty; Check: <%= chkadmin %>
+Root: <%= regroot %>; Subkey: Software\RubyInstaller\{#PackageBaseId}; ValueType: string; ValueName: ; ValueData: ; Flags: uninsdeletevalue uninsdeletekeyifempty; Check: <%= chkadmin %>
+Root: <%= regroot %>; Subkey: Software\RubyInstaller\{#PackageBaseId}\{#RubyVersion}; ValueType: string; ValueName: ; ValueData: ; Flags: uninsdeletekey; Check: <%= chkadmin %>
+Root: <%= regroot %>; Subkey: Software\RubyInstaller\{#PackageBaseId}\{#RubyVersion}; ValueType: string; ValueName: InstallLocation ; ValueData: {app}; Check: <%= chkadmin %>
+Root: <%= regroot %>; Subkey: Software\RubyInstaller\{#PackageBaseId}\{#RubyVersion}; ValueType: string; ValueName: InstallDate ; ValueData: {code:GetInstallDate}; Check: <%= chkadmin %>
+Root: <%= regroot %>; Subkey: Software\RubyInstaller\{#PackageBaseId}\{#RubyVersion}; ValueType: string; ValueName: PackageRelease ; ValueData: {#PackageRelease}; Check: <%= chkadmin %>
+Root: <%= regroot %>; Subkey: Software\RubyInstaller\{#PackageBaseId}\{#RubyVersion}; ValueType: string; ValueName: BuildPlatform ; ValueData: {#RubyBuildPlatform}; Check: <%= chkadmin %>
+
+<% end %>
+
+[Icons]
+Name: {group}\{cm:InteractiveRubyTitle}; Filename: {app}\bin\irb.cmd; Parameters: -rirb/completion; IconFilename: {app}\bin\ruby.exe
+Name: {group}\{cm:DocumentationTitle}\{cm:APIReferenceTitle,{#RubyVersion}}; Filename: {app}\share\doc\ruby\html\index.html; IconFilename: {app}\share\doc\ruby\html\images\ruby-doc.ico; Components: rdoc
+Name: {group}\{cm:RubyGemsDocumentationServerTitle}; Filename: {app}\bin\gem.cmd; Parameters: server --launch; IconFilename: {app}\share\doc\ruby\html\images\ruby-doc.ico; Flags: runminimized
+Name: {group}\{cm:StartCmdPromptWithRubyTitle}; Filename: {sys}\cmd.exe; Parameters: /E:ON /K {app}\bin\setrbvars.cmd; WorkingDir: {%HOMEDRIVE}{%HOMEPATH}; IconFilename: {sys}\cmd.exe
+Name: {group}\{cm:UninstallProgram,{#InstallerName}}; Filename: {uninstallexe}
+
+[Components]
+Name: "ruby"; Description: "Ruby-<%= package.rubyver %> base files"; Types: custom; Flags: fixed
+Name: "rdoc"; Description: "Ruby RI and HTML documentation"; Types: custom; Flags: disablenouninstallwarning
+<% if with_msys %>
+Name: "msys2"; Description: "MSYS2 development toolchain <%= Time.now.strftime("%Y-%m-%d") %>"; Types: custom; Flags: disablenouninstallwarning
+<% end %>
+
+[Types]
+Name: "custom"; Description: "Default installation"; Flags: iscustom
+
+
+[Code]
+<%= ovl_read_file "recipes/installer-inno/util.iss" %>
+<%= ovl_read_file "recipes/installer-inno/ri_gui.iss" %>
+<%= ovl_read_file "recipes/installer-inno/events.iss" %>

data/recipes/installer-inno/util.iss

@@ -0,0 +1,271 @@
+// Inno Setup utilities
+//
+// Copyright (c) 2009-2012 Jon Maken
+// Revision: 2012-05-28 14:06:56 -0600
+// License: Modified BSD License
+
+// forward declarations
+function MungePathish(const SrcList: TStringList; NewData: Array of String; RegValue: String; IsUninstalling: Boolean): Boolean; forward;
+procedure ModifyPathish(NewData: Array of String; RegValue, Delim: String); forward;
+function StrToList(const SrcString: String; Delim: String): TStringList; forward;
+function ListToStr(const SrcList: TStringList; Delim: String): String; forward;
+
+function IsAdmin(): Boolean;
+begin
+  Result := IsAdminLoggedOn or IsPowerUserLoggedOn;
+end;
+
+function IsNotAdmin(): Boolean;
+begin
+  Result := not (IsAdminLoggedOn or IsPowerUserLoggedOn);
+end;
+
+function GetUserHive(): Integer;
+begin
+  if IsAdminLoggedOn or IsPowerUserLoggedOn then
+    Result := HKLM
+  else
+    Result := HKCU;
+end;
+
+function GetEnvironmentKey(): String;
+begin
+  if IsAdmin then
+    Result := 'SYSTEM\CurrentControlSet\Control\Session Manager\Environment'
+  else
+    Result := 'Environment';
+end;
+
+function GetInstallDate(Param: String): String;
+begin
+  Result := GetDateTimeString('yyyymmdd', #0 , #0);
+end;
+
+procedure ModifyFileExts(Exts: Array of String);
+begin
+  ModifyPathish(Exts, 'PATHEXT', ';');
+end;
+
+procedure ModifyPath(Exts: Array of String);
+begin
+  ModifyPathish(Exts, 'PATH', ';');
+end;
+
+procedure ModifyRubyopt(Exts: Array of String);
+begin
+  ModifyPathish(Exts, 'RUBYOPT', ' ');
+end;
+
+// Modifies path-like registry keys such as PATH, PATHEXT
+procedure ModifyPathish(NewData: Array of String; RegValue, Delim: String);
+var
+  NeedRegChange: Boolean;
+  RootKey: Integer;
+  SubKey, OrigData, NewPathish, Tmp, TmpExpandable: String;
+  PathishList: TStringList;
+begin
+  RootKey := GetUserHive;
+  SubKey := GetEnvironmentKey;
+
+  try
+    RegQueryStringValue(RootKey, SubKey, RegValue, OrigData);
+    Log('Original ' + AnsiUppercase(RegValue) + ': ' + OrigData);
+
+    // ensure originally empty users PATHEXT also contains system values
+    if (RootKey = HKCU) and (AnsiUppercase(RegValue) = 'PATHEXT') and (OrigData = '') then
+    begin
+      Log('Empty HKCU ' + AnsiUppercase(RegValue) + ', prepending %PATHEXT% to new value');
+      OrigData := ('%' + RegValue + '%');
+    end;
+
+    PathishList := StrToList(OrigData, Delim);
+
+    NeedRegChange := MungePathish(PathishList, NewData, RegValue, IsUninstaller);
+
+    if NeedRegChange then
+    begin
+      NewPathish := ListToStr(PathishList, ';');
+
+      case AnsiUppercase(RegValue) of
+        'PATH': RegWriteExpandStringValue(RootKey, SubKey, 'Path', NewPathish);
+        ELSE RegWriteExpandStringValue(RootKey, SubKey, AnsiUppercase(RegValue), NewPathish);
+      end;
+      Log(AnsiUppercase(RegValue) + ' updated to: ' + NewPathish);
+
+      // remove values if empty after uninstaller reverts its mods
+      if IsUninstaller then
+      begin
+        if RegQueryStringValue(RootKey, SubKey, RegValue, Tmp) then
+        begin
+          // If the key is empty or expandable version (%RegValue%), remove it.
+          TmpExpandable := '%' + RegValue + '%';
+          if (Tmp = '') or (Tmp = TmpExpandable) then
+          begin
+            RegDeleteValue(RootKey, SubKey, RegValue);
+            Log('uninstaller deleted empty ' + AnsiUppercase(RegValue) +
+                ' to match original config');
+          end;
+        end;
+      end;
+    end else  // no reg change needed
+      Log('no changes need for ' + AnsiUppercase(RegValue));
+  finally
+    PathishList.Free;
+  end;
+end;
+
+function StrToList(const SrcString: String; Delim: String): TStringList;
+var
+  PathList: TStringList;
+  TmpPath: String;
+begin
+  PathList := TStringList.Create;
+
+  // empty PATH
+  if Length(SrcString) = 0 then Result := PathList;
+
+  if (Length(SrcString) > 0) then
+  begin
+    // single entry with no trailing ';'
+    if Pos(Delim, SrcString) = 0 then
+    begin
+      PathList.Append(SrcString);
+
+      Result := PathList;
+    // single entry with trailing ';'
+    // TODO address pathological case of multiple trailing ';' chars?
+    end else if Pos(Delim, SrcString) = Length(SrcString) then
+    begin
+      TmpPath := SrcString;
+      StringChangeEx(TmpPath, Delim, '', True);
+      PathList.Append(TmpPath);
+
+      Result := PathList;
+    end else
+    // multiple entries
+    begin
+      TmpPath := SrcString;
+      // clean up a leading ';' pathological case if it exists
+      if Pos(Delim, TmpPath) = 1 then TmpPath := Copy(TmpPath, 2, Length(TmpPath));
+      while (Pos(Delim, TmpPath) > 0) do
+      begin
+        PathList.Append(Copy(TmpPath, 1, Pos(Delim, TmpPath) - 1));
+        TmpPath := Copy(TmpPath, Pos(Delim, TmpPath) + 1, Length(TmpPath));
+      end;
+      // add final remaining dir if not empty due to trailing ';'
+      if Length(TmpPath) > 0 then PathList.Append(TmpPath);
+
+      Result := PathList;
+    end;
+  end;
+end;
+
+function ListToStr(const SrcList: TStringList; Delim: String): String;
+var
+  Path: String;
+  I: Integer;
+begin
+  for I := 0 to SrcList.Count - 1 do begin
+    if Length(Path) = 0 then
+    begin
+      Path := SrcList[I];
+      Continue;
+    end;
+    Path := Path + Delim + SrcList[I];
+  end;
+
+  Result := Path;
+end;
+
+function MungePathish(const SrcList: TStringList; NewData: Array of String;
+                      RegValue: String; IsUninstalling: Boolean): Boolean;
+var
+  RootKey, I, N: Integer;
+  Item: String;
+  RegChangeFlag: Boolean;
+begin
+  RegChangeFlag := False;
+  RootKey := GetUserHive;
+
+  for N := 0 to GetArrayLength(NewData) - 1 do
+  begin
+    Item := NewData[N];
+    if not IsUninstalling then  // installing...
+    begin
+      // update PathishList ONLY if new item isn't already in the list
+      // DO NOT ASSUME that the installer should duplicate entry or change order!
+      if SrcList.IndexOf(Item) = -1 then
+      begin
+        case AnsiUppercase(RegValue) of
+          'PATH', 'RUBYOPT': SrcList.Insert(0, Item);
+          'PATHEXT': SrcList.Add(AnsiUppercase(Item));
+        end;
+        RegChangeFlag := True;
+      end else  // already in existing config, no need for update; log it
+        Log(Item + ' already on ' + AnsiUppercase(RegValue) +
+          ' in original config; not modifying ' + AnsiUppercase(RegValue));
+    end else  // uninstalling...
+    begin
+      I := SrcList.IndexOf(Item);
+      if I <> -1 then  // found on PathishList, delete it
+      begin
+        SrcList.Delete(I);
+        RegChangeFlag := True;
+      end;  // not found on PathishList, no need for registry mod
+    end;
+  end;
+
+  Result := RegChangeFlag;
+end;
+
+function GetUninstallString(): String;
+var
+  sUnInstPath: String;
+  sUnInstallString: String;
+  appId: String;
+begin
+  appId := RemoveQuotes('{#emit SetupSetting("AppId")}');
+  sUnInstPath := ExpandConstant('Software\Microsoft\Windows\CurrentVersion\Uninstall\' + appId + '_is1');
+  sUnInstallString := '';
+  Log('Check registry for previous RubyInstaller: ' + sUnInstPath);
+  if not RegQueryStringValue(HKLM, sUnInstPath, 'UninstallString', sUnInstallString) then
+    RegQueryStringValue(HKCU, sUnInstPath, 'UninstallString', sUnInstallString);
+  Result := sUnInstallString;
+end;
+
+procedure UnInstallOldVersion();
+var
+  sUnInstallString: String;
+  iResultCode: Integer;
+  sUninstParams: String;
+begin
+  sUnInstallString := GetUninstallString();
+  if sUnInstallString <> '' then begin
+    // Previous RubyInstaller detected
+
+    sUnInstallString := RemoveQuotes(sUnInstallString);
+    sUninstParams := '/NORESTART /SUPPRESSMSGBOXES';
+    if WizardSilent then sUninstParams := sUninstParams + ' /VERYSILENT'
+    else sUninstParams := sUninstParams + ' /SILENT';
+
+    Log('Update installation detected - doing uninstall first: ' + sUnInstallString + ' ' + sUninstParams);
+    if Exec(sUnInstallString, sUninstParams, '', SW_HIDE, ewWaitUntilTerminated, iResultCode) then
+      Log('Successfully uninstalled previous ruby version')
+    else
+      Log('Failed to uninstalled previous ruby version');
+  end else
+    Log('No previous ruby version found');
+end;
+
+function Msys2AlreadyInstalled(): String;
+begin
+  if DirExists(ExpandConstant('{app}\msys32')) then Result := ExpandConstant('{app}\msys32')
+  else if DirExists(ExpandConstant('{app}\msys64')) then Result := ExpandConstant('{app}\msys64')
+  else Result := '';
+end;
+
+procedure DeleteRubyMsys2Directory();
+begin
+  DelTree(ExpandConstant('{app}/msys32'), True, True, True);
+  DelTree(ExpandConstant('{app}/msys64'), True, True, True);
+end;

data/recipes/msys2/10-define-variables.rake

@@ -0,0 +1,6 @@
+self.msys2_base_tar_url = "http://repo.msys2.org/distrib/msys2-#{package.msys_arch}-latest.tar.xz"
+self.msys2_base_tar_file = File.join(thisdir, File.basename(self.msys2_base_tar_url))
+self.sandboxdir = "#{thisdir}/#{package.msysdir}"
+self.devtools = File.join(sandboxdir, "devtools_installed")
+self.before_init_filelist = File.join(sandboxdir, "before_init_filelist")
+self.after_init_filelist = File.join(sandboxdir, "after_init_filelist")

data/recipes/msys2/30-download-msys2-base.rake

@@ -0,0 +1,4 @@
+directory File.dirname(self.msys2_base_tar_file)
+file self.msys2_base_tar_file => File.dirname(self.msys2_base_tar_file) do |t|
+  sh "wget #{self.msys2_base_tar_url.inspect} -O #{t.name.inspect}"
+end

data/recipes/msys2/40-extract-msys2-base.rake

@@ -0,0 +1,9 @@
+untardir = File.dirname(self.sandboxdir)
+directory untardir
+file self.before_init_filelist => [self.msys2_base_tar_file, untardir] do |t|
+  sh "tar xf #{self.msys2_base_tar_file.inspect} -C #{untardir.inspect}"
+
+  chdir self.sandboxdir do
+    sh "find -type f > #{File.basename self.before_init_filelist}"
+  end
+end