hash-utils 1.0.0 → 2.0.0

data/lib/hash-utils/io.rb

@@ -1,5 +1,7 @@
 # encoding: utf-8
-# (c) 2011 Martin Kozák (martinkozak@martinkozak.net)
+# (c) 2011-2012 Martin Kozák (martinkozak@martinkozak.net)
+
+require "hash-utils/object"
 
 ##
 # IO extension.
@@ -14,8 +16,10 @@ class IO
     # @since 0.14.0
     #
     
-    def io?
-        true
+    if not self.__hash_utils_instance_respond_to? :io?
+        def io?
+            true
+        end
     end
     
 end

data/lib/hash-utils/module.rb

@@ -1,5 +1,7 @@
 # encoding: utf-8
-# (c) 2011 Martin Kozák (martinkozak@martinkozak.net)
+# (c) 2011-2012 Martin Kozák (martinkozak@martinkozak.net)
+
+require "hash-utils/object"
 
 ##
 # Module extension.
@@ -19,16 +21,18 @@ class Module
     # @since 0.13.0
     #
     
-    def get_module(name)
-        names = name.split("::")
-        mod = self
-        
-        while not names.empty?
-            name = names.shift
-            mod = mod.const_get(name)
+    if not self.__hash_utils_instance_respond_to? :get_module
+        def get_module(name)
+            names = name.split("::")
+            mod = self
+            
+            while not names.empty?
+                name = names.shift
+                mod = mod.const_get(name)
+            end
+            
+            return mod
         end
-        
-        return mod
     end
 
 end

data/lib/hash-utils/nil.rb

@@ -1,5 +1,7 @@
 # encoding: utf-8
-# (c) 2011 Martin Kozák (martinkozak@martinkozak.net)
+# (c) 2011-2012 Martin Kozák (martinkozak@martinkozak.net)
+
+require "hash-utils/object"
 
 ##
 # NilClass extension.
@@ -15,8 +17,10 @@ class NilClass
     # @since 0.19.0
     #
     
-    def to_boolean(*args)
-        false
+    if not self.__hash_utils_instance_respond_to? :to_boolean
+        def to_boolean(*args)
+            false
+        end
     end
     
 end

data/lib/hash-utils/numeric.rb

@@ -1,5 +1,5 @@
 # encoding: utf-8
-# (c) 2011 Martin Kozák (martinkozak@martinkozak.net)
+# (c) 2011-2012 Martin Kozák (martinkozak@martinkozak.net)
 
 require "hash-utils/object"
 
@@ -20,8 +20,10 @@ class Numeric
     # @since 0.16.0
     #
     
-    def compare(number)
-        self <=> number
+    if not self.__hash_utils_instance_respond_to? :compare
+        def compare(number)
+            self <=> number
+        end
     end
     
     ##
@@ -31,11 +33,15 @@ class Numeric
     # @since 0.16.0
     #
     
-    def positive?
-        self > 0
+    if not self.__hash_utils_instance_respond_to? :positive?
+        def positive?
+            self > 0
+        end
     end
     
-    alias :positive :"positive?"
+    if not self.__hash_utils_instance_respond_to? :positive 
+        alias :positive :positive?
+    end
     
     ##
     # Indicates, number is negative, so lower than 0.
@@ -44,11 +50,15 @@ class Numeric
     # @since 0.16.0
     #
     
-    def negative?
-        self < 0
+    if not self.__hash_utils_instance_respond_to? :negative?
+        def negative?
+            self < 0
+        end
     end
     
-    alias :negative :"negative?"
+    if not self.__hash_utils_instance_respond_to? :negative
+        alias :negative :negative?
+    end
     
     ##
     # Sets the positivity to +false+, so negates the number. +0+ will 
@@ -61,11 +71,15 @@ class Numeric
     # @since 0.16.0
     #
     
-    def negative!
-        -self.positive!
+    if not self.__hash_utils_instance_respond_to? :negative!
+        def negative!
+            -self.positive!
+        end
     end
     
-    alias :"negate!" :"negative!"
+    if not self.__hash_utils_instance_respond_to? :negate!
+        alias :negate! :negative!
+    end
     
     ##
     # Sets the positivity to +true+, so makes number positive. +0+ will 

data/lib/hash-utils/object.rb

@@ -1,12 +1,79 @@
 # encoding: utf-8
-# (c) 2011 Martin Kozák (martinkozak@martinkozak.net)
+# (c) 2011-2012 Martin Kozák (martinkozak@martinkozak.net)
+
+require "ruby-version"
 
 ##
 # Object extension.
 #
 
 class Object
-  
+    
+    @@__hash_utils_methods_index = { } 
+    @@__hash_utils_object_index = [ ]
+        
+    private
+    
+    ##
+    # Both indicates, instance of the class responds to some call
+    # and indicates patched calls in Object
+    #
+    # @param [Symbol] call  a call name
+    # @return [Boolean] +true+ it it is, +false+ otherwise
+    # @since 2.0.0
+    #
+
+    def self.__hash_utils_object_respond_to?(call)\
+        @@__hash_utils_object_index << call
+        self.__hash_utils_instance_respond_to? call
+    end
+    
+    
+    public
+        
+    ##
+    # Indicates, instance of the class responds to some call.
+    #
+    # @param [Symbol] call  a call name
+    # @return [Boolean] +true+ it it is, +false+ otherwise
+    # @private as it's intended for internal library use
+    # @since 2.0.0
+    #
+    
+    if not self.methods.include? :__hash_utils_instance_respond_to?
+        def self.__hash_utils_instance_respond_to?(call)
+            if not @@__hash_utils_methods_index.has_key? self
+                instance_methods = self.instance_methods
+              
+                if Ruby::Version >= [1, 9]
+                    require "set"
+                    @@__hash_utils_methods_index[self] = Set::new(instance_methods)
+                    
+                    if self != Object
+                        @@__hash_utils_methods_index[self] -= @@__hash_utils_object_index
+                    end
+                else
+                    @@__hash_utils_methods_index[self] = { }
+                    _col = @@__hash_utils_methods_index[self]
+                    
+                    instance_methods.each do |i|
+                        _col[i] = true
+                    end
+                    
+                    if self != Object
+                        @@__hash_utils_object_index.each do |i|
+                            _col.delete(i)
+                        end
+                    end
+                end
+            end
+            
+            @@__hash_utils_methods_index[self].include? call
+        end
+    else
+        throw new Exception('__hash_utils_instance_respond_to? is already implemented. Hash Utils need this method for iternal defensive checking. Continuing is impossible.')
+    end
+    
     ##
     # Returns +true+ if object is an instance of the given classes. 
     #
@@ -16,18 +83,20 @@ class Object
     # @since 0.16.0
     #
     
-    def instance_of_any?(*classes)
-        if classes.first.array?
-            classes = classes.first
-        end
-        
-        classes.each do |cls|
-            if self.instance_of? cls
-                return true
+    if not __hash_utils_object_respond_to? :instance_of_any?
+        def instance_of_any?(*classes)
+            if classes.first.array?
+                classes = classes.first
+            end
+            
+            classes.each do |cls|
+                if self.instance_of? cls
+                    return true
+                end
             end
+            
+            return false
         end
-        
-        return false
     end
 
     ##
@@ -40,21 +109,25 @@ class Object
     # @since 0.16.0
     #
     
-    def kind_of_any?(*classes)
-        if classes.first.array?
-            classes = classes.first
-        end
-        
-        classes.each do |cls|
-            if self.kind_of? cls
-                return true
+    if not __hash_utils_object_respond_to? :kind_of_any?
+        def kind_of_any?(*classes)
+            if classes.first.array?
+                classes = classes.first
             end
+            
+            classes.each do |cls|
+                if self.kind_of? cls
+                    return true
+                end
+            end
+            
+            return false
         end
-        
-        return false
     end
     
-    alias :"is_a_any?" :"kind_of_any?"
+    if not __hash_utils_object_respond_to? :is_a_any?
+        alias :is_a_any? :kind_of_any?
+    end
 
     ##
     # Indicates object is in some object which supports +#include?+.
@@ -64,8 +137,10 @@ class Object
     # @since 0.8.0
     #
     
-    def in?(range)
-        range.include? self
+    if not __hash_utils_object_respond_to? :in?
+        def in?(range)
+            range.include? self
+        end
     end
 
     ##
@@ -75,8 +150,10 @@ class Object
     # @since 0.7.0
     #
     
-    def to_b
-        !!self
+    if not __hash_utils_object_respond_to? :to_b
+        def to_b
+            !!self
+        end
     end
     
     ##
@@ -87,10 +164,12 @@ class Object
     # @since 0.12.0
     #
     
-    def **(count)
-        result = [ ]
-        count.times { result << self.dup }
-        return result
+    if not __hash_utils_object_respond_to? :**
+        def **(count)
+            result = [ ]
+            count.times { result << self.dup }
+            return result
+        end
     end
     
     ##
@@ -100,8 +179,10 @@ class Object
     # @since 0.14.0
     #
     
-    def io?
-        false
+    if not __hash_utils_object_respond_to? :io?
+        def io?
+            false
+        end
     end
     
     ##
@@ -111,8 +192,10 @@ class Object
     # @since 0.15.0
     #
     
-    def true?
-        self.kind_of? TrueClass
+    if not __hash_utils_object_respond_to? :true?
+        def true?
+            self.kind_of? TrueClass
+        end
     end
     
     ##
@@ -122,8 +205,10 @@ class Object
     # @since 0.15.0
     #
     
-    def false?
-        self.kind_of? FalseClass
+    if not __hash_utils_object_respond_to? :false?
+        def false?
+            self.kind_of? FalseClass
+        end
     end
     
     ##
@@ -133,8 +218,10 @@ class Object
     # @since 0.17.0
     #
     
-    def string?
-        self.kind_of? String
+    if not __hash_utils_object_respond_to? :string?
+        def string?
+            self.kind_of? String
+        end
     end
     
     ##
@@ -144,8 +231,10 @@ class Object
     # @since 0.17.0
     #
     
-    def symbol?
-        self.kind_of? Symbol
+    if not __hash_utils_object_respond_to? :symbol?
+        def symbol?
+            self.kind_of? Symbol
+        end
     end
     
     ##
@@ -155,8 +244,10 @@ class Object
     # @since 0.18.0
     #
     
-    def proc?
-        self.kind_of? Proc
+    if not __hash_utils_object_respond_to? :proc?
+        def proc?
+            self.kind_of? Proc
+        end
     end
     
     ##
@@ -166,8 +257,10 @@ class Object
     # @since 0.17.0
     #
     
-    def number?
-        self.kind_of? Numeric
+    if not __hash_utils_object_respond_to? :number?
+        def number?
+            self.kind_of? Numeric
+        end
     end
     
     ##
@@ -177,8 +270,10 @@ class Object
     # @since 0.17.0
     #
     
-    def boolean?
-        self.true? or self.false?
+    if not __hash_utils_object_respond_to? :boolean?
+        def boolean?
+            self.true? or self.false?
+        end
     end
     
     ##
@@ -188,8 +283,10 @@ class Object
     # @since 0.17.0
     #
     
-    def array?
-        self.kind_of? Array
+    if not __hash_utils_object_respond_to? :array?
+        def array?
+            self.kind_of? Array
+        end
     end
     
     ##
@@ -199,8 +296,24 @@ class Object
     # @since 0.17.0
     #
     
-    def hash?
-        self.kind_of? Hash
+    if not __hash_utils_object_respond_to? :hash?
+        def hash?
+            self.kind_of? Hash
+        end
     end
-        
+    
+    ##
+    # Converts object to +Symbol+. In fact, converts it to +String+
+    # and subsequently to +Symbol+ only.
+    #
+    # @return [Symbol] symbol representation of the object
+    # @since 1.1.0
+    #
+    
+    if not __hash_utils_object_respond_to? :to_sym
+        def to_sym
+            self.to_s.to_sym
+        end
+    end
+
 end