monkey-lib 0.2.1 → 0.3.0

data/lib/monkey/backend/facets.rb

@@ -1,22 +1,15 @@
-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
+Monkey::Backend.new :Facets do
+  def self.setup
+    load_libs :kernel => [:meta_class, :constant], :string => [:camelcase, :snakecase]
+    # Actually, facets has Kernel#tap, but it behaves different if the block takes no argument.
+    missing :tap, :extract_options, :parent
+    ::String.class_eval do
+      def constantize
+        constant to_const_string
       end
+      alias to_const_string upper_camelcase
+      alias to_const_path snakecase
+      alias underscore snakecase
     end
   end
 end

data/lib/monkey/ext.rb

@@ -1,35 +1,43 @@
 module Monkey
   module Ext
-    
+
     module ExtDSL
-      
+
       def core_class(klass = nil)
         if klass
           @core_class = klass
           klass.send :include, self
+          @core_class.class_eval <<-EOS
+            def method_missing(meth, *args, &blk)
+              return super if Monkey::Backend.setup?
+              Monkey::Backend.setup
+              __send__(meth, *args, &blk)
+            end
+          EOS
         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
+          Monkey::Ext.expectations[core_class] << name.to_s
         end
       end
-      
+
     end
-    
+
+    def self.expectations
+      @expectations ||= Hash.new { |h,k| h[k] = [] }
+    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}"
+      extension.core_class Object.const_get(class_name)
+      require "monkey/ext/#{filename}"
     end
-    
+
   end
 end

data/lib/monkey/ext/module.rb

@@ -1,24 +1,8 @@
 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/string.rb

@@ -1,8 +1,155 @@
+require "pathname"
+
 module Monkey
   module Ext
     module String
       # Defined by backend.
       expects :constantize, :to_const_string, :to_const_path, :underscore, :camelcase
+
+      def atime
+        Pathname(self).atime
+      end
+
+      def absolute_path?
+        Pathname(self).absolute?
+      end
+
+      def basename
+        Pathname(self).basename.to_s
+      end
+
+      def blockdev?
+        Pathname(self).blockdev?
+      end
+
+      def chardev?
+        Pathname(self).chardev?
+      end
+
+      def cleanpath
+        Pathname(self).cleanpath.to_s
+      end
+
+      def ctime
+        Pathname(self).ctime
+      end
+
+      def directory_children
+        Pathname(self).children
+      end
+
+      def directory?
+        Pathname(self).directory?
+      end
+
+      def dirname
+        Pathname(self).dirname.to_s
+      end
+
+      def expand_path
+        Pathname(self).expand_path.to_s
+      end
+
+      def extname
+        Pathname(self).extname.to_s
+      end
+
+      def file?
+        Pathname(self).file?
+      end
+
+      def file_exist?
+        Pathname(self).exist?
+      end
+
+      alias file_exists? file_exist?
+
+      def file_grpowned?
+        Pathname(self).grpowned?
+      end
+
+      def file_owned?
+        Pathname(self).owned?
+      end
+
+      def file_size?
+        Pathname(self).size?
+      end
+
+      def file_sticky?
+        Pathname(self).sticky?
+      end
+
+      def file_executable?
+        Pathname(self).executable?
+      end
+
+      def file_executable_real?
+        Pathname(self).executable_real?
+      end
+
+      def file_join(other)
+        Pathname(self).join(other).to_s
+      end
+
+      alias / file_join
+
+      def file_readable?
+        Pathname(self).readable?
+      end
+
+      def file_readable_real?
+        Pathname(self).readable_real?
+      end
+
+      def file_relative?
+        Pathname(self).relative?
+      end
+
+      def file_writable?
+        Pathname(self).writable?
+      end
+
+      def file_writable_real?
+        Pathname(self).writable_real?
+      end
+
+      def file_zero?
+        Pathname(self).zero?
+      end
+
+      def ftype
+        Pathname(self).ftype.to_s
+      end
+
+      def mountpoint?
+        Pathname(self).mountpoint?
+      end
+
+      def mtime
+        Pathname(self).mtime
+      end
+
+      def pipe?
+        Pathname(self).pipe?
+      end
+
+      def realpath
+        Pathname(self).realpath.to_s
+      end
+
+      def root?
+        Pathname(self).root?
+      end
+
+      def socket?
+        Pathname(self).socket?
+      end
+
+      def symlink?
+        Pathname(self).symlink?
+      end
+
     end
   end
 end

data/spec/monkey/engine_spec.rb

@@ -1,18 +1,17 @@
-require __FILE__.sub("monkey/engine_spec.rb", "spec_helper")
-require "monkey/engine"
+require __FILE__.sub(%r{monkey/.*$}, "spec_helper")
 
 describe Monkey::Engine do
-  
+
   it "defines RUBY_VERSION" do
     defined?(RUBY_VERSION).should == "constant"
   end
-  
+
   it "defines RUBY_ENGINE_VERSION" do
     defined?(RUBY_ENGINE_VERSION).should == "constant"
   end
-  
+
   it "defines RUBY_DESCRIPTION" do
     defined?(RUBY_DESCRIPTION).should == "constant"
   end
-  
+
 end

data/spec/monkey/ext/array_spec.rb

@@ -0,0 +1,18 @@
+require __FILE__.sub(%r{monkey/.*$}, "spec_helper")
+
+describe Monkey::Ext::Array do
+  describe "backend expectations" do
+    # expects :extract_options!
+    it "imports extract_options! from backend" do
+      [:foo, {:x => 10}].extract_options!.should == {:x => 10}
+      [:foo].extract_options!.should == {}
+      [{:x => 10}, :foo].extract_options!.should == {}
+      ary1 = [:foo, {:x => 10}]
+      ary1.extract_options!
+      ary1.should == [:foo]
+      ary2 = [{:x => 10}, :foo]
+      ary2.extract_options!
+      ary2.should == [{:x => 10}, :foo]
+    end
+  end
+end

data/spec/monkey/ext/module_spec.rb

@@ -0,0 +1,15 @@
+require __FILE__.sub(%r{monkey/.*$}, "spec_helper")
+
+describe Monkey::Ext::Module do
+  describe "backend expectations" do
+    # expects :parent
+    it "imports parent from backend" do
+      Monkey::Ext::Module.parent.should == Monkey::Ext
+      Monkey::Ext.parent.should == Monkey
+      Monkey.parent.should == Object
+      Object.parent.should == Object
+      Foo = Monkey::Ext::Module
+      Foo.parent.should == Monkey::Ext
+    end
+  end
+end

data/spec/monkey/ext/object_spec.rb

@@ -0,0 +1,53 @@
+require __FILE__.sub(%r{monkey/.*$}, "spec_helper")
+
+describe Monkey::Ext::Object do
+
+  before do
+    @obj = Object.new
+  end
+
+  describe "backend expectations" do
+
+    # expects :tap
+    it "imports tap from backend" do
+      @obj.tap { |o| o.should == @obj }
+      42.tap { 23 }.should == 42
+    end
+
+    # expects :metaclass
+    it "imports metaclass from backend" do
+      @obj.metaclass.should == (class << @obj; self; end)
+    end
+
+  end
+
+  describe :instance_yield do
+
+    before do
+      @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
+
+end

data/spec/monkey/ext/string_spec.rb

@@ -0,0 +1,331 @@
+require __FILE__.sub(%r{monkey/.*$}, "spec_helper")
+
+describe Monkey::Ext::String do
+
+  describe "backend expectations" do
+
+    # expects :constantize :underscore, :camelcase
+    it "imports constantize from backend" do
+      "Object".constantize.should == Object
+      "Monkey::Ext".constantize.should == Monkey::Ext
+    end
+
+    # expects :to_const_string
+    it "imports to_const_string from backend" do
+      "object".to_const_string.should == "Object"
+      "monkey/ext".to_const_string.should == "Monkey::Ext"
+    end
+
+    # expects :to_const_path
+    it "imports to_const_path from backend" do
+      "Object".to_const_path.should == "object"
+      "Monkey::Ext".to_const_path.should == "monkey/ext"
+    end
+
+    # expects :underscore
+    it "imports underscore from backend" do
+      "FooBar".underscore.should == "foo_bar"
+    end
+
+    # expects :camelcase
+    it "imports camelcase from backend" do
+      ["FooBar", "fooBar"].should include("foo_bar".camelcase)
+    end
+
+  end
+
+  describe "like Pathname" 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 "imports Pathname's cleanpath to String" do
+      @strings.each do |s|
+        s.cleanpath.should == Pathname(s).cleanpath.to_s
+      end
+    end
+
+    it "imports Pathname's realpath to String" do
+      @strings.each do |s|
+        s.realpath.should == Pathname(s).realpath.to_s
+      end
+    end
+
+    it "imports Pathname's mountpoint? to String" do
+      @strings.each do |s|
+        s.mountpoint?.should == Pathname(s).mountpoint?
+      end
+    end
+
+    it "imports Pathname's root? to String" do
+      @strings.each do |s|
+        s.root?.should == Pathname(s).root?
+      end
+    end
+
+    it "imports Pathname's absolute_path? to String" do
+      @strings.each do |s|
+        s.absolute_path?.should == Pathname(s).absolute?
+      end
+    end
+
+    it "imports Pathname's file_relative? to String" do
+      @strings.each do |s|
+        s.file_relative?.should == Pathname(s).relative?
+      end
+    end
+
+    it "imports Pathname's file_join to String" do
+      @strings.each do |s|
+        s.file_join("foo").should == Pathname(s).join("foo").to_s
+      end
+    end
+
+    it "imports Pathname's atime to String" do
+      @strings.each do |s|
+        s.atime.should == Pathname(s).atime
+      end
+    end
+
+    it "imports Pathname's ctime to String" do
+      @strings.each do |s|
+        s.ctime.should == Pathname(s).ctime
+      end
+    end
+
+    it "imports Pathname's mtime to String" do
+      @strings.each do |s|
+        s.mtime.should == Pathname(s).mtime
+      end
+    end    
+
+    it "imports Pathname's ftype to String" do
+      @strings.each do |s|
+        s.ftype.should == Pathname(s).ftype.to_s
+      end
+    end
+
+    it "imports Pathname's basename to String" do
+      @strings.each do |s|
+        s.basename.should == Pathname(s).basename.to_s
+      end
+    end
+
+    it "imports Pathname's dirname to String" do
+      @strings.each do |s|
+        s.dirname.should == Pathname(s).dirname.to_s
+      end
+    end
+
+    it "imports Pathname's extname to String" do
+      @strings.each do |s|
+        s.extname.should == Pathname(s).extname.to_s
+      end
+    end
+
+    it "imports Pathname's expand_path to String" do
+      @strings.each do |s|
+        s.expand_path.should == Pathname(s).expand_path.to_s
+      end
+    end
+
+    it "imports Pathname's blockdev? to String" do
+      @strings.each do |s|
+        s.blockdev?.should == Pathname(s).blockdev?
+      end
+    end
+
+    it "imports Pathname's chardev? to String" do
+      @strings.each do |s|
+        s.chardev?.should == Pathname(s).chardev?
+      end
+    end
+
+    it "imports Pathname's file_executable? to String" do
+      @strings.each do |s|
+        s.file_executable?.should == Pathname(s).executable?
+      end
+    end
+
+    it "imports Pathname's file_executable_real? to String" do
+      @strings.each do |s|
+        s.file_executable_real?.should == Pathname(s).executable_real?
+      end
+    end
+
+    it "imports Pathname's atime to String" do
+      @strings.each do |s|
+        s.atime.should == Pathname(s).atime
+      end
+    end
+
+    it "imports Pathname's ctime to String" do
+      @strings.each do |s|
+        s.ctime.should == Pathname(s).ctime
+      end
+    end
+
+    it "imports Pathname's mtime to String" do
+      @strings.each do |s|
+        s.mtime.should == Pathname(s).mtime
+      end
+    end    
+
+    it "imports Pathname's ftype to String" do
+      @strings.each do |s|
+        s.ftype.should == Pathname(s).ftype.to_s
+      end
+    end
+
+    it "imports Pathname's basename to String" do
+      @strings.each do |s|
+        s.basename.should == Pathname(s).basename.to_s
+      end
+    end
+
+    it "imports Pathname's dirname to String" do
+      @strings.each do |s|
+        s.dirname.should == Pathname(s).dirname.to_s
+      end
+    end
+
+    it "imports Pathname's extname to String" do
+      @strings.each do |s|
+        s.extname.should == Pathname(s).extname.to_s
+      end
+    end
+
+    it "imports Pathname's expand_path to String" do
+      @strings.each do |s|
+        s.expand_path.should == Pathname(s).expand_path.to_s
+      end
+    end
+
+    it "imports Pathname's blockdev? to String" do
+      @strings.each do |s|
+        s.blockdev?.should == Pathname(s).blockdev?
+      end
+    end
+
+    it "imports Pathname's chardev? to String" do
+      @strings.each do |s|
+        s.chardev?.should == Pathname(s).chardev?
+      end
+    end
+
+    it "imports Pathname's file_executable? to String" do
+      @strings.each do |s|
+        s.file_executable?.should == Pathname(s).executable?
+      end
+    end
+
+    it "imports Pathname's file_executable_real? to String" do
+      @strings.each do |s|
+        s.file_executable_real?.should == Pathname(s).executable_real?
+      end
+    end
+
+    it "imports Pathname's directory? to String" do
+      @strings.each do |s|
+        s.directory?.should == Pathname(s).directory?
+      end
+    end
+
+    it "imports Pathname's file? to String" do
+      @strings.each do |s|
+        s.file?.should == Pathname(s).file?
+      end
+    end
+
+    it "imports Pathname's pipe? to String" do
+      @strings.each do |s|
+        s.pipe?.should == Pathname(s).pipe?
+      end
+    end
+
+    it "imports Pathname's socket? to String" do
+      @strings.each do |s|
+        s.socket?.should == Pathname(s).socket?
+      end
+    end
+
+    it "imports Pathname's file_owned? to String" do
+      @strings.each do |s|
+        s.file_owned?.should == Pathname(s).owned?
+      end
+    end
+
+    it "imports Pathname's file_readable? to String" do
+      @strings.each do |s|
+        s.file_readable?.should == Pathname(s).readable?
+      end
+    end
+
+    it "imports Pathname's file_readable_real? to String" do
+      @strings.each do |s|
+        s.file_readable_real?.should == Pathname(s).readable_real?
+      end
+    end
+
+    it "imports Pathname's symlink? to String" do
+      @strings.each do |s|
+        s.symlink?.should == Pathname(s).symlink?
+      end
+    end
+
+    it "imports Pathname's file_writable? to String" do
+      @strings.each do |s|
+        s.file_writable?.should == Pathname(s).writable?
+      end
+    end
+
+    it "imports Pathname's file_writable_real? to String" do
+      @strings.each do |s|
+        s.file_writable_real?.should == Pathname(s).writable_real?
+      end
+    end
+
+    it "imports Pathname's file_zero? to String" do
+      @strings.each do |s|
+        s.file_zero?.should == Pathname(s).zero?
+      end
+    end
+
+    it "imports Pathname's file_exist? to String" do
+      @strings.each do |s|
+        s.file_exist?.should == Pathname(s).exist?
+        s.file_exists?.should == Pathname(s).exist? 
+      end
+    end
+
+    it "imports Pathname's file_grpowned? to String" do
+      @strings.each do |s|
+        s.file_grpowned?.should == Pathname(s).grpowned?
+      end
+    end
+
+    it "imports Pathname's file_size? to String" do
+      @strings.each do |s|
+        s.file_size?.should == Pathname(s).size?
+      end
+    end
+
+    it "imports Pathname's file_sticky? to String" do
+      @strings.each do |s|
+        s.file_sticky?.should == Pathname(s).sticky?
+      end
+    end
+
+    it "imports Pathname's directory_children to String" do
+      @strings.each do |s|
+        s.directory_children.should == Pathname(s).children if s.directory?
+      end
+    end
+
+  end
+
+end