gel 0.2.0

data/lib/gel/store_catalog.rb

@@ -0,0 +1,31 @@
+# frozen_string_literal: true
+
+class Gel::StoreCatalog
+  attr_reader :store
+
+  def initialize(store)
+    @store = store
+    @cache = {}
+  end
+
+  def gem_info(name)
+    @cache.fetch(name) { @cache[name] = _info(name) }
+  end
+
+  def _info(name)
+    info = {}
+
+    @store.each(name) do |store_gem|
+      info[store_gem.version] = {
+        dependencies: store_gem.dependencies.map do |name, pairs|
+          [name, pairs.map { |op, ver| "#{op} #{ver}" }]
+        end,
+      }
+    end
+
+    info
+  end
+
+  def prepare
+  end
+end

data/lib/gel/store_gem.rb

@@ -0,0 +1,80 @@
+# frozen_string_literal: true
+
+class Gel::StoreGem
+  EXTENSION_SUBDIR_TOKEN = ".."
+
+  attr_reader :root, :name, :version, :extensions, :info
+
+  def initialize(root, name, version, extensions, info)
+    @root = root
+    @name = name
+    @version = version
+    @extensions = extensions unless extensions && extensions.empty?
+    @info = info
+  end
+
+  def ==(other)
+    other.class == self.class && @name == other.name && @version == other.version
+  end
+
+  def hash
+    @name.hash ^ @version.hash
+  end
+
+  def satisfies?(requirements)
+    requirements.satisfied_by?(gem_version)
+  end
+
+  def require_paths
+    paths = _require_paths.map { |reqp| "#{root}/#{reqp}" }
+    paths << extensions if extensions
+    raise(paths.inspect) unless paths.all? { |path| path.is_a?(String) }
+    paths
+  end
+
+  def bindir
+    @info[:bindir] || "bin"
+  end
+
+  def dependencies
+    @info[:dependencies]
+  end
+
+  def executables
+    @info[:executables]
+  end
+
+  def path(file, subdir = nil)
+    if subdir == EXTENSION_SUBDIR_TOKEN && extensions
+      "#{extensions}/#{file}"
+    else
+      subdir ||= _default_require_path
+      "#{root}/#{subdir}/#{file}"
+    end
+  end
+
+  def libs
+    _require_paths.each do |subdir|
+      prefix = "#{root}/#{subdir}/"
+      Dir["#{prefix}**/*.rb"].each do |path|
+        next unless path.start_with?(prefix)
+        file = path[prefix.size..-1].sub(/\.rb$/, "")
+        yield file, subdir
+      end
+    end
+  end
+
+  private
+
+  def gem_version
+    @gem_version ||= Gel::Support::GemVersion.new(version)
+  end
+
+  def _require_paths
+    @info[:require_paths]
+  end
+
+  def _default_require_path
+    _require_paths.first
+  end
+end

data/lib/gel/stub_set.rb

@@ -0,0 +1,51 @@
+# frozen_string_literal: true
+
+require_relative "db"
+
+class Gel::StubSet
+  attr_reader :root
+
+  def initialize(root)
+    @root = File.realpath(File.expand_path(root))
+    @db = Gel::DB.new(root, "stubs")
+    @dir = File.join(@root, "bin")
+  end
+
+  def add(store, executables)
+    @db.writing do
+      executables.each do |exe|
+        create_stub(exe) unless File.exist?(bin(exe))
+        @db[exe] = (@db[exe] || []) + [store]
+      end
+    end
+  end
+
+  def remove(store, executables)
+    @db.writing do
+      executables.each do |exe|
+        remaining_stores = (@db[exe] || []) - [store]
+        if remaining_stores.empty?
+          File.unlink(bin(exe))
+          @db.delete(exe)
+        else
+          @db[exe] = remaining_stores
+        end
+      end
+    end
+  end
+
+  def create_stub(exe)
+    Dir.mkdir(@dir) unless Dir.exist?(@dir)
+
+    File.open(bin(exe), "w", 0755) do |f|
+      f.write(<<STUB)
+#!/usr/bin/env gel stub #{exe}
+# This file is generated and managed by Gel.
+STUB
+    end
+  end
+
+  def bin(exe)
+    File.join(@dir, exe)
+  end
+end

data/lib/gel/support/gem_platform.rb

@@ -0,0 +1,225 @@
+# frozen_string_literal: true
+#
+# Copyright (c) Chad Fowler, Rich Kilmer, Jim Weirich and others.
+# Portions copyright (c) Engine Yard and Andre Arko
+#
+# Redistributed under the terms of the MIT license
+#
+
+require "rubygems/deprecate"
+
+##
+# Available list of platforms for targeting Gem installations.
+#
+# See `gem help platform` for information on platform matching.
+
+class Gel::Support::GemPlatform
+
+  @local = nil
+
+  attr_accessor :cpu
+
+  attr_accessor :os
+
+  attr_accessor :version
+
+  def self.local
+    arch = RbConfig::CONFIG['arch']
+    arch = "#{arch}_60" if arch =~ /mswin(?:32|64)$/
+    @local ||= new(arch)
+  end
+
+  def self.platforms=(platforms)
+    @platforms = platforms
+  end
+
+  def self.platforms
+    @platforms ||= []
+    if @platforms.empty?
+      @platforms = [Gel::Support::GemPlatform::RUBY, Gel::Support::GemPlatform.local]
+    end
+    @platforms
+  end
+
+  def self.match(platform)
+    platforms.any? do |local_platform|
+      platform.nil? or
+        local_platform == platform or
+        (local_platform != Gel::Support::GemPlatform::RUBY and local_platform =~ platform)
+    end
+  end
+
+  def self.installable?(spec)
+    if spec.respond_to? :installable_platform?
+      spec.installable_platform?
+    else
+      match spec.platform
+    end
+  end
+
+  def self.new(arch) # :nodoc:
+    case arch
+    when Gel::Support::GemPlatform::CURRENT then
+      Gel::Support::GemPlatform.local
+    when Gel::Support::GemPlatform::RUBY, nil, '' then
+      Gel::Support::GemPlatform::RUBY
+    else
+      super
+    end
+  end
+
+  def initialize(arch)
+    case arch
+    when Array then
+      @cpu, @os, @version = arch
+    when String then
+      arch = arch.split '-'
+
+      if arch.length > 2 and arch.last !~ /\d/  # reassemble x86-linux-gnu
+        extra = arch.pop
+        arch.last << "-#{extra}"
+      end
+
+      cpu = arch.shift
+
+      @cpu = case cpu
+             when /i\d86/ then 'x86'
+             else cpu
+             end
+
+      if arch.length == 2 and arch.last =~ /^\d+(\.\d+)?$/  # for command-line
+        @os, @version = arch
+        return
+      end
+
+      os, = arch
+      @cpu, os = nil, cpu if os.nil? # legacy jruby
+
+      @os, @version = case os
+                      when /aix(\d+)?/ then             [ 'aix',       $1  ]
+                      when /cygwin/ then                [ 'cygwin',    nil ]
+                      when /darwin(\d+)?/ then          [ 'darwin',    $1  ]
+                      when /^macruby$/ then             [ 'macruby',   nil ]
+                      when /freebsd(\d+)?/ then         [ 'freebsd',   $1  ]
+                      when /hpux(\d+)?/ then            [ 'hpux',      $1  ]
+                      when /^java$/, /^jruby$/ then     [ 'java',      nil ]
+                      when /^java([\d.]*)/ then         [ 'java',      $1  ]
+                      when /^dalvik(\d+)?$/ then        [ 'dalvik',    $1  ]
+                      when /^dotnet$/ then              [ 'dotnet',    nil ]
+                      when /^dotnet([\d.]*)/ then       [ 'dotnet',    $1  ]
+                      when /linux/ then                 [ 'linux',     $1  ]
+                      when /mingw32/ then               [ 'mingw32',   nil ]
+                      when /(mswin\d+)(\_(\d+))?/ then
+                        os, version = $1, $3
+                        @cpu = 'x86' if @cpu.nil? and os =~ /32$/
+                        [os, version]
+                      when /netbsdelf/ then             [ 'netbsdelf', nil ]
+                      when /openbsd(\d+\.\d+)?/ then    [ 'openbsd',   $1  ]
+                      when /bitrig(\d+\.\d+)?/ then     [ 'bitrig',    $1  ]
+                      when /solaris(\d+\.\d+)?/ then    [ 'solaris',   $1  ]
+                      # test
+                      when /^(\w+_platform)(\d+)?/ then [ $1,          $2  ]
+                      else                              [ 'unknown',   nil ]
+                      end
+    when Gel::Support::GemPlatform then
+      @cpu = arch.cpu
+      @os = arch.os
+      @version = arch.version
+    else
+      raise ArgumentError, "invalid argument #{arch.inspect}"
+    end
+  end
+
+  def inspect
+    "%s @cpu=%p, @os=%p, @version=%p>" % [super[0..-2], *to_a]
+  end
+
+  def to_a
+    [@cpu, @os, @version]
+  end
+
+  def to_s
+    to_a.compact.join '-'
+  end
+
+  ##
+  # Is +other+ equal to this platform?  Two platforms are equal if they have
+  # the same CPU, OS and version.
+
+  def ==(other)
+    self.class === other and to_a == other.to_a
+  end
+
+  alias :eql? :==
+
+  def hash # :nodoc:
+    to_a.hash
+  end
+
+  ##
+  # Does +other+ match this platform?  Two platforms match if they have the
+  # same CPU, or either has a CPU of 'universal', they have the same OS, and
+  # they have the same version, or either has no version.
+  #
+  # Additionally, the platform will match if the local CPU is 'arm' and the
+  # other CPU starts with "arm" (for generic ARM family support).
+
+  def ===(other)
+    return nil unless Gel::Support::GemPlatform === other
+
+    # cpu
+    ([nil,'universal'].include?(@cpu) or [nil, 'universal'].include?(other.cpu) or @cpu == other.cpu or
+    (@cpu == 'arm' and other.cpu =~ /\Aarm/)) and
+
+    # os
+    @os == other.os and
+
+    # version
+    (@version.nil? or other.version.nil? or @version == other.version)
+  end
+
+  ##
+  # Does +other+ match this platform?  If +other+ is a String it will be
+  # converted to a Gel::Support::GemPlatform first.  See #=== for matching rules.
+
+  def =~(other)
+    case other
+    when Gel::Support::GemPlatform then # nop
+    when String then
+      # This data is from http://gems.rubyforge.org/gems/yaml on 19 Aug 2007
+      other = case other
+              when /^i686-darwin(\d)/     then ['x86',       'darwin',  $1    ]
+              when /^i\d86-linux/         then ['x86',       'linux',   nil   ]
+              when 'java', 'jruby'        then [nil,         'java',    nil   ]
+              when /^dalvik(\d+)?$/       then [nil,         'dalvik',  $1    ]
+              when /dotnet(\-(\d+\.\d+))?/ then ['universal','dotnet',  $2    ]
+              when /mswin32(\_(\d+))?/    then ['x86',       'mswin32', $2    ]
+              when /mswin64(\_(\d+))?/    then ['x64',       'mswin64', $2    ]
+              when 'powerpc-darwin'       then ['powerpc',   'darwin',  nil   ]
+              when /powerpc-darwin(\d)/   then ['powerpc',   'darwin',  $1    ]
+              when /sparc-solaris2.8/     then ['sparc',     'solaris', '2.8' ]
+              when /universal-darwin(\d)/ then ['universal', 'darwin',  $1    ]
+              else                             other
+              end
+
+      other = Gel::Support::GemPlatform.new other
+    else
+      return nil
+    end
+
+    self === other
+  end
+
+  ##
+  # A pure-Ruby gem that may use Gem::Specification#extensions to build
+  # binary files.
+
+  RUBY = 'ruby'.freeze
+
+  ##
+  # A platform-specific gem that is built for the packaging Ruby's platform.
+  # This will be replaced with Gel::Support::GemPlatform::local.
+
+  CURRENT = 'current'.freeze
+
+end

data/lib/gel/support/gem_requirement.rb

@@ -0,0 +1,264 @@
+# frozen_string_literal: true
+#
+# Copyright (c) Chad Fowler, Rich Kilmer, Jim Weirich and others.
+# Portions copyright (c) Engine Yard and Andre Arko
+#
+# Redistributed under the terms of the MIT license
+#
+
+require_relative "gem_version"
+
+##
+# A Requirement is a set of one or more version restrictions. It supports a
+# few (<tt>=, !=, >, <, >=, <=, ~></tt>) different restriction operators.
+#
+# See Gem::Version for a description on how versions and requirements work
+# together in RubyGems.
+
+class Gel::Support::GemRequirement
+  OPS = { #:nodoc:
+    "="  =>  lambda { |v, r| v == r },
+    "!=" =>  lambda { |v, r| v != r },
+    ">"  =>  lambda { |v, r| v >  r },
+    "<"  =>  lambda { |v, r| v <  r },
+    ">=" =>  lambda { |v, r| v >= r },
+    "<=" =>  lambda { |v, r| v <= r },
+    "~>" =>  lambda { |v, r| v >= r && v.release < r.bump }
+  }
+
+  SOURCE_SET_REQUIREMENT = Struct.new(:for_lockfile).new "!" # :nodoc:
+
+  quoted  = OPS.keys.map { |k| Regexp.quote k }.join "|"
+  PATTERN_RAW = "\\s*(#{quoted})?\\s*(#{Gel::Support::GemVersion::VERSION_PATTERN})\\s*" # :nodoc:
+
+  ##
+  # A regular expression that matches a requirement
+
+  PATTERN = /\A#{PATTERN_RAW}\z/
+
+  ##
+  # The default requirement matches any version
+
+  DefaultRequirement = [">=", Gel::Support::GemVersion.new(0)]
+
+  ##
+  # Raised when a bad requirement is encountered
+
+  class BadRequirementError < ArgumentError; end
+
+  ##
+  # Factory method to create a Gem::Requirement object.  Input may be
+  # a Version, a String, or nil.  Intended to simplify client code.
+  #
+  # If the input is "weird", the default version requirement is
+  # returned.
+
+  def self.create *inputs
+    return new inputs if inputs.length > 1
+
+    input = inputs.shift
+
+    case input
+    when Gel::Support::GemRequirement then
+      input
+    when Gel::Support::GemVersion, Array then
+      new input
+    when '!' then
+      source_set
+    else
+      if input.respond_to? :to_str then
+        new [input.to_str]
+      else
+        default
+      end
+    end
+  end
+
+  ##
+  # A default "version requirement" can surely _only_ be '>= 0'.
+
+  def self.default
+    new '>= 0'
+  end
+
+  ###
+  # A source set requirement, used for Gemfiles and lockfiles
+
+  def self.source_set # :nodoc:
+    SOURCE_SET_REQUIREMENT
+  end
+
+  ##
+  # Parse +obj+, returning an <tt>[op, version]</tt> pair. +obj+ can
+  # be a String or a Gem::Version.
+  #
+  # If +obj+ is a String, it can be either a full requirement
+  # specification, like <tt>">= 1.2"</tt>, or a simple version number,
+  # like <tt>"1.2"</tt>.
+  #
+  #     parse("> 1.0")                 # => [">", Gem::Version.new("1.0")]
+  #     parse("1.0")                   # => ["=", Gem::Version.new("1.0")]
+  #     parse(Gem::Version.new("1.0")) # => ["=,  Gem::Version.new("1.0")]
+
+  def self.parse obj
+    return ["=", obj] if Gel::Support::GemVersion === obj
+
+    unless PATTERN =~ obj.to_s
+      raise BadRequirementError, "Illformed requirement [#{obj.inspect}]"
+    end
+
+    if $1 == ">=" && $2 == "0"
+      DefaultRequirement
+    else
+      [$1 || "=", Gel::Support::GemVersion.new($2)]
+    end
+  end
+
+  ##
+  # An array of requirement pairs. The first element of the pair is
+  # the op, and the second is the Gem::Version.
+
+  attr_reader :requirements #:nodoc:
+
+  ##
+  # Constructs a requirement from +requirements+. Requirements can be
+  # Strings, Gem::Versions, or Arrays of those. +nil+ and duplicate
+  # requirements are ignored. An empty set of +requirements+ is the
+  # same as <tt>">= 0"</tt>.
+
+  def initialize *requirements
+    requirements = requirements.flatten
+    requirements.compact!
+    requirements.uniq!
+
+    if requirements.empty?
+      @requirements = [DefaultRequirement]
+    else
+      @requirements = requirements.map! { |r| self.class.parse r }
+    end
+  end
+
+  ##
+  # Concatenates the +new+ requirements onto this requirement.
+
+  def concat new
+    new = new.flatten
+    new.compact!
+    new.uniq!
+    new = new.map { |r| self.class.parse r }
+
+    @requirements.concat new
+  end
+
+  ##
+  # Formats this requirement for use in a Gem::RequestSet::Lockfile.
+
+  def for_lockfile # :nodoc:
+    return if [DefaultRequirement] == @requirements
+
+    list = requirements.sort_by { |_, version|
+      version
+    }.map { |op, version|
+      "#{op} #{version}"
+    }.uniq
+
+    " (#{list.join ', '})"
+  end
+
+  ##
+  # true if this gem has no requirements.
+
+  def none?
+    if @requirements.size == 1
+      @requirements[0] == DefaultRequirement
+    else
+      false
+    end
+  end
+
+  ##
+  # true if the requirement is for only an exact version
+
+  def exact?
+    return false unless @requirements.size == 1
+    @requirements[0][0] == "="
+  end
+
+  def as_list # :nodoc:
+    requirements.map { |op, version| "#{op} #{version}" }.sort
+  end
+
+  def hash # :nodoc:
+    requirements.sort.hash
+  end
+
+  def marshal_dump # :nodoc:
+    [@requirements]
+  end
+
+  def marshal_load array # :nodoc:
+    @requirements = array[0]
+  end
+
+  def yaml_initialize(tag, vals) # :nodoc:
+    vals.each do |ivar, val|
+      instance_variable_set "@#{ivar}", val
+    end
+  end
+
+  def init_with coder # :nodoc:
+    yaml_initialize coder.tag, coder.map
+  end
+
+  def to_yaml_properties # :nodoc:
+    ["@requirements"]
+  end
+
+  def encode_with coder # :nodoc:
+    coder.add 'requirements', @requirements
+  end
+
+  ##
+  # A requirement is a prerelease if any of the versions inside of it
+  # are prereleases
+
+  def prerelease?
+    requirements.any? { |r| r.last.prerelease? }
+  end
+
+  def pretty_print q # :nodoc:
+    q.group 1, 'Gel::Support::GemRequirement.new(', ')' do
+      q.pp as_list
+    end
+  end
+
+  ##
+  # True if +version+ satisfies this Requirement.
+
+  def satisfied_by? version
+    raise ArgumentError, "Need a Gel::Support::GemVersion: #{version.inspect}" unless
+      Gel::Support::GemVersion === version
+    # #28965: syck has a bug with unquoted '=' YAML.loading as YAML::DefaultKey
+    requirements.all? { |op, rv| (OPS[op] || OPS["="]).call version, rv }
+  end
+
+  alias :=== :satisfied_by?
+  alias :=~ :satisfied_by?
+
+  ##
+  # True if the requirement will not always match the latest version.
+
+  def specific?
+    return true if @requirements.length > 1 # GIGO, > 1, > 2 is silly
+
+    not %w[> >=].include? @requirements.first.first # grab the operator
+  end
+
+  def to_s # :nodoc:
+    as_list.join ", "
+  end
+
+  def == other # :nodoc:
+    Gel::Support::GemRequirement === other and to_s == other.to_s
+  end
+end