rb8-trepanning 0.1.3

data/processor/command/info_subcmd/.gitignore

@@ -0,0 +1 @@
+/*~

data/processor/command/info_subcmd/args.rb

@@ -0,0 +1,39 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2011 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../base/subcmd'
+
+class Trepan::Subcommand::InfoArgs < Trepan::Subcommand
+  unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
+    HELP         = 'Show argument variables of the current stack frame'
+    MIN_ABBREV   = 'ar'.size
+    MIN_ARGS     = 0
+    MAX_ARGS     = 0
+    NEED_STACK   = true
+   end
+
+  def run(args)
+    locals = @proc.frame.local_variables
+    args = @proc.frame.args
+    if args.empty?
+      msg "argument list is empty"
+    else
+      args.each do |name|
+        s = "#{name} = #{locals[name].inspect}"
+        if s.size > @proc.settings[:maxwidth]
+          s[@proc.settings[:maxwidth]-3 .. -1] = "..."
+        end
+        msg "#{s}\n"
+      end
+    end
+  end
+end
+
+if __FILE__ == $0
+  # Demo it.
+  $0 = __FILE__ + 'notagain' # So we don't run this again
+  require_relative '../../mock'
+  cmd = MockDebugger::sub_setup(Trepan::Subcommand::InfoArgs, false)
+  cmd.run(cmd.prefix)
+end

data/processor/command/info_subcmd/breakpoints.rb

@@ -0,0 +1,80 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../base/subcmd'
+
+class Trepan::Subcommand::InfoBreakpoints < Trepan::Subcommand
+  unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
+    HELP         = <<-EOH
+#{PREFIX.join(' ')} [num1 ...]
+
+Show status of user-settable breakpoints. If no breakpoint numbers are
+given, the show all breakpoints. Otherwise only those breakpoints
+listed are shown and the order given. If VERBOSE is given, more
+information provided about each breakpoint.
+
+The "Disp" column contains one of "keep", "del", the disposition of
+the breakpoint after it gets hit.
+
+The "enb" column indicates whether the breakpoint is enabled.
+
+The "Where" column indicates where the breakpoint is located.
+EOH
+    MIN_ABBREV   = 'br'.size
+    SHORT_HELP   = 'Status of user-settable breakpoints'
+  end
+  
+  def run(args)
+    unless @proc.state.context
+      errmsg "info breakpoints not available here."
+      return 
+    end
+    unless Debugger.breakpoints.empty?
+      brkpts = Debugger.breakpoints.sort_by{|b| b.id}
+      unless args[2..-1].empty?
+        a = args.map{|a| a.to_i}
+        brkpts = brkpts.select{|b| a.member?(b.id)}
+        if brkpts.empty?
+          errmsg "No breakpoints found among list given.\n"
+          return
+        end
+      end
+      section "Num Enb What"
+      brkpts.each do |b|
+        fname = settings[:basename] ? 
+        File.basename(b.source) : b.source
+        
+        if b.expr.nil?
+          msg "%3d %s   at %s:%s" %  
+            [b.id, (b.enabled? ? 'y' : 'n'), fname, b.pos]
+        else
+          msg "%3d %s   at %s:%s if %s" %  
+            [b.id, (b.enabled? ? 'y' : 'n'), fname, b.pos, b.expr]
+        end
+        hits = b.hit_count
+        if hits > 0
+          s = (hits > 1) ? 's' : ''
+          msg "\tbreakpoint already hit #{hits} time#{s}"
+        end
+      end
+    else
+      msg "No breakpoints."
+    end
+  end
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../mock'
+  name = File.basename(__FILE__, '.rb')
+  dbgr, cmd = MockDebugger::setup('info')
+  subcommand = Trepan::Subcommand::InfoBreakpoints.new(cmd)
+
+  puts '-' * 20
+  subcommand.run(%w(info break))
+  puts '-' * 20
+  subcommand.summary_help(name)
+  puts
+  puts '-' * 20
+end

data/processor/command/info_subcmd/catch.rb

@@ -0,0 +1,36 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2011 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../base/subcmd'
+
+class Trepan::Subcommand::InfoCatch < Trepan::Subcommand
+  unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
+    HELP         = 'Show argument variables of the current stack frame'
+    MIN_ABBREV   = 'cat'.size
+    MIN_ARGS     = 0
+    MAX_ARGS     = 0
+    NEED_STACK   = true
+   end
+
+  def run(args)
+    if Debugger.catchpoints and not Debugger.catchpoints.empty?
+      # FIXME: show whether Exception is valid or not
+      # print "Exception: is_a?(Class)\n"
+      Debugger.catchpoints.each do |exception, hits|
+        # print "#{exception}: #{exception.is_a?(Class)}\n"
+        msg "#{exception}"
+      end
+    else
+      msg "No exceptions set to be caught."
+    end
+  end
+end
+
+if __FILE__ == $0
+  # Demo it.
+  $0 = __FILE__ + 'notagain' # So we don't run this again
+  require_relative '../../mock'
+  cmd = MockDebugger::sub_setup(Trepan::Subcommand::InfoProgram, false)
+  ## cmd.run(cmd.prefix)
+end

data/processor/command/info_subcmd/files.rb

@@ -0,0 +1,39 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2011 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../base/subcmd'
+
+class Trepan::Subcommand::InfoFiles < Trepan::Subcommand
+  unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
+    HELP         = 'Show files cached by the debugger'
+    MIN_ABBREV   = 'files'.size
+    MIN_ARGS     = 0
+    MAX_ARGS     = 0
+    NEED_STACK   = false
+   end
+
+  def run(args)
+    files = LineCache::cached_files
+    files += SCRIPT_LINES__.keys unless 'stat' == args[0] 
+    files.uniq.sort.each do |file|
+      stat = LineCache::stat(file)
+      path = LineCache::path(file)
+      print "File %s" % file
+      if path and path != file
+        msg(" - %s" % path)
+      else
+        msg ''
+      end
+      msg(("\t%s" % stat.mtime)) if stat
+    end
+  end
+end
+
+if __FILE__ == $0
+  # Demo it.
+  $0 = __FILE__ + 'notagain' # So we don't run this again
+  require_relative '../../mock'
+  cmd = MockDebugger::sub_setup(Trepan::Subcommand::InfoFiles, false)
+  cmd.run(cmd.prefix)
+end

data/processor/command/info_subcmd/globals.rb

@@ -0,0 +1,64 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require 'columnize'
+require_relative '../base/subcmd'
+require_relative '../../../app/frame'
+
+class Trepan::Subcommand::InfoGlobals < Trepan::Subcommand
+  unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
+    HELP         = <<-EOH
+#{CMD}
+#{CMD} [names]
+
+Show global variables.
+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 global variables'
+    MIN_ARGS     = 0
+    MAX_ARGS     = 1
+    MIN_ABBREV   = 'gl'.size 
+    NEED_STACK   = true
+  end
+
+  def run(args)
+    if args.size == 3
+      if 0 == 'names'.index(args[-1].downcase)
+        if global_variables.empty?
+            msg "No global variables defined."
+        else
+          section "Global variable names:"
+          width = settings[:maxwidth]
+          mess = Columnize::columnize(global_variables.sort, 
+                                      @proc.settings[:maxwidth], '  ',
+                                      false, true, ' ' * 2).chomp
+          msg mess
+        end
+      else
+        errmsg("unrecognized argument #{args[2]}")
+      end
+    elsif args.size == 2
+      if global_variables.empty?
+        msg "No global variables defined."
+      else
+        section "Global variables:"
+        global_variables.sort.each do |var_name| 
+          s = @proc.debug_eval(var_name)
+          msg("#{var_name} = #{s.inspect}")
+        end
+      end
+    else
+      errmsg("Wrong number of arguments #{args.size}")
+    end
+  end
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../mock'
+  cmd = MockDebugger::sub_setup(Trepan::Subcommand::InfoGlobals, false)
+  cmd.run(cmd.prefix)
+  cmd.run(cmd.prefix + ['name'])
+end

data/processor/command/info_subcmd/line.rb

@@ -0,0 +1,30 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2011 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../base/subcmd'
+
+
+class Trepan::Subcommand::InfoLine < Trepan::Subcommand
+  unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
+    HELP = 'Line number and file name of current position in source file'
+    MIN_ABBREV   = 'li'.size
+    NEED_STACK   = true
+   end
+
+  def run(args)
+    unless @proc.state.context
+      errmsg "info line not available here."
+      return 
+    end
+    frame = @proc.frame
+    msg "Line %d of \"%s\"" %  [frame.line, @proc.canonic_file(frame.file)]
+  end
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../mock'
+  cmd = MockDebugger::sub_setup(Trepan::Subcommand::InfoLine, false)
+  cmd.run(cmd.prefix)
+end

data/processor/command/info_subcmd/locals.rb

@@ -0,0 +1,69 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require 'columnize'
+require_relative '../base/subcmd'
+require_relative '../../../app/frame'
+
+class Trepan::Subcommand::InfoLocals < Trepan::Subcommand
+  unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
+    HELP         = <<-EOH
+#{CMD}
+#{CMD} [names]
+
+Show local variables including parameters 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 local variables of the current stack frame'
+    MIN_ARGS     = 0
+    MAX_ARGS     = 1
+    MIN_ABBREV   = 'lo'.size 
+    NEED_STACK   = true
+  end
+
+  def get_local_names
+    @proc.frame.local_variables.keys
+  end
+
+  def run(args)
+    if args.size == 3
+      if 0 == 'names'.index(args[-1].downcase)
+        local_names = get_local_names()
+        if local_names.empty?
+            msg "No local variables defined."
+        else
+          section "Local variable names:"
+          width = settings[:maxwidth]
+          mess = Columnize::columnize(local_names, 
+                                      @proc.settings[:maxwidth], '  ',
+                                      false, true, ' ' * 2).chomp
+          msg mess
+        end
+      else
+        errmsg("unrecognized argument #{args[2]}")
+      end
+    elsif args.size == 2
+      local_names = get_local_names
+      if local_names.empty?
+        msg "No local variables defined."
+      else
+        section "Local variables:"
+        @proc.frame.local_variables.each do |var_name, var_value| 
+          msg("#{var_name} = #{var_value}")
+        end
+      end
+    else
+      errmsg("Wrong number of arguments #{args.size}")
+    end
+  end
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../mock'
+  cmd = MockDebugger::sub_setup(Trepan::Subcommand::InfoLocals, false)
+  cmd.run(cmd.prefix)
+  cmd.run(cmd.prefix + ['name'])
+end

data/processor/command/info_subcmd/macro.rb

@@ -0,0 +1,62 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../base/subcmd'
+require_relative '../../../app/complete'
+
+class Trepan::Subcommand::InfoMacro < Trepan::Subcommand
+  unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
+    HELP = <<-HELP
+#{CMD} 
+#{CMD} *
+#{CMD} MACRO1 [MACRO2 ..]
+
+In the first form a list of the existing macro names are shown
+in column format.
+
+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 = "Info defined macros"
+    MIN_ABBREV = 'ma'.size
+  end
+
+  def complete(prefix)
+    Trepan::Complete.complete_token(@proc.macros.keys + %w(*), prefix)
+  end
+
+  def run(args)
+    if args.size > 2
+      macro_names = 
+        if args.size == 3 && '*' == args[2] 
+          @proc.macros.keys
+        else
+          args[2..-1]
+        end        
+      macro_names.each do |macro_name|
+        if @proc.macros.member?(macro_name)
+          section "#{macro_name}:"
+          string = @proc.macros[macro_name][1]
+          msg "  #{@proc.ruby_format(string)}", {:unlimited => true}
+        else
+          errmsg "%s is not a defined macro" % macro_name
+        end
+      end
+    elsif @proc.macros.empty?
+      msg "No macros defined."
+    else
+      msg columnize_commands(@proc.macros.keys.sort)
+    end
+  end
+
+end
+
+if __FILE__ == $0
+  # Demo it.
+  $0 = __FILE__ + 'notagain' # So we don't run this agin
+  require_relative '../../mock'
+  cmd = MockDebugger::sub_setup(Trepan::Subcommand::InfoMacro)
+  cmd.run(cmd.prefix + %w(u foo))
+end

data/processor/command/info_subcmd/program.rb

@@ -0,0 +1,51 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2011 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../base/subcmd'
+
+class Trepan::Subcommand::InfoProgram < Trepan::Subcommand
+  unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
+    HELP         = 'Show argument variables of the current stack frame'
+    MIN_ABBREV   = 'pr'.size
+    MIN_ARGS     = 0
+    MAX_ARGS     = 0
+    NEED_STACK   = true
+   end
+
+  def run(args)
+    if not @proc.context
+      errmsg 'The program being debugged is not being run.'
+      return
+    end
+    case @proc.event 
+    when :raise
+      status = 'crashed'
+    else
+      status = 'stopped'
+    end
+
+    msg "Program #{status}."
+    event_arg = @proc.state.processor.event_arg
+    case @proc.context.stop_reason
+    when :step
+      msg "It stopped after stepping, next'ing or initial start."
+    when :breakpoint
+      msg("It stopped at breakpoint %d.\n" %
+            (Debugger.breakpoints.index(event_arg)+1))
+    when :catchpoint
+      msg("Handling an uncaught exception `%s' (%s)." % [event_arg,  
+            event_arg.class])
+    else
+      msg "unknown reason: %s" % @proc.context.stop_reason.to_s
+    end
+  end
+end
+
+if __FILE__ == $0
+  # Demo it.
+  $0 = __FILE__ + 'notagain' # So we don't run this again
+  require_relative '../../mock'
+  cmd = MockDebugger::sub_setup(Trepan::Subcommand::InfoProgram, false)
+  ## cmd.run(cmd.prefix)
+end