monkey-lib 0.1.6 → 0.2.1

data/README.rdoc

@@ -1,51 +0,0 @@
-Sort of my own ruby extlib. There is a spec for everything and it is very clean.
-It does avoid monkey patching and relies on modules.
-
-= Template for extentiones
-
-Say we want to extend Object by adding some methods dealing with magic.
-This would go to the file lib/monkey/object/magic_stuff.rb:
-
-  module Monkey
-    module Object
-    
-      # It's magic!
-      module MagicStuff
-      
-        ::Object.send :include, self
-        
-        def hokus_pokus
-          Spell.perform(self)
-        end
-        
-        def vanish_in_thin_air
-          class << self
-            instance_methods.each { |m| undef_method(m) }
-          end
-        end
-      
-      end
-      
-    end
-  end
-
-Add to lib/monkey/object.rb:
-
-  require "monkey/object/magic_stuff"
-
-If that file didn't exist before, add to lib/monkey.rb:
-
-  require "monkey/object"
-
-Write a spec in spec/monkey/object/magic_stuff_spec.rb:
-
-  require __FILE__.sub("monkey/object/magic_stuff_spec.rb", "spec_helper")
-  require "monkey/object/magic_stuff"
-
-  describe Monkey::Object::MagicStuff do
-  
-    it "performs magic" do
-      # ...
-    end
-  
-  end   

data/Rakefile

@@ -4,7 +4,7 @@ require "rake/rdoctask"
 require "rake/gempackagetask"
 require "rubygems/specification"
 
-MONKEY_VERSION = "0.1.6"
+MONKEY_VERSION = "0.2.1"
 
 spec = Gem::Specification.new do |s|
   s.name             = "monkey-lib"

data/lib/monkey-lib.rb

@@ -1 +1,2 @@
-require "monkey"
+require "monkey"
+MonkeyLib = Monkey

data/lib/monkey.rb

@@ -1,4 +1,6 @@
-require "monkey/object"
-require "monkey/hash"
-require "monkey/string"
-require "monkey/engine"
+module Monkey
+  Dir[File.dirname(__FILE__) + "/monkey/*.rb"].sort.each do |path|
+    filename = File.basename(path, '.rb')
+    require "monkey/#{filename}"
+  end
+end

data/lib/monkey/autoloader.rb

@@ -0,0 +1,21 @@
+module Monkey
+  module Autoloader
+    def const_missing(const_name)
+      const_name = const_name.to_s
+      file = File.join(const_name.to_const_path, self.name.to_const_path)
+      begin
+        require file
+        if const_defined? const_name
+          const = const_get const_get
+          const.extend Monkey::Autoloader
+          const
+        else
+          warn "expected #{file} to define #{name}::#{const_name}"
+          raise LoadError
+        end
+      rescue LoadError
+        super
+      end
+    end
+  end
+end

data/lib/monkey/backend.rb

@@ -0,0 +1,45 @@
+require "set"
+
+module Monkey
+  module Backend
+    
+    autoload :ActiveSupport,   "monkey/backend/active_support"
+    autoload :BackendDsl,      "monkey/backend/backend_dsl"
+    autoload :Backports,       "monkey/backend/backports"
+    autoload :Extlib,          "monkey/backend/extlib"
+
+    def self.register(definition, expected_name, backend_name = nil)
+      klass = definition.core_klass
+      add_hook klass, expected_name
+      add_hook klass, backend_name if backend_name
+      backend_name ||= expected_name
+    end
+    
+    def preferred_backend
+      available_backends.detect { |b| eval "defined? ::#{b}" }
+    end
+    
+    def available_backends
+      @available_backends ||= Set[:ActiveSupport, :Extlib, :Backports]
+    end
+    
+    def backend
+      @backend || preferred_backend || available_backends.first
+    end
+    
+    private
+    
+    def self.add_hook(klass, name)
+      mod = module_for klass
+      mod.class_eval "def #{name}(*a, &b); Monkey::Backend.call(#{klass.name}, #{name}, *a, &b); end"
+    end
+    
+    def self.module_for(klass, &block)
+      mod = eval "module Monkey::Ext; module #{klass.name}; self; end; end"
+      klass.send :include, mod
+      mod.class_eval(&block) if block
+      mod
+    end
+    
+  end
+end

data/lib/monkey/backend/active_support.rb

@@ -0,0 +1,17 @@
+module Monkey
+  module Backend
+    module ActiveSupport
+      def self.setup
+        require "active_support/core_ext/array/extract_options"
+        require "active_support/core_ext/object/metaclass"
+        require "active_support/core_ext/object/misc"
+        require "active_support/core_ext/string/inflection"
+        require "active_support/core_ext/module/introspection"
+        ::String.class_eval do
+          alias to_const_string camelcase
+          alias to_const_path underscore
+        end
+      end     
+    end
+  end
+end

data/lib/monkey/backend/backports.rb

@@ -0,0 +1,17 @@
+module Monkey
+  module Backend
+    module Backports
+      def setup
+        require "backports/1.8.7/kernel"
+        require "backports/rails/array"
+        require "backports/rails/string"
+        require "monkey/backend/common/parent"
+        require "monkey/backend/common/metaclass"
+        ::String.class_eval do
+          alias to_const_string camelcase
+          alias to_const_path underscore
+        end
+      end
+    end
+  end
+end

data/lib/monkey/backend/common/extract_options.rb

@@ -0,0 +1,12 @@
+module Monkey
+  module Backend
+    module Common
+      module ExtractOptions
+        ::Array.send :include, self
+        def extract_options!
+          last.is_a?(::Hash) ? pop : {}
+        end
+      end
+    end
+  end
+end

data/lib/monkey/backend/common/metaclass.rb

@@ -0,0 +1,14 @@
+module Monkey
+  module Backend
+    module Common
+      module Metaclass
+        ::Object.send :include, self
+        def metaclass
+          class << self
+            self
+          end
+        end
+      end
+    end
+  end
+end

data/lib/monkey/backend/common/parent.rb

@@ -0,0 +1,14 @@
+module Monkey
+  module Backend
+    module Common
+      module Metaclass
+        ::Object.send :include, self
+        def metaclass
+          class << self
+            self
+          end
+        end
+      end
+    end
+  end
+end

data/lib/monkey/backend/common/tap.rb

@@ -0,0 +1,13 @@
+module Monkey
+  module Backend
+    module Common
+      module Tap
+        ::Kernel.send :include, self
+        def tap
+          yield self
+          self
+        end
+      end
+    end
+  end
+end

data/lib/monkey/backend/extlib.rb

@@ -0,0 +1,22 @@
+module Monkey
+  module Backend
+    module Extlib
+      def setup
+        require "extlib/object"
+        require "extlib/string"
+        require "extlib/constantize"
+        require "monkey/backend/common/parent"
+        require "monkey/backend/common/extract_options"
+        require "monkey/backend/common/tap"
+        ::Object.class_eval { alias metaclass meta_class }
+        ::String.class_eval do
+          alias camelcase to_const_string
+          alias underscore to_const_path
+          def constantize
+            Extlib::Inflection.constantize(self)
+          end
+        end
+      end
+    end
+  end
+end

data/lib/monkey/backend/facets.rb

@@ -0,0 +1,22 @@
+module Monkey
+  module Backend
+    module Facets
+      def setup
+        # Actually, facets has Kernel#tap, but it behaves different if the block takes no argument.
+        require "monkey/backend/common/tap"
+        require "monkey/backend/common/extract_options"
+        require "monkey/backend/common/parent"
+        require "core/facets/kernel/meta_class"
+        require "core/facets/kernel/constant"
+        ::String.class_eval do
+          def constantize
+            constant modulize
+          end
+          alias to_const_string camelcase
+          alias to_const_path snakecase
+          alias underscore snakecase
+        end
+      end
+    end
+  end
+end

data/lib/monkey/engine.rb

@@ -1,17 +1,45 @@
 module Monkey
-  
+
   # Makes sure we always have RUBY_ENGINE, RUBY_ENGINE_VERSION and RUBY_DESCRIPTION
+  # TODO: Check IronRuby version detection.
   module Engine
 
+    def jruby?;    RUBY_ENGINE == "jruby";    end
+    def mri?;      RUBY_ENGINE == "ruby";     end
+    def rbx?;      RUBY_ENGINE == "rbx";      end
+    def ironruby?; RUBY_ENGINE == "ironruby"; end
+    def macruby?;  RUBY_ENGINE == "macruby";  end
+    def maglev?;   RUBY_ENGINE == "maglev";   end
+
+    alias rubinius? rbx?
+
+    def ree?
+      RUBY_DESCRIPTION =~ /Ruby Enterprise Edition/
+    end
+
+    module_function :jruby?
+    module_function :mri?
+    module_function :rbx?
+    module_function :rubinius?
+    module_function :ironruby?
+    module_function :macruby?
+    module_function :maglev?
+    module_function :ree?
+    
+    def ruby_core?
+      maglev? or rubinius?
+    end
+    
+    module_function :ruby_core?
+
     include Rubinius if defined? Rubinius
 
     unless defined? RUBY_ENGINE
-      if defined? JRUBY_VERSION
-        ::RUBY_ENGINE = "jruby"
-      elsif defined? Rubinius
-        ::RUBY_ENGINE = "rbx"
-      else
-        ::RUBY_ENGINE = "ruby"
+      if    defined? JRUBY_VERSION then ::RUBY_ENGINE = "jruby"
+      elsif defined? Rubinius      then ::RUBY_ENGINE = "rbx"
+      elsif defined? NSObject      then ::RUBY_ENINGE = "macruby"
+      elsif defined? Maglev        then ::RUBY_ENINGE = "maglev"
+      else                              ::RUBY_ENGINE = "ruby"
       end
     end
 
@@ -21,7 +49,15 @@ module Monkey
       RUBY_ENGINE.freeze
     end
 
-    ::RUBY_ENGINE_VERSION = const_get("#{RUBY_ENGINE.upcase}_VERSION")
+    unless defined? RUBY_ENGINE_VERSION
+      begin
+        # ruby, jruby, macruby, some rubinius versions
+        ::RUBY_ENGINE_VERSION = const_get("#{RUBY_ENGINE.upcase}_VERSION")
+      rescue NameError
+        # maglev, some rubinius versions
+        ::RUBY_ENGINE_VERSION = const_get("VERSION")
+      end
+    end
 
     unless defined? RUBY_DESCRIPTION
       ::RUBY_DESCRIPTION = "#{RUBY_ENGINE} #{RUBY_ENGINE_VERSION} "
@@ -38,52 +74,17 @@ module Monkey
       ::RUBY_DESCRIPTION << "[#{RUBY_PLATFORM}]"
     end
 
-    def jruby?
-      RUBY_ENGINE == "jruby"
-    end
-
-    module_function :jruby?
-
-    def mri?
-      RUBY_ENGINE == "ruby"
-    end
-
-    module_function :mri?
-
-    def rbx?
-      RUBY_ENGINE == "rbx"
-    end
-
-    alias rubinius? rbx?
-    module_function :rbx?
-    module_function :rubinius?
-
-    def ironruby?
-      RUBY_ENGINE == "ironruby"
-    end
-
-    module_function :ironruby?
-
-    def macruby?
-      RUBY_ENGINE == "macruby"
-    end
-
-    module_function :macruby?
-
     def ruby_engine(pretty = true)
       return RUBY_ENGINE unless pretty
       case RUBY_ENGINE
-      when "ruby"  then "CRuby"
-      when "rbx"   then "Rubinius"
-      when /ruby$/ then RUBY_ENGINE.capitalize.gsub("ruby", "Ruby")
+      when "ruby"   then "MatzRuby"
+      when "rbx"    then "Rubinius"
+      when "maglev" then "MagLev"
+      else RUBY_ENGINE.capitalize.gsub("ruby", "Ruby")
       end
     end
 
     module_function :ruby_engine
 
   end
-  
-  extend Engine
-  include Engine
-
 end

data/lib/monkey/ext.rb

@@ -0,0 +1,35 @@
+module Monkey
+  module Ext
+    
+    module ExtDSL
+      
+      def core_class(klass = nil)
+        if klass
+          @core_class = klass
+          klass.send :include, self
+        end
+        return @core_class
+      end
+      
+      def expects(*list)
+        list.each do |name|
+          unless instance_method name
+            # Note: Ruby < 1.8.7 does not support { |*a, &b| } syntax.
+            class_eval "def #{name}(*a, &b); Monkey::Backend.call(#{core_class.inspect}, #{name.to_s.inspect}, *a, &b); end"
+          end
+        end
+      end
+      
+    end
+    
+    Dir[File.dirname(__FILE__) + "/ext/*.rb"].sort.each do |path|
+      filename   = File.basename(path, '.rb')
+      class_name = filename.capitalize
+      extension  = class_eval "module #{class_name}; self; end"
+      extension.extend ExtDSL
+      extension.core_class = Object.const_get class_name
+      require "ext/monkey/#{filename}"
+    end
+    
+  end
+end

data/lib/monkey/ext/array.rb

@@ -0,0 +1,8 @@
+module Monkey
+  module Ext
+    module Array
+      # Defined by backend.
+      expects :extract_options!
+    end
+  end
+end

data/lib/monkey/ext/module.rb

@@ -0,0 +1,24 @@
+module Monkey
+  module Ext
+    module Module
+      
+      # Defined by backend.
+      expects :parent
+      
+      def nested_method_missing(mod, meth, *args, &block)
+        # Triggers method_missing chain inside mod.
+        raise Monkey::Watcher::NestedMethodMissingNotHandled
+      end
+      
+      def class_added(klass)
+      end
+      
+      def module_added(mod)
+        return if self == parent
+        class_added mod if mod.is_a? Class
+        parent.module_added mod
+      end
+      
+    end
+  end
+end

data/lib/monkey/ext/object.rb

@@ -0,0 +1,38 @@
+module Monkey
+  module Ext
+    module Object
+      
+      # Defined by backend.
+      expects :metaclass, :tap
+      
+      # Behaves like instance_eval or yield depending on whether a block takes an argument or not.
+      #
+      #   class Foo
+      #     define_method(:foo) { 42 }
+      #   end
+      #
+      #   Foo.new.instance_yield { foo }        # => 42
+      #   Foo.new.instance_yield { |c| c.foo }  # => 42
+      #
+      # Also, you can pass a proc directly:
+      #
+      #   block = proc { }
+      #   instance_yield(block)
+      def instance_yield(block = nil, &alternate_block)
+        raise ArgumentError, "too many blocks given" if block && alternate_block
+        block ||= alternate_block
+        raise LocalJumpError, "no block given (yield)" unless block
+        block.arity > 0 ? yield(self) : instance_eval(&block)
+      end
+      
+      def metaclass_eval(str = nil, &block)
+        metaclass.class_eval(str, &block)
+      end
+      
+      def define_singleton_method(name, &block)
+        metaclass_eval { define_method(name, &block) }
+      end
+      
+    end
+  end
+end

data/lib/monkey/ext/string.rb

@@ -0,0 +1,8 @@
+module Monkey
+  module Ext
+    module String
+      # Defined by backend.
+      expects :constantize, :to_const_string, :to_const_path, :underscore, :camelcase
+    end
+  end
+end

data/lib/monkey/watcher.rb

@@ -0,0 +1,139 @@
+module Monkey
+  # NOTE: Not thread-safe!
+  module Watcher
+
+    IDENTIFIER = "@__module_detected__"
+
+    class NestedMethodMissingNotHandled < ScriptError
+    end
+
+    module ObjectWatcher
+      ::Object.extend self
+
+      def inherited(klass)
+        Monkey::Watcher.module_defined(klass)
+        super
+      end
+
+    end
+
+    module MethodWatcher
+      ::Module.send :include, self
+
+      def method_added(name)
+        Monkey::Watcher.method_defined(self, name)
+        super
+      end
+
+      def method_missing(name, *args, &block)
+        if Monkey::Watcher.detected? self
+          begin
+            Monkey::Watcher.module_method_missing(self, *args, &block)
+          rescue Monkey::Watcher::NestedMethodMissingNotHandled
+            super
+          end
+        else
+          Monkey::Watcher.module_defined self
+          if Monkey::Watcher.detected? self
+            __send__(name, *args, &block)
+          else
+            super
+          end
+        end
+      end
+
+    end
+
+    module ModuleWatcher
+      ::Module.extend self
+
+      def new(*what, &ever)
+        super.tap { |k| Monkey::Watcher.module_defined(klass) }
+      end
+
+    end
+
+    module NamelessModuleWatcher
+
+      def __watcher_initialize__
+        @__original_methods__ = {}
+        if respond_to? :set_name_if_necessary 
+          __watcher_wrap_method__ "set_name_if_necessary"
+        else
+          methods.each do |name|
+            name = name.to_s
+            next if name =~ /^__/
+            __watcher_wrap_method__ name
+          end
+        end
+        define_singleton_method("method_addded") do |name|
+          __watcher_wrap_method__ name unless Monkey::Watcher.detected? self
+          super
+        end
+      end
+
+      def __watcher_wrap_method__(name)
+        @__original_methods__[name] = method(name)
+        eval "def self.#{name}(*a, &b); __watcher_wrap_call__(#{name.inspect}, *a, &b); end"
+      end
+
+      def __watcher_wrap_call__(meth, *args, &block)
+        Monkey::Watcher.module_defined(klass)
+        @__original_methods__[meth].call(*args, &block).tap do
+          next if name.blank?
+          Monkey::Watcher.module_defined(klass)
+          methods_names = @__original_methods__.keys
+          methods_names.each { |m| define_singleton_method(m, &@__original_methods__.delete(m)) }
+          undef __watcher_initialize__
+          undef __watcher_wrap_method__
+          undef __watcher_wrap_call__
+        end
+      end
+
+      def self.extended(klass)
+        klass.__watcher_initialize__
+        super
+      end
+
+    end
+
+    def self.module_defined(klass)
+      return if detected? klass
+      return nameless_module_defined(klass) unless klass.name
+      klass.instance_variable_set IDENTIFIER, true
+      klass.parent.module_added(klass)
+      klass.constants.each do |name|
+        mod = klass.const_get name
+        module_defined mod if mod.is_a? Module
+      end
+    end
+
+    def self.nameless_module_defined(klass)
+      return if hooked? klass
+      klass.instance_variable_set IDENTIFIER, false
+      klass.extend NamelessModuleWatcher
+    end
+
+    def self.method_defined(klass, name)
+      module_defined(klass)
+    end
+
+    def self.hooked?(klass)
+      klass.instance_variable_defined? IDENTIFIER
+    end
+
+    def self.detected?(klass)
+      !!klass.instance_variable_get IDENTIFIER
+    end
+
+    def self.setup
+      begin
+        ObjectSpace.each_object(Module) { |klass| module_defined(klass) }
+      rescue Exception
+        # Thus we meet at last, JRuby!
+        module_defined Object
+      end
+    end
+
+  end
+end

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification 
 name: monkey-lib
 version: !ruby/object:Gem::Version 
-  version: 0.1.6
+  version: 0.2.1
 platform: ruby
 authors: 
 - Konstantin Haase
@@ -9,7 +9,7 @@ autorequire:
 bindir: bin
 cert_chain: []
 
-date: 2009-07-22 00:00:00 +02:00
+date: 2009-12-11 00:00:00 +01:00
 default_executable: 
 dependencies: 
 - !ruby/object:Gem::Dependency 
@@ -31,28 +31,48 @@ extensions: []
 extra_rdoc_files: 
 - README.rdoc
 - LICENSE
+- lib/monkey/autoloader.rb
+- lib/monkey/backend/active_support.rb
+- lib/monkey/backend/backports.rb
+- lib/monkey/backend/common/extract_options.rb
+- lib/monkey/backend/common/metaclass.rb
+- lib/monkey/backend/common/parent.rb
+- lib/monkey/backend/common/tap.rb
+- lib/monkey/backend/extlib.rb
+- lib/monkey/backend/facets.rb
+- lib/monkey/backend.rb
 - lib/monkey/engine.rb
-- lib/monkey/hash/sub_hash.rb
-- lib/monkey/hash.rb
-- lib/monkey/object/backports.rb
-- lib/monkey/object/instance_yield.rb
-- lib/monkey/object.rb
+- lib/monkey/ext/array.rb
+- lib/monkey/ext/module.rb
+- lib/monkey/ext/object.rb
+- lib/monkey/ext/string.rb
+- lib/monkey/ext.rb
 - lib/monkey/string/like_pathname.rb
-- lib/monkey/string.rb
+- lib/monkey/watcher.rb
 - lib/monkey-lib.rb
 - lib/monkey.rb
 files: 
 - LICENSE
 - Rakefile
 - README.rdoc
+- lib/monkey/autoloader.rb
+- lib/monkey/backend/active_support.rb
+- lib/monkey/backend/backports.rb
+- lib/monkey/backend/common/extract_options.rb
+- lib/monkey/backend/common/metaclass.rb
+- lib/monkey/backend/common/parent.rb
+- lib/monkey/backend/common/tap.rb
+- lib/monkey/backend/extlib.rb
+- lib/monkey/backend/facets.rb
+- lib/monkey/backend.rb
 - lib/monkey/engine.rb
-- lib/monkey/hash/sub_hash.rb
-- lib/monkey/hash.rb
-- lib/monkey/object/backports.rb
-- lib/monkey/object/instance_yield.rb
-- lib/monkey/object.rb
+- lib/monkey/ext/array.rb
+- lib/monkey/ext/module.rb
+- lib/monkey/ext/object.rb
+- lib/monkey/ext/string.rb
+- lib/monkey/ext.rb
 - lib/monkey/string/like_pathname.rb
-- lib/monkey/string.rb
+- lib/monkey/watcher.rb
 - lib/monkey-lib.rb
 - lib/monkey.rb
 - spec/monkey/engine_spec.rb

data/lib/monkey/hash.rb

@@ -1,4 +0,0 @@
-require "extlib/class"
-require "extlib/hash"
-require "extlib/mash"
-require "monkey/hash/sub_hash"

data/lib/monkey/hash/sub_hash.rb

@@ -1,23 +0,0 @@
-module Monkey
-  module Hash
-    
-    # Adds sub hash ablilty (like Hash#[], but returning a hash rather than an array).
-    module SubHash
-      
-      ::Hash.send :include, self
-
-      # Example:
-      #   {:a => 42, :b => 23, :c => 1337}.sub_hash :a, :b, :d
-      #   # => {:a => 42, :b => 23} 
-      def sub_hash(*keys)
-        keys.inject({}) do |hash, key|
-          hash.merge! key => self[key] if include? key
-          hash
-        end
-      end
-      
-      alias subhash sub_hash
-      
-    end
-  end
-end

data/lib/monkey/object.rb

@@ -1,2 +0,0 @@
-require "monkey/object/backports"
-require "monkey/object/instance_yield" 

data/lib/monkey/object/backports.rb

@@ -1,24 +0,0 @@
-module Monkey
-  module Object
-    
-    # Backports from newer / alternate ruby implementations.
-    module Backports
-      
-      ::Object.send :include, self
-
-      # From Ruby >= 1.8.7
-      def tap
-        yield self
-        self
-      end
-      
-      # From Rubinius
-      def metaclass
-        class << self
-          self
-        end
-      end
-      
-    end
-  end
-end

data/lib/monkey/object/instance_yield.rb

@@ -1,38 +0,0 @@
-module Monkey
-  module Object
-    
-    # Adds the private method instance_eval which is like instance_eval
-    # and yield depending on whether a block takes an argument or not.
-    #
-    #   class Foo
-    #
-    #     def foo
-    #       42
-    #     end
-    #
-    #     def bar(&block)
-    #       instance_yield block
-    #     end
-    #
-    #   end
-    #
-    #   conf = Foo.new
-    #   conf.bar { foo }
-    #   conf.bar { |c| c.foo }
-    module InstanceYield
-      
-      ::Object.send :include, self
-      
-      private
-      
-      # See InstanceYield description.
-      def instance_yield(block = nil, &alternate_block)
-        raise ArgumentError, "too many blocks given" if block && alternate_block
-        block ||= alternate_block
-        raise LocalJumpError, "no block given (yield)" unless block
-        block.arity > 0 ? yield(self) : instance_eval(&block)
-      end
-      
-    end
-  end
-end

data/lib/monkey/string.rb

@@ -1,2 +0,0 @@
-require "extlib/string"
-require "monkey/string/like_pathname"