vcs 0.1 → 0.2.148

data/ruby_ex/uri/ftp_ex.rb

@@ -0,0 +1,37 @@
+# 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

@@ -0,0 +1,43 @@
+# 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

@@ -0,0 +1,92 @@
+# 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

@@ -0,0 +1,118 @@
+# 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

@@ -0,0 +1,45 @@
+# 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

@@ -0,0 +1,30 @@
+# 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

@@ -0,0 +1,66 @@
+# 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

@@ -0,0 +1,63 @@
+# 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