vcs 0.2.148 → 0.3.0

data/ruby_ex/uri/ftp_ex.rb

@@ -1,37 +0,0 @@
-# Copyright: Copyright (c) 2005  Nicolas Pouillard. All rights reserved.
-# Author: Nicolas Pouillard  <ertai@lrde.epita.fr>.
-# License: Gnu General Public License.
-
-# $LastChangedBy: polrop $
-# $Id: ftp_ex.rb 159 2005-02-18 12:07:23Z polrop $
-
-require 'uri_ex'
-require 'uri/ftp'
-require 'net/ftp'
-require 'mktemp'
-
-module URI
-
-  class FTP
-
-    def checkout
-      tmp = TempPath.new('checkout', pathname.basename.to_s)
-
-      begin
-        Net::FTP.open(host) do |ftp|
-          ftp.login
-          ftp.passive = true
-          ftp.getbinaryfile(path, tmp)
-        end
-
-      rescue Exception => ex
-        tmp.unlink if tmp.exist?
-        raise CheckoutError, "Cannot checkout #{to_s} (error: #{ex.short_pp})"
-      end
-
-      tmp
-    end
-
-  end # class FTP
-
-end # module URI

data/ruby_ex/uri/http_ex.rb

@@ -1,43 +0,0 @@
-# Copyright: Copyright (c) 2005  Nicolas Pouillard. All rights reserved.
-# Author: Nicolas Pouillard  <ertai@lrde.epita.fr>.
-# License: Gnu General Public License.
-
-# $LastChangedBy: polrop $
-# $Id: http_ex.rb 159 2005-02-18 12:07:23Z polrop $
-
-require 'exception'
-require 'uri_ex'
-require 'uri/http'
-require 'net/http'
-require 'mktemp'
-
-module URI
-
-  class HTTP
-
-    def checkout
-      tmp = TempPath.new('checkout', pathname.basename.to_s)
-
-      begin
-        uri = URI.parse(ENV['http_proxy'] || '')
-        proxy_auth = [uri.host, uri.port, uri.user, uri.password]
-
-        Net::HTTP::Proxy(*proxy_auth).start(host) do |http|
-          tmp.open('w') do |out|
-            http.get(path) do |str|
-              out.print str
-            end
-          end
-        end
-
-      rescue Exception => ex
-        tmp.unlink if tmp.exist?
-        raise CheckoutError, "Cannot checkout #{to_s} (error: #{ex.short_pp})"
-      end
-
-      tmp
-  end
-
-  end # class HTTP
-
-end # module URI

data/ruby_ex/uri/ssh.rb

@@ -1,92 +0,0 @@
-# Copyright:: Copyright (c) 2005  Nicolas Pouillard. All rights reserved.
-# Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
-# License::   Gnu General Public License.
-# Revision::  $Id$
-
-require 'uri_ex'
-
-module URI
-
-  class Ssh < Generic
-
-    SCHEME = 'ssh'.freeze
-    DEFAULT_HOST = 'localhost'.freeze
-    DEFAULT_PORT = 22
-    DEFAULT_QUERY = ''.freeze
-
-    COMPONENT = [
-      :scheme,
-      :userinfo,
-      :host,
-      :path,
-      :query
-    ].freeze
-
-    def self.build ( args )
-      tmp = Util::make_components_hash(self, args)
-      return super(tmp)
-    end
-
-    def get_opts
-      opts = []
-      opts << '-q' << '-P' << @port
-      return opts if @query.nil?
-      @query.split(/,/).map do |x|
-        k, v = x.split(/=/)
-        if k.size == 1
-          opts << "-#{k}"
-        else
-          opts << "--#{k}"
-        end
-        opts << v unless v.nil?
-      end
-      opts
-    end
-
-    def mk_opts
-      get_opts.join(' ')
-    end
-
-    def mk_arg
-      "#@user@#@host:#{@path.gsub(/^\//, '')}"
-    end
-
-    def checkout
-      out = TempPath.new('checkout', pathname.basename.to_s)
-      cmd = "scp #{mk_opts} #{mk_arg} #{out}"
-      puts cmd
-      raise CheckoutError, to_s unless system cmd
-      out
-    end
-
-    def save
-      checkout.save
-    end
-
-    def commit ( aPath )
-      cmd = "scp #{mk_opts} #{aPath} #{mk_arg}"
-      puts cmd
-      raise CommitError, to_s unless system cmd
-    end
-
-  end # class Ssh
-
-  @@schemes[Ssh::SCHEME.upcase] = Ssh
-
-  if $0 == __FILE__
-    require 'test/unit'
-    class SshTest < Test::Unit::TestCase
-      def test_basic
-        assert_nothing_raised { @uri = URI.parse('ssh://foo@bar') }
-        assert_equal('-q -P 22', @uri.mk_opts)
-      end
-      def test_with_query
-        assert_nothing_raised do
-          @uri = URI.parse('ssh://foo@bar/qux?a=b,c,d=e,f,ghi,jkl=mno')
-        end
-        assert_equal('-q -P 22 -a b -c -d e -f --ghi --jkl mno', @uri.mk_opts)
-      end
-    end # class SshTest
-  end
-
-end # module URI

data/ruby_ex/uri/svn.rb

@@ -1,118 +0,0 @@
-# Copyright: Copyright (c) 2005  Nicolas Pouillard. All rights reserved.
-# Author: Nicolas Pouillard  <ertai@lrde.epita.fr>.
-# License: Gnu General Public License.
-
-# $LastChangedBy: ertai $
-# $Id: svn.rb 201 2005-04-23 00:31:12Z ertai $
-
-require 'uri_ex'
-require 'abstract'
-
-module URI
-
-  class Svn < Generic
-
-    COMPONENT = [
-      :scheme,
-      :host,
-      :path
-    ].freeze
-
-    def self.build ( args )
-      tmp = Util::make_components_hash(self, args)
-      return super(tmp)
-    end
-
-    def checkout
-      # klass = SvnSchemes.guess(scheme)
-      # klass.new
-      tmp = TempPath.new('svn-checkout')
-      out = TempPath.new('svn-checkout-out')
-      err = TempPath.new('svn-checkout-err')
-      tmp.mkpath
-      target = to_s.sub(/^svn\./, '')
-      tmp += pathname.basename
-      unless system "svn checkout #{target} #{tmp} > #{out} 2> #{err}"
-        raise CheckoutError, to_s
-      end
-      [tmp, out, err]
-    end
-
-    def save
-      raise SaveError unless scheme.downcase == 'svn.file'
-      repos = pathname
-      raise SaveError unless (repos + 'format').exist?
-      out = TempPath.new('save', "#{repos.basename}.svndump")
-      cmd = "svnadmin dump #{repos} --incremental --quiet > #{out}"
-      unless system cmd
-        raise SaveError, "command failed: `#{cmd}' => #{$?}"
-      end
-      out
-    end
-
-  end # class Svn
-
-  module SvnSchemes
-
-    def self.guess ( aScheme )
-      init
-      @@svn_schemes[aScheme]
-    end
-
-    def self.init
-      return if defined? @@svn_schemes
-      @@svn_schemes = {}
-      constants.each do |const|
-        klass = const_get(const)
-        next if klass.abstract?
-        @@svn_schemes[klass.scheme] = klass
-      end
-      @@svn_schemes.freeze
-    end
-
-    def self.svn_schemes
-      init
-      @@svn_schemes
-    end
-
-    class AbstractSvnScheme
-      include Abstract
-
-      def self.scheme
-        const_get(:SCHEME)
-      end
-
-    end
-
-    class SvnScheme < AbstractSvnScheme
-      include Concrete
-      SCHEME = 'SVN'
-    end
-
-    class SvnSshScheme < AbstractSvnScheme
-      include Concrete
-      SCHEME = 'SVN+SSH'
-    end
-
-    class SvnHttpScheme < AbstractSvnScheme
-      include Concrete
-      SCHEME = 'SVN.HTTP'
-    end
-
-    class SvnHttpsScheme < AbstractSvnScheme
-      include Concrete
-      SCHEME = 'SVN.HTTPS'
-    end
-
-    class SvnFileScheme < AbstractSvnScheme
-      include Concrete
-      SCHEME = 'SVN.FILE'
-    end
-
-  end
-
-  SvnSchemes.svn_schemes.each_key do |name|
-    @@schemes[name] = Svn
-  end
-
-end # module URI

data/ruby_ex/uri_ex.rb

@@ -1,45 +0,0 @@
-# Copyright: Copyright (c) 2005  Nicolas Pouillard. All rights reserved.
-# Author: Nicolas Pouillard  <ertai@lrde.epita.fr>.
-# License: Gnu General Public License.
-
-# $LastChangedBy: ertai $
-# $Id: uri_ex.rb 201 2005-04-23 00:31:12Z ertai $
-
-require 'uri'
-
-module URI
-
-  class CheckoutError < Exception
-  end
-
-  class CommitError < Exception
-  end
-
-  class SaveError < Exception
-  end
-
-  class Generic
-
-    def pathname
-      Pathname.new(path)
-    end
-
-    def to_yaml_type
-      '!uri'
-    end     
-
-    def to_yaml ( opts={} )
-      "!uri #{to_s}"
-    end
-
-    def checkout
-      raise CheckoutError, "Can't checkout a #{self.class}"
-    end
-
-    def save
-      raise SaveError, "Can't save a #{self.class}"
-    end
-
-  end # module Generic
-
-end # module URI

data/ruby_ex/verbose_object.rb

@@ -1,30 +0,0 @@
-# Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
-# Copyright:: Copyright (c) 2005 Nicolas Pouillard. All rights reserved.
-# License::   GNU General Public License (GPL).
-# Revision::  $Id: verbose_object.rb 222 2005-05-09 12:44:32Z ertai $
-
-class VerboseObject
-
-  def initialize ( anObject )
-    @obj = anObject
-  end
-
-  instance_methods.each do |meth|
-    next if meth =~ /__.*__/
-    module_eval %Q{
-      def #{meth} ( *a, &b )
-        log(:#{meth}, *a)
-        @obj.__send__(:#{meth}, *a, &b)
-      end
-    }
-  end
-
-  def log ( *a )
-    STDERR.puts "LOG: #{a.inspect}"
-  end
-
-  def method_missing ( *a, &b )
-    log(*a)
-  end
-
-end # class VerboseObject

data/ruby_ex/version.rb

@@ -1,66 +0,0 @@
-# Copyright: Copyright (c) 2004  Nicolas Despres. All rights reserved.
-# Author: Nicolas Despres  <polrop@lrde.epita.fr>.
-# License: Gnu General Public License.
-
-# $LastChangedBy: polrop $
-# $Id: version.rb 101 2005-01-15 07:58:58Z polrop $
-
-
-class Version
-  include Comparable
-
-  attr_accessor :major, :minor, :revision
-
-  def initialize(major, minor, revision)
-    @major = major
-    @minor = minor
-    @revision = revision
-  end
-
-  def <=>(other)
-    if @major == other.major
-      if @minor == other.minor
-        @revision <=> other.revision
-      else
-        @minor <=> other.minor
-      end
-    else
-      @major <=> other.major
-    end
-  end
-
-  def to_s
-    "#@major.#@minor.#@revision"
-  end
-
-  def to_a
-    [ @major, @minor, @revision ]
-  end
-
-end # class Version
-
-
-if defined? TEST_MODE or __FILE__ == $0
-
-
-require 'test/unit/ui/yaml/testrunner'
-
-
-class VersionTest < Test::Unit::TestCase
-
-  def test_simple
-    assert(Version.new(1, 2, 3) < Version.new(1, 2, 4))
-    assert(Version.new(1, 2, 4) > Version.new(1, 2, 3))
-    assert(Version.new(1, 2, 3) == Version.new(1, 2, 3))
-    assert(Version.new(1, 3, 3) > Version.new(1, 2, 3))
-    assert(Version.new(1, 2, 3) < Version.new(1, 3, 3))
-    assert(Version.new(2, 2, 3) > Version.new(1, 2, 3))
-    assert(Version.new(1, 2, 3) < Version.new(2, 2, 3))
-  end
-
-end # class VersionTest
-
-
-end
-
-

data/ruby_ex/yaml/basenode_ext.rb

@@ -1,63 +0,0 @@
-# Copyright: Copyright (c) 2004  Nicolas Pouillard. All rights reserved.
-# Author: Nicolas Pouillard  <ertai@lrde.epita.fr>.
-# License: Gnu General Public License.
-
-# $LastChangedBy: ertai $
-# $Id: basenode_ext.rb 53 2004-12-02 22:24:03Z ertai $
-
-require 'yaml'
-require 'yaml/basenode'
-
-module YAML
-
-  module BaseNode
-
-    def ordered_children_with_index
-      arr = children_with_index
-      arr.sort! { |a,b| b[0].object_id <=> a[0].object_id } unless arr.nil?
-      arr
-    end
-
-    def ordered_children_indexes
-      arr = ordered_children_with_index
-      arr.map! { |x| x[1] } unless arr.nil?
-      arr
-    end
-    
-    def ordered_children
-      arr = children
-      arr.map! { |x| x[0] } unless arr.nil?
-      arr
-    end
-    
-  end # module BaseNode
-
-end # module YAML
-
-
-if defined? TEST_MODE or $0 == __FILE__
-
-  require 'test/unit'
-  class BaseNodeExtTest < Test::Unit::TestCase
-
-    def basenode_checker ( my, ref )
-      node = YAML::parse(my)
-      assert_equal(node.ordered_children_indexes, ref)
-    end
-
-    def test_basenode1
-      basenode_checker('--- { d: 4, a: 1, b: 2, c: 3 }', ["d", "a", "b", "c"])
-    end
-
-    def test_basenode2
-      basenode_checker('--- { a: 1, d: 42, b: 2, c: 3 }', ["a", "d", "b", "c"])
-    end
-
-    def test_basenode3
-      basenode_checker(
-        '--- { a: :"1", d: "foo", b: [2,3], c: {} }', ["a", "d", "b", "c"])
-    end
-  
-  end # class BaseNodeExtTest
-
-end