identifies_as 1.0.4 → 1.0.5

data/CHANGELOG.rdoc

@@ -7,3 +7,4 @@ Initial release.
 
 Renamed :no_longer_identifying_as! and :instances_no_longer_identify_as! to :stop_identifying_as! and :stop_instances_identifying_as!
 Added support for subclassing and module inclusion.
+Added Module-level support for :<, :>, :<=, :>=, :<==>.

data/lib/identifies_as/IdentifiesAs/ClassInstance.rb

@@ -0,0 +1,180 @@
+
+module ::IdentifiesAs::ClassInstance
+
+  ############################
+  #  instances_identify_as!  #
+  ############################
+  
+  # Cause instances of receiver to identify as specified objects.
+  # @param [Array<Object>] objects Other objects self should identify as.
+  # @return [Object] Self.
+  def instances_identify_as!( *objects )
+    
+    return ::IdentifiesAs.object_instances_identify_as!( self, *objects )
+    
+  end
+
+  ############################
+  #  instances_identify_as?  #
+  ############################
+  
+  # Query whether instances of receiver identify as specified object.
+  # @param [Object] object Object against which identity is being tested.
+  # @return [true,false] Whether instances of receiver identify as object.
+  def instances_identify_as?( object )
+    
+    return ::IdentifiesAs.object_instances_identify_as?( self, object )    
+    
+  end
+
+
+  #########################
+  #  instance_identities  #
+  #########################
+  
+  # Identities that instances of receiver identify as, beyond those which it actually is.
+  # @return [Array<Object>] Identities instances of receiver identifies as.
+  def instance_identities
+    
+    return ::IdentifiesAs.object_instance_identities( self )    
+    
+  end
+
+  ####################################
+  #  stop_instances_identifying_as!  #
+  ####################################
+  
+  # Cause instances of receiver to no longer identify as specified objects.
+  # @param [Array<Object>] objects Other objects instance of receiver should no longer identify as.
+  # @return [Object] Self.
+  def stop_instances_identifying_as!( *objects )
+    
+    return ::IdentifiesAs.object_stop_instances_identifying_as!( self, *objects )    
+    
+  end
+  
+  #########
+  #  ===  #
+  #########
+  
+  def ===( object )
+    
+    is_equal = false
+    
+    if ::IdentifiesAs.object_identifies_as?( object, self )
+      is_equal = true
+    else
+      is_equal = super
+    end
+
+    return is_equal
+    
+  end
+  
+  #######
+  #  <  #
+  #######
+
+  def <( object )
+    
+    is_less_than = super
+    
+    if is_less_than.nil?
+      # a class is < another class if it has the other class as one of its ancestors
+      if self != object and ::IdentifiesAs.object_instance_identifies_as?( self, object )
+        is_less_than = true
+      end
+    end
+        
+    return is_less_than
+    
+  end
+
+  #######
+  #  >  #
+  #######
+
+  def >( object )
+
+    is_greater_than = super
+    
+    if is_greater_than.nil?
+      # a class is > another class if the other class has it as one of its ancestors
+      if self != object and ::IdentifiesAs.object_instance_identifies_as?( object, self )
+        is_greater_than = true
+      else
+        is_less_than = self < object
+        unless is_less_than.nil?
+          is_greater_than = ! is_less_than
+        end
+      end
+    end
+        
+    return is_greater_than
+    
+  end
+
+  ########
+  #  <=  #
+  ########
+
+  def <=( object )
+    
+    is_less_than_or_equal_to = super
+    
+    if is_less_than_or_equal_to.nil?
+      # a class is < another class if it has the other class as one of its ancestors
+      if self == object or ::IdentifiesAs.object_instance_identifies_as?( self, object )
+        is_less_than_or_equal_to = true
+      end
+    end
+        
+    return is_less_than_or_equal_to
+    
+  end
+
+  ########
+  #  >=  #
+  ########
+
+  def >=( object )
+
+    is_greater_than_or_equal_to = super
+    
+    if is_greater_than_or_equal_to.nil?
+      # a class is < another class if it has the other class as one of its ancestors
+      if self == object or ::IdentifiesAs.object_instance_identifies_as?( object, self )
+        is_greater_than_or_equal_to = true
+      else
+        is_less_than_or_equal_to = self <= object
+        unless is_less_than_or_equal_to.nil?
+          is_greater_than_or_equal_to = ! is_less_than_or_equal_to
+        end
+      end
+    end
+        
+    return is_greater_than_or_equal_to
+    
+  end
+
+  #########
+  #  <=>  #
+  #########
+
+  def <=>( object )
+    
+    less_than_equal_to_greater_than = nil
+    
+    if self == object
+      less_than_equal_to_greater_than = 0
+    elsif self < object
+      less_than_equal_to_greater_than = -1
+    elsif self > object
+      less_than_equal_to_greater_than = 1
+    end
+    
+    return less_than_equal_to_greater_than
+    
+  end
+
+end

data/lib/identifies_as/IdentifiesAs/ObjectInstance.rb

@@ -0,0 +1,75 @@
+
+module ::IdentifiesAs::ObjectInstance
+
+  include ::IdentifiesAs::ActuallyIsA
+
+  ####################
+  #  identifies_as!  #
+  ####################
+  
+  # Cause receiver to identify as specified objects.
+  # @param [Array<Object>] objects Other objects self should identify as.
+  # @return [Object] Self.
+  def identifies_as!( *objects )
+
+    return ::IdentifiesAs.object_identifies_as!( self, *objects )
+    
+  end
+
+  ####################
+  #  identifies_as?  #
+  ####################
+  
+  # Query whether receiver identifies as specified object.
+  # @param [Object] object Object against which identity is being tested.
+  # @return [true,false] Whether receiver identifies as object.
+  def identifies_as?( object )
+    
+    return ::IdentifiesAs.object_identifies_as?( self, object )    
+    
+  end
+
+  ################
+  #  identities  #
+  ################
+  
+  # Identities that receiver identifies as, beyond those which it actually is.
+  # @return [Array<Object>] Identities receiver identifies as.
+  def identities
+    
+    return ::IdentifiesAs.object_identities( self )    
+    
+  end
+
+  ##########################
+  #  stop_identifying_as!  #
+  ##########################
+  
+  # Cause receiver to no longer identify as specified objects.
+  # @param [Array<Object>] objects Other objects receiver should no longer identify as.
+  # @return [Object] Self.
+  def stop_identifying_as!( *objects )
+    
+    return ::IdentifiesAs.object_stop_identifying_as!( self, *objects )    
+    
+  end
+
+  ###########
+  #  is_a?  #
+  ###########
+  
+  def is_a?( object )
+    
+    is_type = false
+    
+    if identifies_as?( object )    
+      is_type = true
+    else
+      is_type = super
+    end
+    
+    return is_type
+    
+  end
+
+end

data/lib/identifies_as/IdentifiesAs.rb

@@ -3,7 +3,8 @@ module ::IdentifiesAs
   
   extend ::ModuleCluster::Define::Cluster
   
-  include_also_extends( self )
+  include self::ObjectInstance
+  include_also_extends( self::ClassInstance )
 
   @identities = { }
   @instance_identities = { }
@@ -54,6 +55,22 @@ module ::IdentifiesAs
 
   def self.object_identifies_as?( object, other_object_type )
 
+    object_identifies = object_instance_identifies_as?( object, other_object_type )
+
+    unless object_identifies
+      object_identifies = object_instances_identify_as?( object.class, other_object_type )
+    end
+    
+    return object_identifies
+    
+  end
+
+  #########################################
+  #  self.object_instance_identifies_as?  #
+  #########################################
+
+  def self.object_instance_identifies_as?( object, other_object_type )
+    
     object_identifies = false
     
     object_ancestor_chain = nil
@@ -76,10 +93,6 @@ module ::IdentifiesAs
       end
   
     end
-
-    unless object_identifies
-      object_identifies = object_instances_identify_as?( object.class, other_object_type )
-    end
     
     return object_identifies
     
@@ -159,9 +172,9 @@ module ::IdentifiesAs
 
   end
 
-  ##################################################
+  ################################################
   #  self.object_stop_instances_identifying_as!  #
-  ##################################################
+  ################################################
   
   def self.object_stop_instances_identifying_as!( object_class, *objects )
 
@@ -175,125 +188,5 @@ module ::IdentifiesAs
     return identifies_as_hash
 
   end
-  
-  ####################
-  #  identifies_as!  #
-  ####################
-  
-  # Cause receiver to identify as specified objects.
-  # @param [Array<Object>] objects Other objects self should identify as.
-  # @return [Object] Self.
-  def identifies_as!( *objects )
-
-    return ::IdentifiesAs.object_identifies_as!( self, *objects )
-    
-  end
-
-  ############################
-  #  instances_identify_as!  #
-  ############################
-  
-  # Cause instances of receiver to identify as specified objects.
-  # @param [Array<Object>] objects Other objects self should identify as.
-  # @return [Object] Self.
-  def instances_identify_as!( *objects )
-    
-    return ::IdentifiesAs.object_instances_identify_as!( self, *objects )
-    
-  end
-
-  ####################
-  #  identifies_as?  #
-  ####################
-  
-  # Query whether receiver identifies as specified object.
-  # @param [Object] object Object against which identity is being tested.
-  # @return [true,false] Whether receiver identifies as object.
-  def identifies_as?( object )
-    
-    return ::IdentifiesAs.object_identifies_as?( self, object )    
-    
-  end
-
-  ############################
-  #  instances_identify_as?  #
-  ############################
-  
-  # Query whether instances of receiver identify as specified object.
-  # @param [Object] object Object against which identity is being tested.
-  # @return [true,false] Whether instances of receiver identify as object.
-  def instances_identify_as?( object )
-    
-    return ::IdentifiesAs.object_instances_identify_as?( self, object )    
-    
-  end
-
-  ################
-  #  identities  #
-  ################
-  
-  # Identities that receiver identifies as, beyond those which it actually is.
-  # @return [Array<Object>] Identities receiver identifies as.
-  def identities
-    
-    return ::IdentifiesAs.object_identities( self )    
-    
-  end
-
-  #########################
-  #  instance_identities  #
-  #########################
-  
-  # Identities that instances of receiver identify as, beyond those which it actually is.
-  # @return [Array<Object>] Identities instances of receiver identifies as.
-  def instance_identities
-    
-    return ::IdentifiesAs.object_instance_identities( self )    
-    
-  end
-
-  ##############################
-  #  stop_identifying_as!  #
-  ##############################
-  
-  # Cause receiver to no longer identify as specified objects.
-  # @param [Array<Object>] objects Other objects receiver should no longer identify as.
-  # @return [Object] Self.
-  def stop_identifying_as!( *objects )
-    
-    return ::IdentifiesAs.object_stop_identifying_as!( self, *objects )    
-    
-  end
-
-  ####################################
-  #  stop_instances_identifying_as!  #
-  ####################################
-  
-  # Cause instances of receiver to no longer identify as specified objects.
-  # @param [Array<Object>] objects Other objects instance of receiver should no longer identify as.
-  # @return [Object] Self.
-  def stop_instances_identifying_as!( *objects )
-    
-    return ::IdentifiesAs.object_stop_instances_identifying_as!( self, *objects )    
-    
-  end
-
-  ###########
-  #  is_a?  #
-  ###########
-  
-  def is_a?( object )
-    
-    is_type = false
-    
-    if identifies_as?( object )    
-      is_type = true
-    else
-      is_type = super
-    end
-    
-    return is_type
-    
-  end
-    
+      
 end

data/lib/identifies_as.rb

@@ -1,12 +1,26 @@
 
 require 'module-cluster'
 
-require_relative 'identifies_as/IdentifiesAs.rb'
-require_relative 'identifies_as/IdentifiesAs/ActuallyIsA.rb'
-require_relative 'identifies_as/IdentifiesAs/EqualsEqualsEquals.rb'
+module ::IdentifiesAs
+end
+
+basepath = 'identifies_as/IdentifiesAs'
+
+files = [
+  
+  'ActuallyIsA',
+  
+  'ClassInstance',
+  'ObjectInstance'
+  
+]
+
+files.each do |this_file|
+  require_relative( File.join( basepath, this_file ) + '.rb' )
+end
+
+require_relative( basepath + '.rb' )
 
 class ::Object
-  extend ::IdentifiesAs::EqualsEqualsEquals
-  include ::IdentifiesAs::ActuallyIsA
-  extend ::IdentifiesAs::ActuallyIsA
+  include ::IdentifiesAs
 end

data/spec/IdentifiesAs_spec.rb

@@ -31,7 +31,7 @@ describe ::IdentifiesAs do
     instance.identities.should == [ ]    
     instance.is_a?( Array ).should == false
     ( Array === instance ).should == false
-    
+        
   end
 
   ####################################
@@ -60,7 +60,32 @@ describe ::IdentifiesAs do
     class AlsoNotAnArray < NotAnArray
     end
     
+    module Unrelated
+    end
+    
     NotAnArray.is_a?( SomeOtherClass ).should == true
+    ( NotAnArray < Array ).should == true
+    ( NotAnArray > Array ).should == false
+    ( NotAnArray <= Array ).should == true
+    ( NotAnArray >= Array ).should == false
+
+    ( NotAnArray <=> Array ).should == -1
+    ( Array <=> NotAnArray ).should == 1
+    ( NotAnArray <=> NotAnArray ).should == 0
+    ( NotAnArray <=> Unrelated ).should == nil
+
+    AlsoNotAnArray.is_a?( SomeOtherClass ).should == true
+    ( AlsoNotAnArray < Array ).should == true
+    ( AlsoNotAnArray > Array ).should == false
+    ( AlsoNotAnArray <= Array ).should == true
+    ( AlsoNotAnArray >= Array ).should == false
+
+    ( AlsoNotAnArray <=> NotAnArray ).should == -1
+    ( NotAnArray <=> AlsoNotAnArray ).should == 1
+    ( AlsoNotAnArray <=> Array ).should == -1
+    ( Array <=> AlsoNotAnArray ).should == 1
+    ( AlsoNotAnArray <=> AlsoNotAnArray ).should == 0
+    ( AlsoNotAnArray <=> Unrelated ).should == nil
     
     instance = NotAnArray.new
     instance.identifies_as?( Array ).should == true

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: identifies_as
 version: !ruby/object:Gem::Version
-  version: 1.0.4
+  version: 1.0.5
   prerelease: 
 platform: ruby
 authors:
@@ -37,7 +37,8 @@ extensions: []
 extra_rdoc_files: []
 files:
 - lib/identifies_as/IdentifiesAs/ActuallyIsA.rb
-- lib/identifies_as/IdentifiesAs/EqualsEqualsEquals.rb
+- lib/identifies_as/IdentifiesAs/ClassInstance.rb
+- lib/identifies_as/IdentifiesAs/ObjectInstance.rb
 - lib/identifies_as/IdentifiesAs.rb
 - lib/identifies_as.rb
 - spec/IdentifiesAs_spec.rb

data/lib/identifies_as/IdentifiesAs/EqualsEqualsEquals.rb

@@ -1,22 +0,0 @@
-
-module ::IdentifiesAs::EqualsEqualsEquals
-  
-  #########
-  #  ===  #
-  #########
-  
-  def ===( object )
-    
-    is_equal = false
-    
-    if ::IdentifiesAs.object_identifies_as?( object, self )
-      is_equal = true
-    else
-      is_equal = super
-    end
-
-    return is_equal
-    
-  end
-  
-end