fuby 0.0.2 → 0.0.3

data/lib/fuby/include.rb

@@ -1,11 +1,22 @@
+require_relative 'send'
+
 module Fuby
   refine ::Module do
 
-    def include! *includes, &body
-      include *includes unless includes.empty?
-      include ::Module.new(&body) if block_given?
+    def include *includes, &body
+      self.send :include, *includes unless includes.empty?
+      self.send :include, ::Module.new(&body) if block_given?
       self
     end
 
   end
+  class Send
+
+    def include *includes, &body
+      @self.send :include, *includes unless includes.empty?
+      @self.send :include, ::Module.new(&body) if block_given?
+      @self
+    end
+
+  end
 end

data/lib/fuby/invert.rb

@@ -1,14 +1,17 @@
-require_relative 'self_and_descendants'
-require_relative 'each_with_index_or_key'
+require_relative 'enumerables'
+require_relative 'to_hash'
+
+using Fuby
 
 module Fuby
+  Enumerables.each do |enumerable|
+    next if Hash >= enumerable
+    refine enumerable do
 
-  module ::Enumerable # can't refine Module
+      def invert
+        to_hash.invert
+      end
 
-    def invert
-      ::Hash[ each_with_index_or_key.to_a ]
     end
-
   end
-
 end

data/lib/fuby/last.rb

@@ -0,0 +1,9 @@
+module Fuby
+  refine ::Array do
+
+    def last= it
+      self[length - 1] = it
+    end
+
+  end
+end

data/lib/fuby/longest_common.rb

@@ -1,15 +1 @@
-require_relative 'equivalence'
-
-module Fuby
-  module ::Enumerable # can't refine Module
-
-    def longest_common_prefix *those
-      zip(*those).take_while(:equivalence?).map(:first)
-    end
-
-    def longest_common_suffix *those
-      zip(*those).map(&:reverse).take_while(:equivalence?).map(:first).map(&:reverse)
-    end
-
-  end
-end
+Dir.glob "#{ __FILE__.chomp ".rb" }_*.rb", &method(:require)

data/lib/fuby/longest_common_prefix.rb

@@ -0,0 +1,11 @@
+require_relative 'equivalence'
+
+module Fuby
+  refine ::Array do
+
+    def longest_common_prefix *those
+      zip(*those).take_while(:equivalence?).map(:first)
+    end
+
+  end
+end

data/lib/fuby/longest_common_suffix.rb

@@ -0,0 +1,11 @@
+require_relative 'equivalence'
+
+module Fuby
+  refine ::Array do
+
+    def longest_common_suffix *those
+      zip(*those).map(&:reverse).take_while(:equivalence?).map(:first).map(&:reverse)
+    end
+
+  end
+end

data/lib/fuby/matches.rb

@@ -1,10 +1,18 @@
+require_relative 'method_added_as_binary_operator'
+
+using Fuby
+
 module Fuby
-  module ::Enumerable # can't refine Module
+  Enumerables.each do |enumerable|
+    refine enumerable do
 
-    def matches? that
-      count == that.count and matches_componentwise? that
-    end
+      def matches? that
+        count == that.count and matches_componentwise? that
+      end
 
+      method_added_as_binary_operator :matches?
+
+    end
   end
 end
 

data/lib/fuby/matches_componentwise.rb

@@ -1,11 +1,18 @@
+require_relative 'method_added_as_binary_operator'
 require_relative 'each_with_index_or_key'
 
+using Fuby
+
 module Fuby
-  module ::Enumerable # can't refine Module
+  Enumerables.each do |enumerable|
+    refine enumerable do
 
-    def matches_componentwise? that
-      each_with_index_or_key.all? { |e, k| e === that[k] }
-    end
+      def matches_componentwise? that
+        each_with_index_or_key.all? { |e, k| e === that[k] }
+      end
 
+      method_added_as_binary_operator :matches_componentwise?
+
+    end
   end
 end

data/lib/fuby/matches_part_of.rb

@@ -1,14 +1,18 @@
 require_relative 'method_added_as_binary_operator'
 require_relative 'matches_componentwise'
 
+using Fuby
+
 module Fuby
-  module ::Enumerable # can't refine Module
+  Enumerables.each do |enumerable|
+    refine enumerable do
 
-    def matches_part_of? that
-      count <= that.count and matches_componentwise? that
-    end
+      def matches_part_of? that
+        count <= that.count and matches_componentwise? that
+      end
 
-    method_added_as_binary_operator :matches_part_of?
+      method_added_as_binary_operator :matches_part_of?
 
+    end
   end
 end

data/lib/fuby/matches_prefix_of.rb

@@ -1,9 +1,14 @@
+require_relative 'method_added_as_binary_operator'
 require_relative 'matches_part_of'
 
+using Fuby
+
 module Fuby
   refine ::Array do
 
-    alias_method :matches_prefix_of?, :matches_part_of?
+    def matches_prefix_of? *sig, &blk
+      matches_part_of? *sig, &blk
+    end
 
     method_added_as_binary_operator :matches_prefix_of?
 

data/lib/fuby/matches_suffix_of.rb

@@ -1,3 +1,6 @@
+require_relative 'method_added_as_binary_operator'
+require_relative 'matches'
+
 module Fuby
   refine ::Array do
 

data/lib/fuby/method_added_as_binary_operator.rb

@@ -1,9 +1,11 @@
+require_relative 'prepend'
+
 module Fuby
   refine ::Module do
 
     def method_added_as_binary_operator *names
       names.each do |name|
-        prepend! do
+        prepend do
           define_method name do |*sig|
             return method name if sig.empty?
             return super *sig

data/lib/fuby/method_added_as_filter.rb

@@ -6,7 +6,7 @@ module Fuby
 
     def method_added_as_filter *names
       names.each do |name|
-        prepend! do
+        prepend do
           define_method name do |match = nil, &pred|
             return method name if match.nil? && pred.nil?
             return super &(pred || match.to_pred)

data/lib/fuby/names.rb

@@ -0,0 +1,9 @@
+module Fuby
+  refine ::Module do
+
+    def names
+      name.split '::'
+    end
+
+  end
+end

data/lib/fuby/outer_module.rb

@@ -0,0 +1,18 @@
+require_relative 'deep_const_get'
+
+module Fuby
+  refine ::Module do
+
+    def outer_module
+      @outer_module ||= /::[^:]+\Z/ === self ? Kernel.deep_const_get($`) : Kernel
+    end
+
+  end
+  refine ::Kernel.singleton_class do
+
+    def outer_module
+      nil
+    end
+
+  end
+end

data/lib/fuby/part_of.rb

@@ -1,6 +1,8 @@
 require_relative 'method_added_as_binary_operator'
 require_relative 'eql_componentwise'
 
+using Fuby
+
 module Fuby
   module ::Enumerable # can't refine Module
 
@@ -12,3 +14,5 @@ module Fuby
 
   end
 end
+
+Dir.glob "*_#{ __FILE__.chomp ".rb" }.rb", &method(:require)

data/lib/fuby/pop.rb

@@ -1,8 +1,9 @@
 module Fuby
   refine ::Array do
 
-    def pop i = 1
-      return super i % length unless empty?
+    def pop i = nil
+      return super() unless i
+      return super(i % length) unless empty?
     end
 
   end

data/lib/fuby/prefix_of.rb

@@ -3,12 +3,13 @@ require_relative 'part_of'
 module Fuby
   refine ::Array do
 
-    alias_method :prefix_of?, :part_of?
-    alias_method :matches_prefix_of?, :matches_part_of?
+    def prefix_of? *sig, &blk
+      part_of? *sig, &blk
+    end
 
-    method_added_as_binary_operator :prefix_of?, :matches_prefix_of?
+    method_added_as_binary_operator :prefix_of?
 
   end
 end
 
-Dir.glob "*_prefix_of.rb", &method(:require)
+Dir.glob "*_#{ __FILE__.chomp ".rb" }.rb", &method(:require)

data/lib/fuby/prepend.rb

@@ -1,11 +1,20 @@
 module Fuby
   refine ::Module do
 
-    def prepend! *includes, &body
-      prepend *includes unless includes.empty?
-      prepend ::Module.new(&body) if block_given?
+    def prepend *includes, &body
+      self.send :prepend, *includes unless includes.empty?
+      self.send :prepend, ::Module.new(&body) if block_given?
       self
     end
 
   end
+  class Send
+
+    def prepend *includes, &body
+      @self.send :prepend, *includes unless includes.empty?
+      @self.send :prepend, ::Module.new(&body) if block_given?
+      @self
+    end
+
+  end
 end

data/lib/fuby/reject.rb

@@ -0,0 +1,19 @@
+require_relative 'method_added_as_filter'
+
+using Fuby
+
+module Fuby
+  refine ::Array do
+
+    def reject
+      super
+    end
+
+    def reject!
+      super
+    end
+
+    method_added_as_filter :reject, :reject!
+
+  end
+end

data/lib/fuby/select.rb

@@ -0,0 +1,19 @@
+require_relative 'method_added_as_filter'
+
+using Fuby
+
+module Fuby
+  refine ::Array do
+
+    def select
+      super
+    end
+
+    def select!
+      super
+    end
+
+    method_added_as_filter :select, :select!
+
+  end
+end

data/lib/fuby/self_and_descendants.rb

@@ -4,9 +4,7 @@ module Fuby
   refine ::Module do
 
     def self_and_descendants type = ::Module
-      them = descendants type
-      them << self if type === self
-      them
+      ObjectSpace.each_object(type).select { |mod| mod <= self }
     end
 
   end

data/lib/fuby/send.rb

@@ -0,0 +1,24 @@
+module Fuby
+  refine ::Object do
+
+    def send *sig, &blk
+      return super unless sig.empty?
+      return yield Send.new self if block_given?
+      return Send.new self
+    end
+
+  end
+  class Send
+
+    def initialize receiver
+      @self = receiver
+    end
+
+    def method_missing key, *sig, &blk
+      @self.send key, *sig, &blk
+    end
+
+  end
+end
+
+Dir.glob "#{ __FILE__.chomp ".rb" }_*.rb", &method(:require)

data/lib/fuby/shift.rb

@@ -1,8 +1,9 @@
 module Fuby
   refine ::Array do
 
-    def shift i = 1
-      return super i % length unless empty?
+    def shift i = nil
+      return super() unless i
+      return super(i % length) unless empty?
     end
 
   end

data/lib/fuby/singleton_method_defined.rb

@@ -0,0 +1,9 @@
+module Fuby
+  refine ::Module do
+
+    def singleton_method_defined? name
+      singleton_class.send :method_defined?, name
+    end
+
+  end
+end

data/lib/fuby/subclass.rb

@@ -10,10 +10,10 @@ module Fuby
         Class.new self
       
       when Module
-        Class.new.include! self
+        Class.new.send.include self
       
       else super
-      end.include! *sig, &blk
+      end.send.include *sig, &blk
     end
 
   end

data/lib/fuby/submodule.rb

@@ -10,10 +10,10 @@ module Fuby
         Class.new self
       
       when Module
-        Module.new.include! self
+        Module.new.send.include self
       
       else super
-      end.include! *sig, &blk
+      end.send.include *sig, &blk
     end
 
   end