fuby 0.0.2 → 0.0.3

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA1:
-  metadata.gz: 99e1db273fc106282f8517b589af92d19e2360ae
-  data.tar.gz: 11e5281463debc8412bf2890e433a21b4c4c4ca0
+  metadata.gz: c58761ffc821d904ee1c2daff32e6fa90b41391d
+  data.tar.gz: c5ed1e2783e92b839030973886f7f84e3ef56101
 SHA512:
-  metadata.gz: c6b0d1dc5b4cbe786685f395b4af46898a118a4184b622f42d8f842159adebbaae838f6177724a63cfe4fc71379629836fa8251c9a26ad0638f716615adac567
-  data.tar.gz: 1a0e4aaff0ddd9e05f6422db698b3ddba4ef3d554b286a275b0765cf66eb98086f690ad820f1f99490f900c10ccaca2ffec15124ad0aa228f8f7fe1aa52ca282
+  metadata.gz: b99adb7c87f4ad65b9d7b7c1887f4a44db596c672ae11b3087a8fffe4b080e61dd0d090b4deb50b048ee1132244dd2d9b9ac9214ad5f7777ddf43d3372d3dd70
+  data.tar.gz: 690ee73a4b0d9e26d2578977d975e558913ed50793c6ee866beb820f2a10a43f44741623a2c0a531330288897830a51937711cb74e3b1bae4388748ab39f2805

data/README.md

@@ -23,7 +23,7 @@ TODO: Write usage instructions here
 ## Contributing
 
 1. Fork it
-2. Create your feature branch (`git checkout -b my-new-feature`)
+2. Create your feature branch prefixed with your handle (`git checkout -b me/my-new-feature`)
 3. Commit your changes (`git commit -am 'Add some feature'`)
-4. Push to the branch (`git push origin my-new-feature`)
+4. Push to the branch (`git push origin me/my-new-feature`)
 5. Create new Pull Request

data/VERSION

@@ -1 +1 @@
-0.0.2
+0.0.3

data/fuby.gemspec

@@ -11,7 +11,7 @@ Gem::Specification.new do |gem|
   gem.version       = version
   gem.license       = "MIT"
   gem.authors       = ["Alex Goldsmith"]
-  gem.email         = ["alex.k.goldsmith@gmail.com"]
+  gem.email         = ["alex.tosyx@gmail.com"]
   gem.summary       = "Lightweight extensions to the Ruby standard library"
   gem.description   = "Lightweight extensions to the Ruby standard library provided by the refinements mechanism."
   gem.homepage      = "http://github.com/tosyx/fuby"

data/lib/fuby/alias_method.rb

@@ -1,10 +1,34 @@
+require_relative 'send'
 require_relative 'uuid'
 
 module Fuby
   refine ::Module do
 
-    def alias_method! old_name
-      Symbol.__uuid__.tap { |new_name| alias_method new_name, old_name }
+    def alias_method *sig
+      case sig.length
+      when 1
+        sig.unshift new_name = Symbol.__uuid__
+        self.send :alias_method, *sig
+        new_name
+      when 2
+        self.send :alias_method, *sig
+      else raise new TypeError
+      end
+    end
+
+  end
+  class Send
+
+    def alias_method *sig
+      case sig.length
+      when 1
+        sig.unshift new_name = Symbol.__uuid__
+        @self.send :alias_method, *sig
+        new_name
+      when 2
+        @self.send :alias_method, *sig
+      else raise new TypeError
+      end
     end
 
   end

data/lib/fuby/alias_singleton_method.rb

@@ -0,0 +1,20 @@
+require_relative 'send'
+require_relative 'uuid'
+
+module Fuby
+  refine ::Module do
+
+    def alias_singleton_method *sig
+      case sig.length
+      when 1
+        sig.unshift new_name = Symbol.__uuid__
+        self.singleton_class.send :alias_method, *sig
+        new_name
+      when 2
+        self.singleton_class.send :alias_method, *sig
+      else raise new TypeError
+      end
+    end
+
+  end
+end

data/lib/fuby/ancestors.rb

@@ -0,0 +1,12 @@
+module Fuby
+  refine ::Module do
+
+    def ancestors type = nil
+      super().tap { |mods| return mods.select { |mod| type === mod } if type }
+    end
+
+  end
+end
+
+Dir.glob "#{ __FILE__.chomp ".rb" }_*.rb", &method(:require)
+Dir.glob "*_#{ __FILE__.chomp ".rb" }.rb", &method(:require)

data/lib/fuby/cardinality.rb

@@ -0,0 +1,27 @@
+require_relative 'enumerables'
+
+module Fuby
+  refine ::Object do
+
+    def cardinality
+      1
+    end
+
+  end
+  refine ::NilClass do
+
+    def cardinality
+      0
+    end
+
+  end
+  Enumerables.each do |enumerable|
+    refine enumerable do
+
+      def cardinality
+        count
+      end
+
+    end
+  end
+end

data/lib/fuby/curry_eval.rb

@@ -0,0 +1,19 @@
+require_relative 'intercept'
+
+module Fuby
+  refine ::Object do
+
+    def curry_eval *pre, &shell
+
+      if Hash === pre.last
+        defaults = pre.pop
+        intercept { |*sig, &blk| send *pre, sig, (sig.pop_options defaults), &blk }
+
+      else
+        intercept { |*sig, &blk| send *pre, &blk }
+
+      end.instance_exec self, &shell
+    end
+
+  end
+end

data/lib/fuby/deep_const_get.rb

@@ -0,0 +1,13 @@
+module Fuby
+  refine ::Module do
+
+    def deep_const_get *names
+      if 1 == names.length
+        name  = names.first
+        names = name.scan /[^:]+/ if /[:]+/ === name
+      end
+      names.inject(self) { |mod, name| mod.const_get name }
+    end
+
+  end
+end

data/lib/fuby/deep_each.rb

@@ -1,12 +1,27 @@
+require_relative 'each_with_index_or_key'
+require_relative 'enumerables'
+
 module Fuby
-  module ::Enumerable # can't refine Module
+  Enumerables.each do |enumerable|
+    refine enumerable do
+
+      def deep_each *path, &blk
+        if block_given?
+
+          each_with_index_or_key do |e, i|
+            next e.deep_each i, *path, &blk if self.class === e
+            next yield e, i, *path
+          end
+
+        else
 
-    def deep_each *path, &blk
-      each_with_index_or_key do |e, i|
-        return e.deep_each i, *path, &blk if self.class === e
-        return yield e, *path
+          ::Enumerator.new do |result|
+            deep_each { |e, *path| result.<< e, *path }
+          end
+
+        end
       end
-    end
 
+    end
   end
 end

data/lib/fuby/define.rb

@@ -0,0 +1 @@
+Dir.glob "#{ __FILE__.chomp ".rb" }_*.rb", &method(:require)

data/lib/fuby/define_missing_method.rb

@@ -1,33 +1,23 @@
 require_relative 'uuid'
+require_relative 'send'
+require_relative 'include'
+require_relative 'prepend'
 
 module Fuby
   refine ::Module do
-  protected
   
     def define_missing_method missing_reg, &missing_blk
-      mod = self
-
       send :define_method, missing_method = Symbol.__uuid__, &missing_blk
-
-      alias_method was_method_missing = Symbol.__uuid__, :method_missing
-
-      define_method :method_missing do |key, *sig, &blk|
-        return send was_method_missing, key, *sig, &blk unless matched_sig = missing_reg.match(key)
-        
-        matched_sig = matched_sig.to_a.drop 1
-
-        mod.send :define_method, key do |*sig, &blk|
-          send missing_method, *(matched_sig + sig), &blk
-        end
-        
-        send key, *sig, &blk
-      end
-
-      alias_method was_respond_to = Symbol.__uuid__, :respond_to?
-
-      define_method :respond_to? do |key|
-        missing_reg === key or send was_respond_to, key
-      end
+      prepend {
+        mod = self
+        mod.send.define_method(:method_missing) { |key, *sig, &blk|
+          return super key, *sig, &blk unless matched_sig = missing_reg.match(key)
+          matched_sig = matched_sig.to_a.drop 1
+          mod.send.define_method(key) { |*sig, &blk| send missing_method, *(matched_sig + sig), &blk }
+          send key, *sig, &blk
+        }
+        mod.send.define_method(:respond_to?) { |key| missing_reg === key || super(key) }
+      }
     end
 
   end

data/lib/fuby/define_tok.rb

@@ -1,3 +1,5 @@
+require_relative 'to_tok'
+
 module Fuby
   refine ::Module do
 

data/lib/fuby/descendants.rb

@@ -2,12 +2,11 @@ module Fuby
   refine ::Module do
 
     def descendants type = ::Module
-    # ObjectSpace.each_object(type).select { |mod| mod < self } FIXME
-      ObjectSpace.each_object(type).select { |mod| mod.ancestors.include? self }
+      ObjectSpace.each_object(type).select { |mod| mod < self }
     end
 
   end
 end
 
-Dir.glob "descendants_*.rb", &method(:require)
-Dir.glob "*_descendants.rb", &method(:require)
+Dir.glob "#{ __FILE__.chomp ".rb" }_*.rb", &method(:require)
+Dir.glob "*_#{ __FILE__.chomp ".rb" }.rb", &method(:require)

data/lib/fuby/eastern_name.rb

@@ -0,0 +1,11 @@
+require_relative 'names'
+
+module Fuby
+  refine ::Module do
+
+    def eastern_name
+      names.join ' '
+    end
+
+  end
+end

data/lib/fuby/enumerables.rb

@@ -0,0 +1,7 @@
+require_relative 'descendants'
+
+using Fuby
+
+module Fuby
+  Enumerables = ::Enumerable.descendants(Class)
+end

data/lib/fuby/eql_componentwise.rb

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

data/lib/fuby/equivalence.rb

@@ -1,11 +1,14 @@
 require_relative 'splat'
+require_relative 'enumerables'
 
 module Fuby
-  module ::Enumerable # can't refine Module
+  Enumerables.each do |enumerable|
+    refine enumerable do
 
-    def equivalence? eq = :eql?
-      each_cons(2).splat.all? { |fst, snd| fst.send eq, snd }
-    end
+      def equivalence? eq = :eql?
+        each_cons(2).splat.all? { |fst, snd| fst.send eq, snd }
+      end
 
+    end
   end
 end

data/lib/fuby/eval.rb

@@ -1,51 +1 @@
-require_relative 'intercept'
-
-module Fuby
-  refine ::Hash do
-
-    def hash_eval &body
-      intercept do |key, *sig, &blk|
-        val = self[key]
-        key = key.to_s.chomp!("!").to_sym and self.delete key if /!$/ === key.to_s
-
-        case sig
-        when [] then sig.unshift ({}) if blk
-        when [Object]
-        else raise ::ArgumentError
-        end
-
-        case arg = sig.first
-        when nil then next val
-        when ::Hash
-          self[key] = {} if self[key].nil?
-          self[key].merge! arg
-          self[key].hash_exec &blk if blk
-        else
-          self[key] = arg
-        end
-
-        self[key]
-      end.instance_exec &body
-    end
-
-    alias_method :hash_exec, :hash_eval
-
-  end
-  refine ::Object do
-
-    def curry_eval *pre, &shell
-
-      if Hash === pre.last
-        defaults = pre.pop
-        intercept { |*sig, &blk| send *pre, sig, (sig.pop_options defaults), &blk }
-
-      else
-        intercept { |*sig, &blk| send *pre, &blk }
-
-      end.instance_exec self, &shell
-    end
-
-    alias_method :curry_exec, :curry_eval
-
-  end
-end
+Dir.glob "*_#{ __FILE__.chomp ".rb" }.rb", &method(:require)

data/lib/fuby/extend.rb

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

data/lib/fuby/first.rb

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

data/lib/fuby/hash_eval.rb

@@ -0,0 +1,32 @@
+require_relative 'intercept'
+
+module Fuby
+  refine ::Hash do
+
+    def hash_eval &body
+      intercept do |key, *sig, &blk|
+        val = self[key]
+        key = key.to_s.chomp!("!").to_sym and self.delete key if /!$/ === key.to_s
+
+        case sig
+        when [] then sig.unshift ({}) if blk
+        when [Object]
+        else raise ::ArgumentError
+        end
+
+        case arg = sig.first
+        when nil then next val
+        when ::Hash
+          self[key] = {} if self[key].nil?
+          self[key].merge! arg
+          self[key].hash_exec &blk if blk
+        else
+          self[key] = arg
+        end
+
+        self[key]
+      end.instance_exec &body
+    end
+
+  end
+end