getsource 0.1.0

data/AUTHORS

@@ -0,0 +1 @@
+getsource de tario <rseminara@hotmail.com>

data/CHANGELOG

@@ -0,0 +1 @@
+0.1.0:	implemented getsource with code extracted from rallhook

data/README

@@ -0,0 +1,48 @@
+= getsource - Get the source file path of the implementation of a given method =
+
+This package cointains getsource, a extension which allows get the path name for the source of a method
+
+== Installation
+
+gem install getsource
+
+== Usage
+
+=== Basic Example 
+
+
+source1.rb
+
+	class X
+		def foo
+		end
+	end
+
+source2.rb
+
+	class Y < X
+		def foo
+		end
+	end
+
+main.rb
+
+	require "rallhook"
+	require "source1.rb"
+	require "source2.rb"
+
+	x = X.new
+	y = Y.new
+
+	print x.method(:foo).body.file,"\n" # source1.rb
+	print y.method(:foo).body.file,"\n" # source2.rb
+
+	print y.method(X,:foo).body.file,"\n" # source1.rb
+	print y.method(Y,:foo).body.file,"\n" # source2.rb
+
+
+NOTE: See examples directory of the gem installation
+
+== Copying
+
+Copyright (c) 2010 Dario Seminara, released under the GPL License (see LICENSE)

data/Rakefile

@@ -0,0 +1,49 @@
+require 'rubygems'
+require 'rake'
+require 'rake/testtask'
+require 'rake/rdoctask'
+require 'rake/gempackagetask'
+
+spec = Gem::Specification.new do |s|
+  s.name = 'getsource'
+  s.version = '0.1.0'
+  s.author = 'Dario Seminara'
+  s.email = 'robertodarioseminara@gmail.com'
+  s.platform = Gem::Platform::RUBY
+  s.summary = 'Get the source file path of the implementation of a given method'
+  s.homepage = "http://github.com/tario/getsource"
+  s.has_rdoc = true
+  s.extra_rdoc_files = [ 'README' ]
+  s.rdoc_options << '--main' << 'README'
+  s.extensions = FileList["ext/**/extconf.rb"].to_a
+  s.files = Dir.glob("{examples,lib,test}/**/*.rb") + Dir.glob("ext/**/*.c") + Dir.glob("ext/**/*.h") + Dir.glob("ext/**/extconf.rb") +
+    [ 'AUTHORS', 'CHANGELOG', 'README', 'Rakefile', 'TODO' ]
+end
+
+desc 'Run tests'
+task :default => [ :test ]
+
+Rake::TestTask.new('test') do |t|
+  t.libs << 'test'
+  t.pattern = '{test}/**/test_*.rb'
+  t.verbose = true
+end
+
+desc 'Generate RDoc'
+Rake::RDocTask.new :rdoc do |rd|
+  rd.rdoc_dir = 'doc'
+  rd.rdoc_files.add 'lib', 'ext', 'README'
+  rd.main = 'README'
+end
+
+desc 'Build Gem'
+Rake::GemPackageTask.new spec do |pkg|
+  pkg.need_tar = true
+end
+
+desc 'Clean up'
+task :clean => [ :clobber_rdoc, :clobber_package ]
+
+desc 'Clean up'
+task :clobber => [ :clean ]
+

data/examples/test1/main.rb

@@ -0,0 +1,13 @@
+require "rubygems"
+require "getsource"
+require "source1.rb"
+require "source2.rb"
+
+x = X.new
+y = Y.new
+
+print "definition of method :foo in #{x}: ", x.method(:foo).body.file,"\n" # source1.rb
+print "definition of method :foo in #{y}: ", y.method(:foo).body.file,"\n" # source2.rb
+
+print "definition of method :foo of class X in object #{y}: ", y.specific_method(X,:foo).body.file,"\n" # source1.rb
+print "definition of method :foo of class Y in object #{y}: ", y.specific_method(Y,:foo).body.file,"\n" # source1.rb

data/examples/test1/source1.rb

@@ -0,0 +1,4 @@
+class X
+	def foo
+	end
+end

data/examples/test1/source2.rb

@@ -0,0 +1,4 @@
+class Y < X
+	def foo
+	end
+end

data/ext/getsource_base/extconf.rb

@@ -0,0 +1,22 @@
+require 'mkmf'
+dir_config('getsource_base')
+CONFIG['CC'] = 'gcc'
+
+ruby_version = Config::CONFIG["ruby_version"]
+ruby_version = ruby_version.split(".")[0..1].join(".")
+
+if ruby_version == "1.8"
+	$CFLAGS = $CFLAGS + " -DRUBY1_8"
+elsif ruby_version == "1.9"
+	$CFLAGS = $CFLAGS + " -DRUBY1_9"
+else
+	print "ERROR: unknown ruby version: #{ruby_version}\n"
+	print "try passing the rubyversion by argument (1.8 or 1.9)\n"
+end
+
+$CFLAGS = $CFLAGS  + " -o $@"
+
+create_makefile('getsource_base')
+
+
+

data/ext/getsource_base/getsource_base.c

@@ -0,0 +1,212 @@
+/*
+
+This file is part of the getsource project, http://github.com/tario/getsource
+
+Copyright (c) 2009-2010 Roberto Dario Seminara <robertodarioseminara@gmail.com>
+
+getsource is free software: you can redistribute it and/or modify
+it under the terms of the gnu general public license as published by
+the free software foundation, either version 3 of the license, or
+(at your option) any later version.
+
+getsource is distributed in the hope that it will be useful,
+but without any warranty; without even the implied warranty of
+merchantability or fitness for a particular purpose.  see the
+gnu general public license for more details.
+
+you should have received a copy of the gnu general public license
+along with getsource.  if not, see <http://www.gnu.org/licenses/>.
+
+*/
+
+#include <ruby.h>
+
+#ifdef RUBY1_8
+#include <node.h>
+#endif
+
+#ifdef RUBY1_9
+#include <node_defs.h>
+#endif
+
+#ifndef __USE_GNU
+#define __USE_GNU
+#endif
+#include <dlfcn.h>
+
+
+VALUE rb_cNode;
+ID intern_owner;
+ID intern_name;
+ID intern_sym;
+
+///  from eval.c
+#ifdef RUBY1_8
+struct METHOD {
+    VALUE klass, rklass;
+
+    VALUE recv;
+    ID id, oid;
+    int safe_level;
+    NODE *body;
+};
+unsigned char* base__;
+
+#define nd_file(n) n->nd_file
+
+#endif
+
+#ifdef RUBY1_9
+
+// from proc.c
+struct METHOD {
+    VALUE oclass;		/* class that holds the method */
+    VALUE rclass;		/* class of the receiver */
+    VALUE recv;
+    ID id, oid;
+    NODE *body;
+};
+
+typedef struct rb_iseq_struct__ {
+    VALUE type;          // instruction sequence type
+    VALUE name;	         // String: iseq name
+    VALUE filename;      // file information where this sequence from
+} rb_iseq_t__;
+
+
+typedef VALUE (*MNEW)(VALUE klass, VALUE obj, ID id, VALUE mclass, int scope);
+MNEW mnew_;
+unsigned char* base__;
+
+#endif
+
+/*
+	The node that acts as body of the method
+*/
+VALUE rb_method_body(VALUE self) {
+
+//	VALUE name = rb_funcall(self, intern_name, 0);
+//	VALUE sym = rb_funcall(name, intern_sym, 0);
+//	VALUE owner = rb_funcall(self, intern_owner, 0);
+//	NODE* body = rb_method_node(owner, SYM2ID(sym) );
+
+	struct METHOD* method;
+	Data_Get_Struct(self,struct METHOD,method);
+
+	if (method->body == 0) return Qnil;
+
+#ifdef RUBY1_8
+	// nd_defn is only present in ruby_1.8
+	if (method->body->nd_defn != 0) {
+		return Data_Wrap_Struct(rb_cNode, 0, 0, method->body->nd_defn);
+	}
+#endif
+
+	return Data_Wrap_Struct(rb_cNode, 0, 0, method->body);
+}
+
+/*
+The number of the line where the code associated with note are defined in the ruby source file
+*/
+VALUE rb_node_line(VALUE self) {
+    NODE* _node;
+    Data_Get_Struct(self,NODE,_node);
+
+    #ifdef RUBY1_8
+    return INT2FIX(nd_line(_node));
+    #endif
+
+    #ifdef RUBY1_9
+    return INT2FIX(0);
+    #endif
+}
+
+/*
+The name of the ruby source file where the code associated with the node are defined
+*/
+VALUE rb_node_file(VALUE self) {
+    NODE* _node;
+    Data_Get_Struct(self,NODE,_node);
+
+	#ifdef RUBY1_8
+    if (nd_file(_node)  == NULL ) {
+	    return rb_str_new2("");
+    }
+    return rb_str_new2(nd_file(_node) );
+    #endif
+
+    #ifdef RUBY1_9
+
+	if (nd_type(_node) == RUBY_VM_METHOD_NODE) {
+		VALUE iseqval = (VALUE)(_node->nd_body);
+		rb_iseq_t__* ptr;
+		Data_Get_Struct(iseqval, rb_iseq_t__, ptr);
+
+		return ptr->filename;
+	}
+
+	return rb_str_new2("");
+
+	#endif
+
+}
+
+
+static void
+bm_mark(struct METHOD *data)
+{
+#ifdef RUBY1_8
+    rb_gc_mark(data->klass);
+    rb_gc_mark(data->rklass);
+    rb_gc_mark(data->recv);
+    rb_gc_mark((VALUE)data->body);
+#endif
+#ifdef RUBY1_9
+    rb_gc_mark(data->rclass);
+    rb_gc_mark(data->oclass);
+    rb_gc_mark(data->recv);
+    rb_gc_mark((VALUE)data->body);
+#endif
+
+}
+
+static VALUE
+umethod_unchecked_bind(VALUE method, VALUE recv)
+{
+    struct METHOD *data, *bound;
+
+    Data_Get_Struct(method, struct METHOD, data);
+
+    method = Data_Make_Struct(rb_cMethod, struct METHOD, bm_mark, -1, bound);
+    *bound = *data;
+    bound->recv = recv;
+#ifdef RUBY1_8
+    bound->rklass = CLASS_OF(recv);
+#endif
+#ifdef RUBY1_9
+    bound->rclass = CLASS_OF(recv);
+#endif
+
+    return method;
+}
+
+
+void  Init_getsource_base() {
+	rb_define_method(rb_cMethod, "body", rb_method_body,0);
+	rb_define_method(rb_cUnboundMethod, "body", rb_method_body,0);
+	rb_define_method(rb_cUnboundMethod, "unchecked_bind", umethod_unchecked_bind,1);
+
+	/*
+	The class Node represents the internal ruby node, a node is a piece of ruby code used
+	for represent ruby methods in memory and other executable entities, many nodes come from
+	the ruby source code and may be associated with a file and line where thats node are defined
+	*/
+	rb_cNode = rb_define_class("Node", rb_cObject);
+
+	rb_define_method(rb_cNode, "line", rb_node_line, 0);
+	rb_define_method(rb_cNode, "file", rb_node_file, 0);
+
+	intern_owner = rb_intern("owner");
+	intern_name = rb_intern("name");
+	intern_sym = rb_intern("to_sym");
+}

data/lib/getsource.rb

@@ -0,0 +1,38 @@
+=begin
+
+This file is part of the getsource project, http://github.com/tario/getsource
+
+Copyright (c) 2010 Roberto Dario Seminara <robertodarioseminara@gmail.com>
+
+getsource is free software: you can redistribute it and/or modify
+it under the terms of the gnu general public license as published by
+the free software foundation, either version 3 of the license, or
+(at your option) any later version.
+
+getsource is distributed in the hope that it will be useful,
+but without any warranty; without even the implied warranty of
+merchantability or fitness for a particular purpose.  see the
+gnu general public license for more details.
+
+you should have received a copy of the gnu general public license
+along with getsource.  if not, see <http://www.gnu.org/licenses/>.
+
+=end
+require "getsource_base"
+
+class Object
+  def specific_method(arg1, arg2=nil)
+    if arg2
+      method_name = arg2
+      klass = arg1
+
+      if instance_of? Class
+        method(method_name)
+      else
+        klass.instance_method(method_name).bind(self)
+      end
+    else
+      method(arg1)
+    end
+  end
+end

metadata

@@ -0,0 +1,78 @@
+--- !ruby/object:Gem::Specification 
+name: getsource
+version: !ruby/object:Gem::Version 
+  hash: 27
+  prerelease: false
+  segments: 
+  - 0
+  - 1
+  - 0
+  version: 0.1.0
+platform: ruby
+authors: 
+- Dario Seminara
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2010-10-30 00:00:00 -03:00
+default_executable: 
+dependencies: []
+
+description: 
+email: robertodarioseminara@gmail.com
+executables: []
+
+extensions: 
+- ext/getsource_base/extconf.rb
+extra_rdoc_files: 
+- README
+files: 
+- examples/test1/source1.rb
+- examples/test1/main.rb
+- examples/test1/source2.rb
+- lib/getsource.rb
+- ext/getsource_base/getsource_base.c
+- ext/getsource_base/extconf.rb
+- AUTHORS
+- CHANGELOG
+- README
+- Rakefile
+- TODO
+has_rdoc: true
+homepage: http://github.com/tario/getsource
+licenses: []
+
+post_install_message: 
+rdoc_options: 
+- --main
+- README
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      hash: 3
+      segments: 
+      - 0
+      version: "0"
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      hash: 3
+      segments: 
+      - 0
+      version: "0"
+requirements: []
+
+rubyforge_project: 
+rubygems_version: 1.3.7
+signing_key: 
+specification_version: 3
+summary: Get the source file path of the implementation of a given method
+test_files: []
+