modalsupport 0.8.3 → 0.9.0

data/VERSION

@@ -1 +1 @@
-0.8.3
+0.9.0

data/lib/modalsupport/basic_object.rb

@@ -0,0 +1,24 @@
+module ModalSupport
+  if defined? ActiveSupport::BasicObject
+    BasicObject = ActiveSupport::BasicObject
+  elsif defined? ::BasicObject
+    class BasicObject < ::BasicObject
+      undef_method :==
+      undef_method :equal?
+      def raise(*args)
+        ::Object.send(:raise, *args)
+      end
+    end
+  else
+    class BasicObject #:nodoc:
+      begin
+        old_verbose, $VERBOSE = $VERBOSE, nil   # just like Rails silence_warnings: suppress "warning: undefining `object_id' may cause serious problem"
+        instance_methods.each do |m|
+          undef_method(m) if m.to_s !~ /(?:^__|^nil\?$|^send$|^object_id$)/
+        end
+      ensure
+        $VERBOSE = old_verbose
+      end
+    end
+  end
+end

data/lib/modalsupport/enumerable.rb

@@ -44,27 +44,27 @@ module Enumerable
 
   # Paralell iteration through multiple enumerable objects
   #   (1..3).paralell_each([:a,:b,:c],(10..12)).to_a
-  #    => [[1, :a, 10], [2, :b, 11], [3, :c, 12]]   
-  # 
+  #    => [[1, :a, 10], [2, :b, 11], [3, :c, 12]]
+  #
   #   e.paralell_each(*enums) = e.zip(*enums).each
   def paralell_each(*enums, &blk)
     # Note that to implement a lazy iterator we'd need
     # external iterators which don't work in Rubinius, are
     # implemented differently  in Ruby < 1.8.7 and are slow.
     # So, for the time being we generate an array and then
-    # iterate it.    
+    # iterate it.
     if block_given?
       zip(*enums).each(&blk)
     else
       enum_for(:paralell_each, *enums)
     end
   end
-  
+
   # Equivalent to paralell_each(*enums).to_a, but more efficient
   def paralell_array(*enums)
     zip(*enums)
   end
-  
+
   # Cross-product iteration through multiple enumerable objects
   #   (1..4).cross_each([:a,:b,:c],(11..12)).to_a
   #   => [[1, :a, 11], [1, :a, 12], [1, :b, 11], [1, :b, 12], [1, :c, 11], [1, :c, 12],
@@ -89,9 +89,9 @@ module Enumerable
       enum_for(:cross_each, *enumerables)
     end
   end
-  
+
   # equivalent to cross_each(*enumerables).to_a, but more efficient
-  def cross_array(*enumerables) 
+  def cross_array(*enumerables)
     # return to_a.product(*enumerables.map{|e| e.to_a})
     enumerables.unshift self
     result = [[]]
@@ -106,6 +106,34 @@ module Enumerable
     end
     result
   end
-  
+
+  unless defined? ::HoboSupport
+
+    def map_with_index(res=[])
+      each_with_index {|x, i| res << yield(x, i)}
+      res
+    end
+
+    def build_hash(res={})
+      each do |x|
+        pair = block_given? ? yield(x) : x
+        res[pair.first] = pair.last if pair
+      end
+      res
+    end
+
+    def map_hash(res={})
+      each do |x|
+        v = yield x
+        res[x] = v
+      end
+      res
+    end
+
+    def rest
+      self[1..-1] || []
+    end
+
+  end # Hobosupport
 
 end

data/lib/modalsupport/full.rb

@@ -1,4 +1,3 @@
-require 'modalsupport'
 begin
   require 'active_support'
 rescue LoadError
@@ -9,3 +8,4 @@ begin
 rescue LoadError
   puts "HoboSupport not available. Install it with: gem install hobosupport"
 end
+require 'modalsupport'

data/lib/modalsupport/hash.rb

@@ -0,0 +1,14 @@
+unless defined? ::HoboSupport
+
+  class Hash
+
+    def map_hash(&b)
+      res = {}
+      each {|k,v| res[k] = b.arity == 1 ? yield(v) : yield(k, v) }
+      res
+    end
+
+  end
+
+
+end

data/lib/modalsupport/methodcall.rb

@@ -0,0 +1,31 @@
+#   HoboSupport-style ._?
+#   ._? calls a method if the receiver is not nil, returns nil
+#   otherwise.
+require 'singleton'
+
+unless nil.respond_to?(:_?)
+
+  class Object
+    def _?()
+      self
+    end
+  end
+
+  class NilClass
+    def _?()
+      ModalSupport::SafeNil.instance
+    end
+  end
+
+  module ModalSupport
+
+    class SafeNil < ModalSupport::BasicObject
+      include ::Singleton
+      def method_missing(method, *args, &b)
+        return nil
+      end
+    end
+
+  end
+
+end

data/lib/modalsupport.rb

@@ -6,6 +6,8 @@ require 'modalsupport/regexp'
 require 'modalsupport/enumerable'
 require 'modalsupport/file'
 require 'modalsupport/array'
+require 'modalsupport/hash'
+require 'modalsupport/basic_object'
 
 module ModalSupport
 end
@@ -13,3 +15,4 @@ end
 require 'modalsupport/recursive_map'
 require 'modalsupport/mixins/state_equivalent'
 require 'modalsupport/mixins/bracket_constructor'
+require 'modalsupport/methodcall'

data/modalsupport.gemspec

@@ -4,14 +4,14 @@
 # -*- encoding: utf-8 -*-
 
 Gem::Specification.new do |s|
-  s.name = %q{modalsupport}
-  s.version = "0.8.3"
+  s.name = "modalsupport"
+  s.version = "0.9.0"
 
   s.required_rubygems_version = Gem::Requirement.new(">= 0") if s.respond_to? :required_rubygems_version=
-  s.authors = [%q{Javier Goizueta}]
-  s.date = %q{2011-11-29}
-  s.description = %q{additional support extensions to ActiveSupport and HoboSupport}
-  s.email = %q{jgoizueta@gmail.com}
+  s.authors = ["Javier Goizueta"]
+  s.date = "2012-04-30"
+  s.description = "additional support extensions to ActiveSupport and HoboSupport"
+  s.email = "jgoizueta@gmail.com"
   s.extra_rdoc_files = [
     "LICENSE",
     "README.rdoc"
@@ -24,9 +24,12 @@ Gem::Specification.new do |s|
     "VERSION",
     "lib/modalsupport.rb",
     "lib/modalsupport/array.rb",
+    "lib/modalsupport/basic_object.rb",
     "lib/modalsupport/enumerable.rb",
     "lib/modalsupport/file.rb",
     "lib/modalsupport/full.rb",
+    "lib/modalsupport/hash.rb",
+    "lib/modalsupport/methodcall.rb",
     "lib/modalsupport/mixins/bracket_constructor.rb",
     "lib/modalsupport/mixins/state_equivalent.rb",
     "lib/modalsupport/recursive_map.rb",
@@ -40,24 +43,29 @@ Gem::Specification.new do |s|
     "test/test_array_index.rb",
     "test/test_array_to_h.rb",
     "test/test_bracket_constructor.rb",
+    "test/test_build_hash.rb",
     "test/test_cross_each.rb",
     "test/test_grep.rb",
     "test/test_gsub.rb",
+    "test/test_map_hash.rb",
+    "test/test_map_with_index.rb",
     "test/test_match.rb",
+    "test/test_methodcall.rb",
     "test/test_paralell_each.rb",
     "test/test_product.rb",
     "test/test_recursive_map.rb",
     "test/test_relative_path.rb",
+    "test/test_rest.rb",
     "test/test_rotate.rb",
     "test/test_slice.rb",
     "test/test_state_equivalent.rb",
     "test/test_unindent.rb",
     "test/test_unwrap.rb"
   ]
-  s.homepage = %q{http://github.com/jgoizueta/modalsupport}
-  s.require_paths = [%q{lib}]
-  s.rubygems_version = %q{1.8.6}
-  s.summary = %q{simple extensions to core classes}
+  s.homepage = "http://github.com/jgoizueta/modalsupport"
+  s.require_paths = ["lib"]
+  s.rubygems_version = "1.8.23"
+  s.summary = "simple extensions to core classes"
 
   if s.respond_to? :specification_version then
     s.specification_version = 3

data/test/test_build_hash.rb

@@ -0,0 +1,14 @@
+require 'helper'
+
+class TestBuildHash < Test::Unit::TestCase
+
+  context 'Enumerable#build_hash' do
+
+    should "returns a hash where each element is given by the block unless nil" do
+      assert_equal({'some'=>4, 'words'=>5}, %w(some short words).build_hash { |s| [s, s.length] unless s == "short" })
+      assert_equal({10=>3, 20=>6, 30=>9}, (1..3).build_hash{|v| [v*10,v*3]})
+    end
+
+  end
+
+end

data/test/test_map_hash.rb

@@ -0,0 +1,29 @@
+require 'helper'
+
+class TestMapHash< Test::Unit::TestCase
+
+  context 'Enumerable#map_hash' do
+
+    should "returns a hash where keys are the enumerated elements and the values are given by the block" do
+      assert_equal({'some'=>4, 'words'=>5, 'short'=>nil}, %w(some short words).map_hash { |s| s.length unless s == "short" })
+      assert_equal({1=>3, 2=>6, 3=>9}, (1..3).map_hash{|v| v*3})
+    end
+
+  end
+
+  context 'Hash#map_hash' do
+
+    should "applies a function with the key and value as arguments to each value of the hash" do
+      assert_equal({1=>true, 3=>true, 6=>false}, {1=>2, 3=>4, 6=>5}.map_hash { |key, value| key < value })
+      assert_equal({1=>3, 2=>6, 3=>9}, (1..3).map_hash{|v| v*3})
+    end
+
+    should "applies a function with the value as arguments to each value of the hash" do
+      assert_equal({1=>true, 3=>true, 6=>false}, {1=>2, 3=>4, 6=>5}.map_hash { |key, value| key < value })
+      assert_equal({1=>200, 3=>400, 6=>500 }, {1=>2, 3=>4, 6=>5}.map_hash { |value| value * 100 })
+    end
+
+  end
+
+
+end

data/test/test_map_with_index.rb

@@ -0,0 +1,13 @@
+require 'helper'
+
+class TestMapWithIndex< Test::Unit::TestCase
+
+  context 'Enumerable#map_with_index' do
+
+    should "maps elements passing also de index to the block" do
+      assert_equal ["", "short", "wordswords"], %w(some short words).map_with_index { |s, i| s * i }
+    end
+
+  end
+
+end

data/test/test_methodcall.rb

@@ -0,0 +1,34 @@
+require 'helper'
+
+class TestMethodcall < Test::Unit::TestCase
+
+  context "Given a non-nil object" do
+
+    should "Return itself from ._?" do
+      assert_same 3, 3._?
+      o = "xxx"
+      assert_same o, o._?
+      o = Object.new
+      assert_same o, o._?
+      o = false
+      assert_same o, o._?
+      o = 0
+      assert_same o, o._?
+    end
+
+  end
+
+  context "Given a nil object" do
+
+    should "Return something that returns nil to any message" do
+
+      assert_nil nil._?.to_s
+      assert_nil nil._?.inspect
+      assert_nil nil._?.xxxx
+
+    end
+
+  end
+
+
+end

data/test/test_recursive_map.rb

@@ -3,7 +3,7 @@ require 'helper'
 class TestRecursiveMap < Test::Unit::TestCase
 
   context "recursive_map" do
-    
+
     setup do
       require 'yaml'
       @value_doubler = lambda{|v| v.kind_of?(Numeric) ? v*2 : v}
@@ -20,31 +20,31 @@ class TestRecursiveMap < Test::Unit::TestCase
         end
       }
     end
-    
+
     should "process values in containers" do
-      assert_equal( 
+      assert_equal(
         {:a=>22, :b=>44},
         ModalSupport.recursive_map(:a=>11, :b=>22, &@value_doubler)
       )
-      assert_equal( 
+      assert_equal(
         [22,44],
         ModalSupport.recursive_map([11,22], &@value_doubler)
       )
     end
 
     should "process values in nested containers" do
-      assert_equal( 
+      assert_equal(
         {:a=>22, :b=>44, :c=>{:x=>200,:y=>400}, :d=>[2,4,6]},
         ModalSupport.recursive_map(:a=>11, :b=>22, :c=>{:x=>100,:y=>200}, :d=>[1,2,3], &@value_doubler)
       )
-      assert_equal( 
+      assert_equal(
         [22, 44, {:c=>{:x=>200,:y=>400}, :d=>[2,4,6]}],
         ModalSupport.recursive_map([11, 22, {:c=>{:x=>100,:y=>200}, :d=>[1,2,3]}], &@value_doubler)
       )
     end
 
     should "process values in deeply nested containers" do
-      assert_equal( 
+      assert_equal(
         {:a=>22, :b=>44, :c=>{:x=>200, :y=>400}, :d=>[2, 4, 6, {:zz=>[2000, 4000, {:yy=>{:xx=>6000}}]}]},
         ModalSupport.recursive_map({:a=>11, :b=>22, :c=>{:x=>100,:y=>200}, :d=>[1,2,3,{:zz=>[1000,2000,{:yy=>{:xx=>3000}}]}]}, &@value_doubler)
       )
@@ -53,19 +53,15 @@ class TestRecursiveMap < Test::Unit::TestCase
         ModalSupport.recursive_map([11,22,{:a=>11, :b=>22, :c=>{:x=>100,:y=>200}, :d=>[1,2,3,{:zz=>[1000,2000,{:yy=>{:xx=>3000}}]}]}], &@value_doubler)
       )
     end
-    
+
     should "transform containers" do
       assert_same_elements(
         [[:a, 11], [:b, 22], [:d, [1, 2, 3]]],
-        ModalSupport.recursive_map(:a=>11, :b=>22, :d=>[1,2,3], &@hash_to_array)        
+        ModalSupport.recursive_map(:a=>11, :b=>22, :d=>[1,2,3], &@hash_to_array)
       )
       assert_equal(
         {:a=>11, :b=>22, :d=>[1,2,3].inspect},
-        ModalSupport.recursive_map(:a=>11, :b=>22, :d=>[1,2,3], &@array_to_string)        
-      )
-      assert_same_elements(
-        [[:a, 11], [:b, 22], [:c, {:x=>100,:y=>200}.to_a], [:d, [1, 2, 3]]],
-        ModalSupport.recursive_map(:a=>11, :b=>22, :c=>{:x=>100,:y=>200}, :d=>[1,2,3], &@hash_to_array)
+        ModalSupport.recursive_map(:a=>11, :b=>22, :d=>[1,2,3], &@array_to_string)
       )
       assert_equal(
         {:a=>11, :b=>22, :c=>{:x=>100, :y=>200}, :d=>[1,2,3].inspect},
@@ -73,13 +69,17 @@ class TestRecursiveMap < Test::Unit::TestCase
       )
       ruby_19 do
         # we only test this in Ruby 1.9 because prior versions don't keep Hash ordering
+        assert_same_elements(
+          [[:a, 11], [:b, 22], [:c, {:x=>100,:y=>200}.to_a], [:d, [1, 2, 3]]],
+          ModalSupport.recursive_map(:a=>11, :b=>22, :c=>{:x=>100,:y=>200}, :d=>[1,2,3], &@hash_to_array)
+        )
         assert_equal(
           "[111, 222, {:a=>11, :b=>22, :c=>{:x=>100, :y=>200}, :d=>\"[1, 2, 3]\"}]",
           ModalSupport.recursive_map([111,222,{:a=>11, :b=>22, :c=>{:x=>100,:y=>200}, :d=>[1,2,3]}], &@array_to_string)
-        )        
+        )
       end
     end
-    
+
     should "recursively process elements transformed to a container" do
       assert_equal(
         [222, 444],

data/test/test_rest.rb

@@ -0,0 +1,16 @@
+require 'helper'
+
+class TestRest < Test::Unit::TestCase
+
+  context 'Enumerable#rest' do
+
+    should "returns the rest of elements having removed the first one" do
+      assert_equal [2,3,4,5], [1,2,3,4,5].rest
+      assert_equal [2], [1,2].rest
+      assert_equal [], [1].rest
+      assert_equal [], [].rest
+    end
+
+  end
+
+end

metadata

@@ -1,46 +1,40 @@
---- !ruby/object:Gem::Specification 
+--- !ruby/object:Gem::Specification
 name: modalsupport
-version: !ruby/object:Gem::Version 
-  hash: 57
+version: !ruby/object:Gem::Version
+  version: 0.9.0
   prerelease: 
-  segments: 
-  - 0
-  - 8
-  - 3
-  version: 0.8.3
 platform: ruby
-authors: 
+authors:
 - Javier Goizueta
 autorequire: 
 bindir: bin
 cert_chain: []
-
-date: 2011-11-29 00:00:00 Z
-dependencies: 
-- !ruby/object:Gem::Dependency 
+date: 2012-04-30 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
   name: shoulda
-  prerelease: false
-  requirement: &id001 !ruby/object:Gem::Requirement 
+  requirement: !ruby/object:Gem::Requirement
     none: false
-    requirements: 
-    - - ">="
-      - !ruby/object:Gem::Version 
-        hash: 3
-        segments: 
-        - 0
-        version: "0"
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
   type: :development
-  version_requirements: *id001
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
 description: additional support extensions to ActiveSupport and HoboSupport
 email: jgoizueta@gmail.com
 executables: []
-
 extensions: []
-
-extra_rdoc_files: 
+extra_rdoc_files:
 - LICENSE
 - README.rdoc
-files: 
+files:
 - .document
 - LICENSE
 - README.rdoc
@@ -48,9 +42,12 @@ files:
 - VERSION
 - lib/modalsupport.rb
 - lib/modalsupport/array.rb
+- lib/modalsupport/basic_object.rb
 - lib/modalsupport/enumerable.rb
 - lib/modalsupport/file.rb
 - lib/modalsupport/full.rb
+- lib/modalsupport/hash.rb
+- lib/modalsupport/methodcall.rb
 - lib/modalsupport/mixins/bracket_constructor.rb
 - lib/modalsupport/mixins/state_equivalent.rb
 - lib/modalsupport/recursive_map.rb
@@ -64,14 +61,19 @@ files:
 - test/test_array_index.rb
 - test/test_array_to_h.rb
 - test/test_bracket_constructor.rb
+- test/test_build_hash.rb
 - test/test_cross_each.rb
 - test/test_grep.rb
 - test/test_gsub.rb
+- test/test_map_hash.rb
+- test/test_map_with_index.rb
 - test/test_match.rb
+- test/test_methodcall.rb
 - test/test_paralell_each.rb
 - test/test_product.rb
 - test/test_recursive_map.rb
 - test/test_relative_path.rb
+- test/test_rest.rb
 - test/test_rotate.rb
 - test/test_slice.rb
 - test/test_state_equivalent.rb
@@ -79,36 +81,26 @@ files:
 - test/test_unwrap.rb
 homepage: http://github.com/jgoizueta/modalsupport
 licenses: []
-
 post_install_message: 
 rdoc_options: []
-
-require_paths: 
+require_paths:
 - lib
-required_ruby_version: !ruby/object:Gem::Requirement 
+required_ruby_version: !ruby/object:Gem::Requirement
   none: false
-  requirements: 
-  - - ">="
-    - !ruby/object:Gem::Version 
-      hash: 3
-      segments: 
-      - 0
-      version: "0"
-required_rubygems_version: !ruby/object:Gem::Requirement 
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
   none: false
-  requirements: 
-  - - ">="
-    - !ruby/object:Gem::Version 
-      hash: 3
-      segments: 
-      - 0
-      version: "0"
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
 requirements: []
-
 rubyforge_project: 
-rubygems_version: 1.8.6
+rubygems_version: 1.8.23
 signing_key: 
 specification_version: 3
 summary: simple extensions to core classes
 test_files: []
-