carat 1.9.9.pre1

data/lib/carat/runtime.rb

@@ -0,0 +1,289 @@
+require "digest/sha1"
+
+module Carat
+  class Runtime < Environment
+    include SharedHelpers
+
+    def setup(*groups)
+      groups.map! { |g| g.to_sym }
+
+      # Has to happen first
+      clean_load_path
+
+      specs = groups.any? ? @definition.specs_for(groups) : requested_specs
+
+      setup_environment
+      Carat.rubygems.replace_entrypoints(specs)
+
+      # Activate the specs
+      specs.each do |spec|
+        unless spec.loaded_from
+          raise GemNotFound, "#{spec.full_name} is missing. Run `carat` to get it."
+        end
+
+        if activated_spec = Carat.rubygems.loaded_specs(spec.name) and activated_spec.version != spec.version
+          e = Gem::LoadError.new "You have already activated #{activated_spec.name} #{activated_spec.version}, " \
+                                 "but your Gemfile requires #{spec.name} #{spec.version}. Prepending " \
+                                 "`carat exec` to your command may solve this."
+          e.name = spec.name
+          if e.respond_to?(:requirement=)
+            e.requirement = Gem::Requirement.new(spec.version.to_s)
+          else
+            e.version_requirement = Gem::Requirement.new(spec.version.to_s)
+          end
+          raise e
+        end
+
+        Carat.rubygems.mark_loaded(spec)
+        load_paths = spec.load_paths.reject {|path| $LOAD_PATH.include?(path)}
+        $LOAD_PATH.unshift(*load_paths)
+      end
+
+      setup_manpath
+
+      lock
+
+      self
+    end
+
+    REQUIRE_ERRORS = [
+      /^no such file to load -- (.+)$/i,
+      /^Missing \w+ (?:file\s*)?([^\s]+.rb)$/i,
+      /^Missing API definition file in (.+)$/i,
+      /^cannot load such file -- (.+)$/i,
+      /^dlopen\([^)]*\): Library not loaded: (.+)$/i,
+    ]
+
+    def require(*groups)
+      groups.map! { |g| g.to_sym }
+      groups = [:default] if groups.empty?
+
+      @definition.dependencies.each do |dep|
+        # Skip the dependency if it is not in any of the requested
+        # groups
+        next unless ((dep.groups & groups).any? && dep.current_platform?)
+
+        required_file = nil
+
+        begin
+          # Loop through all the specified autorequires for the
+          # dependency. If there are none, use the dependency's name
+          # as the autorequire.
+          Array(dep.autorequire || dep.name).each do |file|
+            # Allow `require: true` as an alias for `require: <name>`
+            file = dep.name if file == true
+            required_file = file
+            Kernel.require file
+          end
+        rescue LoadError => e
+          REQUIRE_ERRORS.find { |r| r =~ e.message }
+          raise if dep.autorequire || $1 != required_file
+
+          if dep.autorequire.nil? && dep.name.include?('-')
+            begin
+              namespaced_file = dep.name.gsub('-', '/')
+              Kernel.require namespaced_file
+            rescue LoadError => e
+              REQUIRE_ERRORS.find { |r| r =~ e.message }
+              raise if $1 != namespaced_file
+            end
+          end
+        end
+      end
+    end
+
+    def dependencies_for(*groups)
+      if groups.empty?
+        dependencies
+      else
+        dependencies.select { |d| (groups & d.groups).any? }
+      end
+    end
+
+    alias gems specs
+
+    def cache(custom_path = nil)
+      cache_path = Carat.app_cache(custom_path)
+      FileUtils.mkdir_p(cache_path) unless File.exist?(cache_path)
+
+      Carat.ui.info "Updating files in #{Carat.settings.app_cache_path}"
+      specs.each do |spec|
+        next if spec.name == 'carat'
+        spec.source.send(:fetch_gem, spec) if Carat.settings[:cache_all_platforms] && spec.source.respond_to?(:fetch_gem, true)
+        spec.source.cache(spec, custom_path) if spec.source.respond_to?(:cache)
+      end
+
+      Dir[cache_path.join("*/.git")].each do |git_dir|
+        FileUtils.rm_rf(git_dir)
+        FileUtils.touch(File.expand_path("../.caratcache", git_dir))
+      end
+
+      prune_cache(cache_path) unless Carat.settings[:no_prune]
+    end
+
+    def prune_cache(cache_path)
+      FileUtils.mkdir_p(cache_path) unless File.exist?(cache_path)
+      resolve = @definition.resolve
+      prune_gem_cache(resolve, cache_path)
+      prune_git_and_path_cache(resolve, cache_path)
+    end
+
+    def clean(dry_run = false)
+      gem_bins             = Dir["#{Gem.dir}/bin/*"]
+      git_dirs             = Dir["#{Gem.dir}/carat/gems/*"]
+      git_cache_dirs       = Dir["#{Gem.dir}/cache/carat/git/*"]
+      gem_dirs             = Dir["#{Gem.dir}/gems/*"]
+      gem_files            = Dir["#{Gem.dir}/cache/*.gem"]
+      gemspec_files        = Dir["#{Gem.dir}/specifications/*.gemspec"]
+      spec_gem_paths       = []
+      # need to keep git sources around
+      spec_git_paths       = @definition.spec_git_paths
+      spec_git_cache_dirs  = []
+      spec_gem_executables = []
+      spec_cache_paths     = []
+      spec_gemspec_paths   = []
+      specs.each do |spec|
+        spec_gem_paths << spec.full_gem_path
+        # need to check here in case gems are nested like for the rails git repo
+        md = %r{(.+carat/gems/.+-[a-f0-9]{7,12})}.match(spec.full_gem_path)
+        spec_git_paths << md[1] if md
+        spec_gem_executables << spec.executables.collect do |executable|
+          e = "#{Carat.rubygems.gem_bindir}/#{executable}"
+          [e, "#{e}.bat"]
+        end
+        spec_cache_paths << spec.cache_file
+        spec_gemspec_paths << spec.spec_file
+        spec_git_cache_dirs << spec.source.cache_path.to_s if spec.source.is_a?(Carat::Source::Git)
+      end
+      spec_gem_paths.uniq!
+      spec_gem_executables.flatten!
+
+      stale_gem_bins       = gem_bins - spec_gem_executables
+      stale_git_dirs       = git_dirs - spec_git_paths
+      stale_git_cache_dirs = git_cache_dirs - spec_git_cache_dirs
+      stale_gem_dirs       = gem_dirs - spec_gem_paths
+      stale_gem_files      = gem_files - spec_cache_paths
+      stale_gemspec_files  = gemspec_files - spec_gemspec_paths
+
+      output = stale_gem_dirs.collect do |gem_dir|
+        full_name = Pathname.new(gem_dir).basename.to_s
+
+        parts   = full_name.split('-')
+        name    = parts[0..-2].join('-')
+        version = parts.last
+        output  = "#{name} (#{version})"
+
+        if dry_run
+          Carat.ui.info "Would have removed #{output}"
+        else
+          Carat.ui.info "Removing #{output}"
+          FileUtils.rm_rf(gem_dir)
+        end
+
+        output
+      end + stale_git_dirs.collect do |gem_dir|
+        full_name = Pathname.new(gem_dir).basename.to_s
+
+        parts    = full_name.split('-')
+        name     = parts[0..-2].join('-')
+        revision = parts[-1]
+        output   = "#{name} (#{revision})"
+
+        if dry_run
+          Carat.ui.info "Would have removed #{output}"
+        else
+          Carat.ui.info "Removing #{output}"
+          FileUtils.rm_rf(gem_dir)
+        end
+
+        output
+      end
+
+      unless dry_run
+        stale_gem_bins.each { |bin| FileUtils.rm(bin) if File.exist?(bin) }
+        stale_gem_files.each { |file| FileUtils.rm(file) if File.exist?(file) }
+        stale_gemspec_files.each { |file| FileUtils.rm(file) if File.exist?(file) }
+        stale_git_cache_dirs.each { |dir| FileUtils.rm_rf(dir) if File.exist?(dir) }
+      end
+
+      output
+    end
+
+    def setup_environment
+      begin
+        ENV["BUNDLE_BIN_PATH"] = Carat.rubygems.bin_path("carat", "carat", VERSION)
+      rescue Gem::GemNotFoundException
+        ENV["BUNDLE_BIN_PATH"] = File.expand_path("../../../bin/carat", __FILE__)
+      end
+
+      # Set BUNDLE_GEMFILE
+      ENV["BUNDLE_GEMFILE"] = default_gemfile.to_s
+
+      SharedHelpers.set_bundle_environment
+    end
+
+  private
+
+    def prune_gem_cache(resolve, cache_path)
+      cached  = Dir["#{cache_path}/*.gem"]
+
+      cached = cached.delete_if do |path|
+        spec = Carat.rubygems.spec_from_gem path
+
+        resolve.any? do |s|
+          s.name == spec.name && s.version == spec.version && !s.source.is_a?(Carat::Source::Git)
+        end
+      end
+
+      if cached.any?
+        Carat.ui.info "Removing outdated .gem files from #{Carat.settings.app_cache_path}"
+
+        cached.each do |path|
+          Carat.ui.info "  * #{File.basename(path)}"
+          File.delete(path)
+        end
+      end
+    end
+
+    def prune_git_and_path_cache(resolve, cache_path)
+      cached  = Dir["#{cache_path}/*/.caratcache"]
+
+      cached = cached.delete_if do |path|
+        name = File.basename(File.dirname(path))
+
+        resolve.any? do |s|
+          source = s.source
+          source.respond_to?(:app_cache_dirname) && source.app_cache_dirname == name
+        end
+      end
+
+      if cached.any?
+        Carat.ui.info "Removing outdated git and path gems from #{Carat.settings.app_cache_path}"
+
+        cached.each do |path|
+          path = File.dirname(path)
+          Carat.ui.info "  * #{File.basename(path)}"
+          FileUtils.rm_rf(path)
+        end
+      end
+    end
+
+    def setup_manpath
+      # Store original MANPATH for restoration later in with_clean_env()
+      ENV['BUNDLE_ORIG_MANPATH'] = ENV['MANPATH']
+
+      # Add man/ subdirectories from activated bundles to MANPATH for man(1)
+      manuals = $LOAD_PATH.map do |path|
+        man_subdir = path.sub(/lib$/, 'man')
+        man_subdir unless Dir[man_subdir + '/man?/'].empty?
+      end.compact
+
+      unless manuals.empty?
+        ENV['MANPATH'] = manuals.concat(
+          ENV['MANPATH'].to_s.split(File::PATH_SEPARATOR)
+        ).uniq.join(File::PATH_SEPARATOR)
+      end
+    end
+
+  end
+end

data/lib/carat/settings.rb

@@ -0,0 +1,208 @@
+require 'uri'
+
+module Carat
+  class Settings
+    BOOL_KEYS = %w(frozen cache_all no_prune disable_local_branch_check gem.mit gem.coc).freeze
+
+    def initialize(root = nil)
+      @root          = root
+      @local_config  = load_config(local_config_file)
+      @global_config = load_config(global_config_file)
+    end
+
+    def [](name)
+      key = key_for(name)
+      value = (@local_config[key] || ENV[key] || @global_config[key])
+
+      if !value.nil? && is_bool(name)
+        to_bool(value)
+      else
+        value
+      end
+    end
+
+    def []=(key, value)
+      local_config_file or raise GemfileNotFound, "Could not locate Gemfile"
+      set_key(key, value, @local_config, local_config_file)
+    end
+
+    alias :set_local :[]=
+
+    def delete(key)
+      @local_config.delete(key_for(key))
+    end
+
+    def set_global(key, value)
+      set_key(key, value, @global_config, global_config_file)
+    end
+
+    def all
+      env_keys = ENV.keys.select { |k| k =~ /BUNDLE_.*/ }
+
+      keys = @global_config.keys | @local_config.keys | env_keys
+
+      keys.map do |key|
+        key.sub(/^BUNDLE_/, '').gsub(/__/, ".").downcase
+      end
+    end
+
+    def local_overrides
+      repos = {}
+      all.each do |k|
+        if k =~ /^local\./
+          repos[$'] = self[k]
+        end
+      end
+      repos
+    end
+
+    def gem_mirrors
+      all.inject({}) do |h, k|
+        if k =~ /^mirror\./
+          uri = normalize_uri($')
+          h[uri] = normalize_uri(self[k])
+        end
+        h
+      end
+    end
+
+    def locations(key)
+      key = key_for(key)
+      locations = {}
+      locations[:local]  = @local_config[key] if @local_config.key?(key)
+      locations[:env]    = ENV[key] if ENV[key]
+      locations[:global] = @global_config[key] if @global_config.key?(key)
+      locations
+    end
+
+    def pretty_values_for(exposed_key)
+      key = key_for(exposed_key)
+
+      locations = []
+      if @local_config.key?(key)
+        locations << "Set for your local app (#{local_config_file}): #{@local_config[key].inspect}"
+      end
+
+      if value = ENV[key]
+        locations << "Set via #{key}: #{value.inspect}"
+      end
+
+      if @global_config.key?(key)
+        locations << "Set for the current user (#{global_config_file}): #{@global_config[key].inspect}"
+      end
+
+      return ["You have not configured a value for `#{exposed_key}`"] if locations.empty?
+      locations
+    end
+
+    def without=(array)
+      self[:without] = (array.empty? ? nil : array.join(":")) if array
+    end
+
+    def without
+      self[:without] ? self[:without].split(":").map { |w| w.to_sym } : []
+    end
+
+    # @local_config["BUNDLE_PATH"] should be prioritized over ENV["BUNDLE_PATH"]
+    def path
+      key  = key_for(:path)
+      path = ENV[key] || @global_config[key]
+      return path if path && !@local_config.key?(key)
+
+      if path = self[:path]
+        "#{path}/#{Carat.ruby_scope}"
+      else
+        Carat.rubygems.gem_dir
+      end
+    end
+
+    def allow_sudo?
+      !@local_config.key?(key_for(:path))
+    end
+
+    def ignore_config?
+      ENV['BUNDLE_IGNORE_CONFIG']
+    end
+
+    def app_cache_path
+      @app_cache_path ||= begin
+        path = self[:cache_path] || "vendor/cache"
+        raise InvalidOption, "Cache path must be relative to the bundle path" if path.start_with?("/")
+        path
+      end
+    end
+
+  private
+    def key_for(key)
+      if key.is_a?(String) && /https?:/ =~ key
+        key = normalize_uri(key).to_s
+      end
+      key = key.to_s.gsub(".", "__").upcase
+      "BUNDLE_#{key}"
+    end
+
+    def is_bool(key)
+      BOOL_KEYS.include?(key.to_s)
+    end
+
+    def to_bool(value)
+      !(value.nil? || value == '' || value =~ /^(false|f|no|n|0)$/i || value == false)
+    end
+
+    def set_key(key, value, hash, file)
+      key = key_for(key)
+
+      unless hash[key] == value
+        hash[key] = value
+        hash.delete(key) if value.nil?
+        FileUtils.mkdir_p(file.dirname)
+        require 'carat/psyched_yaml'
+        File.open(file, "w") { |f| f.puts YAML.dump(hash) }
+      end
+
+      value
+    end
+
+    def global_config_file
+      file = ENV["BUNDLE_CONFIG"] || File.join(Carat.rubygems.user_home, ".carat/config")
+      Pathname.new(file)
+    end
+
+    def local_config_file
+      Pathname.new(@root).join("config") if @root
+    end
+
+    def load_config(config_file)
+      valid_file = config_file && config_file.exist? && !config_file.size.zero?
+      if !ignore_config? && valid_file
+        config_regex = /^(BUNDLE_.+): (['"]?)(.*(?:\n(?!BUNDLE).+)?)\2$/
+        config_pairs = config_file.read.scan(config_regex).map do |m|
+          key, _, value = m
+          [convert_to_backward_compatible_key(key), value.gsub(/\s+/, " ").tr('"', "'")]
+        end
+        Hash[config_pairs]
+      else
+        {}
+      end
+    end
+
+    def convert_to_backward_compatible_key(key)
+      key = "#{key}/" if key =~ /https?:/i && key !~ %r[/\Z]
+      key = key.gsub(".", "__") if key.include?(".")
+      key
+    end
+
+    # TODO: duplicates Rubygems#normalize_uri
+    # TODO: is this the correct place to validate mirror URIs?
+    def normalize_uri(uri)
+      uri = uri.to_s
+      uri = "#{uri}/" unless uri =~ %r[/\Z]
+      uri = URI(uri)
+      unless uri.absolute?
+        raise ArgumentError, "Gem sources must be absolute. You provided '#{uri}'."
+      end
+      uri
+    end
+
+  end
+end