module-cluster 1.1.1 → 1.2.0

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

@@ -0,0 +1,140 @@
+
+module ModuleCluster::Define::ModuleClusterCascadesToClass
+
+	########################################
+	#  include_cascades_includes_to_class  #
+	########################################
+
+	def include_cascades_includes_to_class( *includes )
+	  includes_module = anonymous_module_cascade_to_class_included( :include, *includes )
+    clusterstack_module do
+      include( includes_module )
+    end
+		return self
+	end
+	
+	#######################################
+	#  include_cascades_extends_to_class  #
+	#######################################
+
+	def include_cascades_extends_to_class( *extends )
+	  extends_module = anonymous_module_cascade_to_class_included( :extend, *extends )
+    clusterstack_module do
+      include( extends_module )
+    end
+		return self
+	end
+	
+	####################################################
+	#  include_cascades_includes_and_extends_to_class  #
+	####################################################
+
+	def include_cascades_includes_and_extends_to_class( *includes_and_extends )
+		include_cascades_includes_to_class( *includes_and_extends )
+		include_cascades_extends_to_class( *includes_and_extends )
+		return self
+	end
+
+	#######################################
+	#  extend_cascades_includes_to_class  #
+	#######################################
+
+	def extend_cascades_includes_to_class( *includes )
+	  includes_module = anonymous_module_cascade_to_class_extended( :include, *includes )
+    clusterstack_module do
+      include( includes_module )
+    end
+		return self
+	end
+	
+	######################################
+	#  extend_cascades_extends_to_class  #
+	######################################
+
+	def extend_cascades_extends_to_class( *extends )
+	  extends_module = anonymous_module_cascade_to_class_extended( :extend, *extends )
+    clusterstack_module do
+      include( extends_module )
+    end
+		return self
+	end
+	
+	###################################################
+	#  extend_cascades_includes_and_extends_to_class  #
+	###################################################
+
+	def extend_cascades_includes_and_extends_to_class( *includes_and_extends )
+		extend_cascades_includes_to_class( *includes_and_extends )
+		extend_cascades_extends_to_class( *includes_and_extends )
+		return self
+	end
+
+	###################################################
+	#  include_cascades_to_class_prepending_includes  #
+	###################################################
+
+	def include_cascades_to_class_prepending_includes( *includes )
+	  includes_module = anonymous_module_cascade_to_class_append_features( :include, *includes )
+    clusterstack_module do
+      include( includes_module )
+    end
+		return self
+	end
+	
+	##################################################
+	#  include_cascades_to_class_prepending_extends  #
+	##################################################
+
+	def include_cascades_to_class_prepending_extends( *extends )
+	  extends_module = anonymous_module_cascade_to_class_append_features( :extend, *extends )
+    clusterstack_module do
+      include( extends_module )
+    end
+		return self
+	end
+	
+	###############################################################
+	#  include_cascades_to_class_prepending_includes_and_extends  #
+	###############################################################
+
+	def include_cascades_to_class_prepending_includes_and_extends( *includes_and_extends )
+		include_cascades_to_class_prepending_includes( *includes_and_extends )
+		include_cascades_to_class_prepending_extends( *includes_and_extends )
+		return self
+	end
+
+	##################################################
+	#  extend_cascades_to_class_prepending_includes  #
+	##################################################
+
+	def extend_cascades_to_class_prepending_includes( *includes )
+	  includes_module = anonymous_module_cascade_to_class_extend_object( :include, *includes )
+    clusterstack_module do
+      include( includes_module )
+    end
+		return self
+	end
+	
+	#################################################
+	#  extend_cascades_to_class_prepending_extends  #
+	#################################################
+
+	def extend_cascades_to_class_prepending_extends( *extends )
+	  extends_module = anonymous_module_cascade_to_class_extend_object( :extend, *extends )
+    clusterstack_module do
+      include( extends_module )
+    end
+		return self
+	end
+	
+	##############################################################
+	#  extend_cascades_to_class_prepending_includes_and_extends  #
+	##############################################################
+
+	def extend_cascades_to_class_prepending_includes_and_extends( *includes_and_extends )
+		extend_cascades_to_class_prepending_includes( *includes_and_extends )
+		extend_cascades_to_class_prepending_extends( *includes_and_extends )
+		return self
+	end
+
+end

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

@@ -0,0 +1,28 @@
+
+module ModuleCluster::Define::ClusterStack
+
+  ###########################################################################################################
+      private ###############################################################################################
+  ###########################################################################################################
+
+  #########################
+  #  clusterstack_module  #
+  #########################
+
+  def clusterstack_module( & clusterstack_extend_include_block )
+    
+    unless const_defined?( :ClusterStackModule )
+      const_set( :ClusterStackModule, Module.new )
+    end
+    
+    # we use a block so that we don't have to worry about re-extending each time
+    self::ClusterStackModule.module_eval( & clusterstack_extend_include_block ) if block_given?
+
+    # we have to re-extend each time so that new includes/extends apply to self
+    extend( self::ClusterStackModule )
+    
+    return self::ClusterStackModule
+
+  end
+
+end

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

@@ -0,0 +1,110 @@
+
+module ModuleCluster::Define::ModuleCluster
+
+  ###########################################################################################################
+      private ###############################################################################################
+  ###########################################################################################################
+
+  include ModuleCluster::Define::ClusterStack
+
+  ######################################
+  #  anonymous_module_append_features  #
+  ######################################
+
+	def anonymous_module_append_features( extend_or_include, *other_modules )
+
+    return Module.new do
+
+      #-------------------#
+      #  append_features  #
+      #-------------------#
+
+      define_method( :append_features ) do |class_or_module|
+        class_or_module.module_eval do
+          other_modules.each do |this_module|
+            __send__( extend_or_include, this_module )
+          end
+        end
+        super( class_or_module )
+      end
+
+    end
+
+  end
+
+  ###############################
+  #  anonymous_module_included  #
+  ###############################
+
+	def anonymous_module_included( extend_or_include, *other_modules )
+
+    return Module.new do
+
+      #------------#
+      #  included  #
+      #------------#
+
+      define_method( :included ) do |class_or_module|
+        super( class_or_module )
+        class_or_module.module_eval do
+          other_modules.each do |this_module|
+            __send__( extend_or_include, this_module )
+          end
+        end
+      end
+
+    end
+
+  end
+
+  ####################################
+  #  anonymous_module_extend_object  #
+  ####################################
+
+	def anonymous_module_extend_object( extend_or_include, *other_modules )
+
+    return Module.new do
+
+      #-----------------#
+      #  extend_object  #
+      #-----------------#
+
+      define_method( :extend_object ) do |class_or_module|
+        class_or_module.module_eval do
+          other_modules.each do |this_module|
+            __send__( extend_or_include, this_module )
+          end
+        end
+        super( class_or_module )
+      end
+
+    end
+
+  end
+
+  ###############################
+  #  anonymous_module_extended  #
+  ###############################
+
+	def anonymous_module_extended( extend_or_include, *other_modules )
+
+    return Module.new do
+
+      #------------#
+      #  included  #
+      #------------#
+
+      define_method( :extended ) do |class_or_module|
+        super( class_or_module )
+        class_or_module.module_eval do
+          other_modules.each do |this_module|
+            __send__( extend_or_include, this_module )
+          end
+        end
+      end
+
+    end
+
+  end
+
+end

data/lib/module-cluster/ModuleCluster/Define/_private_/ModuleClusterCascades.rb

@@ -0,0 +1,118 @@
+
+module ModuleCluster::Define::ModuleClusterCascades
+
+  ###########################################################################################################
+      private ###############################################################################################
+  ###########################################################################################################
+
+  include ModuleCluster::Define::ClusterStack
+
+  ##############################################
+  #  anonymous_module_cascade_append_features  #
+  ##############################################
+
+	def anonymous_module_cascade_append_features( extend_or_include, *other_modules )
+
+    return Module.new do
+
+      #-------------------#
+      #  append_features  #
+      #-------------------#
+
+      define_method( :append_features ) do |class_or_module|
+        class_or_module.module_eval do
+          extend ModuleCluster::Define::ModuleClusterCascades
+          extend( anonymous_module_cascade_append_features( extend_or_include, *other_modules ) )
+          other_modules.each do |this_module|
+            __send__( extend_or_include, this_module )
+          end
+        end
+        super( class_or_module )
+      end
+
+    end
+
+  end
+
+  #######################################
+  #  anonymous_module_cascade_included  #
+  #######################################
+
+	def anonymous_module_cascade_included( extend_or_include, *other_modules )
+
+    return Module.new do
+
+      #------------#
+      #  included  #
+      #------------#
+
+      define_method( :included ) do |class_or_module|
+        super( class_or_module )
+        class_or_module.module_eval do
+          extend ModuleCluster::Define::ModuleClusterCascades
+          extend( anonymous_module_cascade_included( extend_or_include, *other_modules ) )
+          other_modules.each do |this_module|
+            __send__( extend_or_include, this_module )
+          end
+        end
+      end
+
+    end
+
+  end
+
+  ############################################
+  #  anonymous_module_cascade_extend_object  #
+  ############################################
+
+	def anonymous_module_cascade_extend_object( extend_or_include, *other_modules )
+
+    return Module.new do
+
+      #-----------------#
+      #  extend_object  #
+      #-----------------#
+
+      define_method( :extend_object ) do |class_or_module|
+        class_or_module.module_eval do
+          extend ModuleCluster::Define::ModuleClusterCascades
+          extend( anonymous_module_cascade_extend_object( extend_or_include, *other_modules ) )
+          other_modules.each do |this_module|
+            __send__( extend_or_include, this_module )
+          end
+        end
+        super( class_or_module )
+      end
+
+    end
+
+  end
+
+  #######################################
+  #  anonymous_module_cascade_extended  #
+  #######################################
+
+	def anonymous_module_cascade_extended( extend_or_include, *other_modules )
+
+    return Module.new do
+
+      #------------#
+      #  included  #
+      #------------#
+
+      define_method( :extended ) do |class_or_module|
+        super( class_or_module )
+        class_or_module.module_eval do
+          extend ModuleCluster::Define::ModuleClusterCascades
+          extend( anonymous_module_cascade_extended( extend_or_include, *other_modules ) )
+          other_modules.each do |this_module|
+            __send__( extend_or_include, this_module )
+          end
+        end
+      end
+
+    end
+
+  end
+
+end

data/lib/module-cluster/ModuleCluster/Define/_private_/ModuleClusterCascadesToClass.rb

@@ -0,0 +1,126 @@
+
+module ModuleCluster::Define::ModuleClusterCascadesToClass
+
+  ###########################################################################################################
+      private ###############################################################################################
+  ###########################################################################################################
+
+  include ModuleCluster::Define::ClusterStack
+
+  #######################################################
+  #  anonymous_module_cascade_to_class_append_features  #
+  #######################################################
+
+	def anonymous_module_cascade_to_class_append_features( extend_or_include, *other_modules )
+
+    return Module.new do
+
+      #-------------------#
+      #  append_features  #
+      #-------------------#
+
+      define_method( :append_features ) do |class_or_module|
+        class_or_module.module_eval do
+          extend ModuleCluster::Define::ModuleClusterCascadesToClass
+          extend( anonymous_module_cascade_to_class_append_features( extend_or_include, *other_modules ) )
+          if is_a?( Class )
+            other_modules.each do |this_module|
+              __send__( extend_or_include, this_module )
+            end
+          end
+        end
+        super( class_or_module )
+      end
+
+    end
+
+  end
+
+  ################################################
+  #  anonymous_module_cascade_to_class_included  #
+  ################################################
+
+	def anonymous_module_cascade_to_class_included( extend_or_include, *other_modules )
+
+    return Module.new do
+
+      #------------#
+      #  included  #
+      #------------#
+
+      define_method( :included ) do |class_or_module|
+        super( class_or_module )
+        class_or_module.module_eval do
+          extend ModuleCluster::Define::ModuleClusterCascadesToClass
+          extend( anonymous_module_cascade_to_class_included( extend_or_include, *other_modules ) )
+          if is_a?( Class )
+            other_modules.each do |this_module|
+              __send__( extend_or_include, this_module )
+            end
+          end
+        end
+      end
+
+    end
+
+  end
+
+  #####################################################
+  #  anonymous_module_cascade_to_class_extend_object  #
+  #####################################################
+
+	def anonymous_module_cascade_to_class_extend_object( extend_or_include, *other_modules )
+
+    return Module.new do
+
+      #-----------------#
+      #  extend_object  #
+      #-----------------#
+
+      define_method( :extend_object ) do |class_or_module|
+        class_or_module.module_eval do
+          extend ModuleCluster::Define::ModuleClusterCascadesToClass
+          extend( anonymous_module_cascade_to_class_extend_object( extend_or_include, *other_modules ) )
+          if is_a?( Class )
+            other_modules.each do |this_module|
+              __send__( extend_or_include, this_module )
+            end
+          end
+        end
+        super( class_or_module )
+      end
+
+    end
+
+  end
+
+  ################################################
+  #  anonymous_module_cascade_to_class_extended  #
+  ################################################
+
+	def anonymous_module_cascade_to_class_extended( extend_or_include, *other_modules )
+
+    return Module.new do
+
+      #------------#
+      #  included  #
+      #------------#
+
+      define_method( :extended ) do |class_or_module|
+        super( class_or_module )
+        class_or_module.module_eval do
+          extend ModuleCluster::Define::ModuleClusterCascadesToClass
+          extend( anonymous_module_cascade_to_class_extended( extend_or_include, *other_modules ) )
+          if is_a?( Class )
+            other_modules.each do |this_module|
+              __send__( extend_or_include, this_module )
+            end
+          end
+        end
+      end
+
+    end
+
+  end
+
+end