method_trace 0.0.1

data/lib/method_trace.rb

@@ -0,0 +1,184 @@
+require 'rubygems'
+require 'metafun'
+
+module MethodTrace
+  module MethodDefinition
+    def self.definition_sites
+      @definition_sites ||= {}
+    end
+    
+    module InstanceMethods
+      def method_added_with_method_definitions(method)
+        method_added_without_method_definitions(method)
+        name = "#{self.object_id}##{method}"
+        MethodTrace::MethodDefinition.definition_sites[name] = caller
+      end
+    end
+
+    def self.included(base)
+      base.send :include, InstanceMethods
+      base.instance_eval do
+        alias_method :method_added_without_method_definitions, :method_added
+        alias_method :method_added, :method_added_with_method_definitions
+      end
+    end
+    
+    def self.extended(base)
+      base.extend InstanceMethods
+      class << base
+        alias_method :method_added_without_method_definitions, :method_added
+        alias_method :method_added, :method_added_with_method_definitions
+      end
+    end
+  end
+  
+  module SingletonMethodDefinition
+    module InstanceMethods
+      def singleton_method_added_with_method_definitions(method)
+        singleton_method_added_without_method_definitions(method)
+        name = "#{self.object_id}::#{method}"
+        MethodTrace::MethodDefinition.definition_sites[name] = caller
+      end
+    end
+    
+    def self.included(base)
+      base.send :include, InstanceMethods
+      base.instance_eval do
+        alias_method :singleton_method_added_without_method_definitions, :singleton_method_added
+        alias_method :singleton_method_added, :singleton_method_added_with_method_definitions
+      end
+    end
+  end
+  
+  module MethodAdditions
+    def self.included(base)
+      base.send :include, InstanceMethods
+      base.send :attr_accessor, :source, :name
+    end
+    
+    module InstanceMethods
+      def backtrace
+        definition
+      end
+      
+      def site
+        backtrace.find { |x| x !~ /method_added/ } || "filtered:filtered"
+      end
+      
+      def file
+        @file ||= site.split(':')[0]
+      end
+      
+      def line
+        @line ||= site.split(':')[1]
+      end
+      
+      def from
+        definition
+        @from
+      end
+    end
+  end
+  
+  module ObjectAdditions
+    def self.included(base)
+      base.send :include, InstanceMethods
+      
+      base.send :alias_method, :method_without_method_definitions, :method
+      base.send :alias_method, :method, :method_with_method_definitions
+    end
+    
+    module InstanceMethods
+      def method_with_method_definitions(name)
+        result = method_without_method_definitions(name)
+        result.source = self
+        result.name = name
+        result
+      end
+    end
+  end
+  
+  module ClassAdditions
+    def self.included(base)
+      base.send :include, InstanceMethods
+
+      base.send :alias_method, :instance_method_without_method_definitions, :instance_method
+      base.send :alias_method, :instance_method, :instance_method_with_method_definitions
+    end
+    
+    module InstanceMethods
+      def instance_method_with_method_definitions(name)
+        result = instance_method_without_method_definitions(name)
+        result.source = self
+        result.name = name
+        result
+      end
+    end
+  end
+end
+
+class Method
+  include MethodTrace::MethodAdditions
+  
+  def definition
+    @definition ||= begin
+      if source.is_a?(Class)
+        # if class: base class singleton methods
+        source.class_hierarchy.each do |cls|
+          d = MethodTrace::MethodDefinition.definition_sites["#{cls.object_id}::#{self.name}"]
+          @from = cls and return d if d
+        end
+      else
+        # singleton methods
+        d = MethodTrace::MethodDefinition.definition_sites["#{source.object_id}::#{self.name}"]
+        @from = 'singleton' and return d if d
+      end
+      
+      # base class methods
+      source.class.class_hierarchy.each do |cls|
+        d = MethodTrace::MethodDefinition.definition_sites["#{cls.object_id}##{self.name}"]
+        @from = cls and return d if d
+      end
+      
+      # module methods
+      source.usable_modules.each do |mod|
+        d = MethodTrace::MethodDefinition.definition_sites["#{mod.object_id}##{self.name}"]
+        @from = mod and return d if d
+      end
+
+      ['unknown']
+    end
+  end
+end
+
+class UnboundMethod
+  include MethodTrace::MethodAdditions
+
+  def definition
+    @definition ||= begin
+      source.ancestors.each do |ancestor|
+        d = MethodTrace::MethodDefinition.definition_sites["#{ancestor.object_id}##{self.name}"]
+        @from = ancestor and return d if d
+      end
+      
+      ['unknown']
+    end
+  end
+end
+
+class Module
+  include MethodTrace::MethodDefinition
+end
+
+class Object
+  extend MethodTrace::MethodDefinition
+  include MethodTrace::SingletonMethodDefinition
+end
+
+class Object
+  include MethodTrace::ObjectAdditions
+end
+
+class Class
+  include MethodTrace::ClassAdditions
+end

metadata

@@ -0,0 +1,67 @@
+--- !ruby/object:Gem::Specification 
+name: method_trace
+version: !ruby/object:Gem::Version 
+  hash: 29
+  prerelease: false
+  segments: 
+  - 0
+  - 0
+  - 1
+  version: 0.0.1
+platform: ruby
+authors: 
+- Thomas Kadauke
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2013-01-29 00:00:00 +01:00
+default_executable: 
+dependencies: []
+
+description: 
+email: thomas.kadauke@googlemail.com
+executables: []
+
+extensions: []
+
+extra_rdoc_files: []
+
+files: 
+- lib/method_trace.rb
+has_rdoc: true
+homepage: http://github.com/tkadauke/method_trace
+licenses: []
+
+post_install_message: 
+rdoc_options: []
+
+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: Find method definition site
+test_files: []
+