drx 0.0.2 → 0.3.0

data/lib/drx.rb

@@ -1,67 +1,32 @@
-require 'drx_ext' # Load the C extension
+# Bootstraps the library and defines some utility functions for the end-user.
 
-# Contains a simple utility function, Drx::examine.
+require 'drx_core' # The C extension.
+require 'drx/objinfo'
+require 'drx/graphviz'
 
 module Drx
 
-  def self.obj_repr(obj)
-    is_singleton = Drx.is_class_like(obj) && (Drx.get_flags(obj) & Drx::FL_SINGLETON).nonzero?
-    is_iclass    = Drx.get_type(obj) == Drx::T_ICLASS
-    if is_iclass
-      return "'ICLS { include " + obj_repr(Drx.get_klass(obj)) + " }"
-    else
-      return obj.inspect + (is_singleton ? " 'S" : "")
-    end
+  def self.see_using_tk(obj)
+    require 'drx/tk/app'
+    app = Drx::TkGUI::Application.new
+    app.see(obj)
+    app.run
   end
 
-  def self.examine(obj, level = 0, title = '', &block) # :yield:
-    # Note: since 'obj' may be a T_ICLASS, it doesn't repond to may methods,
-    # including is_a?. So when we're querying things we're using Drx calls
-    # instead.
-
-    $seen = {} if level.zero?
-    line = ('  ' * level) + title + ' ' + obj_repr(obj)
-
-    address = Drx.get_address(obj)
-    seen = $seen[address]
-    $seen[address] = true
-    
-    if seen
-      line += " [seen]" #  #{address.to_s}"
-    end
-
-    if block_given?
-      yield line, obj
-    else
-      puts line
-    end
-    
-    return if seen
-
-    if Drx.is_class_like(obj)
-      # Kernel has a NULL super.
-      # Modules too have NULL super, unless when 'include'ing.
-      if Drx.get_super(obj) # Warning: we can't do 'if !Drx.get_super(obj).#nil?' because
-                            # T_ICLASS doesn't "have" #nil.
-        Drx.examine(Drx.get_super(obj), level+1, '[super]', &block)
-      end
-    end
-
-    # Dipslaying a T_ICLASS's klass isn't very useful, because the data
-    # is already mirrored in the m_tbl and iv_tvl of the T_ICLASS itself.
-    if Drx.get_type(obj) != Drx::T_ICLASS
-      Drx.examine(Drx.get_klass(obj), level+1, '[klass]', &block)
-    end
+  class << self
+    # DrX::see() launches the GUI for inspecting an object. It is perhaps the only
+    # function the end-user is going to know about. It can also be invoked via
+    # Object#see().
+    #
+    #   my_obj = "foobar"
+    #   my_object.see
+    alias :see :see_using_tk
   end
 
-  def self.has_iv_tbl(obj)
-    Drx.get_type(obj) == T_OBJECT or Drx.is_class_like(obj)
-  end
+end
 
-  # Returns true if this object is either a class or a module.
-  # When true, you know it has 'm_tbl' and 'super'.
-  def self.is_class_like(obj)
-    [Drx::T_CLASS, Drx::T_ICLASS, Drx::T_MODULE].include? Drx.get_type(obj)
+class Object
+  def see
+    Drx.see(self)
   end
-
 end

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification 
 name: drx
 version: !ruby/object:Gem::Version 
-  version: 0.0.2
+  version: 0.3.0
 platform: ruby
 authors: 
 - Mooffie
@@ -9,7 +9,7 @@ autorequire:
 bindir: bin
 cert_chain: []
 
-date: 2009-02-04 00:00:00 +02:00
+date: 2010-03-28 00:00:00 +03:00
 default_executable: 
 dependencies: []
 
@@ -23,14 +23,21 @@ extra_rdoc_files: []
 
 files: 
 - README
-- lib/drxtk.rb
-- lib/drx_test2.rb
-- lib/drx_test.rb
+- lib/drx/graphviz.rb
+- lib/drx/tk/imagemap.rb
+- lib/drx/tk/app.rb
+- lib/drx/objinfo.rb
+- lib/drx/tempfiles.rb
 - lib/drx.rb
 - ext/extconf.rb
-- ext/drx_ext.c
-has_rdoc: false
+- ext/drx_core.c
+- examples/drx_test.rb
+- examples/drx_test3.rb
+- examples/drx_test2.rb
+has_rdoc: true
 homepage: http://drx.rubyforge.org/
+licenses: []
+
 post_install_message: 
 rdoc_options: []
 
@@ -51,9 +58,9 @@ required_rubygems_version: !ruby/object:Gem::Requirement
 requirements: []
 
 rubyforge_project: drx
-rubygems_version: 1.3.1
+rubygems_version: 1.3.5
 signing_key: 
-specification_version: 2
+specification_version: 3
 summary: Inspect Ruby objects.
 test_files: []
 

data/lib/drxtk.rb

@@ -1,210 +0,0 @@
-require 'drx'
-require 'tk'
-
-module Drx
-  def self.examinetk(obj)
-    app = Drx::TkGUI::DrxWindow.new
-    app.see(obj)
-    app.run
-  end
-
-  # easier to type...
-  def self.see(obj)
-    examinetk(obj)
-  end
-end
-
-module Drx
-  module TkGUI
-   
-    # The 'DRX_EDITOR_COMMAND' environment variable overrides this.
-    EDITOR_COMMAND = 'gedit +%d "%s"'
-
-    class ScrolledListbox < TkFrame
-      def initialize(*args, &block)
-        super(*args, &block)
-        @the_list = the_list = TkListbox.new(self) {
-          #pack :side => 'left'#, :expand => 'true', :fill => 'both'
-        }
-        TkScrollbar.new(self) { |s|
-          pack :side => 'right', :fill => 'y'
-          command { |*args| the_list.yview *args }
-          the_list.yscrollcommand { |first,last| s.set first,last }
-        }
-        TkScrollbar.new(self) { |s|
-          orient 'horizontal'
-          pack :side => 'bottom', :fill => 'x'
-          command { |*args| the_list.xview *args }
-          the_list.xscrollcommand { |first,last| s.set first,last }
-        }
-        @the_list.pack(:side => 'left', :expand => 'true', :fill => 'both')
-      end
-      def the_list
-        @the_list
-      end
-    end
-
-    class ::TkListbox
-      def get_selection
-        idx = curselection[0]
-        return get(idx)
-      end
-      def get_index
-        curselection[0]
-      end
-    end
-
-    class DrxWindow
-      def initialize
-        @stack = []
-        root = TkRoot.new
-        @evalbox = TkEntry.new(root) {
-          font 'Courier'
-          pack(:side => 'bottom', :fill => 'both')
-        }
-        TkLabel.new(root, :anchor => 'w') {
-          text 'Type some code to eval in the context of the selected object; prepend with "see" to examine it.'
-          pack(:side => 'bottom', :fill => 'both')
-        }
-        @list = (ScrolledListbox.new(root) {
-          pack :side => 'left', :fill => 'both', :expand => true
-        }).the_list
-        @list.width 52
-        @list.height 25
-        @list.focus
-        @varsbox = (ScrolledListbox.new(root) {
-          pack :side => 'left', :fill => 'both', :expand => true
-        }).the_list
-        @methodsbox = (ScrolledListbox.new(root) {
-          pack :side => 'left', :fill => 'both', :expand => true
-        }).the_list
-
-        @list.bind('<ListboxSelect>') {
-          @current_object = @objs[@list.get_index]
-          display_variables(current_object)
-          display_methods(current_object)
-        }
-        @list.bind('ButtonRelease-3') {
-          back
-        }
-        @list.bind('Double-Button-1') {
-          descend_iclass
-        }
-        @varsbox.bind('<ListboxSelect>') {
-          print "\n== Variable #{@varsbox.get_selection}\n\n"
-          p selected_var
-        }
-        @varsbox.bind('Double-Button-1') {
-          see selected_var
-        }
-        @varsbox.bind('ButtonRelease-3') {
-          require 'pp'
-          print "\n== Variable #{@varsbox.get_selection}\n\n"
-          pp selected_var
-        }
-        @evalbox.bind('Key-Return') {
-          eval_code
-        }
-        @methodsbox.bind('Double-Button-1') {
-          locate_method(current_object, @methodsbox.get_selection)
-        }
-      end
-
-      def open_up_editor(filename, lineno)
-        command = sprintf(ENV['DRX_EDITOR_COMMAND'] || EDITOR_COMMAND, lineno, filename)
-        puts "Execting: #{command}..."
-        if !fork
-          if !Kernel.system(command)
-            puts "Could not execure the command '#{command}'"
-          end
-          exit!
-        end
-      end
-
-      def locate_method(obj, method_name)
-        place = Drx.locate_method(obj, method_name)
-        if !place
-          puts "Method #{method_name} doesn't exist"
-        else
-          if place =~ /\A(\d+):(.*)/
-            open_up_editor($2, $1)
-          else
-            puts "Can't locate method, because: #{place}"
-          end
-        end
-      end
-
-      def back
-        if @stack.size > 1
-          @stack.pop
-          see @stack.pop
-        end
-      end
-
-      def selected_var
-        Drx.get_ivar(current_object, @varsbox.get_selection)
-      end
-
-      def eval_code
-        code = @evalbox.get.strip
-        see = !!code.sub!(/^see\s/, '')
-        result = current_object.instance_eval(code)
-        p result
-        see(result) if see
-      end
-
-      def current_object
-        @current_object
-      end
-
-      def display_variables(obj)
-        @varsbox.delete('0', 'end')
-        if (Drx.has_iv_tbl(obj)) 
-          vars = Drx.get_iv_tbl(obj).keys.map do |v| v.to_s end.sort
-          # Get rid of gazillions of Tk classes:
-          vars = vars.reject { |v| v =~ /Tk|Ttk/ }
-          @varsbox.insert('end', *vars)
-        end
-      end
-      
-      def display_methods(obj)
-        @methodsbox.delete('0', 'end')
-        if (Drx.is_class_like(obj)) 
-          methods = Drx.get_m_tbl(obj).keys.map do |v| v.to_s end.sort
-          @methodsbox.insert('end', *methods)
-        end
-      end
-      
-      def display_hierarchy(obj)
-        @list.delete('0', 'end')
-        @objs = []
-        Drx.examine(obj) do |line, o|
-          @list.insert('end', line)
-          @objs << o
-        end
-      end
-      
-      def see(obj)
-        @current_object = obj
-        @stack << obj
-        display_hierarchy(obj)
-        display_variables(obj)
-        display_methods(obj)
-      end
-      
-      def descend_iclass
-        obj = if Drx.get_type(current_object) == Drx::T_ICLASS
-                Drx.get_klass(current_object)
-              else
-                current_object
-              end
-        see(obj)
-      end
-
-      def run
-        Tk.mainloop
-      end
-    end
-
-  end # module TkGUI
-end # module Drx