backports 1.7.1 → 1.8.0

data/lib/backports/core_ext.rb

@@ -1,61 +0,0 @@
-# These are non-standard extensions
-
-class Module
-  # Metaprogramming utility to make block optional.
-  # Tests first if block is already optional when given options
-  def make_block_optional(*methods)
-    options = methods.extract_options!
-    methods.each do |selector|
-      next unless method_defined? selector
-      unless options.empty?
-        test_on = options[:test_on] || self.new
-        next if (test_on.send(selector, *options.fetch(:arg, [])) rescue false)
-      end
-      
-      arity = instance_method(selector).arity
-      last_arg = []
-      if arity < 0
-        last_arg = ["*rest"]
-        arity = -1-arity
-      end
-      arg_sequence = ((0...arity).map{|i| "arg_#{i}"} + last_arg + ["&block"]).join(", ")
-
-      alias_method_chain(selector, :optional_block) do |aliased_target, punctuation|
-        module_eval <<-end_eval
-          def #{aliased_target}_with_optional_block#{punctuation}(#{arg_sequence})
-            return to_enum(:#{aliased_target}_without_optional_block#{punctuation}, #{arg_sequence}) unless block_given?
-            #{aliased_target}_without_optional_block#{punctuation}(#{arg_sequence})
-          end
-        end_eval
-      end
-    end
-  end
-end
-
-module Type
-  # From Rubinius
-  class << self
-    def coerce_to(obj, cls, meth)
-      return obj if obj.kind_of?(cls)
-
-      begin
-        ret = obj.__send__(meth)
-      rescue Exception => e
-        raise TypeError, "Coercion error: #{obj.inspect}.#{meth} => #{cls} failed:\n" \
-                         "(#{e.message})"
-      end
-      raise TypeError, "Coercion error: obj.#{meth} did NOT return a #{cls} (was #{ret.class})" unless ret.kind_of? cls
-      ret
-    end unless method_defined? :coerce_to
-  end
-  
-  def self.coerce_to_comparison(a, b, cmp = (a <=> b))
-    raise ArgumentError, "comparison of #{a} with #{b} failed" if cmp.nil?
-    return 1 if cmp > 0
-    return -1 if cmp < 0
-    0
-  end unless method_defined? :coerce_to_comparison
-end
-
-# From Rubinius
-Undefined = Object.new unless Kernel.const_defined? :Undefined

data/lib/backports/dir.rb

@@ -1,7 +0,0 @@
-class Dir
-  make_block_optional :each, :test_on => Dir.new(".")
-  class << self
-    make_block_optional :foreach, :test_on => Dir, :arg => "."
-  end
-end
-  

data/lib/backports/enumerator.rb

@@ -1,43 +0,0 @@
-class Enumerator
-  alias_method :with_object, :each_with_object unless method_defined? :with_object
-
-  def next
-    require 'generator'
-    @generator ||= Generator.new(self)
-    raise StopIteration unless @generator.next?
-    @generator.next
-  end unless method_defined? :next
-
-  def rewind
-    @object.rewind if @object.respond_to? :rewind
-    require 'generator'
-    @generator ||= Generator.new(self)
-    @generator.rewind
-    self
-  end unless method_defined? :rewind
-
-  # new with block, standard in Ruby 1.9
-  unless (self.new{} rescue false)
-    class Yielder
-      def initialize(&block)
-        @main_block = block
-      end
-
-      def each(&block)
-        @final_block = block
-        @main_block.call(self)
-      end
-
-      def yield(*arg)
-        @final_block.yield(*arg)
-      end
-    end
-
-    def initialize_with_optional_block(*arg, &block)
-      @object = arg.first
-      return initialize_without_optional_block(*arg, &nil) unless arg.empty?  # Ruby 1.9 apparently ignores the block if any argument is present
-      initialize_without_optional_block(Yielder.new(&block))
-    end
-    alias_method_chain :initialize, :optional_block
-  end
-end

data/lib/backports/env.rb

@@ -1,3 +0,0 @@
-class << ENV
-  make_block_optional :delete_if, :each, :each_key, :each_pair, :each_value, :reject!, :select, :test_on => ENV
-end

data/lib/backports/fixnum.rb

@@ -1,11 +0,0 @@
-class Fixnum
-  # Standard in ruby 1.9. See official documentation[http://ruby-doc.org/core-1.9/classes/Fixnum.html]
-  def div(n)
-    (self / n).to_i
-  end unless method_defined? :div
-
-  # Standard in ruby 1.9. See official documentation[http://ruby-doc.org/core-1.9/classes/Fixnum.html]
-  def fdiv(n)
-    to_f / n
-  end unless method_defined? :fdiv
-end

data/lib/backports/float.rb

@@ -1,4 +0,0 @@
-class Fixnum
-  # Standard in ruby 1.9. See official documentation[http://ruby-doc.org/core-1.9/classes/Fixnum.html]
-  alias_method :fdiv, :/ unless method_defined? :fdiv
-end

data/lib/backports/hash.rb

@@ -1,64 +0,0 @@
-class Hash
-  # New Ruby 1.8.7+ constructor -- not documented, see redmine # 1385
-  # <tt>Hash[[[:foo, :bar],[:hello, "world"]]] ==> {:foo => :bar, :hello => "world"}</tt>
-  class << self
-    alias_method :original_constructor, :[]
-    def [](*args)
-      return original_constructor(*args) unless args.length == 1 && args.first.is_a?(Array)
-      returning({}) do |h|
-        args.first.each do |arr|
-          next unless arr.respond_to? :to_ary
-          arr = arr.to_ary
-          next unless (1..2).include? arr.size
-          h[arr.at(0)] = arr.at(1)
-        end
-      end
-    end unless (Hash[[[:test, :test]]] rescue false)
-
-    # Standard in Ruby 1.9. See official documentation[http://ruby-doc.org/core-1.9/classes/Hash.html]
-    def try_convert(x)
-      return nil unless x.respond_to? :to_hash
-      x.to_hash
-    end unless method_defined? :to_hash
-  end
-
-  make_block_optional :delete_if, :each, :each_key, :each_pair, :each_value, :reject, :reject!, :select, :test_on => {:hello => "world!"}
-
-  # Standard in Ruby 1.9. See official documentation[http://ruby-doc.org/core-1.9/classes/Hash.html]
-  def default_proc=(proc)
-    replace(Hash.new(&Type.coerce_to(proc, Proc, :to_proc)).merge!(self))
-  end unless method_defined? :default_proc=
-
-  # Standard in Ruby 1.8.7+. See official documentation[http://ruby-doc.org/core-1.9/classes/Hash.html]
-  alias_method :key, :index unless method_defined? :key
-
-  # Standard in rails. See official documentation[http://api.rubyonrails.org/classes/ActiveSupport/CoreExtensions/Hash/Keys.html]
-  def reverse_merge(other_hash)
-    other_hash.merge(self)
-  end
-
-  # Standard in rails. See official documentation[http://api.rubyonrails.org/classes/ActiveSupport/CoreExtensions/Hash/Keys.html]
-  def reverse_merge!(other_hash)
-    replace(reverse_merge(other_hash))
-  end
-
-  # Standard in rails. See official documentation[http://api.rubyonrails.org/classes/ActiveSupport/CoreExtensions/Hash/Keys.html]
-  def symbolize_keys
-    Hash[map{|key,value| [(key.to_sym rescue key) || key, value] }]
-  end unless method_defined? :symbolize_keys
-
-  # Standard in rails. See official documentation[http://api.rubyonrails.org/classes/ActiveSupport/CoreExtensions/Hash/Keys.html]
-  def symbolize_keys!
-    self.replace(self.symbolize_keys)
-  end unless method_defined? :symbolize_keys!
-
-  # Standard in rails. See official documentation[http://api.rubyonrails.org/classes/ActiveSupport/CoreExtensions/Hash/Keys.html]
-  def stringify_keys
-    Hash[map{|key,value| [key.to_s, value] }]
-  end unless method_defined? :stringify_keys
-
-  # Standard in rails. See official documentation[http://api.rubyonrails.org/classes/ActiveSupport/CoreExtensions/Hash/Keys.html]
-  def stringify_keys!
-    self.replace(self.stringify_keys)
-  end unless method_defined? :stringify_keys!
-end

data/lib/backports/integer.rb

@@ -1,25 +0,0 @@
-class Integer
-  # Standard in ruby 1.9. See official documentation[http://ruby-doc.org/core-1.9/classes/Fixnum.html]
-  def even?
-    self[0].zero?
-  end unless method_defined? :even?
-
-  # Standard in ruby 1.9. See official documentation[http://ruby-doc.org/core-1.9/classes/Fixnum.html]
-  def odd?
-    !even?
-  end unless method_defined? :odd?
-
-  # Standard in ruby 1.9. See official documentation[http://ruby-doc.org/core-1.9/classes/Fixnum.html]
-  def ord
-    self
-  end unless method_defined? :ord
-
-  # Standard in ruby 1.9. See official documentation[http://ruby-doc.org/core-1.9/classes/Fixnum.html]
-  def pred
-    self - 1
-  end unless method_defined? :pred
-
-  alias_method :magnitude, :abs unless method_defined? :magnitude
-
-  make_block_optional :downto, :times, :upto, :test_on => 42, :arg => 42
-end

data/lib/backports/kernel.rb

@@ -1,55 +0,0 @@
-require 'enumerator'
-# Must be defined outside of Kernel for jruby, see http://jira.codehaus.org/browse/JRUBY-3609
-Enumerator = Enumerable::Enumerator unless Kernel.const_defined? :Enumerator # Standard in ruby 1.9
-
-module Kernel
-
-  def __callee__
-    caller(1).first[/`(.*)'/,1].try(:to_sym)
-  end unless (__callee__ || true rescue false)
-
-  alias_method :__method__, :__callee__  unless (__method__ || true rescue false)
-
-  # Standard in ruby 1.9. See official documentation[http://ruby-doc.org/core-1.9/classes/Object.html]
-  def define_singleton_method(*args, &block)
-    class << self
-      self
-    end.send(:define_method, *args, &block)
-  end unless method_defined? :define_singleton_method
-
-  # Standard in ruby 1.9. See official documentation[http://ruby-doc.org/core-1.9/classes/Object.html]
-  def instance_exec(*arg, &block)
-    define_singleton_method(:"temporary method for instance_exec", &block)
-    send(:"temporary method for instance_exec", *arg)
-  end unless method_defined? :instance_exec
-
-  # Loop. Standard in ruby 1.8.7. See official documentation[http://ruby-doc.org/core-1.9/classes/Object.html]
-  unless const_defined? :StopIteration
-    class StopIteration < IndexError; end
-
-    def loop_with_stop_iteration(&block)
-      loop_without_stop_iteration(&block)
-    rescue StopIteration
-      # ignore silently
-    end
-    alias_method_chain :loop, :stop_iteration
-  end
-
-  # Standard in ruby 1.8.7. See official documentation[http://ruby-doc.org/core-1.9/classes/Object.html]
-  def tap
-    yield self
-    self
-  end unless method_defined? :tap
-
-  # Standard in rails. See official documentation[http://api.rubyonrails.org/classes/Object.html]
-  def try(method_id, *args, &block)
-    send(method_id, *args, &block) unless self.nil? #todo: check new def
-  end unless method_defined? :try
-
-  # Standard in rails. See official documentation[http://api.rubyonrails.org/classes/Object.html]
-  def returning(obj)
-    yield obj
-    obj
-  end unless method_defined? :returning
-
-end

data/lib/backports/module.rb

@@ -1,30 +0,0 @@
-class Module
-  # Standard in rails... See official documentation[http://api.rubyonrails.org/classes/ActiveSupport/CoreExtensions/Module.html]
-  def alias_method_chain(target, feature)
-    # Strip out punctuation on predicates or bang methods since
-    # e.g. target?_without_feature is not a valid method name.
-    aliased_target, punctuation = target.to_s.sub(/([?!=])$/, ''), $1
-    yield(aliased_target, punctuation) if block_given?
-    
-    with_method, without_method = "#{aliased_target}_with_#{feature}#{punctuation}", "#{aliased_target}_without_#{feature}#{punctuation}"
-    
-    alias_method without_method, target
-    alias_method target, with_method
-    
-    case
-      when public_method_defined?(without_method)
-        public target
-      when protected_method_defined?(without_method)
-        protected target
-      when private_method_defined?(without_method)
-        private target
-    end
-  end unless method_defined? :alias_method_chain
-  
-  # Can't use alias_method here because of jruby (see http://jira.codehaus.org/browse/JRUBY-2435 )
-  def module_exec(*arg, &block)
-    instance_exec(*arg, &block)
-  end unless method_defined? :module_exec
-  alias_method :class_exec, :module_exec unless method_defined? :class_exec
-  
-end

data/lib/backports/numeric.rb

@@ -1,3 +0,0 @@
-class Numeric
-  make_block_optional :step, :test_on => 42, :arg => [100, 6]
-end

data/lib/backports/object_space.rb

@@ -1,5 +0,0 @@
-module ObjectSpace
-  module_eval do
-    make_block_optional :each_object, :test_on => ObjectSpace
-  end
-end

data/lib/backports/range.rb

@@ -1,4 +0,0 @@
-class Range
-  make_block_optional :each, :test_on => 69..666
-  make_block_optional :step, :test_on => 69..666, :arg => 42
-end

data/lib/backports/string.rb

@@ -1,167 +0,0 @@
-class String
-  class << self
-    # Standard in Ruby 1.9. See official documentation[http://ruby-doc.org/core-1.9/classes/String.html]
-    def try_convert(x)
-      return nil unless x.respond_do(:to_str)
-      x.to_str
-    end unless method_defined? :try_convert
-  end
-
-  # Standard in Ruby 1.9. See official documentation[http://ruby-doc.org/core-1.9/classes/String.html]
-  def ascii_only?
-    !(self =~ /[^\x00-\x7f]/)
-  end unless method_defined? :ascii_only?
-  
-  # Standard in Ruby 1.8.7+. See official documentation[http://ruby-doc.org/core-1.9/classes/String.html]
-  alias_method :bytesize, :length unless method_defined? :bytesize
-
-  # Standard in rails. See official documentation[http://api.rubyonrails.org/classes/ActiveSupport/CoreExtensions/String/Inflections.html]
-  def camelize(first_letter = :upper) 
-    if first_letter == :upper
-      gsub(/\/(.?)/) { "::#{$1.upcase}" }.gsub(/(?:^|_)(.)/) { $1.upcase }
-    else
-      first.downcase + camelize[1..-1]
-    end
-  end unless method_defined? :camelize
-  
-  # Standard in Ruby 1.8.7+. See official documentation[http://ruby-doc.org/core-1.9/classes/String.html]
-  def chr
-    chars.first
-  end unless method_defined? :chr
-
-  # Standard in Ruby 1.8.7+. See official documentation[http://ruby-doc.org/core-1.9/classes/String.html]
-  def clear
-    self[0,length] = ""
-    self
-  end unless method_defined? :clear?
-
-  # Standard in Ruby 1.9. See official documentation[http://ruby-doc.org/core-1.9/classes/String.html]
-  def codepoints
-    return to_enum(:codepoints) unless block_given?
-    each_char.each do |s|
-      utf8 = s.each_byte.to_a
-      utf8[0] &= 0xff >> utf8.size # clear high bits (1 to 4, depending of number of bytes used)
-      yield utf8.inject{|result, b| (result << 6) + (b & 0x3f) }
-    end
-  end unless method_defined? :codepoints
-  
-  # Standard in rails. See official documentation[http://api.rubyonrails.org/classes/ActiveSupport/CoreExtensions/String/Inflections.html]
-  def constantize
-    names = split('::')
-    names.shift if names.empty? || names.first.empty?
-  
-    constant = Object
-    names.each do |name|
-      constant = constant.const_defined?(name) ? constant.const_get(name) : constant.const_missing(name)
-    end
-    constant
-  end unless method_defined? :constantize
-  
-  # Standard in rails. See official documentation[http://api.rubyonrails.org/classes/ActiveSupport/CoreExtensions/String/Inflections.html]
-  def dasherize
-    gsub(/_/, '-')
-  end unless method_defined? :dasherize
-  
-  # Standard in rails. See official documentation[http://api.rubyonrails.org/classes/ActiveSupport/CoreExtensions/String/Inflections.html]
-  def demodulize
-    gsub(/^.*::/, '')
-  end unless method_defined? :demodulize
-
-  make_block_optional :each_byte, :each, :each_line, :test_on => "abc"
-  
-  # gsub: Left alone because of $~, $1, etc... which needs to be "pushed" up one level
-  # It's possible to do so, but it's a method that is used everywhere so i felt
-  # the performance hit was too big compared to the dubious gain.
-  
-  # Standard in Ruby 1.8.7+. See official documentation[http://ruby-doc.org/core-1.9/classes/String.html]
-  unless method_defined? :each_char
-    def each_char(&block)
-      return to_enum(:each_char) unless block_given?
-      scan(/./, &block)
-    end 
-
-    alias_method :chars, :each_char unless method_defined? :chars
-  end
-  
-  # Standard in Ruby 1.9. See official documentation[http://ruby-doc.org/core-1.9/classes/String.html]
-  alias_method :each_codepoint, :codepoints unless method_defined? :each_codepoint
-
-  # Standard in Ruby 1.8.7+. See official documentation[http://ruby-doc.org/core-1.9/classes/String.html]
-  def end_with?(*suffixes)
-    suffixes.each do |suffix|
-      next unless suffix.respond_to? :to_str
-      suffix = suffix.to_str
-      return true if self[-suffix.length, suffix.length] == suffix
-    end
-    false
-  end unless method_defined? :end_with?
-  
-  # Standard in Ruby 1.9. See official documentation[http://ruby-doc.org/core-1.9/classes/String.html]
-  def getbyte(i)
-    self[i]
-  end unless method_defined? :getbyte
-  
-  # Standard in Ruby 1.8.7+. See official documentation[http://ruby-doc.org/core-1.9/classes/String.html]
-  unless ("check partition".partition(" ") rescue false)
-    def partition_with_new_meaning(pattern = Undefined, &block)
-      return partition_without_new_meaning(&block) if pattern == Undefined
-      pattern = Type.coerce_to(pattern, String, :to_str) unless pattern.is_a? Regexp      
-      i = index(pattern)
-      return [self, "", ""] unless i
-      if pattern.is_a? Regexp
-        match = Regexp.last_match
-        [match.pre_match, match[0], match.post_match]
-      else
-        last = i+pattern.length
-        [self[0...i], self[i...last], self[last...length]]
-      end
-    end
-    alias_method_chain :partition, :new_meaning
-  end
-
-  # Standard in Ruby 1.8.7+. See official documentation[http://ruby-doc.org/core-1.9/classes/String.html]
-  def rpartition(pattern)
-    pattern = Type.coerce_to(pattern, String, :to_str) unless pattern.is_a? Regexp
-    i = rindex(pattern)
-    return ["", "", self] unless i
-    
-    if pattern.is_a? Regexp
-      match = Regexp.last_match
-      [match.pre_match, match[0], match.post_match]
-    else
-      last = i+pattern.length
-      [self[0...i], self[i...last], self[last...length]]
-    end
-  end unless method_defined? :rpartition
-
-  
-  # Standard in Ruby 1.8.7+. See official documentation[http://ruby-doc.org/core-1.9/classes/String.html]
-  def start_with?(*prefixes)
-    prefixes.each do |prefix|
-      next unless prefix.respond_to? :to_str
-      prefix = prefix.to_str
-      return true if self[0, prefix.length] == prefix
-    end
-    false
-  end unless method_defined? :start_with?
-  
-  # Standard in rails. See official documentation[http://api.rubyonrails.org/classes/ActiveSupport/CoreExtensions/String/Inflections.html]
-  def underscore
-    gsub(/::/, '/').
-      gsub(/([A-Z]+)([A-Z][a-z])/,'\1_\2').
-      gsub(/([a-z\d])([A-Z])/,'\1_\2').
-      tr("-", "_").
-      downcase
-  end unless method_defined? :underscore
-  
-  unless ("abc".upto("def", true) rescue false)
-    def upto_with_exclusive(to, excl=false, &block)
-      return upto_without_exclusive(to, &block) if block_given? && !excl
-      enum = Range.new(self, to, excl).to_enum
-      return enum unless block_given?
-      enum.each(&block)
-      self
-    end
-    alias_method_chain :upto, :exclusive
-  end
-end