module-cluster 1.3.1 → 1.3.2

data/lib/module-cluster.rb

@@ -1,32 +1,36 @@
 
 module ModuleCluster
-  module Eigenclass
+  class ClusterStack
+  end
+  module CascadeFeatures
   end
   module Define
-    module AnonymousModule
+    module DedoubleAncestors
     end
     module ClusterStack
     end
-    module ModuleCluster
+    module Cluster
     end
-    module ModuleClusterCascades
+    module ClusterCascades
     end
-    module ModuleClusterCascadesToClass
+    module ClusterCascadesToClass
     end
-    module ModuleClusterCascadesToModule
+    module ClusterCascadesToModule
     end
     module Deprecated
     end
   end
 end
 
-require_relative 'module-cluster/ModuleCluster/Define/_private_/AnonymousModule.rb'
-require_relative 'module-cluster/ModuleCluster/Define/_private_/ClusterStack.rb'
-
-require_relative 'module-cluster/ModuleCluster/Define/ModuleCluster.rb'
-require_relative 'module-cluster/ModuleCluster/Define/ModuleClusterCascades.rb'
-require_relative 'module-cluster/ModuleCluster/Define/ModuleClusterCascadesToClass.rb'
-require_relative 'module-cluster/ModuleCluster/Define/ModuleClusterCascadesToModule.rb'
+require_relative 'module-cluster/ModuleCluster/CascadeFeatures.rb'
+require_relative 'module-cluster/ModuleCluster/Define/DedoubleAncestors.rb'
+require_relative 'module-cluster/ModuleCluster/ExtendForCascade.rb'
+require_relative 'module-cluster/ModuleCluster/Define/ClusterStack.rb'
+require_relative 'module-cluster/ModuleCluster/Define/Cluster.rb'
+require_relative 'module-cluster/ModuleCluster/Define/ClusterCascades.rb'
+require_relative 'module-cluster/ModuleCluster/Define/ClusterCascadesToClass.rb'
+require_relative 'module-cluster/ModuleCluster/Define/ClusterCascadesToModule.rb'
 require_relative 'module-cluster/ModuleCluster/Define/Deprecated.rb'
+require_relative 'module-cluster/ModuleCluster/ClusterStack.rb'
 require_relative 'module-cluster/ModuleCluster.rb'
 

data/lib/module-cluster/ModuleCluster.rb

@@ -1,13 +1,13 @@
 
 module ModuleCluster
-	  
-	include ModuleCluster::Define::ClusterStack
-
-  include ModuleCluster::Define::ModuleCluster
-  include ModuleCluster::Define::ModuleClusterCascades
-  include ModuleCluster::Define::ModuleClusterCascadesToClass
-  include ModuleCluster::Define::ModuleClusterCascadesToModule
+	
+	extend ModuleCluster::ExtendForCascade
+    
+  include ModuleCluster::Define::Cluster
+  include ModuleCluster::Define::ClusterCascades
+  include ModuleCluster::Define::ClusterCascadesToClass
+  include ModuleCluster::Define::ClusterCascadesToModule
 
   include ModuleCluster::Define::Deprecated
-	
+		
 end

data/lib/module-cluster/ModuleCluster/CascadeFeatures.rb

@@ -0,0 +1,155 @@
+
+module ModuleCluster::CascadeFeatures
+  
+  CascadeStruct = Struct.new( :includes, :extends, :cascades, :runtime_block )
+  DependencyModule = Struct.new( :class_or_module, :method, :modules )
+  
+  #####################################################
+  #  self.get_runtime_includes_or_extends_from_block  #
+  #####################################################
+  
+  def self.get_runtime_includes_or_extends_from_block( module_self, class_or_module, include_or_extend, runtime_includes_or_extends_block )
+    
+    includes_or_extends = nil
+    
+    case runtime_includes_or_extends_block.arity
+    when 0
+      includes_or_extends = module_self.instance_eval( & runtime_includes_or_extends_block )
+    else
+      includes_or_extends = module_self.instance_exec( class_or_module, & runtime_includes_or_extends_block )
+    end
+
+    return includes_or_extends
+    
+  end
+  
+  ############################################
+  #  self.includes_or_extends_for_set_stack  #
+  ############################################
+  
+  def self.includes_or_extends_for_set_stack( module_self, class_or_module, set_stack )
+    
+    includes = Array.new
+    extends = Array.new
+    cascades = Hash.new
+    
+    set_stack.each do |this_set|
+
+      # get cascades
+      if this_set.dependency_module.should_cascade?( class_or_module )
+        cascades[ this_set.dependency_module ] ||= Hash.new
+        cascades[ this_set.dependency_module ][ this_set.method ] ||= Array.new
+        cascades[ this_set.dependency_module ][ this_set.method ].concat( this_set.modules )            
+      end
+
+      # get runtime block
+      runtime_set = nil
+      if block = this_set.runtime_includes_or_extends_block
+        runtime_set = ModuleCluster::CascadeFeatures.get_runtime_includes_or_extends_from_block( module_self, 
+                                                                                                 class_or_module,
+                                                                                                 this_set.include_or_extend,
+                                                                                                 block )
+      end
+      
+      # get includes/extends
+      case this_set.include_or_extend
+        when :include
+          this_set.modules.each do |this_module|
+            if this_set.dependency_module.should_include_or_extend?( class_or_module )
+              includes.concat( this_set.modules )            
+            end
+          end
+          includes.concat( runtime_set ) if runtime_set
+        when :extend
+          if this_set.dependency_module.should_include_or_extend?( class_or_module )
+            extends.concat( this_set.modules )
+          end
+          extends.concat( runtime_set ) if runtime_set
+      end
+      
+    end
+    
+    includes.uniq!
+    extends.uniq!
+    cascades.each do |this_dependency_module, this_method_and_module_set|
+      this_method_and_module_set.each do |this_method, this_module_set|
+        this_module_set.uniq!
+      end
+    end
+        
+    return ModuleCluster::CascadeFeatures::CascadeStruct.new( includes, extends, cascades )
+    
+  end
+  
+  ###########################
+  #  self.cascade_features  #
+  ###########################
+  
+  def self.cascade_features( class_or_module, cascade_struct )
+
+    class_or_module.module_eval do
+      include( *cascade_struct.includes.reverse ) unless cascade_struct.includes.empty?
+      extend( *cascade_struct.extends.reverse ) unless cascade_struct.extends.empty?
+    end
+
+    cascade_struct.cascades.each do |this_dependency_module, this_method_and_module_set|
+      this_method_and_module_set.each do |this_method, this_module_set|
+        this_dependency_module.perform_cascades( class_or_module, this_method, this_module_set )
+      end
+    end
+    
+  end
+
+  #####################
+  #  append_features  #
+  #####################
+
+  def append_features( class_or_module )
+    
+    cascade_struct = ModuleCluster::CascadeFeatures.includes_or_extends_for_set_stack( self, class_or_module, cluster_stack.cascading_prepending_includes )
+    ModuleCluster::CascadeFeatures.cascade_features( class_or_module, cascade_struct )
+    
+    super
+    
+  end
+  
+  ##############
+  #  included  #
+  ##############
+
+  def included( class_or_module )
+
+    super
+
+    cascade_struct = ModuleCluster::CascadeFeatures.includes_or_extends_for_set_stack( self, class_or_module, cluster_stack.cascading_includes )
+    ModuleCluster::CascadeFeatures.cascade_features( class_or_module, cascade_struct )
+    
+  end
+  
+  ###################
+  #  extend_object  #
+  ###################
+
+  def extend_object( class_or_module )
+
+    cascade_struct = ModuleCluster::CascadeFeatures.includes_or_extends_for_set_stack( self, class_or_module, cluster_stack.cascading_prepending_extends )
+    ModuleCluster::CascadeFeatures.cascade_features( class_or_module, cascade_struct )
+    
+    super
+    
+  end
+  
+  ##############
+  #  extended  #
+  ##############
+
+  def extended( class_or_module )
+
+    super
+
+    cascade_struct = ModuleCluster::CascadeFeatures.includes_or_extends_for_set_stack( self, class_or_module, cluster_stack.cascading_extends )
+    ModuleCluster::CascadeFeatures.cascade_features( class_or_module, cascade_struct )
+
+  end
+  
+end

data/lib/module-cluster/ModuleCluster/ClusterStack.rb

@@ -0,0 +1,102 @@
+
+class ModuleCluster::ClusterStack
+
+  Set = Struct.new( :dependency_module, :method, :include_or_extend, :modules, :runtime_includes_or_extends_block )
+
+  ########################
+  #  cascading_includes  #
+  ########################
+
+  def cascading_includes
+    return @cascading_includes ||= Array.new
+  end
+  
+  #######################
+  #  cascading_extends  #
+  #######################
+
+  def cascading_extends
+    return @cascading_extends ||= Array.new
+  end
+
+  ###################################
+  #  cascading_prepending_includes  #
+  ###################################
+
+  def cascading_prepending_includes
+    return @cascading_prepending_includes ||= Array.new
+  end
+
+  ##################################
+  #  cascading_prepending_extends  #
+  ##################################
+
+  def cascading_prepending_extends
+    return @cascading_prepending_extends ||= Array.new
+  end
+
+  ######################
+  #  include_includes  #
+  ######################
+
+  def include_includes( module_instance, method, includes, runtime_includes_block )
+    cascading_includes.push( Set.new( module_instance, method, :include, includes, runtime_includes_block ) )
+  end
+
+  #####################
+  #  include_extends  #
+  #####################
+  
+  def include_extends( module_instance, method, extends, runtime_extends_block )
+    cascading_includes.push( Set.new( module_instance, method, :extend, extends, runtime_extends_block ) )
+  end
+
+  #####################
+  #  extend_includes  #
+  #####################
+  
+  def extend_includes( module_instance, method, includes, runtime_includes_block )
+    cascading_extends.push( Set.new( module_instance, method, :include, includes, runtime_includes_block ) )
+  end
+  
+  ####################
+  #  extend_extends  #
+  ####################
+
+  def extend_extends( module_instance, method, extends, runtime_extends_block )
+    cascading_extends.push( Set.new( module_instance, method, :extend, extends, runtime_extends_block ) )
+  end
+
+  ###############################
+  #  include_prepends_includes  #
+  ###############################
+  
+  def include_prepends_includes( module_instance, method, includes, runtime_includes_block )
+    cascading_prepending_includes.push( Set.new( module_instance, method, :include, includes, runtime_includes_block ) )
+  end
+
+  ##############################
+  #  include_prepends_extends  #
+  ##############################
+  
+  def include_prepends_extends( module_instance, method, extends, runtime_extends_block )
+    cascading_prepending_includes.push( Set.new( module_instance, method, :extend, extends, runtime_extends_block ) )
+  end
+
+  ##############################
+  #  extend_prepends_includes  #
+  ##############################
+  
+  def extend_prepends_includes( module_instance, method, includes, runtime_includes_block )
+    cascading_prepending_extends.push( Set.new( module_instance, method, :include, includes, runtime_includes_block ) )
+  end
+
+  #############################
+  #  extend_prepends_extends  #
+  #############################
+  
+  def extend_prepends_extends( module_instance, method, extends, runtime_extends_block )
+    cascading_prepending_extends.push( Set.new( module_instance, method, :extend, extends, runtime_extends_block ) )
+  end
+
+end

data/lib/module-cluster/ModuleCluster/Define/Cluster.rb

@@ -0,0 +1,203 @@
+
+module ModuleCluster::Define::Cluster
+
+  include ModuleCluster::Define::ClusterStack
+  
+  extend ModuleCluster::ExtendForCascade
+
+  ####################################
+  #  self.should_include_or_extend?  #
+  ####################################
+
+  def self.should_include_or_extend?( class_or_module )
+    return true
+  end
+
+  ##########################
+  #  self.should_cascade?  #
+  ##########################
+
+  def self.should_cascade?( class_or_module )
+    return true
+  end
+  
+  ###########################
+  #  self.perform_cascades  #
+  ###########################
+  
+  def self.perform_cascades( class_or_module, method, modules )
+  end
+  
+	###########################
+	#  include_also_includes  #
+	###########################
+
+	def include_also_includes( *includes, & runtime_includes_block )
+	  cluster_stack.include_includes( ModuleCluster::Define::Cluster, __method__, includes, runtime_includes_block )
+		return self
+	end
+	
+	##########################
+	#  include_also_extends  #
+	##########################
+	
+	def include_also_extends( *extends, & runtime_extends_block )
+	  cluster_stack.include_extends( ModuleCluster::Define::Cluster, __method__, extends, runtime_extends_block )
+		return self
+	end
+	
+	#######################################
+	#  include_also_includes_and_extends  #
+	#######################################
+
+	def include_also_includes_and_extends( *includes_and_extends, & runtime_includes_and_extends_block )
+		include_also_includes( *includes_and_extends, & runtime_includes_and_extends_block )
+		include_also_extends( *includes_and_extends, & runtime_includes_and_extends_block )
+		return self
+	end
+
+	##########################
+	#  extend_also_includes  #
+	##########################
+
+	def extend_also_includes( *includes, & runtime_includes_block )
+	  cluster_stack.extend_includes( ModuleCluster::Define::Cluster, __method__, includes, runtime_includes_block )
+		return self
+	end
+	
+	#########################
+	#  extend_also_extends  #
+	#########################
+	
+	def extend_also_extends( *extends, & runtime_extends_block )
+	  cluster_stack.extend_extends( ModuleCluster::Define::Cluster, __method__, extends, runtime_extends_block )
+		return self
+	end
+	
+	######################################
+	#  extend_also_includes_and_extends  #
+	######################################
+
+	def extend_also_includes_and_extends( *includes_and_extends, & runtime_includes_and_extends_block )
+		extend_also_includes( *includes_and_extends, & runtime_includes_and_extends_block )
+		extend_also_extends( *includes_and_extends, & runtime_includes_and_extends_block )
+		return self
+	end
+
+	###############################
+	#  include_prepends_includes  #
+	###############################
+
+	def include_prepends_includes( *includes, & runtime_includes_block )
+	  cluster_stack.include_prepends_includes( ModuleCluster::Define::Cluster, __method__, includes, runtime_includes_block )
+		return self
+	end
+
+	##############################
+	#  include_prepends_extends  #
+	##############################
+	
+	def include_prepends_extends( *extends, & runtime_extends_block )
+	  cluster_stack.include_prepends_extends( ModuleCluster::Define::Cluster, __method__, extends, runtime_extends_block )
+		return self
+	end
+	
+	###########################################
+	#  include_prepends_includes_and_extends  #
+	###########################################
+
+	def include_prepends_includes_and_extends( *includes_and_extends, & runtime_includes_and_extends_block )
+		include_prepends_includes( *includes_and_extends, & runtime_includes_and_extends_block )
+		include_prepends_extends( *includes_and_extends, & runtime_includes_and_extends_block )
+		return self
+	end
+
+	##############################
+	#  extend_prepends_includes  #
+	##############################
+
+	def extend_prepends_includes( *includes, & runtime_includes_block )
+	  cluster_stack.extend_prepends_includes( ModuleCluster::Define::Cluster, __method__, includes, runtime_includes_block )
+		return self
+	end
+
+	#############################
+	#  extend_prepends_extends  #
+	#############################
+	
+	def extend_prepends_extends( *extends, & runtime_extends_block )
+	  cluster_stack.extend_prepends_extends( ModuleCluster::Define::Cluster, __method__, extends, runtime_extends_block )
+		return self
+	end
+	
+	##########################################
+	#  extend_prepends_includes_and_extends  #
+	##########################################
+
+	def extend_prepends_includes_and_extends( *includes_and_extends, & runtime_includes_and_extends_block )
+		extend_prepends_includes( *includes_and_extends, & runtime_includes_and_extends_block )
+		extend_prepends_extends( *includes_and_extends, & runtime_includes_and_extends_block )
+		return self
+	end
+	
+	#####################################
+	#  include_or_extend_also_includes  #
+	#####################################
+
+  def include_or_extend_also_includes( *includes, & runtime_includes_block )
+    include_also_includes( *includes, & runtime_includes_block )
+    extend_also_includes( *includes, & runtime_includes_block )
+		return self
+  end
+
+	####################################
+	#  include_or_extend_also_extends  #
+	####################################
+
+  def include_or_extend_also_extends( *extends, & runtime_extends_block )
+    include_also_extends( *extends, & runtime_extends_block )
+    extend_also_extends( *extends, & runtime_extends_block )
+		return self
+  end
+
+	#################################################
+	#  include_or_extend_also_includes_and_extends  #
+	#################################################
+
+  def include_or_extend_also_includes_and_extends( *includes_and_extends, & runtime_includes_and_extends_block )
+    include_prepends_includes_and_extends( *includes_and_extends, & runtime_includes_and_extends_block )
+    extend_prepends_includes_and_extends( *includes_and_extends, & runtime_includes_and_extends_block )
+		return self
+  end
+
+	#########################################
+	#  include_or_extend_prepends_includes  #
+	#########################################
+
+  def include_or_extend_prepends_includes( *includes, & runtime_includes_block )
+    include_prepends_includes( *includes, & runtime_includes_block )
+    extend_prepends_includes( *includes, & runtime_includes_block )
+		return self
+  end
+
+	########################################
+	#  include_or_extend_prepends_extends  #
+	########################################
+
+  def include_or_extend_prepends_extends( *extends, & runtime_extends_block )
+    include_prepends_extends( *extends, & runtime_extends_block )
+    extend_prepends_extends( *extends, & runtime_extends_block )
+		return self
+  end
+
+	#####################################################
+	#  include_or_extend_prepends_includes_and_extends  #
+	#####################################################
+
+  def include_or_extend_prepends_includes_and_extends( *includes_and_extends, & runtime_includes_and_extends_block )
+    include_prepends_includes_and_extends( *includes_and_extends, & runtime_includes_and_extends_block )
+    extend_prepends_includes_and_extends( *includes_and_extends, & runtime_includes_and_extends_block )
+		return self
+  end
+
+end