trepanning 0.1.2 → 0.1.3

data/processor/command/show_subcmd/hidelevel.rb

@@ -5,7 +5,7 @@ require_relative '../base/subsubcmd'
 class Trepan::Subcommand::ShowHidelevel < Trepan::ShowIntSubcommand
   unless defined?(HELP)
     Trepanning::Subcommand.set_name_prefix(__FILE__, self)
-    HELP = 'Show the number of stack levels to hide'
+    HELP         = 'Show the number of stack levels to hide'
     MIN_ABBREV   = 'hide'.size
   end
   def run(args)

data/processor/command/show_subcmd/highlight.rb

@@ -6,7 +6,8 @@ require_relative '../base/subsubmgr'
 class Trepan::Subcommand::ShowHighlight < Trepan::ShowBoolSubcommand
   unless defined?(HELP)
     Trepanning::Subcommand.set_name_prefix(__FILE__, self)
-    HELP   = 'Show whether we use highlight highlighting'
+    HELP         = 'Show whether we use terminal highlighting'
+    MIN_ABBREV   = 'high'.size
   end
 
   def run(args)

data/processor/command/show_subcmd/reload.rb

@@ -0,0 +1,17 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2011 Rocky Bernstein <rockyb@rubyforge.net>
+require_relative '../base/subcmd'
+
+class Trepan::Subcommand::ShowReload < Trepan::ShowBoolSubcommand
+  unless defined?(SHORT_HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
+    HELP = "Show whether to reread source text when it changes"
+    MIN_ABBREV = 're'.size
+  end
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../mock'
+  cmd = MockDebugger::sub_setup(Trepan::Subcommand::ShowReload, false)
+end

data/processor/command/show_subcmd/timer.rb

@@ -0,0 +1,17 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2011 Rocky Bernstein <rockyb@rubyforge.net>
+require_relative '../base/subcmd'
+
+class Trepan::Subcommand::ShowTimer < Trepan::ShowBoolSubcommand
+  unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
+    HELP       = "Show status of the timing hook"
+    MIN_ABBREV = 'ti'.size
+  end
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../mock'
+  cmd = MockDebugger::sub_setup(Trepan::Subcommand::ShowTimer)
+end

data/processor/command/show_subcmd/trace_subcmd/buffer.rb

@@ -3,8 +3,8 @@
 require_relative '../../base/subsubcmd'
 
 class Trepan::SubSubcommand::ShowTraceBuffer < Trepan::ShowBoolSubSubcommand
-  Trepanning::SubSubcommand.set_name_prefix(__FILE__, self)
   unless defined?(HELP)
+    Trepanning::SubSubcommand.set_name_prefix(__FILE__, self)
     HELP         = <<-EOH
 #{CMD} [NUM]
 

data/processor/command/source.rb

@@ -49,37 +49,37 @@ unless option -c or --continue is given.
   end
 
   def complete(prefix)
-    # opts = %w(-c --continue --no-continue -N --no -y --yes
-    #           --verbose --no-verbose)
-    # return Trepan::Complete.complete_token(opts, prefix) if prefix.empty?
-    Readline::FILENAME_COMPLETION_PROC.call(prefix) || []
+    files = Readline::FILENAME_COMPLETION_PROC.call(prefix) || []
+    opts = %w(-c --continue --no-continue -N --no -y --yes
+              --verbose --no-verbose) + files
+    Trepan::Complete.complete_token(opts, prefix) 
   end
     
   def parse_options(options, args) # :nodoc
     seen_yes_no = false
     parser = OptionParser.new do |opts|
-      opts.on("-c", "--[no-]continue", 
-              "Continue in the face of errors") do
+      opts.on('-c', '--[no-]continue', 
+              'Continue in the face of errors') do
         |v| 
         options[:abort_on_error] = !v
       end
-      opts.on("-v", 
-              "--[no-]verbose", "echo each command as it is executed") do
+      opts.on('-v', 
+              '--[no-]verbose', 'echo each command as it is executed') do
         |v| 
         options[:verbose] = v
       end
-      opts.on("-N", "--no", "Use 'no' in any confirmation prompts") do
+      opts.on('-N', '--no', "Use 'no' in any confirmation prompts") do
         |v| 
         if seen_yes_no
-          msg("Yes/No option already seen. This option (no) ignored.")
+          msg('Yes/No option already seen. This option (no) ignored.')
         end
         options[:confirm_val] = false
       end
-      opts.on("-q", "--[no-]quiet", "Silence debugger output") do
+      opts.on('-q', '--[no-]quiet', 'Silence debugger output') do
         |v| 
         options[:quiet] = v
       end
-      opts.on("-Y", "--yes", "Use 'yes' in any confirmation prompts") do
+      opts.on('-Y', '--yes', "Use 'yes' in any confirmation prompts") do
         |v| 
         if seen_yes_no
           msg("Yes/No option already seen. This option, --yes, ignored.")
@@ -94,14 +94,15 @@ unless option -c or --continue is given.
 
   def run(args)
     options = parse_options(DEFAULT_OPTIONS.dup, args[1..-2])
-    intf = @proc.dbgr.intf
+    intf = @proc.interfaces
     output  = options[:quiet] ? Trepan::OutputNull.new(nil) : intf[-1].output
     
     filename = args[-1]
     
     expanded_file = File.expand_path(filename)
     unless File.readable?(expanded_file)
-      errmsg("Debugger command file '%s' is not a readable file" % filename)
+      errmsg("Debugger command file '%s' (%s) is not a readable file" % 
+             [filename, expanded_file])
       return false
     end
     

data/processor/command/tbreak.rb

@@ -0,0 +1,20 @@
+require_relative './base/cmd'
+require_relative 'break'
+
+class Trepan::Command::SetTempBreakpointCommand < 
+    Trepan::Command::BreakCommand
+  ALIASES      = []
+  CATEGORY     = 'breakpoints'
+  NAME         = File.basename(__FILE__, '.rb')
+  HELP         = <<-HELP
+Same as break, but the breakpoint is deleted when it is hit.
+
+See also "break".
+      HELP
+  SHORT_HELP   = 'Set a temporary breakpoint'
+  
+  def run(args)
+    super args, true
+  end
+end
+

data/processor/command/watchg.rb

@@ -0,0 +1,114 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
+require_relative 'base/cmd'
+require_relative '../../app/complete'
+
+class Trepan::Command::WatchgCommand < Trepan::Command
+  unless defined?(HELP)
+    NAME      = File.basename(__FILE__, '.rb')
+    CATEGORY  = 'breakpoints'
+    HELP         = <<-EOH
+#{NAME} GLOBAL_VARIABLE [on]
+#{NAME} GLOBAL_VARIABLE nostop
+#{NAME} GLOBAL_VARIABLE off
+
+Use Kernel.trace_var to trace changes of global variable
+GLOBAL_VARIABLE.  If nostop is given, then we just print out the 
+location and variable name but do not stop in the debugger.
+
+To remove a prior trace, add "off" to the end.
+
+Note in contrast to other events, stopping for variable tracing occurs
+*after* the event, not before.
+
+NOTE: this command name will likely change in the future.
+
+Examples:
+#{NAME} $PROGRAM_NAME       # enter debugger if global $PROGRAM_NAME changes
+#{NAME} $PROGRAM_NAME on    # same as above
+#{NAME} $PROGRAN_NAME stop  # just print places the varaible is set
+                            # along with the location
+#{NAME} $PROGRAN_NAME off   # remove watching changes
+
+See also 'info breakpoints'
+    EOH
+
+    MAX_ARGS     = 3
+    SHORT_HELP   = "Set to display trace or untrace a global variable."
+  end
+
+  def complete(prefix)
+    Trepan::Complete.complete_token(global_variables.map{|v| v.to_s},
+                                    prefix)
+  end
+
+  def trace_var(traced_var, action)
+    traced_sym = traced_var.to_sym
+    if traced_var[0] == '$'
+      unless global_variables.member?(traced_sym)
+        msg "Warning: global variable #{traced_var} is not currently defined"
+      end
+      if @proc.traced_vars.member?(traced_var)
+        if @proc.traced_vars[traced_var] == action
+          errmsg "global variable #{traced_var} is already traced with #{action}."
+          return
+        end
+      else
+        Kernel.trace_var(traced_sym, 
+                         lambda {|val| 
+                           @proc.core.trace_var_processor(traced_var, val)})
+      end
+      @proc.traced_vars[traced_var] = action
+      msg("Tracing for variable #{traced_var} set to: #{action}.")
+    else
+      errmsg "Expecting a global variable to trace, got: #{traced_var}"
+    end
+  end
+
+  def run(args)
+    if args.size == 2
+      trace_var(args[1], 'stop')
+    elsif args.size == 3
+      unless %w(nostop on off).member?(args[2])
+        errmsg "Expecting third argument to be 'on' 'off' or 'nostop'; got #{args[2]}"
+        return
+      end
+      traced_var = args[1]
+      if args[2] == 'off'
+        unless @proc.traced_vars.member?(traced_var)
+          msg "Warning: variable #{traced_var} is not currently marked as traced."
+        end
+        untrace_var(traced_var.to_sym)
+        @proc.traced_vars.delete(traced_var)
+        msg("Removed trace for variable #{traced_var}.")
+      else
+        traced_var = args[1]
+        if @proc.traced_vars.member?(traced_var)
+          @proc.traced_vars[traced_var] = args[2]
+        else
+          trace_var(traced_var, args[2])
+        end
+      end
+    else
+      errmsg "Expecting two or three arguments, got #{args.size}"
+    end
+  end
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../mock'
+  dbgr, cmd = MockDebugger::setup
+  core = dbgr.core
+  def core.event_processor(event, frame, arg=nil)
+    puts "traced global changed: event: #{event}, frame #{frame}, #{arg.inspect} "
+  end
+  cmd.run(%w(variable $FOO))
+  cmd.run(%w(variable $FOO))
+  cmd.run(%w(variable gaga))
+  $FOO=0
+  cmd.run(%w(variable $FOO off))
+  $FOO=1
+  cmd.run(%w(variable $FOO off))
+end
+

data/processor/default.rb

@@ -1,48 +1,50 @@
 # Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
 require_relative '../app/default'
-class Trepan
-  class CmdProcessor
+require_relative 'virtual'
+class Trepan::CmdProcessor < Trepan::VirtualCmdProcessor
 
-    DEFAULT_SETTINGS = {
-      :autoeval      => true,      # Ruby eval non-debugger commands
-      :autoirb       => false,     # Go into IRB in debugger command loop
-      :autolist      => false,     # Run 'list' 
-
-      :basename      => false,     # Show basename of filenames only
-      :confirm       => true,      # Confirm potentially dangerous operations?
-      :different     => 'nostack', # stop *only* when  different position? 
-
-      :debugdbgr     => false,     # Debugging the debugger
-      :debugexcept   => true,      # Internal debugging of command exceptions
-      :debugmacro    => false,     # debugging macros
-      :debugskip     => false,     # Internal debugging of step/next skipping
-      :directory     =>            # last-resort path-search for files
-                    '$cdir:$cwd',  # that are not fully qualified.
-
-      :hidestack     => nil,       # Fixnum. How many hidden outer
-                                   # debugger stack frames to hide?
-                                   # nil or -1 means compute value. 0
-                                   # means hide none. Less than 0 means show
-                                   # all stack entries.
-      :hightlight    => false,     # Use terminal highlight? 
+  DEFAULT_SETTINGS = {
+    :abbrev        => true,      # Allow abbreviations of debugger commands?
+    :autoeval      => true,      # Ruby eval non-debugger commands
+    :autoirb       => false,     # Go into IRB in debugger command loop
+    :autolist      => false,     # Run 'list' 
+    
+    :basename      => false,     # Show basename of filenames only
+    :confirm       => true,      # Confirm potentially dangerous operations?
+    :different     => 'nostack', # stop *only* when  different position? 
+    
+    :debugdbgr     => false,     # Debugging the debugger
+    :debugexcept   => true,      # Internal debugging of command exceptions
+    :debugmacro    => false,     # debugging macros
+    :debugskip     => false,     # Internal debugging of step/next skipping
+    :directory     =>            # last-resort path-search for files
+    '$cdir:$cwd',  # that are not fully qualified.
+    
+    :hidestack     => nil,       # Fixnum. How many hidden outer
+                                 # debugger stack frames to hide?
+                                 # nil or -1 means compute value. 0
+                                 # means hide none. Less than 0 means show
+                                 # all stack entries.
+    :hightlight    => false,     # Use terminal highlight? 
       
-      :maxlist       => 10,        # Number of source lines to list 
-      :maxstack      => 10,        # backtrace limit
-      :maxstring     => 150,       # Strings which are larger than this
-                                   # will be truncated to this length when
-                                   # printed
-      :maxwidth       => (ENV['COLUMNS'] || '80').to_i,
-      :prompt         => 'trepan', # core part of prompt. Additional info like
-                                   # debug nesting and 
-      :save_cmdfile  => nil,       # If set, debugger command file to be
-                                   # used on restart
-      :timer         => false,     # show elapsed time between events
-      :traceprint    => false,     # event tracing printing
-      :tracebuffer   => false,     # save events to a trace buffer.
-      :user_cmd_dir  => File.join(Trepan::HOME_DIR, 'tepanx', 'command'),
-                                   # User command directory
-    }
-  end
+    :maxlist       => 10,        # Number of source lines to list 
+    :maxstack      => 10,        # backtrace limit
+    :maxstring     => 150,       # Strings which are larger than this
+                                 # will be truncated to this length when
+                                 # printed
+    :maxwidth       => (ENV['COLUMNS'] || '80').to_i,
+    :prompt         => 'trepan', # core part of prompt. Additional info like
+                                 # debug nesting and 
+    :reload         => false,    # Reread source file if we determine
+                                 # it has changed?
+    :save_cmdfile  => nil,       # If set, debugger command file to be
+                                 # used on restart
+    :timer         => false,     # show elapsed time between events
+    :traceprint    => false,     # event tracing printing
+    :tracebuffer   => false,     # save events to a trace buffer.
+    :user_cmd_dir  => File.join(%W(#{Trepan::HOME_DIR} trepan command)),
+                                 # User command directory
+  }
 end
 
 if __FILE__ == $0

data/processor/display.rb

@@ -1,7 +1,8 @@
-# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
 require_relative '../app/display'
+require_relative 'virtual'
 class Trepan
-  class CmdProcessor
+  class CmdProcessor < VirtualCmdProcessor
     attr_reader   :displays
 
     def display_initialize

data/processor/eval.rb

@@ -1,6 +1,8 @@
-# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'
+require_relative 'virtual'
 class Trepan
-  class CmdProcessor
+  class CmdProcessor < VirtualCmdProcessor
 
     def debug_eval(str, max_fake_filename=15)
       begin
@@ -73,7 +75,7 @@ end
 
 if __FILE__ == $0
   # Demo it.
-  cmdp = Trepan::CmdProcessor.new
+  cmdp = Trepan::CmdProcessor.new([])
   puts cmdp.fake_eval_filename('x = 1; y = 2')
   puts cmdp.fake_eval_filename('x = 1; y = 2', 7)
 

data/processor/eventbuf.rb

@@ -3,9 +3,10 @@
 # Trace::Buffer for this prupose.
 require 'trace'
 require 'linecache'
+require_relative 'virtual'
 
 class Trepan
-  class CmdProcessor
+  class CmdProcessor < VirtualCmdProcessor
 
     attr_reader :eventbuf
     attr_reader :event_tracefilter
@@ -115,7 +116,7 @@ class Trepan
 end
 if __FILE__ == $0
   # Demo it.
-  cmdproc = Trepan::CmdProcessor.new
+  cmdproc = Trepan::CmdProcessor.new([])
   cmdproc.eventbuf_initialize(5)
 
   def cmdproc.msg(mess)

data/processor/frame.rb

@@ -1,9 +1,10 @@
-# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
 require 'linecache'
 require_relative '../app/complete'
 require_relative '../app/frame'
+require_relative 'virtual'
 class Trepan
-  class CmdProcessor
+  class CmdProcessor < VirtualCmdProcessor
 
     attr_reader   :current_thread
 
@@ -44,7 +45,15 @@ class Trepan
       if frame 
         @frame = frame
         @frame_index = frame_num
-        print_location unless @settings[:traceprint]
+        unless @settings[:traceprint]
+          opts = {
+            :basename    => settings[:basename],
+            :current_pos => frame_num,
+            :maxwidth    => settings[:maxwidth],
+          }
+          print_stack_trace_from_to(frame_num, frame_num, frame, opts)
+          print_location 
+        end
         @line_no = frame_line() - 1
         @frame
       else