rb8-trepanning 0.1.3

data/processor/command/next.rb

@@ -0,0 +1,79 @@
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative 'base/cmd'
+
+class Trepan::Command::NextCommand < Trepan::Command
+
+  ALIASES      = %w(n n+ n- next+)
+  CATEGORY     = 'running'
+  NAME         = File.basename(__FILE__, '.rb')
+  HELP         = <<-HELP
+#{NAME}[+|-] [into]  [count]
+
+Attempt to continue execution and stop at the next line. If there is
+a conditional branch between the current position and the next line,
+execution is stopped within the conditional branch instead.
+
+The optional argument is a number which specifies how many lines to
+attempt to skip past before stopping execution.
+
+If the current line is the last in a method, execution is stopped
+at the current position of the caller.
+
+See also 'step' and 'nexti'.
+
+Examples: 
+  #{NAME}        # next 1 line
+  #{NAME} 1      # same as above
+  #{NAME}+       # same but force stopping on a new line
+  #{NAME}-       # same but force stopping on a new line or a new frame added
+
+Related and similar is the 'step' (step into) and 'finish' (step out)
+commands.
+      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_over(step_count, @proc.state.frame_pos, 
+                            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/parsetree.rb

@@ -0,0 +1,56 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2011 Rocky Bernstein <rockyb@rubyforge.net>
+begin
+  require 'rubygems'; require 'require_relative'
+  require 'parse_tree'
+  require_relative 'base/cmd'
+  require_relative '../../app/cmd_parse'
+  class Trepan::Command::ParseTreeCommand < Trepan::Command
+    
+    unless defined?(HELP)
+      NAME = File.basename(__FILE__, '.rb')
+      HELP = <<-HELP
+#{NAME}
+#{NAME}  method
+
+In the first form, print a ParseTree S-expression of the current 
+class. 
+In the second form, preint a ParseTree S-expression of the current method.
+In the third form print a ParseTree S-expression of CLASS.
+In the fourth form, print a ParseTree S-expression of the given method.
+HELP
+
+    # ALIASES       = %w(p)
+      CATEGORY      = 'data'
+      SHORT_HELP    = 'PrettyPrint a ParseTree S-expression'
+    end
+    
+    def run(args)
+      meth = nil
+      case args.size
+      when 1
+        method_name = @proc.frame.method_name
+      when 2
+        method_name = args[1]
+      else
+        errmsg 'Expecting a method name'
+      end
+      meth = Trepan::CmdParser.meth_for_string(method_name, @proc.frame.binding)
+      if meth and meth.kind_of?(Method)
+        section "ParseTree for method: #{method_name}"
+        msg ParseTree.translate(meth.owner, meth.name.to_sym).pretty_inspect
+      end
+    end
+
+    if __FILE__ == $0
+      require 'pp'
+      require_relative '../mock'
+      dbgr, cmd = MockDebugger::setup
+      cmd.proc.frame_setup(Debugger.current_context, nil)
+      cmd.proc.frame.instance_variable_set('@binding', TOPLEVEL_BINDING)
+      cmd.run([cmd.name, 'FileUtils.rm'])
+    end
+    
+  end
+rescue LoadError
+end

data/processor/command/pp.rb

@@ -0,0 +1,40 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2011 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require 'pp'
+require_relative 'base/cmd'
+class Trepan::Command::PPCommand < Trepan::Command
+
+  unless defined?(HELP)
+    NAME = File.basename(__FILE__, '.rb')
+    HELP = 
+      "#{NAME} EXPRESSION
+
+Prtty Print the value of the EXPRESSION. Variables accessible are
+those of the environment of the selected stack frame, plus globals.
+
+If the length output string large, the first part of the value is
+shown and ... indicates it has been truncated.
+
+See 'set max string' to change the string truncation limit.
+"
+    CATEGORY      = 'data'
+    SHORT_HELP    = 'pretty print expression truncating long output'
+  end
+  
+  def run(args)
+    obj = @proc.debug_eval(@proc.cmd_argstr)
+    msg (obj.respond_to?(:pretty_inspect) ? obj.pretty_inspect : obj.inspect)
+  end
+end
+        
+if __FILE__ == $0
+  require_relative '../mock'
+  dbgr, cmd = MockDebugger::setup
+  ['(0..10).to_a', '$LOADED_FEATURES'].each do |expr_str|
+    cmd_argstr = expr_str
+      cmd.proc.instance_variable_set('@cmd_argstr', cmd_argstr)
+    cmd.run([cmd.name, cmd_argstr])
+    puts '-' * 20
+  end
+end

data/processor/command/pr.rb

@@ -0,0 +1,37 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative 'base/cmd'
+class Trepan::Command::PrCommand < Trepan::Command
+
+  unless defined?(HELP)
+    NAME = File.basename(__FILE__, '.rb')
+    HELP = 
+      "#{NAME} EXPRESSION
+
+Print the value of the EXPRESSION. Variables accessible are those of the
+environment of the selected stack frame, plus globals. 
+
+If the length output string large, the first part of the value is
+shown and ... indicates it has been truncated.
+
+See 'set max string' to change the string truncation limit.
+"
+
+    # ALIASES       = %w(p)
+    CATEGORY      = 'data'
+    SHORT_HELP    = 'print expression truncating long output'
+  end
+  
+  def run(args)
+    msg @proc.debug_eval(@proc.cmd_argstr, settings[:maxstring])
+  end
+end
+        
+if __FILE__ == $0
+  require_relative '../mock'
+  dbgr, cmd = MockDebugger::setup
+  arg_str = '1 + 2'
+  cmd.proc.instance_variable_set('@cmd_argstr', arg_str)
+  cmd.run([cmd.name, arg_str])
+end

data/processor/command/ps.rb

@@ -0,0 +1,40 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative 'base/cmd'
+require_relative '../eval'
+class Trepan::Command::PsCommand < Trepan::Command
+
+  unless defined?(HELP)
+    HELP = 
+      "ps ARRAY
+
+Print the value of the ARRAY in columns and sorted."
+
+    CATEGORY      = 'data'
+    MIN_ARGS      = 1  # Need least this many
+    NAME          = File.basename(__FILE__, '.rb')
+    SHORT_HELP    = 'Print array sorted and in columns'
+  end
+  
+  def run(args)
+    array = @proc.debug_eval(@proc.cmd_argstr, settings[:maxstring])
+    # FIXME: should test for enumerable
+    if array.is_a?(Array)
+      msg columnize_commands(array.sort)
+    else
+      errmsg "ps: #{@proc.cmd_argstr} should evaluate an Array not #{array.class}"
+    end
+  end
+end
+        
+if __FILE__ == $0
+  require_relative '../mock'
+  dbgr, cmd = MockDebugger::setup
+  arg_str = '(1..30).to_a'
+  cmd.proc.instance_variable_set('@cmd_argstr', arg_str)
+  cmd.run([cmd.name, arg_str])
+  arg_str = '1'
+  cmd.proc.instance_variable_set('@cmd_argstr', arg_str)
+  cmd.run([cmd.name, arg_str])
+end

data/processor/command/restart.rb

@@ -0,0 +1,86 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2011 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative 'base/cmd'
+## require_relative '../../app/run'
+class Trepan::Command::RestartCommand < Trepan::Command
+
+  unless defined?(HELP)
+    NAME         = File.basename(__FILE__, '.rb')
+    ALIASES      = %w(R run)
+    HELP = <<-HELP
+#{NAME} 
+
+Restart debugger and program via an exec call. All state is lost, and
+new copy of the debugger is used.
+    HELP
+    
+    CATEGORY     = 'running'
+    MAX_ARGS     = nil  # Need at most this many
+    SHORT_HELP  = '(Hard) restart of program via exec()'
+  end
+    
+  # This method runs the command
+  def run(args)
+    if not defined? Trepan::PROG_SCRIPT
+      errmsg "Don't know name of debugged program"
+      return
+    end
+    prog_script = Trepan::PROG_SCRIPT
+    if not defined? Trepan::PROG_UNRESOLVED_SCRIPT
+      # FIXME? Should ask for confirmation? 
+      msg "Debugger was not called from the outset..."
+      trepan8_script = prog_script
+    else 
+      trepan8_script = Trepan::PROG_UNRESOLVED_SCRIPT
+    end
+    begin
+      Dir.chdir(Trepan::INITIAL_DIR)
+    rescue
+      print "Failed to change initial directory #{Trepan::INITIAL_DIR}"
+    end
+    if not File.exist?(File.expand_path(prog_script))
+      errmsg "Ruby program #{prog_script} doesn't exist\n"
+      return
+    end
+    if not File.executable?(prog_script) and trepan8_script == prog_script
+      msg "Ruby program #{prog_script} doesn't seem to be executable..."
+      msg "We'll add a call to Ruby.\n"
+      ruby = begin defined?(Gem) ? Gem.ruby : "ruby" rescue "ruby" end
+      trepan8_script = "#{ruby} -I#{$:.join(' -I')} #{prog_script}"
+    else
+      trepan8_script += ' '
+    end
+    if args.size == 1
+      if not defined? Trepan::OldCommand.settings[:argv]
+        errmsg "Arguments have not been set. Use 'set args' to set them."
+        return
+      else
+        argv = Trepan::OldCommand.settings[:argv]
+      end
+    else
+      argv = [prog_script] + args[1..-1]
+    end
+    args = argv.join(' ')
+    
+    # An execv would be preferable to the "exec" below.
+    cmd = trepan8_script + args
+    msg "Re exec'ing:\n\t#{cmd}"
+    exec cmd
+  rescue Errno::EOPNOTSUPP
+    msg "Restart command is not available at this time."
+  end
+end
+
+if __FILE__ == $0
+  exit if ARGV[-1] == 'exit'
+  require_relative '../mock'
+  dbgr, cmd = MockDebugger::setup
+  Trepan::PROG_SCRIPT = ''
+  Trepan::INITIAL_DIR = Dir.pwd
+  cmd.run([cmd.name, $0, 'exit'])
+  dbgr.restart_argv = ARGV + ['exit']
+  # require_relative '../../debugger'
+  # Trepan.start
+  cmd.run([cmd.name])
+end

data/processor/command/save.rb

@@ -0,0 +1,58 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative 'base/cmd'
+class Trepan::Command::SaveCommand < Trepan::Command
+
+  unless defined?(HELP)
+    NAME = File.basename(__FILE__, '.rb')
+    HELP = <<-HELP
+#{NAME} [--[no-]erase] [--output|-o FILENAME]
+
+Save settings to file FILENAME. If FILENAME not given one will be made
+selected.
+    HELP
+
+    CATEGORY     = 'running'
+    MAX_ARGS     = 1  # Need at most this many
+    SHORT_HELP  = 'Send debugger state to a file'
+
+    DEFAULT_OPTIONS = { :erase => true, }
+  end
+    
+  def parse_options(options, args) # :nodoc
+    parser = OptionParser.new do |opts|
+      opts.on("-e", "--[no-]erase", 
+              "Add line to erase after reading") do
+        |v| 
+        options[:erase] = v
+      end
+      opts.on("-o", "--output FILE", String, 
+              "Save file to FILE. ") do 
+        |filename|
+        options[:filename] = filename
+      end
+    end
+    parser.parse(args)
+    return options
+  end
+
+  # This method runs the command
+  def run(args)
+    options = parse_options(DEFAULT_OPTIONS.dup, args[1..-1])
+    save_filename = @proc.save_commands(options)
+    msg "Debugger commands written to file: #{save_filename}" if
+      save_filename
+  end
+end
+
+if __FILE__ == $0
+  require_relative '../mock'
+  dbgr, cmd = MockDebugger::setup
+  require 'tmpdir'
+  cmd.run([cmd.name])
+  # require_relative '../../lib/trepanning'; debugger
+  cmd.run([cmd.name, '--erase', 
+           '--output', File.join(Dir.tmpdir, 'save_file.txt')])
+  # A good test would be to see we can read in those files without error.
+end

data/processor/command/set.rb

@@ -0,0 +1,47 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative 'base/submgr'
+
+class Trepan::Command::SetCommand < Trepan::SubcommandMgr
+  unless defined?(HELP)
+    HELP =
+'Modifies parts of the debugger environment.
+
+You can give unique prefix of the name of a subcommand to get
+information about just that subcommand.
+
+Type "set" for a list of "set" subcommands and what they do.
+Type "help set *" for just the list of "set" subcommands.
+
+For compatability with older ruby-debug "set auto..." is the
+same as "set auto ...". For example "set autolist" is the same 
+as "set auto list".
+'
+
+    CATEGORY      = 'support'
+    NAME          = File.basename(__FILE__, '.rb')
+    NEED_STACK    = false
+    SHORT_HELP    = 'Modify parts of the debugger environment'
+  end
+
+  def run(args)
+    if args.size > 1 
+      first = args[1].downcase
+      alen = 'auto'.size
+      args[1..1] = ['auto', first[alen..-1]] if
+        first.start_with?('auto') && first.size > alen
+    end
+    super
+  end
+
+end
+
+if __FILE__ == $0
+  require_relative '../mock'
+  dbgr, cmd = MockDebugger::setup
+  cmd.run([cmd.name])
+  cmd.run([cmd.name, 'autolist'])
+  cmd.run([cmd.name, 'autoeval', 'off'])
+  cmd.run([cmd.name, 'basename'])
+end