rbx-trepanning 0.0.8-universal-rubinius-1.2 → 0.1.0-universal-rubinius-1.2

data/processor/command/help/examples.txt

@@ -0,0 +1,16 @@
+Command examples
+
+# This line does nothing. It is a comment. Useful in debugger command files.
+     # This line also does nothing. 
+s    # by default, this is an alias for the "step" command
+!s   # shows the value of variable "s".
+!!s  # Evaluates "!s" (or "not s"). The first ! is indicates evaluate.
+ !s  # Same as above, since there is a space in column one.
+
+info program;; list # Runs two commands "info program" and "list"
+pr  "hi ;;-)"  # Syntax error since ;; splits the line and " is not closed.
+!puts "hi ;;-)" # One way to do the above.
+
+See also "macro" "alias", "irb", "set auto eval", "set auto irb", "set
+abbrev", "info macro", and "show" variants of the above "set"
+commands.

data/processor/command/help/filename.txt

@@ -1,4 +1,4 @@
-syntax for indicating a filename
+Syntax for indicating a filename
 
 There are two ways you can give a file name:
   - unadorned (without double-quotes) with possible escapes

data/processor/command/help/suffixes.txt

@@ -0,0 +1,17 @@
+Command suffixes which have special meaning
+
+Some commands like "step", or "list" do different things when an
+alias to the command ends in a particular suffix like ">". 
+
+Here are a list of commands and the special suffixes:
+
+command   suffix
+-------   ------
+list       >
+step       +,-,<,>
+next       +,-,<,> 
+quit       !
+kill       !
+eval       ?
+
+See help on the commands listed above for the specific meaning of the suffix.

data/processor/command/info.rb

@@ -1,5 +1,5 @@
 # -*- coding: utf-8 -*-
-# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
 require 'rubygems'; require 'require_relative'
 require_relative 'base/submgr'
 
@@ -24,5 +24,7 @@ end
 
 if __FILE__ == $0
   require_relative '../mock'
+  require 'ruby-debug'; Debugger.start; debugger
   dbgr, cmd = MockDebugger::setup
+  cmd.run(['info', 'iv'])
 end

data/processor/command/info_subcmd/files.rb

@@ -53,9 +53,10 @@ EOH
   include Trepanning
 
   def file_list
-    (LineCache.class_variable_get('@@file_cache').keys +
+    (LineCache.cached_files + 
      LineCache.class_variable_get('@@file2file_remap').keys).uniq
   end
+
   def complete(prefix)
     completions = ['.'] + file_list
     Trepan::Complete.complete_token(completions, prefix)
@@ -84,7 +85,7 @@ EOH
           return false
           nil
         else
-          frame_file = @proc.frame_file
+          frame_file = @proc.frame.file
           LineCache::map_file(frame_file) || File.expand_path(frame_file)
         end
       else

data/processor/command/info_subcmd/frame.rb

@@ -35,6 +35,8 @@ Frame basename
 See also: backtrace
     EOH
     MIN_ABBREV   = 'fr'.size # Note we have "info file"
+    MIN_ARGS     = 0
+    MAX_ARGS     = 0
     NEED_STACK   = true
     SHORT_HELP   = 'Show information about the selected frame'
   end
@@ -61,7 +63,6 @@ end
 if __FILE__ == $0
   # Demo it.
   require_relative '../../mock'
-  dbgr, cmd = MockDebugger::setup('info')
   cmd = MockDebugger::sub_setup(Trepan::Subcommand::InfoFrame, false)
   cmd.run(cmd.prefix)
 end

data/processor/command/info_subcmd/line.rb

@@ -2,6 +2,8 @@
 # Copyright (C) 2011 Rocky Bernstein <rockyb@rubyforge.net>
 require 'rubygems'; require 'require_relative'
 require_relative '../base/subcmd'
+require_relative '../../../app/iseq'
+
 
 class Trepan::Subcommand::InfoLine < Trepan::Subcommand
   unless defined?(HELP)
@@ -21,38 +23,21 @@ Examples:
     SHORT_HELP   = 'Byte code offsets for source code line'
    end
 
-  def ip_ranges_for_line(lines, line)
-    result = []
-    in_range = false
-    start_ip = nil
-    total = lines.size
-    i = 1
-    while i < total
-      cur_line = lines.at(i)
-      if cur_line == line
-        start_ip = lines.at(i-1)
-        in_range = true
-      elsif cur_line > line && in_range
-        result << [start_ip, lines.at(i-1)]
-        start_ip = nil
-        in_range = false
-      end
-      i += 2
-    end
-    if in_range && start_ip
-      result << [start_ip, lines.at(total-1)]
-    end
-    result
-  end
-  
+  include Trepan::ISeq
+
   def run(args)
     frame = @proc.frame
     vm_location = frame.vm_location
     cm          = frame.method
     filename    = cm.file
     lines       = cm.lines
+    tail_code   = false
     if args.size == 2
       line_no     = vm_location.line
+      if line_no == 0
+        tail_code = true
+        line_no = frame.line
+      end
     else
       lineno_str = args[2]
       opts = {
@@ -64,12 +49,16 @@ Examples:
       line_no = @proc.get_an_int(lineno_str, opts)
       return false unless line_no
     end
-      
-    ranges      = ip_ranges_for_line(lines, line_no)
+    ranges, prefix = 
+      if tail_code
+        [ip_ranges_for_ip(lines, frame.next_ip), 'Tail code preceding line']
+      else
+        [ip_ranges_for_line(lines, line_no), 'Line']
+      end
     if ranges.empty?
-      msg "Line %s of %s:\n\tno bytecode offsets" % [line_no, filename]
+      msg "%s %s of %s:\n\tno bytecode offsets" % [prefix, line_no, filename]
     else
-      msg "Line %s of %s:" % [line_no, filename]
+      msg "%s %s of %s:" % [prefix, line_no, filename]
       ranges.each do |tuple|
         msg "\t starts at offset %d and ends before offset %d" % tuple
       end

data/processor/command/info_subcmd/locals.rb

@@ -0,0 +1,22 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2011 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../base/subcmd'
+
+class Trepan::Subcommand::InfoLocals < Trepan::Subcommand
+  unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
+    HELP = 'Same thing as "info locals"'
+    NEED_LOCALS   = true
+   end
+
+  def run(args)
+    @proc.commands['info'].run(%w(info variables locals))
+  end
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../mock'
+  # ???
+end

data/processor/command/{show_subcmd → info_subcmd}/macro.rb

@@ -4,7 +4,7 @@ require 'rubygems'; require 'require_relative'
 require_relative '../base/subcmd'
 require_relative '../../../app/complete'
 
-class Trepan::Subcommand::ShowMacro < Trepan::Subcommand
+class Trepan::Subcommand::InfoMacro < Trepan::Subcommand
   unless defined?(HELP)
     Trepanning::Subcommand.set_name_prefix(__FILE__, self)
     HELP = <<-HELP
@@ -19,8 +19,8 @@ In the second form, all macro names and their definitions are show.
 
 In the last form the only definitions of the given macro names is shown.
     HELP
-    SHORT_HELP = "Show defined macros"
-    MIN_ABBREV = 'ma'.size
+    SHORT_HELP = "Info defined macros"
+    MIN_ABBREV = 'mac'.size
   end
 
   def complete(prefix)
@@ -57,6 +57,6 @@ if __FILE__ == $0
   # Demo it.
   $0 = __FILE__ + 'notagain' # So we don't run this agin
   require_relative '../../mock'
-  cmd = MockDebugger::sub_setup(Trepan::Subcommand::ShowMacro)
+  cmd = MockDebugger::sub_setup(Trepan::Subcommand::InfoMacro)
   cmd.run(cmd.prefix + %w(u foo))
 end

data/processor/command/info_subcmd/program.rb

@@ -7,6 +7,8 @@ class Trepan::Subcommand::InfoProgram < Trepan::Subcommand
   unless defined?(HELP)
     Trepanning::Subcommand.set_name_prefix(__FILE__, self)
     HELP         = 'Information about debugged program and its environment'
+    MIN_ARGS     = 0
+    MAX_ARGS     = 0
     MIN_ABBREV   = 'pr'.size
     NEED_STACK   = true
    end

data/processor/command/info_subcmd/ruby.rb

@@ -17,6 +17,8 @@ See also constants: RUBY_DESCRIPITON, RUBY_VERSION, and RUBY_RELEASE_DATE."
     EOH
     MIN_ABBREV   = 'ru'.size
     NEED_STACK   = false
+    MIN_ARGS     = 0
+    MAX_ARGS     = 0
     SHORT_HELP   = 'Ruby version information'
    end
 

data/processor/command/info_subcmd/source.rb

@@ -0,0 +1,75 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2011 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require 'linecache'
+require 'columnize'
+require_relative '../base/subcmd'
+require_relative '../../../app/file'
+require_relative '../../../app/complete'
+
+class Trepan::Subcommand::InfoSource < Trepan::Subcommand
+  unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
+    DEFAULT_FILE_ARGS = %w(size mtime sha1)
+
+    HELP = <<-EOH
+#{CMD} 
+
+Show information about the current source file. 
+EOH
+    MAX_ARGS     = 0
+    MIN_ABBREV   = 'so'.size  # Note we have "info frame"
+    NEED_STACK   = true
+  end
+
+  # completion %w(all brkpts iseq sha1 size stat)
+
+  include Trepanning
+
+  # Get file information
+  def run(args)
+    if not @proc.frame
+      errmsg('No frame - no default file.')
+      return false
+    end
+    frame_file = @proc.frame.file
+    filename = LineCache::map_file(frame_file) || File.expand_path(frame_file)
+    canonic_name = @proc.canonic_file(filename)
+    canonic_name = LineCache::map_file(canonic_name) || canonic_name
+    m = filename
+    if LineCache::cached?(canonic_name)
+      m += ' is cached in debugger'
+      if canonic_name != filename
+        m += (' as:\n  ' + canonic_name)
+      end
+      m += '.'
+      msg(m)
+    end
+    max_line = LineCache::size(canonic_name)
+    msg 'File has %d lines.' % max_line if max_line
+    msg('SHA1 is %s.' % LineCache::sha1(canonic_name))
+    msg('Possible breakpoint line numbers:')
+    lines = LineCache.trace_line_numbers(canonic_name)
+    fmt_lines = columnize_numbers(lines)
+    msg(fmt_lines)
+    if cm = LineCache.compiled_method(canonic_name)
+      msg("File has compiled method: #{cm}")
+    else
+      msg('Compiled method not recorded; there may be some, though.')
+    end
+    msg("Stat info:\n\t%s" % LineCache::stat(canonic_name).inspect)
+  end
+end
+
+if __FILE__ == $0
+  if !(ARGV.size == 1 && ARGV[0] == 'noload')
+    ISEQS__        = {}
+    SCRIPT_ISEQS__ = {}
+    ARGV[0..-1]    = ['noload']
+    load(__FILE__)
+  else    
+    require_relative '../../mock'
+    cmd = MockDebugger::sub_setup(Trepan::Subcommand::InfoSource, false)
+    cmd.run(cmd.prefix)
+  end
+end

data/processor/command/info_subcmd/stack.rb

@@ -0,0 +1,25 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2011 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../base/subcmd'
+
+
+class Trepan::Subcommand::InfoStack < Trepan::Subcommand
+  unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
+    HELP = 'Same thing as "backtrace"'
+    MIN_ABBREV   = 'st'.size
+    NEED_STACK   = true
+   end
+
+  def run(args)
+    @proc.commands['backtrace'].run(['backtrace'] + args[2..-1])
+  end
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../mock'
+  cmd = MockDebugger::sub_setup(Trepan::Subcommand::InfoStack, false)
+  cmd.run(cmd.prefix)
+end

data/processor/command/info_subcmd/variables.rb

@@ -1,48 +1,35 @@
 # -*- coding: utf-8 -*-
 # Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
 require 'rubygems'; require 'require_relative'
-require_relative '../base/subcmd'
+require_relative '../base/subsubcmd'
+require_relative '../base/subsubmgr'
 
-class Trepan::Command::InfoVariables < Trepan::Subcommand
-  Trepanning::Subcommand.set_name_prefix(__FILE__, self)
-  MIN_ABBREV   = 'var'.size
-  NEED_STACK   = true
-  SHORT_HELP   = 'Display the value of a variable or variables'
-  HELP         = <<-HELP
-Show debugger variables and user created variables. By default,
-shows all variables.
+class Trepan::Subcommand::InfoVariables < Trepan::SubSubcommandMgr
+  unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
+    HELP = <<-EOH
+#{CMD} [locals|globals|instance]
 
-The optional argument is which variable specifically to show the value of.
-      HELP
-  
-  def run(args)
-    if args.size == 2
-      @proc.dbgr.variables.each do |name, val|
-        msg "var '#{name}' = #{val.inspect}"
-      end
-      
-      if @proc.dbgr.user_variables > 0
-        section "User variables"
-        (0...@proc.dbgr.user_variables).each do |i|
-          str = "$d#{i}"
-          val = Rubinius::Globals[str.to_sym]
-          msg "var #{str} = #{val.inspect}"
-        end
-      end
-    else
-      var = args[2]
-      if @proc.dbgr.variables.key?(var)
-        msg "var '#{var}' = #{variables[var].inspect}"
-      else
-        errmsg "No variable set named '#{var}'"
-      end
-    end
+List various classes of variables for the current stack frame.
+
+Examples:
+#{CMD} locals    # show local variables
+#{CMD} globals   # show global variables
+    EOH
+    NEED_STACK   = true
+    SHORT_HELP   = 'List names and/or values from the current stack frame'
   end
 end
 
 if __FILE__ == $0
   # Demo it.
   require_relative '../../mock'
-  cmd = MockDebugger::sub_setup(Trepan::Subcommand::InfoVariables, false)
-  # cmd.run(cmd.prefix)
+  dbgr, parent_cmd = MockDebugger::setup('info', false)
+  cmd = Trepan::Subcommand::InfoVariables.new(dbgr.processor, 
+                                              parent_cmd)
+  cmd.run(cmd.prefix + %w(locals))
+  cmd.run(cmd.prefix + %w(globals name))
+  %w(loc glo globals i).each do |prefix|
+    p [prefix, cmd.complete(prefix)]
+  end
 end

data/processor/command/info_subcmd/variables_subcmd/.gitignore

@@ -0,0 +1,2 @@
+/*~
+/*.rbc

data/processor/command/info_subcmd/variables_subcmd/class.rb

@@ -0,0 +1,42 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative 'locals'
+
+class Trepan::Subcommand::InfoVariablesClass < 
+    Trepan::Subcommand::InfoVariablesLocals
+  Trepan::Util.suppress_warnings {
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
+    HELP         = <<-EOH
+#{CMD}
+#{CMD} [names]
+
+Show class variables of the current stack frame.
+Normally for each which show both the name and value. If you just
+want a list of names add parameter 'names'.
+EOH
+    SHORT_HELP   = 'Show instance variables of the current stack frame'
+    MIN_ABBREV   = 'co'.size
+    MIN_ARGS     = 0
+    MAX_ARGS     = 1
+    NEED_STACK   = true
+  }
+
+  def get_names
+    @proc.debug_eval_no_errmsg('self.class_variables.sort') || []
+  end
+
+  def run(args)
+    run_for_type(args, 'class', @proc.debug_eval('self'))
+  end
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../mock'
+  cmd = 
+    MockDebugger::subsub_setup(Trepan::Subcommand::InfoVariables,
+                               Trepan::Subcommand::InfoVariablesClass)
+  cmd.run(cmd.prefix)
+  cmd.run(cmd.prefix + ['name'])
+end