rb8-trepanning 0.1.3

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

@@ -0,0 +1,23 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../../base/subsubcmd'
+
+class Trepan::SubSubcommand::ShowTracePrint < Trepan::ShowBoolSubSubcommand
+  unless defined?(HELP)
+    HELP = "Show tracing print status"
+    MIN_ABBREV   = 'p'.size
+    NAME         = File.basename(__FILE__, '.rb')
+    PREFIX       = %w(show trace buffer)
+    SHORT_HELP   = "Show tracing print status"
+  end
+
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../../mock'
+  require_relative '../trace'
+  cmd = MockDebugger::subsub_setup(Trepan::SubSubcommand::ShowTrace,
+                                   Trepan::SubSubcommand::ShowTracePrint)
+end

data/processor/command/show_subcmd/version.rb

@@ -0,0 +1,23 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../../../app/options'
+require_relative '../base/subcmd'
+
+class Trepan::Subcommand::ShowVersion < Trepan::Subcommand
+  unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
+    HELP         = "Show what version of #{Trepan::PROGRAM} this is"
+    MIN_ABBREV   = 'vers'.size
+  end
+
+  def run(args)
+    msg Trepan::show_version
+  end
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../mock'
+  cmd = MockDebugger::sub_setup(Trepan::Subcommand::ShowVersion)
+end

data/processor/command/source.rb

@@ -0,0 +1,134 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
+require 'optparse'
+
+# Our local modules
+require 'rubygems'; require 'require_relative'
+require_relative 'base/cmd'
+require_relative '../../interface/script'
+require_relative '../../io/null_output'
+require_relative '../../app/default'
+
+class Trepan::Command::SourceCommand < Trepan::Command
+  unless defined?(HELP)
+    NAME = File.basename(__FILE__, '.rb')
+    HELP = <<-HELP
+#{NAME} [options] FILE
+
+options: 
+    -q | --quiet | --no-quiet
+    -c | --continue | --no-continue
+    -Y | --yes | -N | --no
+    -v | --verbose | --no-verbose
+
+Read debugger commands from a file named FILE.  Optional -v switch
+causes each command in FILE to be echoed as it is executed.  Option -Y
+sets the default value in any confirmation command to be 'yes' and -N
+sets the default value to 'no'.
+
+Option -q will turn off any debugger output that normally occurs in the
+running of the program.
+
+Note that the command startup file #{Trepan::CMD_INITFILE_BASE} is read automatically
+via a #{NAME} command the debugger is started.
+
+An error in any command terminates execution of the command file
+unless option -c or --continue is given.
+    HELP
+    CATEGORY     = 'support'
+    MIN_ARGS     = 1  # Need at least this many
+    MAX_ARGS     = nil
+    SHORT_HELP   = 'Read and run debugger commands from a file'
+
+    DEFAULT_OPTIONS = {
+      :abort_on_error => false,
+      :confirm_val => false,
+      :quiet => false,
+      :verbose => false
+    }
+
+  end
+
+  def complete(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
+        |v| 
+        options[:abort_on_error] = !v
+      end
+      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
+        |v| 
+        if seen_yes_no
+          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
+        |v| 
+        options[:quiet] = v
+      end
+      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.")
+        end
+        options[:confirm_val] = true
+        seen_yes_no = true
+      end
+    end
+    parser.parse(args)
+    return options
+  end
+
+  def run(args)
+    options = parse_options(DEFAULT_OPTIONS.dup, args[1..-2])
+    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' (%s) is not a readable file" % 
+             [filename, expanded_file])
+      return false
+    end
+    
+    # Push a new debugger interface.
+    script_intf = Trepan::ScriptInterface.new(expanded_file, output, options)
+    intf << script_intf
+    return false
+  end
+end
+  
+# Demo it
+if __FILE__ == $0
+  require_relative '../mock'
+  dbgr, cmd = MockDebugger::setup
+  %w(--quiet -q --no-quiet --continue --no-continue -c -v --verbose 
+     --no-verbose).each do |opt|
+    puts "parsing #{opt}"
+    options = 
+      cmd.parse_options(Trepan::Command::SourceCommand::DEFAULT_OPTIONS.dup,
+                        opt)
+    p options
+  end
+
+  if ARGV.size >= 1 
+    puts "running... #{cmd.name} #{ARGV}"
+    cmd.run([cmd.name, *ARGV])
+  end
+end

data/processor/command/step.rb

@@ -0,0 +1,81 @@
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative 'base/cmd'
+
+class Trepan::Command::StepCommand < Trepan::Command
+
+  ALIASES      = %w(s s+ s- step+ step-)
+  CATEGORY     = 'running'
+  NAME         = File.basename(__FILE__, '.rb')
+  HELP         = <<-HELP
+#{NAME}[+|-] [into]  [count]
+
+Execute the current line, stopping at the next line.  Sometimes this
+is called 'step into'.
+
+Behaves like 'next', but if there is a method call on the current line,
+execution is stopped in the called method.
+
+Examples: 
+  #{NAME}        # step 1 line
+  #{NAME} 1      # same as above
+  #{NAME} into   # same as above
+  #{NAME} into 1 # same as above
+  #{NAME} 5/5+0  # same as above
+  #{NAME}+       # same but force stopping on a new line
+  #{NAME}-       # same but force stopping on a new line a new frame added
+  #{NAME} until a > b
+  #{NAME} over   # same as 'next'
+  #{NAME} out    # same as 'finish'
+
+Related and similar is the 'next' (step over) and 'finish' (step out)
+commands.
+
+See also the commands:
+'continue', 'next', 'nexti' and 'finish' for other ways to progress execution.
+      HELP
+  NEED_RUNNING = true
+  SHORT_HELP   = 'Step into next method call or to next line'
+
+  Keyword_to_related_cmd = {
+    'out'  => 'finish',
+    'over' => 'next',
+    'into' => 'step',
+  }
+  
+  # self.allow_in_post_mortem = false
+  # self.need_context         = true
+    
+  def run(args)
+    condition = nil
+    opts = {}
+    if args.size == 1
+      step_count = 1
+    else
+      replace_cmd = Keyword_to_related_cmd[args[1]]
+      if replace_cmd
+        cmd = @proc.commands[replace_cmd]
+        return cmd.run([replace_cmd] + args[2..-1])
+      end
+      step_str = args[1]
+      opts = @proc.parse_next_step_suffix(args[0])
+      count_opts = {
+        :msg_on_error => 
+        "The #{NAME} command argument must eval to an integer. Got: %s" % 
+        step_str,
+        :min_value => 1
+      }
+      step_count = @proc.get_an_int(step_str, count_opts)
+      return unless step_count
+    end
+    ## @proc.state.context.step(step_count, force)
+    @proc.context.step(step_count, opts[:different_pos])
+    @proc.state.proceed
+    @proc.leave_cmd_loop = true
+  end
+end
+
+if __FILE__ == $0
+  require_relative '../mock'
+  dbgr, cmd = MockDebugger::setup
+end

data/processor/command/tbreak.rb

@@ -0,0 +1,19 @@
+require 'rubygems'; require 'require_relative'
+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/unalias.rb

@@ -0,0 +1,44 @@
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative 'base/cmd'
+
+class Trepan::Command::UnaliasCommand < Trepan::Command
+
+  unless defined?(HELP)
+    HELP = 
+"unalias COMMAND
+
+Remove alias for COMMAND
+
+See also 'alias'.
+"
+
+    CATEGORY      = 'support'
+    MIN_ARGS      = 1
+    # MAX_ARGS      = 1  # Need at most this many
+    NAME          = File.basename(__FILE__, '.rb')
+    NEED_STACK    = true
+    SHORT_HELP    = 'Remove an alias'
+  end
+  
+  # Run command. 
+  def run(args)
+    args[1..-1].each do |arg|
+      if @proc.aliases.member?(arg)
+        @proc.aliases.delete(arg)
+        msg "Alias for #{arg} removed."
+      else
+        msg "No alias found for #{arg}."
+      end
+    end
+  end
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../mock'
+  dbgr, cmd = MockDebugger::setup
+  cmd.run %w(cmd.name exit!)
+  cmd.run %w(cmd.name exit!)
+  cmd.run %w(cmd.name foo bar c)
+end

data/processor/command/undisplay.rb

@@ -0,0 +1,59 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative 'base/cmd'
+
+# undisplay display-number...
+class Trepan::Command::UndisplayCommand < Trepan::Command
+    
+  unless defined?(HELP)
+    NAME = File.basename(__FILE__, '.rb')
+    HELP = <<EOH
+undisplay DISPLAY_NUMBER ...
+Cancel some expressions to be displayed when program stops.
+Arguments are the code numbers of the expressions to stop displaying.
+No argument means cancel all automatic-display expressions.
+"delete display" has the same effect as this command.
+Do "info display" to see current list of code numbers.
+EOH
+
+    ALIASES       = %w(und)
+    CATEGORY      = 'data'
+    NEED_STACK    = false
+    SHORT_HELP    = 'Cancel some expressions to be displayed when program stops'
+  end
+
+  def run(args)
+    
+    if args.size == 1
+      @proc.displays.clear
+      return
+    end
+    opts = {}
+    args[1..-1].each do |arg|
+      opts[:msg_on_error] = '%s must be a display number' % arg
+      i = @proc.get_an_int(arg, opts)
+      if i 
+        unless @proc.displays.delete_index(i)
+          errmsg("no display number %d." % i)
+          return
+        end
+      end
+      return false
+    end
+  end
+end
+
+if __FILE__ == $0
+  # demo it.
+  require_relative '../mock'
+  dbgr, cmd = MockDebugger::setup
+
+  def run_cmd(cmd, args)
+    cmd.run(args)
+    puts '==' * 10
+  end
+
+  run_cmd(cmd, %W(#{cmd.name} z))
+  run_cmd(cmd, %W(#{cmd.name} 1 10))
+end

data/processor/command/up.rb

@@ -0,0 +1,72 @@
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative 'base/cmd'
+
+# up command. Like 'down' butthe direction (set by DIRECTION) is different.
+#
+# NOTE: The down command  subclasses this, so beware when changing! 
+class Trepan::Command::UpCommand < Trepan::Command
+
+  # Silence already initialized constant .. warnings
+  old_verbose = $VERBOSE  
+  $VERBOSE    = nil
+  NAME        = File.basename(__FILE__, '.rb')
+  HELP        = <<-HELP
+#{NAME} [count]
+
+Move the current frame up in the stack trace (to an older frame). 0 is
+the most recent frame. If no count is given, move up 1.
+
+See also 'down' and 'frame'.
+  HELP
+
+  ALIASES       = %w(u)
+  CATEGORY      = 'stack'
+  MAX_ARGS      = 1  # Need at most this many
+  NEED_STACK    = true
+  SHORT_HELP    = 'Move frame in the direction of the caller of the last-selected frame'
+  $VERBOSE      = old_verbose
+
+  def complete(prefix)
+    @proc.frame_complete(prefix, @direction)
+  end
+  
+  def initialize(proc)
+    super
+    @direction = +1 # -1 for down.
+  end
+
+  # Run 'up' command.
+  def run(args)
+
+    # FIXME: move into @proc and test based on NEED_STACK.
+    if @proc.stack_size == 0
+      errmsg('No frames recorded.')
+      return false
+    end
+
+    if args.size == 1
+      # Form is: "up" which means "up 1"
+      count = 1
+    else
+      count_str = args[1]
+      name_or_id = args[1]
+      low, high = @proc.frame_low_high(@direction)
+      opts = {
+        :msg_on_error =>
+        "The '#{NAME}' command argument must eval to an integer. Got: %s" % count_str,
+        :min_value => low, :max_value => high
+      }
+      count = @proc.get_an_int(count_str, opts)
+      return false unless count
+    end
+    @proc.adjust_frame(@direction * count, false)
+  end
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../mock'
+  dbgr, cmd = MockDebugger::setup
+  cmd.run [cmd.name]
+end