rb8-trepanning 0.1.3

data/processor/command/shell.rb

@@ -0,0 +1,139 @@
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../../io/input' # For GNU_readline?
+Trepan.suppress_warnings { require 'irb' }
+require_relative 'base/cmd'
+require_relative '../../app/irb'
+
+class Trepan::Command::IRBCommand < Trepan::Command
+
+  unless defined?(HELP)
+    NAME = File.basename(__FILE__, '.rb')
+    HELP = <<-HELP
+#{NAME} [-d]
+
+starts an Interactive Ruby (IRB) session.
+
+If -d is added you can get access to debugger frame the global variables
+$trepan_frame and $trepan_cmdproc. 
+
+#{NAME} is extended with methods 'cont', 'ne', and, 'q', 'step' which 
+run the corresponding debugger commands 'continue', 'next', 'exit' and 'step'. 
+
+To issue a debugger command, inside #{NAME} nested inside a debugger use
+'dbgr'. For example:
+
+  dbgr %w(info program)
+  dbgr('info', 'program') # Same as above
+  dbgr 'info program'     # Single quoted string also works
+
+But arguments have to be quoted because #{NAME} will evaluate them:
+
+  dbgr info program     # wrong!
+  dbgr info, program    # wrong!
+  dbgr(info, program)   # What I say 3 times is wrong!
+
+Here then is a loop to query VM stack values:
+  (-1..1).each {|i| dbgr(\"info reg sp \#{i}\")}
+     HELP
+
+    ALIASES    = %w(irb)
+    CATEGORY   = 'support'
+    MAX_ARGS   = 1  # Need at most this many
+    SHORT_HELP = "Run #{NAME} as a command subshell"
+  end
+
+  # This method runs the command
+  def run(args)
+    add_debugging = 
+      if args.size > 1
+        '-d' == args[1]
+      else
+        false
+      end
+
+    # unless @state.interface.kind_of?(LocalInterface)
+    #   print "Command is available only in local mode.\n"
+    #   throw :debug_error
+    # end
+
+    save_trap = trap('SIGINT') do
+      throw :IRB_EXIT, :cont if $trepan_in_irb
+    end
+
+    $trepan = @proc.dbgr 
+    if add_debugging
+      $trepan_cmdproc  = @proc
+      $trepan_frame    = @proc.frame
+    end
+    $trepan_in_irb = true
+    $trepan_irb_statements = nil
+    $trepan_command = nil
+
+    conf = {:BACK_TRACE_LIMIT => settings[:maxstack],
+            :RC => true}
+
+    # ?? Should we set GNU readline to what we have,
+    # or let IRB make its own determination? 
+
+    # Save the Readline history and set the Readline completion function 
+    # to be IRB's function 
+    if Trepan::GNU_readline? 
+      @proc.intf.save_history if @proc.intf.respond_to?(:save_history)
+      require 'irb/completion'
+      Readline.completion_proc = IRB::InputCompletor::CompletionProc
+    end
+
+    # And just when you thought, we'd never get around to 
+    # actually running irb...
+    cont = IRB.start_session(@proc.frame.binding, @proc, conf)
+    trap('SIGINT', save_trap) # Restore our old interrupt function.
+
+    # Restore the debuggers' Readline history and the Readline completion 
+    # function
+    if Trepan::GNU_readline? && $trepan_completion_proc
+      @proc.intf.read_history if @proc.intf.respond_to?(:read_history)
+      Readline.completion_proc = $trepan_completion_proc 
+    end
+
+    # Respect any backtrace limit set in irb.
+    back_trace_limit = IRB.CurrentContext.back_trace_limit
+    if settings[:maxstack] !=  back_trace_limit
+      msg("\nSetting debugger's BACK_TRACE_LIMIT (%d) to match irb's last setting (%d)" % 
+          [settings[:maxstack], back_trace_limit])
+      settings[:maxstack]= IRB.CurrentContext.back_trace_limit
+    end
+
+    case cont
+    when :continue
+      @proc.continue
+    when :finish
+      @proc.finish 
+    when :next
+      @proc.next # (1, {})
+    when :quit
+      @proc.quit
+    when :step
+      @proc.step # (1, {})
+    else
+      @proc.print_location
+    end
+  ensure
+    $trepan_in_irb = false
+    # restore old trap if any
+    trap('SIGINT', save_trap) if save_trap
+  end
+end
+
+if __FILE__ == $0
+  require_relative '../mock'
+  # dbgr, cmd = MockDebugger::setup
+  dbgr, cmd = MockDebugger::setup(nil, false)
+  cmd.proc.frame.instance_variable_set('@binding', binding)
+  # Get an IRB session -- the hard way :-)
+  if ARGV.size > 0
+    cmd.run([cmd.name]) 
+  else
+    puts "Pass an arg to enter irb. e.g: #{$0} irb"
+  end
+end

data/processor/command/show.rb

@@ -0,0 +1,39 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative 'base/submgr'
+
+class Trepan::Command::ShowCommand < Trepan::SubcommandMgr
+  unless defined?(HELP)
+    NAME = File.basename(__FILE__, '.rb')
+    HELP = <<-HELP
+Generic command for showing things about the debugger.  You can
+give unique prefix of the name of a subcommand to get information
+about just that subcommand.
+
+Type "#{NAME}" for a list of "show" subcommands and what they do.
+Type "help #{NAME} *" for just a list of "show" subcommands.
+    HELP
+
+    CATEGORY      = 'status'
+    NEED_STACK    = false
+    SHORT_HELP    = 'Show 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])
+end

data/processor/command/show_subcmd/.gitignore

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

data/processor/command/show_subcmd/abbrev.rb

@@ -0,0 +1,20 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../base/subcmd'
+
+class Trepan::Subcommand::ShowAbbrev < Trepan::ShowBoolSubcommand
+  unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
+    HELP       = "Show whether we allow abbreviate debugger command names"
+    MIN_ABBREV = 'ab'.size
+  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::ShowAbbrev)
+end

data/processor/command/show_subcmd/alias.rb

@@ -0,0 +1,46 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../base/subcmd'
+
+class Trepan::Subcommand::ShowAlias < Trepan::Subcommand
+  Trepanning::Subcommand.set_name_prefix(__FILE__, self)
+  unless defined?(HELP)
+    HELP         = <<-EOH
+#{CMD} [NAME1 NAME2 ...] 
+
+If aliases names are given, show their definition. If left blank, show
+all alias names
+    EOH
+    MIN_ABBREV = 'al'.size
+    SHORT_HELP = "Show defined aliases"
+  end
+
+  def complete(prefix)
+    Trepan::Complete.complete_token(@proc.aliases.keys, prefix)
+  end
+
+  def run(args)
+    if args.size > 2
+      args[2..-1].each do |alias_name|
+        if @proc.aliases.member?(alias_name)
+          msg "%s: %s" % [alias_name, @proc.aliases[alias_name]]
+        else
+          msg "%s is not a defined alias" % alias_name
+        end
+      end
+    elsif @proc.aliases.empty?
+      msg "No aliases defined."
+    else
+      section "List of aliases names currently defined:"
+      msg columnize_commands(@proc.aliases.keys.sort)
+    end
+  end
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../mock'
+  cmd = MockDebugger::sub_setup(Trepan::Subcommand::ShowAlias)
+  cmd.run(cmd.prefix + %w(u foo))
+end

data/processor/command/show_subcmd/args.rb

@@ -0,0 +1,34 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../base/subcmd'
+
+class Trepan::Subcommand::ShowArgs < Trepan::Subcommand
+  unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
+    HELP = 'Show argument list to give program when it is restarted'
+    MIN_ABBREV   = 'ar'.size
+  end
+
+  def run(args)
+    if Trepan::OldCommand.settings[:argv] and Trepan::OldCommand.settings[:argv].size > 0
+      if defined?(Trepan::PROG_SCRIPT)
+        # rdebug was called initially. 1st arg is script name.
+        args = Trepan::OldCommand.settings[:argv][1..-1].join(' ')
+      else
+        # rdebug wasn't called initially. 1st arg is not script name.
+        args = Trepan::OldCommand.settings[:argv].join(' ')
+      end
+    else
+      args = ''
+    end
+    msg "Argument list to give program being debugged when it is started is \"#{args}\"."
+  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::ShowBasename)
+end

data/processor/command/show_subcmd/auto.rb

@@ -0,0 +1,28 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../base/subsubcmd'
+require_relative '../base/subsubmgr'
+
+class Trepan::SubSubcommand::ShowAuto < Trepan::SubSubcommandMgr
+  unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
+    HELP   = 'Show settings which some sort of "automatic" default behavior'
+    MIN_ABBREV   = 'au'.size
+  end
+end
+
+if __FILE__ == $0
+  require_relative '../../mock'
+  dbgr = MockDebugger::MockDebugger.new
+  cmds = dbgr.core.processor.commands
+  show_cmd = cmds['show']
+  # command = Trepan::SubSubcommand::ShowAuto.new(dbgr.core.processor, 
+  #                                                 show_cmd)
+  # name = File.basename(__FILE__, '.rb')
+  # cmd_args = ['show', name]
+  # show_cmd.instance_variable_set('@last_args', cmd_args)
+  # # require_relative '../../../lib/trepanning'
+  # # Trepan.debug(:set_restart => true)
+  # command.run(cmd_args)
+end

data/processor/command/show_subcmd/auto_subcmd/eval.rb

@@ -0,0 +1,27 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../../base/subsubcmd'
+
+class Trepan::SubSubcommand::ShowAutoEval < Trepan::ShowBoolSubSubcommand
+  unless defined?(HELP)
+    HELP = "set auto eval [ON|OFF]
+
+Set this on if you want things that don't look like debugger command to be eval'd
+as a string."
+
+    MIN_ABBREV   = 'ev'.size
+    NAME         = File.basename(__FILE__, '.rb')
+    PREFIX       = %W(show auto #{NAME})
+    SHORT_HELP = "Show evaluation of unrecognized debugger commands"
+  end
+
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../../mock'
+  require_relative '../auto'
+  cmd = MockDebugger::subsub_setup(Trepan::SubSubcommand::ShowAuto,
+                                   Trepan::SubSubcommand::ShowAutoEval)
+end

data/processor/command/show_subcmd/auto_subcmd/irb.rb

@@ -0,0 +1,23 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../../base/subsubcmd'
+require_relative '../auto'
+
+class Trepan::SubSubcommand::ShowAutoIrb < Trepan::ShowBoolSubSubcommand
+  unless defined?(HELP)
+    HELP = "Show if IRB is invoked on debugger stops"
+    MIN_ABBREV = 'ir'.size
+    NAME       = File.basename(__FILE__, '.rb')
+    PREFIX     = %W(show auto #{NAME})
+  end
+
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../../mock'
+  require_relative '../auto'
+  cmd = MockDebugger::subsub_setup(Trepan::SubSubcommand::ShowAuto,
+                                   Trepan::SubSubcommand::ShowAutoIrb)
+end

data/processor/command/show_subcmd/auto_subcmd/list.rb

@@ -0,0 +1,22 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../../base/subsubcmd'
+
+class Trepan::SubSubcommand::ShowAutoList < Trepan::ShowBoolSubSubcommand
+  unless defined?(HELP)
+    HELP = "Show running a 'list' command each time we enter the debugger"
+    MIN_ABBREV   = 'l'.size
+    NAME         = File.basename(__FILE__, '.rb')
+    PREFIX       = %W(show auto #{NAME})
+  end
+
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../../mock'
+  require_relative '../auto'
+  cmd = MockDebugger::subsub_setup(Trepan::SubSubcommand::ShowAuto,
+                                   Trepan::SubSubcommand::ShowAutoList)
+end

data/processor/command/show_subcmd/basename.rb

@@ -0,0 +1,20 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../base/subcmd'
+
+class Trepan::Subcommand::ShowBasename < Trepan::ShowBoolSubcommand
+  unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
+    HELP       = "Show only file basename in showing file names"
+    MIN_ABBREV = 'ba'.size
+  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::ShowBasename)
+end

data/processor/command/show_subcmd/callstyle.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::ShowCallstyle < Trepan::Subcommand
+  unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
+    HELP       = "Show confirm potentially dangerous operations setting"
+    MIN_ABBREV = 'call'.size
+  end
+
+  def run(args)
+    msg("Frame call-display style is #{settings[:callstyle]}.")
+  end
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../mock'
+  cmd = MockDebugger::sub_setup(Trepan::Subcommand::ShowCallstyle, false)
+end

data/processor/command/show_subcmd/confirm.rb

@@ -0,0 +1,18 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../base/subcmd'
+
+class Trepan::Subcommand::ShowConfirm < Trepan::ShowBoolSubcommand
+  unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
+    HELP       = "Show confirm potentially dangerous operations setting"
+    MIN_ABBREV = 'co'.size
+  end
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../mock'
+  cmd = MockDebugger::sub_setup(Trepan::Subcommand::ShowConfirm, false)
+end