backports 3.0.3 → 3.1.0

data/lib/backports/1.9.1/proc/curry.rb

@@ -0,0 +1,24 @@
+unless Proc.method_defined? :curry
+  require 'backports/1.9.1/proc/lambda'
+
+  class Proc
+    def curry(argc = nil)
+      min_argc = arity < 0 ? -arity - 1 : arity
+      argc ||= min_argc
+      if lambda? and arity < 0 ? argc < min_argc : argc != arity
+        raise ArgumentError, "wrong number of arguments (#{argc} for #{min_argc})"
+      end
+      creator = lambda? ? :lambda : :proc
+      block = send(creator) do |*args|
+        if args.size >= argc
+          call(*args)
+        else
+          send(creator) do |*more_args|
+            args += more_args
+            block.call(*args)
+          end
+        end
+      end
+    end
+  end
+end

data/lib/backports/1.9.1/proc/lambda.rb

@@ -0,0 +1,40 @@
+unless Proc.method_defined? :lambda?
+  require 'backports/tools'
+
+  class Proc
+    # Standard in Ruby 1.9. See official documentation[http://ruby-doc.org/core-1.9/classes/Proc.html]
+    def lambda?
+      !!__is_lambda__
+    end
+
+    attr_accessor :__is_lambda__
+    private :__is_lambda__
+    private :__is_lambda__=
+  end
+
+  class Method
+    def to_proc_with_lambda_tracking
+      proc = to_proc_without_lambda_tracking
+      proc.send :__is_lambda__=, true
+      proc
+    end
+    Backports.alias_method_chain self, :to_proc, :lambda_tracking
+  end
+
+  module Kernel
+    def lambda_with_lambda_tracking(&block)
+      l = lambda_without_lambda_tracking(&block)
+      l.send :__is_lambda__=, true unless block.send(:__is_lambda__) == false
+      l
+    end
+
+    def proc_with_lambda_tracking(&block)
+      l = proc_without_lambda_tracking(&block)
+      l.send :__is_lambda__=, block.send(:__is_lambda__) == true
+      l
+    end
+
+    Backports.alias_method_chain self, :lambda, :lambda_tracking
+    Backports.alias_method_chain self, :proc, :lambda_tracking
+  end
+end

data/lib/backports/1.9.1/range.rb

@@ -1,3 +1,3 @@
-class Range
-  Backports.alias_method self, :cover?, :include?
-end
+require 'backports/tools'
+
+Backports.require_relative_dir

data/lib/backports/1.9.1/range/cover.rb

@@ -0,0 +1,3 @@
+require 'backports/tools'
+
+Backports.alias_method Range, :cover?, :include?

data/lib/backports/1.9.1/regexp.rb

@@ -1,8 +1,3 @@
-class Regexp
-  # Standard in Ruby 1.8.8. See official documentation[http://ruby-doc.org/core-1.9/classes/Array.html]
-  class << self
-    def try_convert(obj)
-      Backports.try_convert(obj, Regexp, :to_regexp)
-    end unless method_defined? :try_convert
-  end
-end
+require 'backports/tools'
+
+Backports.require_relative_dir

data/lib/backports/1.9.1/regexp/try_convert.rb

@@ -0,0 +1,7 @@
+unless Regexp.respond_to? :try_convert
+  require 'backports/tools'
+
+  def Regexp.try_convert(obj)
+    Backports.try_convert(obj, Regexp, :to_regexp)
+  end
+end

data/lib/backports/1.9.1/stdlib.rb

@@ -1 +1 @@
-Backports::StdLib.extend_relative
+Backports::StdLib.extend_relative

data/lib/backports/1.9.1/string.rb

@@ -1,45 +1,3 @@
-class String
+require 'backports/tools'
 
-  class << self
-    # Standard in Ruby 1.8.8. See official documentation[http://ruby-doc.org/core-1.9/classes/String.html]
-    def try_convert(x)
-      Backports.try_convert(x, String, :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.9. 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.9. 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?
-    unpack("U*").each{|cp| yield cp}
-  end unless method_defined? :codepoints
-
-  # Standard in Ruby 1.9. See official documentation[http://ruby-doc.org/core-1.9/classes/String.html]
-  Backports.alias_method self, :each_codepoint, :codepoints
-
-  # Standard in Ruby 1.9. See official documentation[http://ruby-doc.org/core-1.9/classes/String.html]
-  def ord
-    codepoints.first or raise ArgumentError, "empty string"
-  end unless method_defined? :ord
-
-  # Standard in Ruby 1.8.8. See official documentation[http://ruby-doc.org/core-1.9/classes/String.html]
-  Backports.alias_method self, :getbyte, :[]
-
-  # Standard in Ruby 1.8.8. See official documentation[http://ruby-doc.org/core-1.9/classes/String.html]
-  Backports.alias_method self, :setbyte, :[]=
-end
+Backports.require_relative_dir

data/lib/backports/1.9.1/string/ascii_only.rb

@@ -0,0 +1,7 @@
+unless String.method_defined? :ascii_only?
+  class String
+    def ascii_only?
+      !(self =~ /[^\x00-\x7f]/)
+    end
+  end
+end

data/lib/backports/1.9.1/string/chr.rb

@@ -0,0 +1,7 @@
+unless String.method_defined? :chr
+  class String
+    def chr
+      chars.first || ""
+    end
+  end
+end

data/lib/backports/1.9.1/string/clear.rb

@@ -0,0 +1,8 @@
+unless String.method_defined? :clear
+  class String
+    def clear
+      self[0,length] = ""
+      self
+    end
+  end
+end

data/lib/backports/1.9.1/string/codepoints.rb

@@ -0,0 +1,8 @@
+unless String.method_defined? :codepoints
+  class String
+    def codepoints
+      return to_enum(:codepoints) unless block_given?
+      unpack("U*").each{|cp| yield cp}
+    end
+  end
+end

data/lib/backports/1.9.1/string/each_codepoint.rb

@@ -0,0 +1,3 @@
+require 'backports/tools'
+
+Backports.alias_method String, :each_codepoint, :codepoints

data/lib/backports/1.9.1/string/getbyte.rb

@@ -0,0 +1,3 @@
+require 'backports/tools'
+
+Backports.alias_method String, :getbyte, :[]

data/lib/backports/1.9.1/string/ord.rb

@@ -0,0 +1,7 @@
+unless String.method_defined? :ord
+  class String
+    def ord
+      codepoints.first or raise ArgumentError, "empty string"
+    end
+  end
+end

data/lib/backports/1.9.1/string/setbyte.rb

@@ -0,0 +1,3 @@
+require 'backports/tools'
+
+Backports.alias_method String, :setbyte, :[]=

data/lib/backports/1.9.1/string/try_convert.rb

@@ -0,0 +1,7 @@
+unless String.respond_to? :try_convert
+  require 'backports/tools'
+
+  def String.try_convert(x)
+    Backports.try_convert(x, String, :to_str)
+  end
+end

data/lib/backports/1.9.1/symbol.rb

@@ -1,32 +1,3 @@
-class Symbol
-  # Standard in ruby 1.9. See official documentation[http://ruby-doc.org/core-1.9/classes/Symbol.html]
-  [ [%w(capitalize downcase next succ swapcase upcase), {:after => ".to_sym"}],
-    [%w(=~ [] empty? length match size), {}]
-  ].each { |methods, options| methods.each do |method|
-    module_eval <<-end_eval
-      def #{method}(*args)
-        to_s.#{method}(*args)#{options[:after]}
-      end unless method_defined? :#{method}
-    end_eval
-  end }
+require 'backports/tools'
 
-  # Standard in ruby 1.9. See official documentation[http://ruby-doc.org/core-1.9/classes/Symbol.html]
-  def <=>(with)
-    return nil unless with.is_a? Symbol
-    to_s <=> with.to_s
-  end unless method_defined? :"<=>"
-
-  # Standard in ruby 1.9. See official documentation[http://ruby-doc.org/core-1.9/classes/Symbol.html]
-  def casecmp(with)
-    return nil unless with.is_a? Symbol
-    to_s.casecmp(with.to_s)
-  end unless method_defined? :casecmp
-
-  # Standard in ruby 1.9. See official documentation[http://ruby-doc.org/core-1.9/classes/Symbol.html]
-  unless ancestors.include? Comparable
-    alias_method :dont_override_equal_please, :==
-    include Comparable
-    alias_method :==,  :dont_override_equal_please
-  end
-  
-end
+Backports.require_relative_dir

data/lib/backports/1.9.1/symbol/capitalize.rb

@@ -0,0 +1,7 @@
+unless Symbol.method_defined? :capitalize
+  class Symbol
+    def capitalize
+      to_s.capitalize.to_sym
+    end
+  end
+end

data/lib/backports/1.9.1/symbol/casecmp.rb

@@ -0,0 +1,8 @@
+unless Symbol.method_defined? :casecmp
+  class Symbol
+    def casecmp(with)
+      return nil unless with.is_a? Symbol
+      to_s.casecmp(with.to_s)
+    end
+  end
+end

data/lib/backports/1.9.1/symbol/comparable.rb

@@ -0,0 +1,7 @@
+unless Symbol < Comparable
+  class Symbol
+    alias_method :dont_override_equal_please, :==
+    include Comparable
+    alias_method :==,  :dont_override_equal_please
+  end
+end

data/lib/backports/1.9.1/symbol/comparison.rb

@@ -0,0 +1,8 @@
+unless Symbol.method_defined? :<=>
+  class Symbol
+    def <=>(with)
+      return nil unless with.is_a? Symbol
+      to_s <=> with.to_s
+    end
+  end
+end

data/lib/backports/1.9.1/symbol/downcase.rb

@@ -0,0 +1,7 @@
+unless Symbol.method_defined? :downcase
+  class Symbol
+    def downcase
+      to_s.downcase.to_sym
+    end
+  end
+end

data/lib/backports/1.9.1/symbol/element_reference.rb

@@ -0,0 +1,7 @@
+unless Symbol.method_defined? :[]
+  class Symbol
+    def [](*args)
+      to_s[*args]
+    end
+  end
+end

data/lib/backports/1.9.1/symbol/empty.rb

@@ -0,0 +1,7 @@
+unless Symbol.method_defined? :empty?
+  class Symbol
+    def empty?
+      to_s.empty?
+    end
+  end
+end

data/lib/backports/1.9.1/symbol/length.rb

@@ -0,0 +1,7 @@
+unless Symbol.method_defined? :length
+  class Symbol
+    def length
+      to_s.length
+    end
+  end
+end

data/lib/backports/1.9.1/symbol/match.rb

@@ -0,0 +1,9 @@
+unless Symbol.method_defined? :match
+  class Symbol
+    def match(with)
+      to_s =~ with
+    end
+
+    alias_method :=~, :match
+  end
+end

data/lib/backports/1.9.1/symbol/next.rb

@@ -0,0 +1 @@
+require 'backports/1.9.1/symbol/succ'

data/lib/backports/1.9.1/symbol/size.rb

@@ -0,0 +1,7 @@
+unless Symbol.method_defined? :size
+  class Symbol
+    def size
+      to_s.size
+    end
+  end
+end

data/lib/backports/1.9.1/symbol/succ.rb

@@ -0,0 +1,8 @@
+unless Symbol.method_defined? :succ
+  class Symbol
+    def succ
+      to_s.succ.to_sym
+    end
+    alias_method :next, :succ
+  end
+end

data/lib/backports/1.9.1/symbol/swapcase.rb

@@ -0,0 +1,7 @@
+unless Symbol.method_defined? :swapcase
+  class Symbol
+    def swapcase
+      to_s.swapcase.to_sym
+    end
+  end
+end

data/lib/backports/1.9.1/symbol/upcase.rb

@@ -0,0 +1,7 @@
+unless Symbol.method_defined? :upcase
+  class Symbol
+    def upcase
+      to_s.upcase.to_sym
+    end
+  end
+end

data/lib/backports/1.9.2.rb

@@ -1,5 +1,3 @@
 # require this file to load all the backports up to Ruby 1.9.2
-
-require File.expand_path(File.dirname(__FILE__) + "/tools")
-Backports.require_relative "1.9.1"
-Backports.require_relative_dir "1.9.2"
+require 'backports/1.9.1'
+Backports.require_relative_dir

data/lib/backports/1.9.2/array.rb

@@ -1,110 +1,3 @@
-class Array
-  # Standard in Ruby 1.9.2 See official documentation[http://ruby-doc.org/core-1.9/classes/Enumerable.html]
-  def keep_if
-    return to_enum(:keep_if) unless block_given?
-    delete_if{|elem| !yield elem}
-  end unless method_defined? :keep_if
+require 'backports/tools'
 
-  if [1].product([2]){break false}
-    def product_with_block(*arg, &block)
-      return product_without_block(*arg) unless block_given?
-      # Same implementation as 1.8.7, but yielding
-      arg.map!{|ary| Backports.coerce_to_ary(ary)}
-      arg.reverse! # to get the results in the same order as in MRI, vary the last argument first
-      arg.push self
-
-      outer_lambda = arg.inject(block) do |proc, values|
-        lambda do |partial|
-          values.each do |val|
-            proc.call(partial.dup << val)
-          end
-        end
-      end
-
-      outer_lambda.call([])
-      self
-    end
-    Backports.alias_method_chain self, :product, :block
-  end
-
-  # Note: Combinations are not yielded in the same order as MRI.
-  # This is not a bug; the spec states that the order is implementation dependent
-  def repeated_combination(num)
-    return to_enum(:repeated_combination, num) unless block_given?
-    num = Backports.coerce_to_int(num)
-    if num <= 0
-      yield [] if num == 0
-    else
-      indices = Array.new(num, 0)
-      indices[-1] = size
-      while dec = indices.find_index(&:nonzero?)
-        indices[0..dec] = Array.new dec+1, indices[dec]-1
-        yield values_at(*indices)
-      end
-    end
-    self
-  end unless method_defined? :repeated_combination
-
-  # Note: Permutations are not yielded in the same order as MRI.
-  # This is not a bug; the spec states that the order is implementation dependent
-  def repeated_permutation(num)
-    return to_enum(:repeated_permutation, num) unless block_given?
-    num = Backports.coerce_to_int(num)
-    if num <= 0
-      yield [] if num == 0
-    else
-      indices = Array.new(num, 0)
-      indices[-1] = size
-      while dec = indices.find_index(&:nonzero?)
-        indices[0...dec] = Array.new dec, size-1
-        indices[dec] -= 1
-        yield values_at(*indices)
-      end
-    end
-    self
-  end unless method_defined? :repeated_permutation
-
-  def rotate(n=1)
-    Array.new(self).rotate!(n)
-  end unless method_defined? :rotate
-
-  def rotate!(n=1)
-    n = Backports.coerce_to_int(n) % (empty? ? 1 : size)
-    concat(shift(n))
-  end unless method_defined? :rotate!
-
-  def select!
-    return to_enum(:select!) unless block_given?
-    reject!{|elem| ! yield elem}
-  end unless method_defined? :select!
-
-  def sort_by!
-    return to_enum(:sort_by!) unless block_given?
-    raise "can't modify frozen array" if frozen?
-    replace sort_by{|e| yield e}
-  end unless method_defined? :sort_by!
-
-  unless [1,2].uniq!{}
-    def uniq_with_block!
-      return uniq_without_block! unless block_given?
-      replace self if frozen? # force error
-      u = uniq{|e| yield e}
-      replace u unless u.size == size
-    end
-    Backports.alias_method_chain self, :uniq!, :block
-  end
-
-  unless [1,2].uniq{}.size == 1
-    def uniq_with_block
-      return uniq_without_block unless block_given?
-      h = {}
-      each do |elem|
-        h[yield(elem)] ||= elem
-      end
-      h.values
-    end
-    Backports.alias_method_chain self, :uniq, :block
-  end
-
-end
-    
+Backports.require_relative_dir