ruby_ex 0.1.2 → 0.2.0

data/lib/algorithms.rb

@@ -1,12 +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: algorithms.rb 279 2005-06-05 17:46:53Z ertai $
-
-require 'module/autoload_tree'
-
-module Algorithms
-
-  autoloaded_module(__FILE__)
-
-end # module Algorithms

data/lib/ask.rb

@@ -1,100 +0,0 @@
-# Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
-# Copyright:: Copyright (c) 2004, 2005 Nicolas Pouillard. All rights reserved.
-# License::   GNU General Public License (GPL).
-# Revision::  $Id: ask.rb 279 2005-06-05 17:46:53Z ertai $
-
-require 'ruby_ex'
-
-ANSWERS = [ :y, :n ]
-ANSWER_NOT_VALID = 'Not a valid answer, please answer correctly'
-
-# `ask', ask the user to answer, to your question.
-#
-# Example:
-#   ask('Commiting, are you sure', :n)
-#
-#   produce => Commiting, are you sure (y/N): 
-#   and wait your answer.
-def ask ( aQuestion, theDefaultAnswer=:y, cin=STDIN, cout=STDOUT, cerr=STDERR )
-  
-  yn = case theDefaultAnswer
-       when :y then ' [Y/n]: '
-       when :n then ' [y/N]: '
-       else raise ArgumentError, "not valid default answer #{theDefaultAnswer}"
-       end
-
-  loop do
-    cout.print aQuestion, yn
-    cout.flush
-
-    answer = cin.readline.chomp.downcase
-    
-    return theDefaultAnswer if answer.empty?
-
-    answer = answer.to_sym
-
-    return answer if ANSWERS.include? answer
-
-    cerr.puts ANSWER_NOT_VALID
-    cout.puts
-  end
-
-end
-
-test_section __FILE__ do
-
-class AskTest < Test::Unit::TestCase
-
-  def ask_checker ( question, default, answer, ref, out, err )
-    require 'stringio'
-    cin, cout, cerr = StringIO.new, StringIO.new, StringIO.new
-    cin.puts answer
-    cin.rewind
-    res = ask(question, default, cin, cout, cerr)
-    cout.rewind
-    cerr.rewind
-    assert_equal(res, ref, 'bad return value')
-    assert_equal(cout.readlines.join, out, 'bad standard output')
-    assert_equal(cerr.readlines.join, err, 'bad error output')
-  end
-
-  def test_bad_default
-    assert_raise(ArgumentError) { ask_checker('Q', :foo, '', :y, [], []) }
-    assert_nothing_raised do
-      ask_checker('Q', :y, 'y', :y, 'Q [Y/n]: ', '')
-    end
-    assert_nothing_raised do
-      ask_checker('Q', :n, 'y', :y, 'Q [y/N]: ', '')
-    end
-  end
-
-  def test_valid_default_yes
-    ask_checker('Q', :y, 'y', :y, 'Q [Y/n]: ', '')
-    ask_checker('Q', :y, 'Y', :y, 'Q [Y/n]: ', '')
-    ask_checker('Q', :y, 'n', :n, 'Q [Y/n]: ', '')
-    ask_checker('Q', :y, 'N', :n, 'Q [Y/n]: ', '')
-    ask_checker('Q', :y, '',  :y, 'Q [Y/n]: ', '')
-  end
-
-  def test_valid_default_no
-    ask_checker('Q', :n, 'y', :y, 'Q [y/N]: ', '')
-    ask_checker('Q', :n, 'Y', :y, 'Q [y/N]: ', '')
-    ask_checker('Q', :n, 'n', :n, 'Q [y/N]: ', '')
-    ask_checker('Q', :n, 'N', :n, 'Q [y/N]: ', '')
-    ask_checker('Q', :n, '',  :n, 'Q [y/N]: ', '')
-  end
-
-  def test_invalid_answer
-    ask_checker('Q', :n, "bad\ny", :y,
-                "Q [y/N]: \nQ [y/N]: ", ANSWER_NOT_VALID + "\n")
-    ask_checker('Q', :y, "ad\n\n", :y,
-                "Q [Y/n]: \nQ [Y/n]: ", ANSWER_NOT_VALID + "\n")
-  end
-
-  def test_ask1
-    ask_checker('Q', :y, 'y', :y, 'Q [Y/n]: ', '')
-  end
-
-end # class AskTest
-
-end

data/lib/checkout.rb

@@ -1,12 +0,0 @@
-# Copyright: Copyright (c) 2004  Nicolas Despres. All rights reserved.
-# Author: Nicolas Despres  <polrop@lrde.epita.fr>.
-# License: Gnu General Public License.
-
-# $LastChangedBy: ertai $
-# $Id: checkout.rb 279 2005-06-05 17:46:53Z ertai $
-
-require 'uri_ex' 
-require 'uri/http_ex'
-require 'uri/ftp_ex'
-require 'uri/file'
-require 'uri/svn'

data/lib/dumpable_proc.rb

@@ -1,57 +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: dumpable_proc.rb 279 2005-06-05 17:46:53Z ertai $
-
-require 'ruby_ex'
-require 'delegate'
-
-class DumpableProc < DelegateClass(Proc)
-
-  def initialize ( str )
-    @str = str.freeze
-    super(eval("proc { #@str }"))
-  end
-
-  def _dump ( depth )
-    Marshal.dump([self.class, @str])
-  end
-
-  def self._load ( data )
-    klass, str = Marshal.load(data)
-    klass.new(str)
-  end
-
-  def to_yaml ( opts={} )
-    "#{to_yaml_type} #@str"
-  end
-
-  def to_s
-    @str
-  end
-
-  def to_yaml_type
-    '!proc'
-  end
-
-end
-
-test_section __FILE__ do
-
-class DumpableProcTest < Test::Unit::TestCase
-
-  def test_simple
-    p = DumpableProc.new('|x| 3 + x')
-    assert_equal(7, p[4])
-    str = nil
-    assert_nothing_raised { str = Marshal.dump(p) }
-    p2 = nil
-    assert_nothing_raised { p2 = Marshal.load(str) }
-    assert_equal(9, p2[6])
-  end
-
-end
-
-end

data/lib/filetype.rb

@@ -1,229 +0,0 @@
-require 'ruby_ex'
-require 'abstract'
-
-module FileType
-
-  @@subclasses = []
-
-  def self.register ( klass )
-    @@subclasses << klass
-  end
-
-  class Generic
-    include Abstract
-
-    attr_reader :path, :base, :ext
-
-    def initialize ( path )
-      @path = Pathname.new(path)
-      re = self.class.extension
-      raise ArgumentError, "bad class #{self.class}" if re.nil?
-      unless @path.to_s =~ re
-        raise ArgumentError, "#{@path} do not match /#{re.source}/"
-      end
-      @base, @ext = $`, $&
-      if @ext.empty?
-        @base = self
-      else
-        @base = FileType.guess(@base)
-      end
-    end
-
-    def extsplit
-      [@base, @ext]
-    end
-
-    def self.inherited ( klass )
-      FileType.register(klass)
-    end
-
-    def to_s
-      @path.to_s
-    end
-
-    def self.extension
-      const_get(:EXTENSION)
-    end
-
-    def self.match_type ( path, max, best )
-      ext_re = self.extension
-      if path.to_s =~ ext_re and $&.size > max
-        return [$&.size, self]
-      end
-      return [max, best]
-    end
-    
-    def + ( arg )
-      @path + arg.to_s
-    end
-
-  end # class Generic
-
-  class Unknown < Generic
-    include Concrete
-    EXTENSION = /(\.[^.\/]+)?$/
-  end # class Unknown
-
-  class ExtractError < Exception
-  end
-
-  module Extractable
-
-    def self.included ( aClass )
-
-      aClass.module_eval do
-    
-        def mk_cmd
-          base, ext = @base.extsplit
-          @tmp = TempPath.new(base.path.basename, ext)
-          cmd = self.class.const_get(:EXTRACT_COMMAND).gsub(/%I/, @path.to_s)
-          cmd.gsub!(/%O/, @tmp.to_s)
-          cmd
-        end
-
-        def extract
-          cmd = mk_cmd
-          unless system(cmd)
-            @tmp.rmtree if @tmp.exist?
-            err = "
-              |Cannot extract a file:
-              |  path: #{to_s}
-              |  type: #{self.class}
-              |  command: #{cmd}
-              |  exit status: #{$? >> 8}
-              "
-            raise ExtractError, err.gsub(/^\s*|/, '')
-          end
-          FileType.guess(@tmp)
-        end
-
-        alias :default :extract
-
-      end
-
-    end
-    
-  end # module Extractable
-
-  # FIXME Use the zlib if gzip not available.
-  class Gz < Generic
-    include Extractable
-    include Concrete
-    EXTENSION = /(\.(gz|z|Z)|-gz|-z|_z)$/
-    EXTRACT_COMMAND = 'gzip -d -c "%I" > "%O"'
-  end # class Gz
-
-  class Bz2 < Generic
-    include Extractable
-    include Concrete
-    EXTENSION = /\.(bz2|bz)$/
-    EXTRACT_COMMAND = 'bzip2 -d -c "%I" > "%O"'
-  end # class Bz2
-
-  class Zip < Generic
-    include Extractable
-    include Concrete
-    EXTENSION = /\.zip$/
-    EXTRACT_COMMAND = 'unzip -p "%I" > "%O"'
-  end # class Zip
-
-  module ExtractableDir
-
-    def self.included ( aClass )
-
-      aClass.module_eval do
-    
-        include Extractable
-
-        alias :mk_cmd_extractable :mk_cmd
-        
-        def mk_cmd
-          cmd = mk_cmd_extractable
-          @tmp.mkpath
-          @log = TempPath.new
-          cmd.gsub!(/%L/, @log.to_s)
-        end
-
-        alias :extract_extractable :extract
-
-        def extract
-          dir = extract_extractable
-          # We want the longest common path
-          longest = nil
-          @log.each_line do |line|
-            path = line.split(/\//)
-            longest = path if longest.nil?
-            longest &= path
-            raise CorruptedTarball, self if longest.empty?
-          end
-          dir.path + longest.join('/')
-        end
-
-      end
-
-    end
-
-  end # module ExtractableDir
-
-  class Tar < Generic
-    include ExtractableDir
-    include Concrete
-    EXTENSION = /\.tar$/
-    EXTRACT_COMMAND = 'tar xvf "%I" -C "%O" > "%L"'
-  end # class Tar
-
-  class TarGz < Generic
-    include ExtractableDir
-    include Concrete
-    EXTENSION = /\.(tar\.gz|tgz)$/
-    EXTRACT_COMMAND = 'tar xvzf "%I" -C "%O" > %L'
-  end # class TarGz
-
-  class TarBz2 < Generic
-    include ExtractableDir
-    include Concrete
-    EXTENSION = /\.(tar\.bz2|tbz2|tbz)$/
-    EXTRACT_COMMAND = 'bzip2 -c -d %I | tar xvf - -C "%O" > "%L"'
-  end # class TarBz2
-
-  class Directory < Generic
-    include Concrete
-
-    EXTENSION = /()$/
-
-    def self.match_type ( path, max, best )
-      if File.directory? path
-        return [path.to_s.size, self]
-      end
-      return [max, best]
-    end
-    
-  end # class Directory
-
-  def self.guess_class ( path )
-    lazy_init
-    max = -1
-    best = Unknown
-    @@subclasses.each do |klass|
-      max, best = klass.match_type(path, max, best)
-    end
-    return best
-  end
-
-  def self.guess ( path )
-    guess_class(path).new(path)
-  end
-
-  def self.lazy_init
-    return if defined? @@init
-    @@init = true
-    @@subclasses.delete_if do |klass|
-      klass.abstract? or not (klass.is_a? Class) # and constants.include? klass)
-    end
-    @@subclasses.each do |klass|
-      ext = klass.extension
-      raise ArgumentError, "Bad extension #{ext}" unless ext.is_a? Regexp
-    end
-  end
-
-end # module FileType

data/lib/thread_mutex.rb

@@ -1,11 +0,0 @@
-require 'ruby_ex'
-class Thread
-
-  alias :raise_without_exception_call :raise
-
-  def raise ( exc, *a, &b )
-    exc = exc.exception if exc.respond_to? :exception
-    raise_without_exception_call(exc, *a, &b)
-  end
-
-end

data/lib/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 279 2005-06-05 17:46:53Z ertai $
-
-require 'ruby_ex'
-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
-
-
-test_section __FILE__ do
-
-  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