backports 1.9.0 → 1.10.0

data/CHANGELOG.rdoc

@@ -1,5 +1,13 @@
 = Packable --- History
 
+== Version 1.9.1 - September 29th, 2009
+
+* Added Enumerable#chunk (Ruby 1.9)
+
+* Added Kernel#respond_to_missing? (Ruby 1.9)
+
+* Completed Process.exec (Ruby 1.8.7)
+
 == Version 1.9.0 - September 4th, 2009
 
 * In Ruby 1.9, most class methods of File accept filenames as String, or convertible via #to_str or #to_path.

data/README.rdoc

@@ -46,14 +46,15 @@ Compatible with Ruby 1.8 & 1.9, jruby and rubinius.
 
 == Ruby 1.8.7
 
-Complete Ruby 1.8.7 backporting. Refer to the official list of changes[http://svn.ruby-lang.org/repos/ruby/tags/v1_8_7/NEWS].
+Complete Ruby 1.8.7 backporting (core language). Refer to the official list of changes[http://svn.ruby-lang.org/repos/ruby/tags/v1_8_7/NEWS].
 
 Only exceptions:
 * String#gsub
 * GC.stress=
-* Process.exec
 * Array#choice (use Array#sample instead)
-* recursive data handling (Array and Hash)
+* recursive data handling (Array, Hash, ...)
+
+Libraries have not been backported. See at the end for list of known library backports
 
 == Ruby 1.9
 
@@ -64,6 +65,7 @@ Additionally, the following Ruby 1.9 have been backported:
 
 * Enumerable
   * +each_with_object+
+  * +chunk+
 
 * Enumerator
   * +new+ (with block)
@@ -82,6 +84,7 @@ Additionally, the following Ruby 1.9 have been backported:
 
 * Object
   * +define_singleton_method+
+  * +respond_to_missing?+
 
 * Proc
   * +yield+
@@ -122,6 +125,14 @@ Some generic methods from Rails methods have been copied:
   * +dasherize+, +demodulize+
   * +constantize+
 
+== Libraries
+
+Libraries have not been backported. I am aware of following the backport gems:
+
+* Net::SMTP for Ruby 1.8.6: smtp_tls[http://seattlerb.rubyforge.org/smtp_tls/]
+
+* Let me know of others...
+
 = License
 
 +backports+ is released under the terms of the MIT License, see the included LICENSE file.

data/VERSION.yml

@@ -1,4 +1,4 @@
 --- 
 :major: 1
-:minor: 9
+:minor: 10
 :patch: 0

data/backports.gemspec

@@ -5,11 +5,11 @@
 
 Gem::Specification.new do |s|
   s.name = %q{backports}
-  s.version = "1.9.0"
+  s.version = "1.10.0"
 
   s.required_rubygems_version = Gem::Requirement.new(">= 0") if s.respond_to? :required_rubygems_version=
   s.authors = ["Marc-Andr\303\251 Lafortune"]
-  s.date = %q{2009-09-05}
+  s.date = %q{2009-09-29}
   s.description = %q{      Essential backports that enable some of the really nice features of ruby 1.8.7, ruby 1.9 and rails from ruby 1.8.6 and earlier.
 }
   s.email = %q{github@marc-andre.ca}
@@ -55,6 +55,7 @@ Gem::Specification.new do |s|
      "lib/backports/1.8.7/symbol.rb",
      "lib/backports/1.9.rb",
      "lib/backports/1.9/array.rb",
+     "lib/backports/1.9/dir.rb",
      "lib/backports/1.9/enumerable.rb",
      "lib/backports/1.9/enumerator.rb",
      "lib/backports/1.9/file.rb",
@@ -62,6 +63,7 @@ Gem::Specification.new do |s|
      "lib/backports/1.9/integer.rb",
      "lib/backports/1.9/io.rb",
      "lib/backports/1.9/kernel.rb",
+     "lib/backports/1.9/method.rb",
      "lib/backports/1.9/string.rb",
      "lib/backports/1.9/symbol.rb",
      "lib/backports/basic_object.rb",
@@ -80,6 +82,7 @@ Gem::Specification.new do |s|
      "test/enumerator_test.rb",
      "test/hash_test.rb",
      "test/kernel_test.rb",
+     "test/method_missing_test.rb",
      "test/method_test.rb",
      "test/module_test.rb",
      "test/object_test.rb",
@@ -102,6 +105,7 @@ Gem::Specification.new do |s|
      "test/enumerator_test.rb",
      "test/hash_test.rb",
      "test/kernel_test.rb",
+     "test/method_missing_test.rb",
      "test/method_test.rb",
      "test/module_test.rb",
      "test/object_test.rb",

data/lib/backports/1.8.7/array.rb

@@ -7,8 +7,8 @@ class Array
     # Implementation note: slightly tricky.
                                              # Example: self = 1..7, num = 3
     picks = (0...num).to_a                   # picks start at 0, 1, 2
-    max = ((size-num)...size).to_a           # max (index for a given pick) is [4, 5, 6]
-    pick_max_pairs = picks.zip(max).reverse  # pick_max_pairs = [[2, 6], [1, 5], [0, 4]]
+    max_index = ((size-num)...size).to_a           # max (index for a given pick) is [4, 5, 6]
+    pick_max_pairs = picks.zip(max_index).reverse  # pick_max_pairs = [[2, 6], [1, 5], [0, 4]]
     lookup = pick_max_pairs.find(Proc.new{return self})
     loop do
       yield values_at(*picks)

data/lib/backports/1.8.7/gc.rb

@@ -1,9 +1,11 @@
 module GC
-  def self.stress
-    false
-  end
+  class << self
+    def stress
+      false
+    end unless method_defined? :stress
 
-  def self.stress=(flag)
-    raise NotImplementedError
+    def stress=(flag)
+      raise NotImplementedError
+    end unless method_defined? :stress=
   end
 end

data/lib/backports/1.8.7/io.rb

@@ -42,7 +42,7 @@ class IO
     end
 
     self
-  end
+  end unless method_defined? :each_char
 
   alias_method :getbyte, :getc  unless method_defined? :getbyte
   alias_method :readbyte, :readchar unless method_defined? :readchar

data/lib/backports/1.8.7/method.rb

@@ -24,7 +24,7 @@ unless Method.method_defined? :name
     Backports.alias_method_chain self, :bind, :additional_info
   end
 
-  class Object
+  module Kernel
     def method_with_additional_info(name)
       method_without_additional_info(name).tap do |bound|
         bound.name = name.to_sym

data/lib/backports/1.8.7/process.rb

@@ -1,5 +1,3 @@
 module Process
-  def self.exec(*args)
-    raise NotImplementedError
-  end
+  module_function :exec unless class << self; method_defined? :exec; end
 end

data/lib/backports/1.9.rb

@@ -1,5 +1,5 @@
 require File.expand_path(File.dirname(__FILE__) + "/tools")
 Backports.require_relative "1.8.7"
-%w(array enumerable enumerator hash file integer io kernel string symbol).each do |lib|
+%w(array dir enumerable enumerator hash file integer io kernel method string symbol).each do |lib|
   Backports.require_relative "1.9/#{lib}"
 end

data/lib/backports/1.9/array.rb

@@ -7,6 +7,6 @@ class Array
     def try_convert(obj)
       return nil unless obj.respond_to?(:to_ary)
       Backports.coerce_to(obj, Array, :to_ary)
-    end
+    end unless method_defined? :try_convert
   end
 end

data/lib/backports/1.9/dir.rb

@@ -0,0 +1,3 @@
+class Dir
+  alias_method :to_path, :path unless method_defined? :to_path
+end

data/lib/backports/1.9/enumerable.rb

@@ -5,4 +5,32 @@ module Enumerable
     each {|obj| block.call(obj, memo)}
     memo
   end unless method_defined? :each_with_object
+
+  def chunk(initial_state = nil, &original_block)
+    Enumerator.new do |yielder|
+      previous = Backports::Undefined
+      accumulate = []
+      block = initial_state.nil? ? original_block : Proc.new{|val| original_block.yield(val, initial_state.clone)}
+      each do |val|
+        case key = block.yield(val)
+        when nil, :_separator
+          next
+        when :_singleton
+          yielder.yield previous, accumulate unless accumulate.empty?
+          yielder.yield key, [val]
+          accumulate = []
+          previous = Backports::Undefined
+        when previous, Backports::Undefined
+          accumulate << val
+          previous = key
+        else
+          yielder.yield previous, accumulate unless accumulate.empty?
+          accumulate = [val]
+          previous = key
+        end
+      end
+      # what to do in case of a break?
+      yielder.yield previous, accumulate unless accumulate.empty?
+    end
+  end
 end

data/lib/backports/1.9/hash.rb

@@ -5,7 +5,7 @@ class Hash
     def try_convert(x)
       return nil unless x.respond_to? :to_hash
       x.to_hash
-    end unless method_defined? :to_hash
+    end unless method_defined? :try_convert
   end
   
   # Standard in Ruby 1.9. See official documentation[http://ruby-doc.org/core-1.9/classes/Hash.html]

data/lib/backports/1.9/method.rb

@@ -0,0 +1,101 @@
+# Standard in Ruby 1.9.2. How do you call the backport of a future feature?
+unless Kernel.method_defined? :respond_to_missing?
+  module MissingMethod
+    attr_reader :name
+
+    def call(*arg, &block)
+      receiver.send :method_missing, @name, *arg, &block
+    end
+    alias_method :[], :call
+
+    def eql?(method)
+      method.is_a?(MissingMethod) &&
+        receiver == method.receiver &&
+        name == method.name
+    end
+    alias_method :==, :eql?
+
+    def arity
+      -1
+    end
+
+    def owner
+      @receiver.class
+    end
+
+    def source_location
+      nil
+    end
+
+    def to_proc
+      get_block {|*arg| @receiver.send :method_missing, *arg}
+    end
+
+    def unbind
+      MissingUnboundMethod.new(owner, name)
+    end
+
+    def self.new(receiver, name)
+      m = receiver.method :respond_to_missing?
+      m.extend self
+      m.instance_variable_set :@name, name
+      m
+    end
+    #private
+    def get_block(&block)
+      block
+    end
+    private :get_block
+  end
+
+  module MissingUnboundMethod
+    attr_reader :name
+    attr_reader :owner
+
+    def self.new(owner, name)
+      um = owner.instance_method :respond_to_missing?
+      um.extend self
+      um.instance_variable_set :@name, name
+      um.instance_variable_set :@owner, owner
+      um
+    end
+
+    def arity
+      -1
+    end
+
+    def source_location
+      nil
+    end
+
+    def bind(to)
+      raise TypeError, "bind argument must be an instance of #{@owner}" unless to.is_a? @owner
+      MissingMethod.new(to, @name)
+    end
+  end
+
+  module Kernel
+    def respond_to_missing? method
+      false
+    end
+
+    def respond_to_with_call_to_respond_to_missing? method
+      respond_to_without_call_to_respond_to_missing?(method) || respond_to_missing?(method)
+    end
+    Backports.alias_method_chain self, :respond_to?, :call_to_respond_to_missing
+
+    def method_with_new_repond_to_missing(method)
+      method_without_new_repond_to_missing(method)
+    rescue NameError
+      respond_to_missing?(method) ? MissingMethod.new(self, method): raise
+    end
+    Backports.alias_method_chain self, :method, :new_repond_to_missing
+
+    def public_method_with_new_repond_to_missing(method)
+      public_method_without_new_repond_to_missing(method)
+    rescue NameError
+      respond_to_missing?(method) ? MissingMethod.new(self, method): raise
+    end
+    Backports.alias_method_chain self, :public_method, :new_repond_to_missing if method_defined? :public_method
+  end
+end

data/test/enumerable_test.rb

@@ -7,7 +7,7 @@ class EnumerableTest < Test::Unit::TestCase
       should "conform to doc" do
         assert_equal 4, (1..4).count
         assert_equal 1, (1..4).count(3)
-        assert_equal 2, (1..4).count{|obj| obj > 2 } 
+        assert_equal 2, (1..4).count{|obj| obj > 2 }
       end
     end
 
@@ -16,21 +16,21 @@ class EnumerableTest < Test::Unit::TestCase
         assert_equal ["a", "b", "c", "a", "b", "c"], ('a'..'c').cycle(2).to_a
       end
     end
-    
+
     context "#drop" do
       should "conform to doc" do
         assert_equal [5, 8, 13], [ 1, 1, 2, 3, 5, 8, 13 ].drop(4)
         assert_equal [], [ 1, 1, 2, 3, 5, 8, 13 ].drop(99)
       end
-    
+
       should "work with enums" do
         assert_equal [14,15], (10...16).drop(4)
       end
     end
-  
+
     context "#drop_while" do
       should "conform to doc" do
-        assert_equal [8, 13], [ 1, 1, 2, 3, 5, 8, 13 ].drop_while {|item| item < 6 } 
+        assert_equal [8, 13], [ 1, 1, 2, 3, 5, 8, 13 ].drop_while {|item| item < 6 }
       end
 
       should "work with enums" do
@@ -42,13 +42,13 @@ class EnumerableTest < Test::Unit::TestCase
         assert_equal [], (10...16).drop_while {|item| true}
       end
     end
-    
+
     context "#each_cons" do
       should "conform to doc" do
         assert_equal [[1,2],[2,3],[3,4]], (1..4).each_cons(2).to_a
       end
     end
-    
+
     context "#each_slice" do
       should "conform to doc" do
         res = []
@@ -60,10 +60,10 @@ class EnumerableTest < Test::Unit::TestCase
 
     context "#each_with_index" do
       should "conform to doc" do
-        hash = Hash.new 
-        %w(cat dog wombat).each_with_index do |item, index| 
-          hash[item] = index 
-        end 
+        hash = Hash.new
+        %w(cat dog wombat).each_with_index do |item, index|
+          hash[item] = index
+        end
         assert_equal({"cat"=>0, "wombat"=>2, "dog"=>1}, hash)
       end
 
@@ -76,9 +76,9 @@ class EnumerableTest < Test::Unit::TestCase
 
     context "#each_with_object" do
       should "conform to doc" do
-        hash = %w(cat dog wombat).each_with_object({}) do |item, memo| 
-          memo[item] = item.upcase.reverse 
-        end 
+        hash = %w(cat dog wombat).each_with_object({}) do |item, memo|
+          memo[item] = item.upcase.reverse
+        end
         assert_equal({"cat"=>"TAC", "dog"=>"GOD", "wombat"=>"TABMOW"}, hash)
       end
     end
@@ -123,28 +123,28 @@ class EnumerableTest < Test::Unit::TestCase
 
     context "#max_by" do
       should "conform to doc" do
-        a = %w(albatross dog horse fox) 
+        a = %w(albatross dog horse fox)
         assert_equal "albatross" , a.max_by {|item| item.length }
         assert_equal "fox", a.max_by {|item| item.reverse }
       end
-    end  
+    end
 
     context "#min_by" do
       should "conform to doc" do
-        a = %w(albatross dog horse fox) 
+        a = %w(albatross dog horse fox)
         assert_equal "dog" , a.min_by {|item| item.length }
         assert_equal "horse", a.min_by {|item| item.reverse }
       end
-    end  
+    end
 
     context "#minmax" do
       should "conform to doc" do
-        a = %w(albatross dog horse) 
+        a = %w(albatross dog horse)
         assert_equal ["albatross", "horse"], a.minmax
         assert_equal ["dog", "albatross"], a.minmax {|a,b| a.length <=> b.length }
       end
     end
-    
+
     context "#one" do
       should "conform to doc" do
         assert_equal false, %w{ ant bear cat}.one? {|word| word.length >= 3}
@@ -152,25 +152,25 @@ class EnumerableTest < Test::Unit::TestCase
         assert_equal true,  [ nil, nil, 99 ].one?
       end
     end
-    
+
     context "#reverse_each" do
       should "work as expected" do
         assert_equal [4,3,2], (1..4).reverse_each.take(3)
       end
     end
-        
+
     context "#take" do
       should "conform to doc" do
         assert_equal [1, 2, 3], (1..7).take(3)
         assert_equal [["a", 1], ["b", 2]], { 'a'=>1, 'b'=>2, 'c'=>3 }.take(2)
       end
-    
+
       should "only consume what's needed" do
         assert_equal [], Enumerator.new(nil).take(0)
         assert_raises(NoMethodError) { Enumerator.new(nil).take(1) }
       end
     end
-  
+
     context "#take_while" do
       should "conform to doc" do
         assert_equal [1,2], (1..7).take_while {|item| item < 3 }
@@ -189,5 +189,33 @@ class EnumerableTest < Test::Unit::TestCase
       end
     end
 
+    context "#chunk" do
+      context "given no argument" do
+        should "should chunk correctly even for non-consecutive but similar keys" do
+          e = (1..7).chunk{|i| (i/3) % 2}
+          assert_equal true, e.is_a?(Enumerator)
+          assert_equal [
+            [0, [1,2]],
+            [1, [3,4,5]],
+            [0, [6,7]]], e.to_a
+        end
+      end
+      context "given an initial_state argument" do
+        should "give a new copy" do
+          a = []
+          e = (1..3).chunk(a) do |i, x|
+            assert_equal true, x.empty?
+            x << :yo
+            :_singleton
+          end
+          assert_equal [
+            [:_singleton, [1]],
+            [:_singleton, [2]],
+            [:_singleton, [3]]], e.to_a
+        end
+      end
+
+    end
+
   end
 end

data/test/method_missing_test.rb

@@ -0,0 +1,37 @@
+require 'test_helper'
+
+
+class MethodMissingTest < Test::Unit::TestCase
+  
+  class A
+    def respond_to_missing? method
+      :ok_if_missing == method
+    end
+
+    def method_missing method, *args
+      :bar
+    end
+  end
+
+  context "#respond_to?" do
+    should "takes #respond_to_missing? into account" do
+      assert_equal true, A.new.respond_to?(:ok_if_missing)
+      assert_equal false, A.new.respond_to?(:not_ok_if_missing)
+    end
+  end
+  
+  context "#method" do
+    should "returns a nice Method with respond_to_missing?" do
+      assert_equal :bar, A.new.method(:ok_if_missing).call
+      assert_raise(NameError){ A.new.method(:not_ok_if_missing) }
+    end
+  end
+
+  context "Method#unbind" do
+    should "works for missing Methods" do
+      assert_equal :ok_if_missing, A.new.method(:ok_if_missing).unbind.name
+    end
+  end
+
+
+end

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification 
 name: backports
 version: !ruby/object:Gem::Version 
-  version: 1.9.0
+  version: 1.10.0
 platform: ruby
 authors: 
 - "Marc-Andr\xC3\xA9 Lafortune"
@@ -9,7 +9,7 @@ autorequire:
 bindir: bin
 cert_chain: []
 
-date: 2009-09-05 00:00:00 -04:00
+date: 2009-09-29 00:00:00 -04:00
 default_executable: 
 dependencies: []
 
@@ -60,6 +60,7 @@ files:
 - lib/backports/1.8.7/symbol.rb
 - lib/backports/1.9.rb
 - lib/backports/1.9/array.rb
+- lib/backports/1.9/dir.rb
 - lib/backports/1.9/enumerable.rb
 - lib/backports/1.9/enumerator.rb
 - lib/backports/1.9/file.rb
@@ -67,6 +68,7 @@ files:
 - lib/backports/1.9/integer.rb
 - lib/backports/1.9/io.rb
 - lib/backports/1.9/kernel.rb
+- lib/backports/1.9/method.rb
 - lib/backports/1.9/string.rb
 - lib/backports/1.9/symbol.rb
 - lib/backports/basic_object.rb
@@ -85,6 +87,7 @@ files:
 - test/enumerator_test.rb
 - test/hash_test.rb
 - test/kernel_test.rb
+- test/method_missing_test.rb
 - test/method_test.rb
 - test/module_test.rb
 - test/object_test.rb
@@ -134,6 +137,7 @@ test_files:
 - test/enumerator_test.rb
 - test/hash_test.rb
 - test/kernel_test.rb
+- test/method_missing_test.rb
 - test/method_test.rb
 - test/module_test.rb
 - test/object_test.rb