backports 3.0.3 → 3.1.0

data/lib/backports/1.9.2/array/keep_if.rb

@@ -0,0 +1,8 @@
+unless Array.method_defined? :keep_if
+  class Array
+    def keep_if
+      return to_enum(:keep_if) unless block_given?
+      delete_if{|elem| !yield elem}
+    end
+  end
+end

data/lib/backports/1.9.2/array/product.rb

@@ -0,0 +1,26 @@
+if ([1].product([2]){break false} rescue true)
+  require 'backports/tools'
+  require 'backports/1.8.7/array/product'
+
+  class Array
+    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
+end

data/lib/backports/1.9.2/array/repeated_combination.rb

@@ -0,0 +1,25 @@
+unless Array.method_defined? :repeated_combination
+  require 'backports/tools'
+  require 'backports/1.8.7/array/index'
+
+  class Array
+    # 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
+        copy = dup
+        indices = Array.new(num, 0)
+        indices[-1] = size
+        while dec = indices.index{|x| x != 0}
+          indices.fill indices[dec]-1, 0, dec + 1
+          yield copy.values_at(*indices)
+        end
+      end
+      self
+    end
+  end
+end

data/lib/backports/1.9.2/array/repeated_permutation.rb

@@ -0,0 +1,26 @@
+unless Array.method_defined? :repeated_permutation
+  require 'backports/tools'
+  require 'backports/1.8.7/array/index'
+
+  class Array
+    # 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
+        copy = dup
+        indices = Array.new(num, 0)
+        indices[-1] = size
+        while dec = indices.index{|x| x != 0}
+          indices.fill size-1, 0, dec
+          indices[dec] -= 1
+          yield copy.values_at(*indices)
+        end
+      end
+      self
+    end
+  end
+end

data/lib/backports/1.9.2/array/rotate.rb

@@ -0,0 +1,17 @@
+unless Array.method_defined? :rotate
+  class Array
+    def rotate(n=1)
+      Array.new(self).rotate!(n)
+    end
+  end
+end
+
+unless Array.method_defined? :rotate!
+  require 'backports/tools'
+  class Array
+    def rotate!(n=1)
+      n = Backports.coerce_to_int(n) % (empty? ? 1 : size)
+      concat(slice!(0, n))
+    end
+  end
+end

data/lib/backports/1.9.2/array/select.rb

@@ -0,0 +1,8 @@
+unless Array.method_defined? :select!
+  class Array
+    def select!
+      return to_enum(:select!) unless block_given?
+      reject!{|elem| ! yield elem}
+    end
+  end
+end

data/lib/backports/1.9.2/array/sort_by.rb

@@ -0,0 +1,9 @@
+unless Array.method_defined? :sort_by!
+  class Array
+    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
+  end
+end

data/lib/backports/1.9.2/array/uniq.rb

@@ -0,0 +1,29 @@
+unless [1,2].uniq{}.size == 1
+  require 'backports/tools'
+
+  class Array
+    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
+
+unless [1,2].uniq!{}
+  require 'backports/tools'
+
+  class Array
+    def uniq_with_block!
+      replace self if frozen? # force error
+      return uniq_without_block! unless block_given?
+      u = uniq{|e| yield e}
+      replace u unless u.size == size
+    end
+    Backports.alias_method_chain self, :uniq!, :block
+  end
+end

data/lib/backports/1.9.2/complex.rb

@@ -1,6 +1,3 @@
-class Complex
-  def to_r
-    raise "Can't convert #{self} into Rational" unless imag.eql?(0)
-    real.to_r
-  end unless method_defined?(:to_r)
-end
+require 'backports/tools'
+
+Backports.require_relative_dir

data/lib/backports/1.9.2/complex/to_r.rb

@@ -0,0 +1,10 @@
+if Object.const_defined? :Complex
+  unless Complex.method_defined? :to_r
+    class Complex
+      def to_r
+        raise RangeError, "Can't convert #{self} into Rational" unless imag.eql?(0)
+        real.to_r
+      end
+    end
+  end
+end

data/lib/backports/1.9.2/dir.rb

@@ -1,5 +1,3 @@
-class << Dir
-  def home(user = "")
-    File.expand_path "~#{user}"
-  end unless method_defined? :home
-end
+require 'backports/tools'
+
+Backports.require_relative_dir

data/lib/backports/1.9.2/dir/home.rb

@@ -0,0 +1,5 @@
+unless Dir.respond_to? :home
+  def Dir.home(user = "")
+    File.expand_path "~#{user}"
+  end
+end

data/lib/backports/1.9.2/enumerable.rb

@@ -1,74 +1,3 @@
-module Enumerable
-  # Standard in Ruby 1.9.2 See official documentation[http://ruby-doc.org/core-1.9/classes/Enumerable.html]
-  def chunk(initial_state = nil, &original_block)
-    raise ArgumentError, "no block given" unless block_given?
-    ::Enumerator.new do |yielder|
-      previous = nil
-      accumulate = []
-      block = initial_state.nil? ? original_block : Proc.new{|val| original_block.yield(val, initial_state.clone)}
-      each do |val|
-        key = block.yield(val)
-        if key.nil? || (key.is_a?(Symbol) && key.to_s[0,1] == "_")
-          yielder.yield [previous, accumulate] unless accumulate.empty?
-          accumulate = []
-          previous = nil
-          case key
-          when nil, :_separator
-          when :_singleton
-            yielder.yield [key, [val]]
-          else
-            raise RuntimeError, "symbol beginning with an underscore are reserved"
-          end
-        else
-          if previous.nil? || previous == key
-            accumulate << val
-          else
-            yielder.yield [previous, accumulate] unless accumulate.empty?
-            accumulate = [val]
-          end
-          previous = key
-        end
-      end
-      # what to do in case of a break?
-      yielder.yield [previous, accumulate] unless accumulate.empty?
-    end
-  end unless method_defined? :chunk
+require 'backports/tools'
 
-  def each_entry(*pass)
-    return to_enum(:each_entry, *pass) unless block_given?
-    each(*pass) do |*args|
-      yield args.size == 1 ? args[0] : args
-    end
-    self
-  end unless method_defined? :each_entry
-
-  def flat_map(&block)
-    return to_enum(:flat_map) unless block_given?
-    map(&block).flatten(1)
-  end unless method_defined? :flat_map
-  Backports.alias_method self, :collect_concat, :flat_map
-
-  def slice_before(arg = Backports::Undefined, &block)
-    if block_given?
-      has_init = !(arg.equal? Backports::Undefined)
-    else
-      raise ArgumentError, "wrong number of arguments (0 for 1)" if arg.equal? Backports::Undefined
-      block = Proc.new{|elem| arg === elem }
-    end
-    Enumerator.new do |yielder|
-      init = arg.dup if has_init
-      accumulator = nil
-      each do |elem|
-        start_new = has_init ? block.yield(elem, init) : block.yield(elem)
-        if start_new
-          yielder.yield accumulator if accumulator
-          accumulator = [elem]
-        else
-          accumulator ||= []
-          accumulator << elem
-        end
-      end
-      yielder.yield accumulator if accumulator
-    end
-  end unless method_defined? :slice_before
-end
+Backports.require_relative_dir

data/lib/backports/1.9.2/enumerable/chunk.rb

@@ -0,0 +1,39 @@
+unless Enumerable.method_defined? :chunk
+  require 'backports/1.9.1/enumerator/new'
+
+  module Enumerable
+    def chunk(initial_state = nil, &original_block)
+      raise ArgumentError, "no block given" unless block_given?
+      ::Enumerator.new do |yielder|
+        previous = nil
+        accumulate = []
+        block = initial_state.nil? ? original_block : Proc.new{|val| original_block.call(val, initial_state.clone)}
+        each do |val|
+          key = block.call(val)
+          if key.nil? || (key.is_a?(Symbol) && key.to_s[0,1] == "_")
+            yielder.yield [previous, accumulate] unless accumulate.empty?
+            accumulate = []
+            previous = nil
+            case key
+            when nil, :_separator
+            when :_singleton
+              yielder.yield [key, [val]]
+            else
+              raise RuntimeError, "symbol beginning with an underscore are reserved"
+            end
+          else
+            if previous.nil? || previous == key
+              accumulate << val
+            else
+              yielder.yield [previous, accumulate] unless accumulate.empty?
+              accumulate = [val]
+            end
+            previous = key
+          end
+        end
+        # what to do in case of a break?
+        yielder.yield [previous, accumulate] unless accumulate.empty?
+      end
+    end
+  end
+end

data/lib/backports/1.9.2/enumerable/collect_concat.rb

@@ -0,0 +1 @@
+require 'backports/1.9.2/enumerable/flat_map'

data/lib/backports/1.9.2/enumerable/each_entry.rb

@@ -0,0 +1,11 @@
+unless Enumerable.method_defined? :each_entry
+  module Enumerable
+    def each_entry(*pass)
+      return to_enum(:each_entry, *pass) unless block_given?
+      each(*pass) do |*args|
+        yield args.size == 1 ? args[0] : args
+      end
+      self
+    end
+  end
+end

data/lib/backports/1.9.2/enumerable/flat_map.rb

@@ -0,0 +1,11 @@
+unless Enumerable.method_defined? :flat_map
+  require 'backports/1.8.7/array/flatten'
+
+  module Enumerable
+    def flat_map(&block)
+      return to_enum(:flat_map) unless block_given?
+      map(&block).flatten(1)
+    end
+    alias_method :collect_concat, :flat_map
+  end
+end

data/lib/backports/1.9.2/enumerable/slice_before.rb

@@ -0,0 +1,30 @@
+unless Enumerable.method_defined? :slice_before
+  require 'backports/tools'
+  require 'backports/1.9.1/enumerator/new'
+
+  module Enumerable
+    def slice_before(arg = Backports::Undefined, &block)
+      if block_given?
+        has_init = !(arg.equal? Backports::Undefined)
+      else
+        raise ArgumentError, "wrong number of arguments (0 for 1)" if arg.equal? Backports::Undefined
+        block = Proc.new{|elem| arg === elem }
+      end
+      Enumerator.new do |yielder|
+        init = arg.dup if has_init
+        accumulator = nil
+        each do |elem|
+          start_new = has_init ? block.call(elem, init) : block.call(elem)
+          if start_new
+            yielder.yield accumulator if accumulator
+            accumulator = [elem]
+          else
+            accumulator ||= []
+            accumulator << elem
+          end
+        end
+        yielder.yield accumulator if accumulator
+      end
+    end
+  end
+end

data/lib/backports/1.9.2/float.rb

@@ -1,4 +1,3 @@
-class Float
-  INFINITY = 1.0/0.0 unless const_defined? :INFINITY
-  NAN = 0.0/0.0 unless const_defined? :NAN
-end
+require 'backports/tools'
+
+Backports.require_relative_dir

data/lib/backports/1.9.2/float/infinity.rb

@@ -0,0 +1,3 @@
+unless Float.const_defined? :INFINITY
+  Float::INFINITY = 1.0/0.0
+end

data/lib/backports/1.9.2/float/nan.rb

@@ -0,0 +1,3 @@
+unless Float.const_defined? :NAN
+  Float::NAN = 0.0/0.0
+end

data/lib/backports/1.9.2/hash.rb

@@ -1,11 +1,3 @@
-class Hash
-  def keep_if
-    return to_enum(:keep_if) unless block_given?
-    delete_if{|key, value| ! yield key, value}
-  end unless method_defined? :keep_if
+require 'backports/tools'
 
-  def select!(&block)
-    return to_enum(:select!) unless block_given?
-    reject!{|key, value| ! yield key, value}
-  end unless method_defined? :select!
-end
+Backports.require_relative_dir

data/lib/backports/1.9.2/hash/keep_if.rb

@@ -0,0 +1,8 @@
+unless Hash.method_defined? :keep_if
+  class Hash
+    def keep_if
+      return to_enum(:keep_if) unless block_given?
+      delete_if{|key, value| ! yield key, value}
+    end
+  end
+end

data/lib/backports/1.9.2/hash/select.rb

@@ -0,0 +1,9 @@
+unless Hash.method_defined? :select!
+  class Hash
+    def select!
+      return to_enum(:select!) unless block_given?
+      raise "can't modify frozen hash" if frozen? # reject! won't do it for empty hashes...
+      reject!{|key, value| ! yield key, value}
+    end
+  end
+end

data/lib/backports/1.9.2/kernel.rb

@@ -1,5 +1,3 @@
-module Kernel
-  def singleton_class
-    class << self; self; end
-  end unless method_defined? :singleton_class
-end
+require 'backports/tools'
+
+Backports.require_relative_dir

data/lib/backports/1.9.2/kernel/singleton_class.rb

@@ -0,0 +1,7 @@
+unless Kernel.method_defined? :singleton_class
+  module Kernel
+    def singleton_class
+      class << self; self; end
+    end
+  end
+end