methodmissing-callback 1.0.0

data/README

@@ -0,0 +1,42 @@
+Simple native Callback object for Ruby MRI
+  (c) 2009 Lourens Naudé (methodmissing), James Tucker (raggi) and coderrr
+ 
+  http://github.com/methodmissing/callback
+
+This library works with Ruby 1.8 and 1.9 and is a more efficient
+implementation of the following Ruby code :
+
+  class RubyCallback
+    def initialize(object = nil, method = :call, &b)
+      @object, @method = object, method
+      @object ||= b
+    end
+  
+    def call(*args)
+      @object.__send__(@method, *args)
+    end
+  end
+
+  module Kernel
+    private
+    def RubyCallback(object = nil, method = :call, &b)
+      RubyCallback.new(object, method, &b)
+    end
+  end
+
+Concept, ideas and API design James's - any pointers for better GC integration much appreciated.
+
+Examples :
+
+  'hai'.callback(:gsub).call('h', 'b') #=> 'bai'
+  Callback( 'bai', :to_s ).call #=> 'hai'
+  Callback{ 'hai' }.call #=> 'hai'
+  Callback( 'bai', :gsub ).call( 'b', 'h' ) #=> 'hai'
+
+To run the test suite:
+
+  rake
+
+To run the benchmarks:
+
+  rake bench

data/Rakefile

@@ -0,0 +1,69 @@
+require 'rake'
+require 'rake/testtask'
+require 'rake/clean'
+
+CB_ROOT = 'ext/callback'
+
+desc 'Default: test'
+task :default => :test
+
+desc 'Run callback tests.'
+Rake::TestTask.new(:test) do |t|
+  t.libs = [CB_ROOT]
+  t.pattern = 'test/test_*.rb'
+  t.verbose = true
+end
+task :test => :build
+
+namespace :build do
+  file "#{CB_ROOT}/callback.c"
+  file "#{CB_ROOT}/extconf.rb"
+  file "#{CB_ROOT}/Makefile" => %W(#{CB_ROOT}/callback.c #{CB_ROOT}/extconf.rb) do
+    Dir.chdir(CB_ROOT) do
+      ruby 'extconf.rb'
+    end
+  end
+
+  desc "generate makefile"
+  task :makefile => %W(#{CB_ROOT}/Makefile #{CB_ROOT}/callback.c)
+
+  dlext = Config::CONFIG['DLEXT']
+  file "#{CB_ROOT}/callback.#{dlext}" => %W(#{CB_ROOT}/Makefile #{CB_ROOT}/callback.c) do
+    Dir.chdir(CB_ROOT) do
+      sh 'make' # TODO - is there a config for which make somewhere?
+    end
+  end
+
+  desc "compile callback extension"
+  task :compile => "#{CB_ROOT}/callback.#{dlext}"
+
+  task :clean do
+    Dir.chdir(CB_ROOT) do
+      sh 'make clean'
+    end if File.exists?("#{CB_ROOT}/Makefile")
+  end
+
+  CLEAN.include("#{CB_ROOT}/Makefile")
+  CLEAN.include("#{CB_ROOT}/callback.#{dlext}")
+end
+
+task :clean => %w(build:clean)
+
+desc "compile"
+task :build => %w(build:compile)
+
+task :install do |t|
+  Dir.chdir(CB_ROOT) do
+    sh 'sudo make install'
+  end
+end
+
+desc "clean build install"
+task :setup => %w(clean build install)
+
+desc "run benchmarks"
+task :bench do |t|
+  ruby "bench/bench.rb"  
+  ruby "bench/raggi_bench.rb"
+end
+task :bench => :build

data/bench/bench.rb

@@ -0,0 +1,14 @@
+require "benchmark"
+$:.unshift "."
+require File.dirname(__FILE__) + "/../ext/callback/callback"
+require File.dirname(__FILE__) + "/pure_ruby_cb"
+
+TESTS = 10_000
+Benchmark.bmbm do |results|
+  results.report("Callback{ 'hai' }.call") { TESTS.times { Callback{ 'hai' }.call } }  
+  results.report("RubyCallback{ 'hai' }.call") { TESTS.times { RubyCallback{ 'hai' }.call } }
+  results.report("Callback( 'bai', :to_s ).call") { TESTS.times { Callback( 'bai', :to_s ).call } }  
+  results.report("RubyCallback( 'bai', :to_s ).call") { TESTS.times { RubyCallback( 'bai', :to_s ).call } }  
+  results.report("Callback( 'bai', :gsub ).call( 'b', 'h' )") { TESTS.times { Callback( 'bai', :gsub ).call( 'b', 'h' ) } }  
+  results.report("RubyCallback( 'bai', :gsub ).call( 'b', 'h' )") { TESTS.times { RubyCallback( 'bai', :gsub).call( 'b', 'h' ) } }
+end

data/bench/pure_ruby_cb.rb

@@ -0,0 +1,17 @@
+class RubyCallback
+  def initialize(object = nil, method = :call, &b)
+    @object, @method = object, method
+    @object ||= b
+  end
+  
+  def call(*args)
+    @object.__send__(@method, *args)
+  end
+end
+
+module Kernel
+  private
+  def RubyCallback(object = nil, method = :call, &b)
+    RubyCallback.new(object, method, &b)
+  end
+end

data/bench/raggi_bench.rb

@@ -0,0 +1,23 @@
+require "benchmark"
+$:.unshift "."
+require File.dirname(__FILE__) + "/../ext/callback/callback"
+require File.dirname(__FILE__) + "/pure_ruby_cb"
+
+@s = 'foo'
+def me; @s.to_s; end
+ld = lambda { @s.to_s }
+cb = Callback &ld
+c2 = Callback( @s, :to_s )
+rb = RubyCallback { @s.to_s }
+farm = @s.callback(:to_s)
+
+tests = 100_000
+puts "# Calling"
+Benchmark.bmbm do |results|
+  results.report("methback:") { tests.times { me      } }
+  results.report("lambdabk:") { tests.times { ld.call } }
+  results.report("callback:") { tests.times { cb.call } }
+  results.report("callbak2:") { tests.times { c2.call } }
+  results.report("rubyback:") { tests.times { rb.call } }
+  results.report("farm:") { tests.times { farm.call } }
+end

data/callback.gemspec

@@ -0,0 +1,26 @@
+Gem::Specification.new do |s|
+  s.name     = "callback"
+  s.version  = "1.0.0"
+  s.date     = "2009-08-22"
+  s.summary  = "Native MRI callback"
+  s.email    = "lourens@methodmissing.com"
+  s.homepage = "http://github.com/methodmissing/callback"
+  s.description = "Simple native Callback object for Ruby MRI (1.8.{6,7} and 1.9.2)"
+  s.has_rdoc = true
+  s.authors  = ["Lourens Naudé (methodmissing)","James Tucker (raggi)"]
+  s.platform = Gem::Platform::RUBY
+  s.files    = %w[
+    README
+    Rakefile
+    bench/bench.rb
+    bench/pure_ruby_cb.rb
+    bench/raggi_bench.rb
+    ext/callback/extconf.rb
+    ext/callback/callback.c
+    lib/callback.rb
+    callback.gemspec
+  ] + Dir.glob('test/*')
+  s.rdoc_options = ["--main", "README"]
+  s.extra_rdoc_files = ["README"]
+  s.extensions << "ext/callback/extconf.rb"
+end

data/ext/callback/callback.c

@@ -0,0 +1,95 @@
+#include "ruby.h"
+
+typedef struct {
+    VALUE object;
+	ID method;
+} RCallback;
+
+#define GetCallbackStruct(obj)	(Check_Type(obj, T_DATA), (RCallback*)DATA_PTR(obj))
+
+VALUE rb_cCallback;
+static ID id_call;
+
+static void mark_callback(RCallback* cb)
+{
+    rb_gc_mark(cb->object);
+}
+
+static void free_callback(RCallback* cb)
+{
+    xfree(cb);
+}
+
+static VALUE callback_alloc _((VALUE));
+static VALUE
+callback_alloc( VALUE klass )
+{
+	VALUE cb;
+	RCallback* cbs;
+	cb = Data_Make_Struct(klass, RCallback, mark_callback, free_callback, cbs);
+    cbs->object = Qnil;
+	cbs->method = 0;
+	
+    return cb;
+}
+
+static VALUE
+rb_callback_new()
+{
+    return callback_alloc(rb_cCallback);
+}
+
+static VALUE rb_callback_initialize( int argc, VALUE *argv, VALUE cb )
+{
+	VALUE object;
+	VALUE method;
+	RCallback* cbs = GetCallbackStruct(cb);
+	 
+	if (rb_block_given_p()) {
+	  if (argc == 1) rb_raise(rb_eArgError, "wrong number of arguments");
+	    cbs->object = rb_block_proc();
+	    cbs->method = id_call;
+    }else {
+	    rb_scan_args(argc, argv, "02", &object, &method);
+	    cbs->object = object;
+	    cbs->method = rb_to_id(method);
+    }
+
+	OBJ_FREEZE(cb);
+	return cb;
+}
+
+static VALUE rb_callback_call( VALUE cb, VALUE args )
+{
+	RCallback* cbs = GetCallbackStruct(cb);
+	return rb_apply(cbs->object, cbs->method, args); 
+}
+
+static VALUE rb_f_callback( int argc, VALUE *argv )
+{
+	return rb_callback_initialize( argc, argv, rb_callback_new() );
+}
+
+static VALUE
+rb_obj_callback( VALUE obj, VALUE mid)
+{
+	VALUE args[2];
+	args[0] = obj;
+	args[1] = mid; 
+	return rb_f_callback( 2, (VALUE *)args );
+}
+
+void
+Init_callback()
+{
+    id_call = rb_intern("call");
+ 
+    rb_cCallback  = rb_define_class("Callback", rb_cObject);
+    rb_define_alloc_func(rb_cCallback, callback_alloc);
+    
+    rb_define_method(rb_cCallback,"initialize", rb_callback_initialize, -1);
+    rb_define_method(rb_cCallback,"call", rb_callback_call, -2);
+
+    rb_define_global_function("Callback", rb_f_callback, -1);
+    rb_define_method(rb_mKernel, "callback", rb_obj_callback, 1);
+}	

data/ext/callback/extconf.rb

@@ -0,0 +1,5 @@
+require 'mkmf'
+
+dir_config('callback')
+
+create_makefile('callback')

data/lib/callback.rb

@@ -0,0 +1 @@
+# stubbed

metadata

@@ -0,0 +1,64 @@
+--- !ruby/object:Gem::Specification 
+name: methodmissing-callback
+version: !ruby/object:Gem::Version 
+  version: 1.0.0
+platform: ruby
+authors: 
+- "Lourens Naud\xC3\xA9 (methodmissing)"
+- James Tucker (raggi)
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2009-08-22 00:00:00 -07:00
+default_executable: 
+dependencies: []
+
+description: Simple native Callback object for Ruby MRI (1.8.{6,7} and 1.9.2)
+email: lourens@methodmissing.com
+executables: []
+
+extensions: 
+- ext/callback/extconf.rb
+extra_rdoc_files: 
+- README
+files: 
+- README
+- Rakefile
+- bench/bench.rb
+- bench/pure_ruby_cb.rb
+- bench/raggi_bench.rb
+- ext/callback/extconf.rb
+- ext/callback/callback.c
+- lib/callback.rb
+- callback.gemspec
+has_rdoc: true
+homepage: http://github.com/methodmissing/callback
+licenses: 
+post_install_message: 
+rdoc_options: 
+- --main
+- README
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+requirements: []
+
+rubyforge_project: 
+rubygems_version: 1.3.5
+signing_key: 
+specification_version: 2
+summary: Native MRI callback
+test_files: []
+