libgems 0.0.1

data/lib/libgems/commands/server_command.rb

@@ -0,0 +1,86 @@
+require 'libgems/command'
+require 'libgems/server'
+
+class LibGems::Commands::ServerCommand < LibGems::Command
+
+  def initialize
+    super 'server', 'Documentation and gem repository HTTP server',
+          :port => 8808, :gemdir => [], :daemon => false
+
+    OptionParser.accept :Port do |port|
+      if port =~ /\A\d+\z/ then
+        port = Integer port
+        raise OptionParser::InvalidArgument, "#{port}: not a port number" if
+          port > 65535
+
+        port
+      else
+        begin
+          Socket.getservbyname port
+        rescue SocketError
+          raise OptionParser::InvalidArgument, "#{port}: no such named service"
+        end
+      end
+    end
+
+    add_option '-p', '--port=PORT', :Port,
+               'port to listen on' do |port, options|
+      options[:port] = port
+    end
+
+    add_option '-d', '--dir=GEMDIR',
+               'directories from which to serve gems',
+               'multiple directories may be provided' do |gemdir, options|
+      options[:gemdir] << File.expand_path(gemdir)
+    end
+
+    add_option '--[no-]daemon', 'run as a daemon' do |daemon, options|
+      options[:daemon] = daemon
+    end
+
+    add_option '-b', '--bind=HOST,HOST',
+               'addresses to bind', Array do |address, options|
+      options[:addresses] ||= []
+      options[:addresses].push(*address)
+    end
+
+    add_option '-l', '--launch[=COMMAND]', 
+               'launches a browser window',
+               "COMMAND defaults to 'start' on Windows",
+               "and 'open' on all other platforms" do |launch, options|
+      launch ||= LibGems.win_platform? ? 'start' : 'open'
+      options[:launch] = launch
+    end
+  end
+
+  def defaults_str # :nodoc:
+    "--port 8808 --dir #{LibGems.dir} --no-daemon"
+  end
+
+  def description # :nodoc:
+    <<-EOF
+The server command starts up a web server that hosts the RDoc for your
+installed gems and can operate as a server for installation of gems on other
+machines.
+
+The cache files for installed gems must exist to use the server as a source
+for gem installation.
+
+To install gems from a running server, use `gem install GEMNAME --source
+http://gem_server_host:8808`
+
+You can set up a shortcut to gem server documentation using the URL:
+
+  http://localhost:8808/rdoc?q=%s - Firefox
+  http://localhost:8808/rdoc?q=* - LaunchBar
+
+    EOF
+  end
+
+  def execute
+    options[:gemdir] << LibGems.dir if options[:gemdir].empty?
+    LibGems::Server.run options
+  end
+
+end
+

data/lib/libgems/commands/sources_command.rb

@@ -0,0 +1,157 @@
+require 'fileutils'
+require 'libgems/command'
+require 'libgems/remote_fetcher'
+require 'libgems/source_info_cache'
+require 'libgems/spec_fetcher'
+require 'libgems/local_remote_options'
+
+class LibGems::Commands::SourcesCommand < LibGems::Command
+
+  include LibGems::LocalRemoteOptions
+
+  def initialize
+    super 'sources',
+          "Manage the sources and cache file #{LibGems::NAME} uses to search for gems"
+
+    add_option '-a', '--add SOURCE_URI', 'Add source' do |value, options|
+      options[:add] = value
+    end
+
+    add_option '-l', '--list', 'List sources' do |value, options|
+      options[:list] = value
+    end
+
+    add_option '-r', '--remove SOURCE_URI', 'Remove source' do |value, options|
+      options[:remove] = value
+    end
+
+    add_option '-c', '--clear-all',
+               'Remove all sources (clear the cache)' do |value, options|
+      options[:clear_all] = value
+    end
+
+    add_option '-u', '--update', 'Update source cache' do |value, options|
+      options[:update] = value
+    end
+
+    add_proxy_option
+  end
+
+  def defaults_str
+    '--list'
+  end
+
+  def execute
+    options[:list] = !(options[:add] ||
+                       options[:clear_all] ||
+                       options[:remove] ||
+                       options[:update])
+
+    if options[:clear_all] then
+      path = LibGems::SpecFetcher.fetcher.dir
+      FileUtils.rm_rf path
+
+      if not File.exist?(path) then
+        say "*** Removed specs cache ***"
+      elsif not File.writable?(path) then
+        say "*** Unable to remove source cache (write protected) ***"
+      else
+        say "*** Unable to remove source cache ***"
+      end
+
+      sic = LibGems::SourceInfoCache
+      remove_cache_file 'user',          sic.user_cache_file
+      remove_cache_file 'latest user',   sic.latest_user_cache_file
+      remove_cache_file 'system',        sic.system_cache_file
+      remove_cache_file 'latest system', sic.latest_system_cache_file
+    end
+
+    if options[:add] then
+      source_uri = options[:add]
+      uri = URI.parse source_uri
+
+      begin
+        LibGems::SpecFetcher.fetcher.load_specs uri, 'specs'
+        LibGems.sources << source_uri
+        LibGems.configuration.write
+
+        say "#{source_uri} added to sources"
+      rescue URI::Error, ArgumentError
+        say "#{source_uri} is not a URI"
+      rescue LibGems::RemoteFetcher::FetchError => e
+        yaml_uri = uri + 'yaml'
+        gem_repo = LibGems::RemoteFetcher.fetcher.fetch_size yaml_uri rescue false
+
+        if e.uri =~ /specs\.#{Regexp.escape LibGems.marshal_version}\.gz$/ and
+           gem_repo then
+
+          alert_warning <<-EOF
+#{LibGems::NAME} 1.2+ index not found for:
+\t#{source_uri}
+
+Will cause #{LibGems::NAME} to revert to legacy indexes, degrading performance.
+          EOF
+
+          say "#{source_uri} added to sources"
+        else
+          say "Error fetching #{source_uri}:\n\t#{e.message}"
+        end
+      end
+    end
+
+    if options[:remove] then
+      source_uri = options[:remove]
+
+      unless LibGems.sources.include? source_uri then
+        say "source #{source_uri} not present in cache"
+      else
+        LibGems.sources.delete source_uri
+        LibGems.configuration.write
+
+        say "#{source_uri} removed from sources"
+      end
+    end
+
+    if options[:update] then
+      fetcher = LibGems::SpecFetcher.fetcher
+
+      if fetcher.legacy_repos.empty? then
+        LibGems.sources.each do |update_uri|
+          update_uri = URI.parse update_uri
+          fetcher.load_specs update_uri, 'specs'
+          fetcher.load_specs update_uri, 'latest_specs'
+        end
+      else
+        LibGems::SourceInfoCache.cache true
+        LibGems::SourceInfoCache.cache.flush
+      end
+
+      say "source cache successfully updated"
+    end
+
+    if options[:list] then
+      say "*** CURRENT SOURCES ***"
+      say
+
+      LibGems.sources.each do |source|
+        say source
+      end
+    end
+  end
+
+  private
+
+  def remove_cache_file(desc, path)
+    FileUtils.rm_rf path
+
+    if not File.exist?(path) then
+      say "*** Removed #{desc} source cache ***"
+    elsif not File.writable?(path) then
+      say "*** Unable to remove #{desc} source cache (write protected) ***"
+    else
+      say "*** Unable to remove #{desc} source cache ***"
+    end
+  end
+
+end
+

data/lib/libgems/commands/specification_command.rb

@@ -0,0 +1,125 @@
+require 'libgems/command'
+require 'libgems/local_remote_options'
+require 'libgems/version_option'
+require 'libgems/source_info_cache'
+require 'libgems/format'
+
+class LibGems::Commands::SpecificationCommand < LibGems::Command
+
+  include LibGems::LocalRemoteOptions
+  include LibGems::VersionOption
+
+  def initialize
+    LibGems.load_yaml
+
+    super 'specification', 'Display gem specification (in yaml)',
+          :domain => :local, :version => LibGems::Requirement.default,
+          :format => :yaml
+
+    add_version_option('examine')
+    add_platform_option
+
+    add_option('--all', 'Output specifications for all versions of',
+               'the gem') do |value, options|
+      options[:all] = true
+    end
+
+    add_option('--ruby', 'Output ruby format') do |value, options|
+      options[:format] = :ruby
+    end
+
+    add_option('--yaml', 'Output RUBY format') do |value, options|
+      options[:format] = :yaml
+    end
+
+    add_option('--marshal', 'Output Marshal format') do |value, options|
+      options[:format] = :marshal
+    end
+
+    add_local_remote_options
+  end
+
+  def arguments # :nodoc:
+    <<-ARGS
+GEMFILE       name of gem to show the gemspec for
+FIELD         name of gemspec field to show
+    ARGS
+  end
+
+  def defaults_str # :nodoc:
+    "--local --version '#{LibGems::Requirement.default}' --yaml"
+  end
+
+  def usage # :nodoc:
+    "#{program_name} [GEMFILE] [FIELD]"
+  end
+
+  def execute
+    specs = []
+    gem = options[:args].shift
+
+    unless gem then
+      raise LibGems::CommandLineError,
+            "Please specify a gem name or file on the command line"
+    end
+
+    dep = LibGems::Dependency.new gem, options[:version]
+
+    field = get_one_optional_argument
+
+    if field then
+      field = field.intern
+
+      if options[:format] == :ruby then
+        raise LibGems::CommandLineError, "--ruby and FIELD are mutually exclusive"
+      end
+
+      unless LibGems::Specification.attribute_names.include? field then
+        raise LibGems::CommandLineError,
+              "no field %p on LibGems::Specification" % field.to_s
+      end
+    end
+
+    if local? then
+      if File.exist? gem then
+        specs << LibGems::Format.from_file_by_path(gem).spec rescue nil
+      end
+
+      if specs.empty? then
+        specs.push(*LibGems.source_index.search(dep))
+      end
+    end
+
+    if remote? then
+      found = LibGems::SpecFetcher.fetcher.fetch dep
+
+      specs.push(*found.map { |spec,| spec })
+    end
+
+    if specs.empty? then
+      alert_error "Unknown gem '#{gem}'"
+      terminate_interaction 1
+    end
+
+    output = lambda do |s|
+      s = s.send field if field
+
+      say case options[:format]
+          when :ruby then s.to_ruby
+          when :marshal then Marshal.dump s
+          else s.to_yaml
+          end
+
+      say "\n"
+    end
+
+    if options[:all] then
+      specs.each(&output)
+    else
+      spec = specs.sort_by { |s| s.version }.last
+      output[spec]
+    end
+  end
+
+end
+

data/lib/libgems/commands/stale_command.rb

@@ -0,0 +1,27 @@
+require 'libgems/command'
+
+class LibGems::Commands::StaleCommand < LibGems::Command
+  def initialize
+    super('stale', 'List gems along with access times')
+  end
+
+  def usage # :nodoc:
+    "#{program_name}"
+  end
+
+  def execute
+    gem_to_atime = {}
+    LibGems.source_index.each do |name, spec|
+      Dir["#{spec.full_gem_path}/**/*.*"].each do |file|
+        next if File.directory?(file)
+        stat = File.stat(file)
+        gem_to_atime[name] ||= stat.atime
+        gem_to_atime[name] = stat.atime if gem_to_atime[name] < stat.atime
+      end
+    end
+
+    gem_to_atime.sort_by { |_, atime| atime }.each do |name, atime|
+      say "#{name} at #{atime.strftime '%c'}"
+    end
+  end
+end

data/lib/libgems/commands/uninstall_command.rb

@@ -0,0 +1,83 @@
+require 'libgems/command'
+require 'libgems/version_option'
+require 'libgems/uninstaller'
+
+##
+# LibGems uninstaller command line tool
+#
+# See `gem help uninstall`
+
+class LibGems::Commands::UninstallCommand < LibGems::Command
+
+  include LibGems::VersionOption
+
+  def initialize
+    super 'uninstall', 'Uninstall gems from the local repository',
+          :version => LibGems::Requirement.default, :user_install => true
+
+    add_option('-a', '--[no-]all',
+      'Uninstall all matching versions'
+      ) do |value, options|
+      options[:all] = value
+    end
+
+    add_option('-I', '--[no-]ignore-dependencies',
+               'Ignore dependency requirements while',
+               'uninstalling') do |value, options|
+      options[:ignore] = value
+    end
+
+    add_option('-x', '--[no-]executables',
+                 'Uninstall applicable executables without',
+                 'confirmation') do |value, options|
+      options[:executables] = value
+    end
+
+    add_option('-i', '--install-dir DIR',
+               'Directory to uninstall gem from') do |value, options|
+      options[:install_dir] = File.expand_path(value)
+    end
+
+    add_option('-n', '--bindir DIR',
+               'Directory to remove binaries from') do |value, options|
+      options[:bin_dir] = File.expand_path(value)
+    end
+
+    add_option('--[no-]user-install',
+               'Uninstall from user\'s home directory',
+               'in addition to GEM_HOME.') do |value, options|
+      options[:user_install] = value
+    end
+
+    add_version_option
+    add_platform_option
+  end
+
+  def arguments # :nodoc:
+    "GEMNAME       name of gem to uninstall"
+  end
+
+  def defaults_str # :nodoc:
+    "--version '#{LibGems::Requirement.default}' --no-force " \
+    "--install-dir #{LibGems.dir}\n" \
+    "--user-install"
+  end
+
+  def usage # :nodoc:
+    "#{program_name} GEMNAME [GEMNAME ...]"
+  end
+
+  def execute
+    get_all_gem_names.each do |gem_name|
+      begin
+        LibGems::Uninstaller.new(gem_name, options).uninstall
+      rescue LibGems::GemNotInHomeException => e
+        spec = e.spec
+        alert("In order to remove #{spec.name}, please execute:\n" \
+              "\tgem uninstall #{spec.name} --install-dir=#{spec.installation_path}")
+      end
+    end
+  end
+
+end
+