monkey-lib 0.2.1 → 0.3.0

data/spec/spec_helper.rb

@@ -1 +1,13 @@
-$LOAD_PATH.unshift File.expand_path(__FILE__.sub("spec/spec_helper.rb", "lib"))
+$LOAD_PATH.unshift File.expand_path(__FILE__.sub("spec/spec_helper.rb", "lib"))
+require "monkey"
+
+if ENV['BACKEND'] and not ENV['BACKEND'].empty?
+  puts "Using #{ENV['BACKEND']} (#{ENV['BACKEND_SETUP']} setup mode)"
+  case ENV['BACKEND_SETUP']
+  when "autodetect" then require ENV['BACKEND']
+  when "explicit" then Monkey.backend = ENV['BACKEND']
+  else
+    puts "Please set BACKEND_SETUP."
+    exit 1
+  end
+end

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification 
 name: monkey-lib
 version: !ruby/object:Gem::Version 
-  version: 0.2.1
+  version: 0.3.0
 platform: ruby
 authors: 
 - Konstantin Haase
@@ -9,20 +9,11 @@ autorequire:
 bindir: bin
 cert_chain: []
 
-date: 2009-12-11 00:00:00 +01:00
+date: 2009-12-18 00:00:00 +01:00
 default_executable: 
-dependencies: 
-- !ruby/object:Gem::Dependency 
-  name: extlib
-  type: :runtime
-  version_requirement: 
-  version_requirements: !ruby/object:Gem::Requirement 
-    requirements: 
-    - - ">="
-      - !ruby/object:Gem::Version 
-        version: "0"
-    version: 
-description: collection of sane ruby extensions
+dependencies: []
+
+description: Making ruby extension frameworks pluggable.
 email: konstantin.mailinglists@googlemail.com
 executables: []
 
@@ -47,8 +38,6 @@ extra_rdoc_files:
 - lib/monkey/ext/object.rb
 - lib/monkey/ext/string.rb
 - lib/monkey/ext.rb
-- lib/monkey/string/like_pathname.rb
-- lib/monkey/watcher.rb
 - lib/monkey-lib.rb
 - lib/monkey.rb
 files: 
@@ -71,15 +60,13 @@ files:
 - lib/monkey/ext/object.rb
 - lib/monkey/ext/string.rb
 - lib/monkey/ext.rb
-- lib/monkey/string/like_pathname.rb
-- lib/monkey/watcher.rb
 - lib/monkey-lib.rb
 - lib/monkey.rb
 - spec/monkey/engine_spec.rb
-- spec/monkey/hash/sub_hash_spec.rb
-- spec/monkey/object/backports_spec.rb
-- spec/monkey/object/instance_yield_spec.rb
-- spec/monkey/string/like_pathname_spec.rb
+- spec/monkey/ext/array_spec.rb
+- spec/monkey/ext/module_spec.rb
+- spec/monkey/ext/object_spec.rb
+- spec/monkey/ext/string_spec.rb
 - spec/spec_helper.rb
 has_rdoc: true
 homepage: http://github.com/rkh/monkey-lib
@@ -108,6 +95,6 @@ rubyforge_project:
 rubygems_version: 1.3.5
 signing_key: 
 specification_version: 3
-summary: collection of sane ruby extensions
+summary: Making ruby extension frameworks pluggable.
 test_files: []
 

data/lib/monkey/string/like_pathname.rb

@@ -1,38 +0,0 @@
-require "pathname"
-require "extlib/pathname"
-
-module Monkey
-  module String
-    
-    # Adds Pathname behaviour to String.
-    module LikePathname
-      
-      ::String.send :include, self
-      
-      Pathname.instance_methods(false).each do |m|
-        # Syntax error in Ruby < 1.9:
-        #   define_method(m) { |*a, &b| ... }
-        next if "".respond_to? m or m.to_s == "to_path"
-        class_eval <<-EOS
-          def #{m}(*a, &b)
-            result = Pathname(self).#{m}(*a, &b)
-            return result unless result.is_a? Pathname
-            result.to_s
-          end
-        EOS
-      end
-      
-      #def method_missing(meth, *args, &block)
-      #  pathname = Pathname self
-      #  return super unless pathname.respond_to? meth
-      #  result = pathname.send(meth, *args, &block)
-      #  return result.to_s if result.is_a? Pathname
-      #  result
-      #end
-      
-      alias exists? exist?
-      
-    end
-        
-  end
-end

data/lib/monkey/watcher.rb

@@ -1,139 +0,0 @@
-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

data/spec/monkey/hash/sub_hash_spec.rb

@@ -1,15 +0,0 @@
-require __FILE__.sub("monkey/hash/sub_hash_spec.rb", "spec_helper")
-require "monkey/hash/sub_hash"
-
-describe Monkey::Hash::SubHash do
-  
-  it "returns a hash with only the key-value-pairs requested for sub_hash" do
-    {:a => 10, :b => 20}.sub_hash(:a).should == {:a => 10}
-    {:a => 10, :b => 20}.sub_hash(:a, :b).should == {:a => 10, :b => 20} 
-  end
-  
-  it "should ignore keys passed to sub_hash, but not present" do
-    {:a => 10, :b => 20}.sub_hash(:a, :c).should == {:a => 10}
-  end
-  
-end

data/spec/monkey/object/backports_spec.rb

@@ -1,24 +0,0 @@
-require __FILE__.sub("monkey/object/backports_spec.rb", "spec_helper")
-require "monkey/object/backports"
-
-describe Monkey::Object::Backports do
-  
-  it "returns returns the reciever of #tap" do
-    obj = Object.new
-    obj.tap {}.should == obj
-    "example".tap {}.should == "example"
-  end
-  
-  it "passes the reciever of #tap to the given block" do
-    "foo".tap { |s| s.replace "bar" }.should == "bar"
-  end
-  
-  it "returns eigenclass for #metaclass" do
-    obj = Object.new
-    eigenclass = class << obj
-      self
-    end
-    obj.metaclass.should == eigenclass
-  end
-  
-end

data/spec/monkey/object/instance_yield_spec.rb

@@ -1,32 +0,0 @@
-require __FILE__.sub("monkey/object/instance_yield_spec.rb", "spec_helper")
-require "monkey/object/instance_yield"
-
-describe Monkey::Object::InstanceYield do
-  
-  before do
-    @obj = Object.new
-    @obj.stub! :foo
-  end
-  
-  it "calls a block if block takes at least one argument" do
-    foo = nil
-    @obj.should_not_receive :foo
-    @obj.send :instance_yield do |x|
-      foo
-    end
-  end 
-  
-  it "passes object as first argument to blog" do
-    @obj.send :instance_yield do |x|
-      x.should == @obj
-    end
-  end
-  
-  it "passes the block to instance_eval if block doesn't take arguments" do
-    @obj.should_receive :foo
-    @obj.send :instance_yield do
-      foo
-    end
-  end
-  
-end

data/spec/monkey/string/like_pathname_spec.rb

@@ -1,272 +0,0 @@
-require __FILE__.sub("monkey/string/like_pathname_spec.rb", "spec_helper")
-require "monkey/string/like_pathname"
-
-describe Monkey::String::LikePathname do
-  
-  before do
-    @strings = ["/usr/bin/ruby", ".", "..", ENV["HOME"]]
-    @methods = Pathname.instance_methods(false).reject do |m|
-      String.methods.include? m or m.to_s == "to_path"
-    end
-  end
-  
-  it "exposes sub_ext to String if in ruby 1.9" do
-    @strings.each do |s|
-      s.sub_ext(".png").should == Pathname(s).sub_ext(".png").to_s
-    end if RUBY_VERSION >= "1.9"
-  end
-
-  it "exposes cleanpath to String" do
-    @strings.each do |s|
-      s.cleanpath.should == Pathname(s).cleanpath.to_s
-    end
-  end
-
-  it "exposes realpath to String" do
-    @strings.each do |s|
-      s.realpath.should == Pathname(s).realpath.to_s
-    end
-  end
-
-  it "exposes parent to String" do
-    @strings.each do |s|
-      s.parent.should == Pathname(s).parent.to_s
-    end
-  end
-
-  it "exposes mountpoint? to String" do
-    @strings.each do |s|
-      s.mountpoint?.should == Pathname(s).mountpoint?
-    end
-  end
-
-  it "exposes root? to String" do
-    @strings.each do |s|
-      s.root?.should == Pathname(s).root?
-    end
-  end
-
-  it "exposes absolute? to String" do
-    @strings.each do |s|
-      s.absolute?.should == Pathname(s).absolute?
-    end
-  end
-
-  it "exposes relative? to String" do
-    @strings.each do |s|
-      s.relative?.should == Pathname(s).relative?
-    end
-  end
-
-  it "exposes each_filename to String if in ruby 1.9" do
-    @strings.each do |s|
-      s.each_filename.to_a.should == Pathname(s).each_filename.to_a
-    end if RUBY_VERSION >= "1.9"
-  end
-
-  it "exposes join to String" do
-    @strings.each do |s|
-      s.join.should == Pathname(s).join.to_s
-    end
-  end
-
-  it "exposes children to String" do
-    @strings.each do |s|
-      s.children.should == Pathname(s).children if s.directory?
-    end
-  end
-
-  it "exposes atime to String" do
-    @strings.each do |s|
-      s.atime.should == Pathname(s).atime
-    end
-  end
-
-  it "exposes ctime to String" do
-    @strings.each do |s|
-      s.ctime.should == Pathname(s).ctime
-    end
-  end
-
-  it "exposes mtime to String" do
-    @strings.each do |s|
-      s.mtime.should == Pathname(s).mtime
-    end
-  end    
-  
-  it "exposes ftype to String" do
-    @strings.each do |s|
-      s.ftype.should == Pathname(s).ftype.to_s
-    end
-  end
-
-  it "exposes basename to String" do
-    @strings.each do |s|
-      s.basename.should == Pathname(s).basename.to_s
-    end
-  end
-
-  it "exposes dirname to String" do
-    @strings.each do |s|
-      s.dirname.should == Pathname(s).dirname.to_s
-    end
-  end
-
-  it "exposes extname to String" do
-    @strings.each do |s|
-      s.extname.should == Pathname(s).extname.to_s
-    end
-  end
-
-  it "exposes expand_path to String" do
-    @strings.each do |s|
-      s.expand_path.should == Pathname(s).expand_path.to_s
-    end
-  end
-
-  it "exposes blockdev? to String" do
-    @strings.each do |s|
-      s.blockdev?.should == Pathname(s).blockdev?
-    end
-  end
-
-  it "exposes chardev? to String" do
-    @strings.each do |s|
-      s.chardev?.should == Pathname(s).chardev?
-    end
-  end
-
-  it "exposes executable? to String" do
-    @strings.each do |s|
-      s.executable?.should == Pathname(s).executable?
-    end
-  end
-
-  it "exposes executable_real? to String" do
-    @strings.each do |s|
-      s.executable_real?.should == Pathname(s).executable_real?
-    end
-  end
-
-  it "exposes exist? to String" do
-    @strings.each do |s|
-      s.exist?.should == Pathname(s).exist?
-      s.exists?.should == Pathname(s).exist? 
-    end
-  end
-
-  it "exposes grpowned? to String" do
-    @strings.each do |s|
-      s.grpowned?.should == Pathname(s).grpowned?
-    end
-  end
-
-  it "exposes directory? to String" do
-    @strings.each do |s|
-      s.directory?.should == Pathname(s).directory?
-    end
-  end
-
-  it "exposes file? to String" do
-    @strings.each do |s|
-      s.file?.should == Pathname(s).file?
-    end
-  end
-
-  it "exposes pipe? to String" do
-    @strings.each do |s|
-      s.pipe?.should == Pathname(s).pipe?
-    end
-  end
-
-  it "exposes socket? to String" do
-    @strings.each do |s|
-      s.socket?.should == Pathname(s).socket?
-    end
-  end
-
-  it "exposes owned? to String" do
-    @strings.each do |s|
-      s.owned?.should == Pathname(s).owned?
-    end
-  end
-
-  it "exposes readable? to String" do
-    @strings.each do |s|
-      s.readable?.should == Pathname(s).readable?
-    end
-  end
-
-  it "exposes world_readable? to String  in ruby 1.9" do
-    @strings.each do |s|
-      s.world_readable?.should == Pathname(s).world_readable?
-    end if RUBY_VERSION >= "1.9"
-  end
-
-  it "exposes readable_real? to String" do
-    @strings.each do |s|
-      s.readable_real?.should == Pathname(s).readable_real?
-    end
-  end
-
-  it "exposes setuid? to String" do
-    @strings.each do |s|
-      s.setuid?.should == Pathname(s).setuid?
-    end
-  end
-
-  it "exposes setgid? to String" do
-    @strings.each do |s|
-      s.setgid?.should == Pathname(s).setgid?
-    end
-  end
-
-  it "exposes size? to String" do
-    @strings.each do |s|
-      s.size?.should == Pathname(s).size?
-    end
-  end
-
-  it "exposes sticky? to String" do
-    @strings.each do |s|
-      s.sticky?.should == Pathname(s).sticky?
-    end
-  end
-
-  it "exposes symlink? to String" do
-    @strings.each do |s|
-      s.symlink?.should == Pathname(s).symlink?
-    end
-  end
-
-  it "exposes writable? to String" do
-    @strings.each do |s|
-      s.writable?.should == Pathname(s).writable?
-    end
-  end
-
-  it "exposes world_writable? to String in ruby 1.9" do
-    @strings.each do |s|
-      s.world_writable?.should == Pathname(s).world_writable?
-    end if RUBY_VERSION >= "1.9"
-  end
-
-  it "exposes writable_real? to String" do
-    @strings.each do |s|
-      s.writable_real?.should == Pathname(s).writable_real?
-    end
-  end
-
-  it "exposes zero? to String" do
-    @strings.each do |s|
-      s.zero?.should == Pathname(s).zero?
-    end
-  end
-
-  it "exposes entries to String in ruby 1.9" do
-    @strings.each do |s|
-      s.entries.should == Pathname(s).entries if s.directory?
-    end if RUBY_VERSION >= "1.9"
-  end
-    
-end