rubyinstaller-build 0.1.0

data/lib/ruby_installer/build/dll_directory.rb

@@ -0,0 +1,97 @@
+require "fiddle"
+
+module RubyInstaller
+module Build # Use for: Build, Runtime
+  # :nodoc:
+  class DllDirectory
+    class Error < RuntimeError
+    end
+    class WinApiError < Error
+    end
+
+    KERNEL32 = Fiddle.dlopen('kernel32.dll')
+    begin
+      SetDefaultDllDirectories = Fiddle::Function.new(
+        KERNEL32['SetDefaultDllDirectories'], [Fiddle::TYPE_LONG], Fiddle::TYPE_INT
+      )
+
+      AddDllDirectory = Fiddle::Function.new(
+        KERNEL32['AddDllDirectory'], [Fiddle::TYPE_VOIDP], Fiddle::TYPE_VOIDP
+      )
+
+      RemoveDllDirectory = Fiddle::Function.new(
+        KERNEL32['RemoveDllDirectory'], [Fiddle::TYPE_VOIDP], Fiddle::TYPE_INT
+      )
+    rescue Fiddle::DLError
+      @@add_dll_dir_available = false
+    else
+      @@add_dll_dir_available = ENV['RI_FORCE_PATH_FOR_DLL'] == '1' ? false : true
+    end
+
+    attr_reader :path
+
+    # Set default search paths to the application directory (where ruby.exe resides) and to paths that are added per DllDirectory.new().
+    # It disables the PATH environment variable for DLL search.
+    #
+    # This method is usually called while RubyInstaller startup.
+    def self.set_defaults
+      if @@add_dll_dir_available
+        set_default_dll_directories_winapi
+      end
+    end
+
+    # See RubyInstaller::Build.add_dll_directory
+    def initialize(path)
+      path = File.expand_path(path)
+
+      if @@add_dll_dir_available
+        # Prefer Winapi function AddDllDirectory(), which requires Windows 7 with KB2533623 or newer.
+        self.class.set_default_dll_directories_winapi
+        @handle = self.class.add_dll_directory_winapi(path)
+        @path = path
+      else
+        raise Error, "invalid path #{path}" unless File.directory?(path)
+        # For older systems fall back to the legacy method of using PATH environment variable.
+        if ENV['PATH'].include?(path)
+          @handle = nil
+          @path = nil
+        else
+          $stderr.puts "Temporarily enhancing PATH by #{path}..." if $DEBUG
+          ENV['PATH'] = path + ";" + ENV['PATH']
+          @handle = nil
+          @path = path
+        end
+      end
+      return unless block_given?
+      begin
+        yield self
+      ensure
+        remove
+      end
+    end
+
+    # Set default search paths to LOAD_LIBRARY_SEARCH_DEFAULT_DIRS to include path added by add_dll_directory_winapi() and exclude paths set per PATH environment variable.
+    def self.set_default_dll_directories_winapi
+      raise WinApiError, "SetDefaultDllDirectories failed" if SetDefaultDllDirectories.call(0x00001000)==0
+    end
+
+    def self.add_dll_directory_winapi(path)
+      strutf16 = (path + "\0").encode(Encoding::UTF_16LE)
+      strptr = Fiddle::Pointer.malloc(strutf16.bytesize)
+      strptr[0, strptr.size] = strutf16
+      handle = AddDllDirectory.call(strptr)
+      raise WinApiError, "AddDllDirectory failed for #{path}" if handle.null?
+      handle
+    end
+
+    # This method removes the given directory from the active DLL search paths.
+    def remove
+      if @handle
+        raise WinApiError, "RemoveDllDirectory failed for #{@path}" if RemoveDllDirectory.call(@handle) == 0
+      elsif @path
+        ENV['PATH'] = ENV['PATH'].sub(@path + ";", "")
+      end
+    end
+  end
+end
+end

data/lib/ruby_installer/build/erb_compiler.rb

@@ -0,0 +1,61 @@
+require "erb"
+require "fileutils"
+
+module RubyInstaller
+module Build
+class ErbCompiler
+  class Box
+    def initialize(co, task)
+      @co = co
+      @task = task
+    end
+
+    def method_missing(meth, *args, &block)
+      @task.send(meth, *args, &block)
+    end
+
+    def binding
+      Kernel.binding
+    end
+
+    # Quote a text string with the quotation rules of the resulting files.
+    def q(text)
+      meth = case @co.result_filename
+        when /\.iss$/ then :q_inno
+        else raise "can not determine quote rules for #{@co.result_filename}"
+      end
+      send(meth, text)
+    end
+  end
+
+  include Utils
+
+  attr_reader :erb_filename
+  attr_reader :erb_filename_abs
+
+  def initialize(erb_file_rel, result_file_rel=nil)
+    @erb_filename = erb_file_rel
+    @erb_filename_abs = ovl_expand_file(erb_file_rel)
+    @erb = ERB.new(File.read(@erb_filename_abs, encoding: "UTF-8"))
+    @result_file_rel = result_file_rel || erb_file_rel.sub(/\.erb$/, "")
+    @erb.filename = @result_file_rel
+  end
+
+  def result_filename
+    @result_file_rel
+  end
+
+  def result(task=nil)
+    box = Box.new(self, task)
+    @erb.result(box.binding)
+  end
+
+  def write_result(task=nil, filename=nil)
+    filename ||= result_filename
+    FileUtils.mkdir_p File.dirname(filename)
+    File.binwrite(filename, result(task))
+    filename
+  end
+end
+end
+end

data/lib/ruby_installer/build/gem_version.rb

@@ -0,0 +1,5 @@
+module RubyInstaller
+module Build
+  GEM_VERSION = "0.1.0"
+end
+end

data/lib/ruby_installer/build/gems.rb

@@ -0,0 +1,74 @@
+require "yaml"
+
+module RubyInstaller
+module Build
+  module Gems
+    class InstallSpec
+      include RubyInstaller::Build::Utils
+
+      attr_accessor :gem_name
+      attr_accessor :gem_version
+      attr_accessor :gem_build
+
+      attr_accessor :gem_cmd
+      attr_accessor :gem_install_opts
+
+      def initialize(gem_name)
+        @gem_name = gem_name.dup
+        @gem_cmd = "gem"
+        @gem_install_opts = []
+
+        begin
+          fname = ovl_expand_file("gems/#{gem_name}.yaml")
+        rescue Errno::ENOENT
+        else
+          yaml = YAML.load_file(fname)
+          raise ArgumentError, "Not a Hash in #{fname}" unless yaml.is_a?(Hash)
+
+          yaml.each do |key, value|
+            send("#{key}=", value)
+          end
+        end
+      end
+
+      def install
+        if gem_build
+          out = run_capture_output(gem_cmd, "build", gem_build)
+          if out =~ /File: (.*)/
+            gem_file = $1
+          else
+            raise "Failed to build #{gem_name}"
+          end
+        end
+
+        if gem_version
+          version_opts = ["--version", gem_version]
+        end
+
+        run(gem_cmd, "install", *gem_install_opts, gem_file || gem_name, *version_opts)
+      end
+
+      def run(*args)
+        puts args.join(" ")
+        res = system(*args)
+        raise "Command failed: #{args.join(" ")}" unless res
+      end
+
+      def run_capture_output(*args)
+        puts args.join(" ")
+        IO.popen(args, &:read)
+      end
+    end
+
+    def self.install(*gems, **options)
+      gems.each do |name|
+        spec = InstallSpec.new(name)
+        options.each do |key, value|
+          spec.send("#{key}=", value)
+        end
+        spec.install
+      end
+    end
+  end
+end
+end

data/lib/ruby_installer/build/msys2_installation.rb

@@ -0,0 +1,280 @@
+require "rbconfig"
+
+module RubyInstaller
+module Build # Use for: Build, Runtime
+  # :nodoc:
+  class Msys2Installation
+    MSYS2_INSTALL_KEY = "SOFTWARE/Microsoft/Windows/CurrentVersion/Uninstall/"
+
+    class MsysNotFound < RuntimeError
+    end
+    class CommandError < RuntimeError
+    end
+
+    attr_reader :mingwdir
+    attr_reader :mingwarch
+    attr_reader :mingw_package_prefix
+    attr_reader :ruby_bin_dir
+
+    def initialize(msys_path: nil, mingwarch: nil, mingw_package_prefix: nil, ruby_bin_dir: nil)
+      @msys_path = msys_path
+      @msys_path_fixed = msys_path ? true : false
+      @mingwdir = nil
+      @mingwarch = mingwarch || (RUBY_PLATFORM=~/x64/ ? 'mingw64' : 'mingw32')
+      @mingw_package_prefix = mingw_package_prefix || (RUBY_PLATFORM=~/x64/ ? "mingw-w64-x86_64" : "mingw-w64-i686")
+      @ruby_bin_dir = ruby_bin_dir || File.join(RbConfig::TOPDIR, "bin")
+    end
+
+    def reset_cache
+      @msys_path = nil unless @msys_path_fixed
+    end
+
+    def iterate_msys_paths
+      # Prefer MSYS2 when installed within the ruby directory.
+      yield File.join(RbConfig::TOPDIR, "msys64")
+      yield File.join(RbConfig::TOPDIR, "msys32")
+
+      # Then try MSYS2 next to the ruby directory.
+      yield File.join(File.dirname(RbConfig::TOPDIR), "msys64")
+      yield File.join(File.dirname(RbConfig::TOPDIR), "msys32")
+
+      # If msys2 is installed at the default location
+      yield "c:/msys64"
+      yield "c:/msys32"
+
+      # If msys2 is installed per installer.exe
+      require "win32/registry"
+      begin
+        Win32::Registry::HKEY_CURRENT_USER.open(backslachs(MSYS2_INSTALL_KEY)) do |reg|
+          reg.each_key do |subkey|
+            subreg = reg.open(subkey)
+            begin
+              if subreg['DisplayName'] =~ /^MSYS2 / && File.directory?(il=subreg['InstallLocation'])
+                yield il
+              end
+            rescue Encoding::InvalidByteSequenceError, Win32::Registry::Error
+              # Ignore entries without valid installer data or broken character encoding
+            end
+          end
+        end
+      rescue Win32::Registry::Error
+      end
+
+      ENV['PATH'].split(";").each do |path|
+        # If /path/to/msys64 is in the PATH (e.g. Chocolatey)
+        yield path
+      end
+
+      # If msys2 is installed by scoop package manager
+      yield IO.popen(["scoop", "prefix", "msys2"], &:read).strip rescue StandardError
+
+      raise MsysNotFound, "MSYS2 could not be found"
+    end
+
+    def msys_path
+      @msys_path ||= begin
+        iterate_msys_paths do |path|
+          if File.exist?(File.join(path, "usr/bin/msys-2.0.dll"))
+            break backslachs(path)
+          end
+        end
+      end
+    end
+
+    def msys_bin_path
+      backslachs( File.join(msys_path, "/usr/bin") )
+    end
+
+    def mingw_bin_path
+      backslachs( File.join(msys_path, mingwarch, "bin") )
+    end
+
+    def mingw_prefix
+      "/#{mingwarch}"
+    end
+
+    def enable_dll_search_paths
+      @mingwdir ||= begin
+        DllDirectory.set_defaults
+        path = mingw_bin_path
+        DllDirectory.new(path) if File.directory?(path)
+      rescue MsysNotFound
+        # We silently ignore this error to allow Ruby installations without MSYS2.
+      end
+    end
+
+    def disable_dll_search_paths
+      @mingwdir.remove if @mingwdir
+      @mingwdir = nil
+    end
+
+    private def backslachs(path)
+      path.gsub("/", "\\")
+    end
+
+    private def msys_apps_envvars
+      vars = {}
+      msys_bin = msys_bin_path
+      mingw_bin = mingw_bin_path
+      ruby_bin = backslachs( ruby_bin_dir )
+
+      vars['PATH'] = ruby_bin + ";" + mingw_bin + ";" + msys_bin
+      vars['RI_DEVKIT'] = msys_path
+      vars['MSYSTEM'] = mingwarch.upcase
+      vars['PKG_CONFIG_PATH'] = "#{mingw_prefix}/lib/pkgconfig:#{mingw_prefix}/share/pkgconfig"
+      vars['ACLOCAL_PATH'] = "#{mingw_prefix}/share/aclocal:/usr/share/aclocal"
+      vars['MANPATH'] = "#{mingw_prefix}/share/man"
+      vars['MINGW_PACKAGE_PREFIX'] = mingw_package_prefix
+      locale = IO.popen([File.join(msys_bin, "locale"), "-uU"], &:read) rescue SystemCallError
+      vars['LANG'] = locale=~/UTF-8/ ? locale.to_s.strip : 'C'
+
+      vars
+    end
+
+    private def with_msys_install_hint(if_no_msys = :hint)
+      case if_no_msys
+      when :hint
+        begin
+          yield
+        rescue MsysNotFound
+          $stderr.puts "MSYS2 could not be found. Please run 'ridk install'"
+          $stderr.puts "or download and install MSYS2 manually from https://msys2.github.io/"
+          exit 1
+        end
+      when :raise
+        yield
+      else
+        raise ArgumentError, "invalid value #{if_no_msys.inspect} for variable if_no_msys"
+      end
+    end
+
+    def enable_msys_apps(if_no_msys: :hint, for_gem_install: false)
+      vars = with_msys_install_hint(if_no_msys) do
+        msys_apps_envvars
+      end
+
+      changed = false
+
+      if (path=vars.delete("PATH")) && !ENV['PATH'].include?(path)
+        phrase = "Temporarily enhancing PATH for MSYS/MINGW..."
+        if for_gem_install && defined?(Gem)
+          Gem.ui.say(phrase) if Gem.configuration.verbose
+        elsif $DEBUG
+          $stderr.puts phrase
+        end
+        changed = true
+        ENV['PATH'] = path + ";" + ENV['PATH']
+      end
+      vars.each do |key, val|
+        changed = true if ENV[key] != val
+        ENV[key] = val
+      end
+
+      changed
+    end
+
+    def disable_msys_apps(if_no_msys: :hint)
+      vars = with_msys_install_hint(if_no_msys) do
+        msys_apps_envvars
+      end
+      changed = false
+      if path=vars.delete("PATH")
+        old_path = ENV['PATH']
+        ENV['PATH'] = old_path.gsub(path + ";", "")
+        changed = ENV['PATH'] != old_path
+      end
+      vars.each do |key, val|
+        changed = true if ENV[key]
+        ENV.delete(key)
+      end
+
+      changed
+    end
+
+    def with_msys_apps_enabled(**args)
+      changed = enable_msys_apps(**args)
+      begin
+        yield
+      ensure
+        disable_msys_apps(**args) if changed
+      end
+    end
+
+    def with_msys_apps_disabled(**args)
+      changed = disable_msys_apps(**args)
+      begin
+        yield
+      ensure
+        enable_msys_apps(**args) if changed
+      end
+    end
+
+    # This method is used for the ridk command.
+    def enable_msys_apps_per_cmd
+      vars = with_msys_install_hint{ msys_apps_envvars }
+      if (path=vars.delete("PATH")) && !ENV['PATH'].include?(path)
+        vars['PATH'] = path + ";" + ENV['PATH']
+      end
+      vars.map do |key, val|
+        "#{key}=#{val}"
+      end.join("\n")
+    end
+
+    # This method is used for the ridk command.
+    def disable_msys_apps_per_cmd
+      vars = with_msys_install_hint{ msys_apps_envvars }
+      str = "".dup
+      if path=vars.delete("PATH")
+        str << "PATH=#{ ENV['PATH'].gsub(path + ";", "") }\n"
+      end
+      str << vars.map do |key, val|
+        "#{key}="
+      end.join("\n")
+    end
+
+    # This method is used for the ridk command.
+    def enable_msys_apps_per_ps1
+      vars = with_msys_install_hint{ msys_apps_envvars }
+      if (path=vars.delete("PATH")) && !ENV['PATH'].include?(path)
+        vars['PATH'] = path + ";" + ENV['PATH']
+      end
+      vars.map do |key, val|
+        "$env:#{key}=\"#{val.gsub('"', '`"')}\""
+      end.join(";")
+    end
+
+    # This method is used for the ridk command.
+    def disable_msys_apps_per_ps1
+      vars = with_msys_install_hint{ msys_apps_envvars }
+      str = "".dup
+      if path=vars.delete("PATH")
+        str << "$env:PATH=\"#{ ENV['PATH'].gsub(path + ";", "").gsub('"', '`"') }\";"
+      end
+      str << vars.map do |key, val|
+        "$env:#{key}=''"
+      end.join(";")
+    end
+
+    def install_packages(packages, verbose: false)
+      return if packages.empty?
+
+      with_msys_apps_enabled do
+        Gem.ui.say("Installing required msys2 packages: #{packages.join(" ")}") if verbose
+
+        args = ["pacman", "-S", "--needed", "--noconfirm", *packages]
+        Gem.ui.say("> #{args.join(" ")}") if verbose==1
+
+        res = IO.popen(args, &:read)
+        raise CommandError, "pacman failed with the following output:\n#{res}" if !$? || $?.exitstatus != 0
+
+        Gem.ui.say(res) if verbose==1
+      end
+    end
+
+    def install_mingw_packages(packages, verbose: false)
+      packages = packages.map{|pack| "#{mingw_package_prefix}-#{pack}" }
+      install_packages(packages, verbose: verbose)
+    end
+  end
+end
+end