trepanning 0.0.4

data/processor/command/reload.rb

@@ -0,0 +1,28 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require_relative 'base/submgr'
+
+class Trepan::Command::ReloadCommand < Trepan::SubcommandMgr
+  ALIASES       = %w(rel)
+  HELP = 'Reload information'
+  CATEGORY      = 'data'
+  NAME          = File.basename(__FILE__, '.rb')
+  NEED_STACK    = false
+  SHORT_HELP    = 'Reload information'
+  def initialize(proc)
+    super
+  end
+
+end
+
+if __FILE__ == $0
+  require_relative '../mock'
+  name = File.basename(__FILE__, '.rb')
+  dbgr, cmd = MockDebugger::setup(name)
+
+  # require 'trepanning'
+  # Trepan.debug(:set_restart => true)
+  xx = Trepan::Command::ReloadCommand.new(cmd)
+  cmd.run([name])
+  cmd.run([name, 'command'])
+end

data/processor/command/reload_subcmd/command.rb

@@ -0,0 +1,34 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require_relative '../base/subcmd'
+
+class Trepan::Subcommand::ReloadCommand < Trepan::Subcommand
+  unless defined?(HELP)
+    HELP         = 'Reload debugger commmands from debugger directories'
+    MIN_ABBREV   = 'co'.size # Note we have "info file"
+    NAME         = File.basename(__FILE__, '.rb')
+    NEED_STACK   = true
+    PREFIX       = %w(reload command)
+  end
+
+  def run(args)
+    @proc.load_cmds_initialize
+    msg('Debugger commands reloaded.')
+  end
+
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../mock'
+  require_relative '../../subcmd'
+  name = File.basename(__FILE__, '.rb')
+
+  # FIXME: DRY the below code
+  dbgr, cmd  = MockDebugger::setup('reload')
+  subcommand = Trepan::Subcommand::ReloadCommand.new(cmd)
+  testcmdMgr = Trepan::Subcmd.new(subcommand)
+
+  name = File.basename(__FILE__, '.rb')
+  subcommand.summary_help(name)
+end

data/processor/command/restart.rb

@@ -0,0 +1,57 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require_relative 'base/cmd'
+require_relative '../../app/run'
+class Trepan::Command::RestartCommand < Trepan::Command
+
+  unless defined?(HELP)
+    ALIASES      = %w(R run)
+    HELP = 
+      'restart - Restart debugger and program via an exec
+    call. All state is lost, and new copy of the debugger is used.'
+    
+    CATEGORY     = 'running'
+    MAX_ARGS     = 0  # Need at most this many
+    NAME         = File.basename(__FILE__, '.rb')
+    SHORT_HELP  = '(Hard) restart of program via exec()'
+  end
+    
+  # This method runs the command
+  def run(args) # :nodoc
+
+    dbgr = @proc.dbgr
+    argv = dbgr.restart_argv
+    if argv and argv.size > 0
+      unless File.executable?(argv[0])
+        msg(["File #{argv[0]} not executable.",
+             "Adding Ruby interpreter."])
+        argv.unshift Trepanning::ruby_path
+      end
+      @proc.run_cmd(%w(show args))
+      if not confirm('Restart (exec)?', false)
+        msg "Restart not confirmed"
+      else
+        msg 'Restarting...'
+        @proc.run_cmd(%w(save))
+        argv.unshift
+        # FIXME: Run atexit finalize routines?
+        Dir.chdir(dbgr.initial_dir) if dbgr.initial_dir
+        exec(*argv)
+      end
+    else
+      errmsg("No executable file and command options recorded.")
+    end
+  end
+end
+
+if __FILE__ == $0
+  exit if ARGV[0] == 'exit'
+
+  require_relative '../mock'
+  name = File.basename(__FILE__, '.rb')
+  dbgr, cmd = MockDebugger::setup(name)
+  dbgr.restart_argv = []
+  cmd.run([name])
+  dbgr.restart_argv = [File.expand_path($0), 'exit']
+  cmd.run([name])
+end

data/processor/command/save.rb

@@ -0,0 +1,60 @@
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require 'tmpdir'
+require_relative 'base/cmd'
+class Trepan::Command::SaveCommand < Trepan::Command
+
+  unless defined?(HELP)
+    HELP = 
+"Save settings to a file"
+
+    CATEGORY     = 'running'
+    MAX_ARGS     = 1  # Need at most this many
+    NAME         = File.basename(__FILE__, '.rb')
+    SHORT_HELP  = 'Send debugger state to a file'
+  end
+    
+  # This method runs the command
+  def run(args) # :nodoc
+    save_filename = 
+      if args.size > 1
+        args[1]
+      else
+        @proc.settings[:save_cmdfile] ||
+          File.join(Dir.tmpdir, 
+                    Dir::Tmpname.make_tmpname(['trepanning-save', '.txt'], nil))
+      end
+    begin
+      save_file = File.open(save_filename, 'w')
+    rescue => exc
+      errmsg("Can't open #{save_filename} for writing.")
+      errmsg("System reports: #{exc.inspect}")
+      return
+    end
+    save_file.puts "#\n# Commands to restore trepanning environment\n#\n"
+    @proc.commands.each do |cmd_name, cmd_obj|
+      cmd_obj.save_command if cmd_obj.respond_to?(:save_command)
+      next unless cmd_obj.is_a?(Trepan::SubcommandMgr)
+      cmd_obj.subcmds.subcmds.each do |subcmd_name, subcmd_obj|
+        save_file.puts subcmd_obj.save_command if 
+          subcmd_obj.respond_to?(:save_command)
+        next unless subcmd_obj.is_a?(Trepan::SubSubcommandMgr)
+        subcmd_obj.subcmds.subcmds.each do |subsubcmd_name, subsubcmd_obj|
+        save_file.puts subsubcmd_obj.save_command if 
+            subsubcmd_obj.respond_to?(:save_command)
+        end
+      end
+    end
+    save_file.close
+    msg "Debugger commands written to file: #{save_file.to_path}"
+  end
+end
+
+if __FILE__ == $0
+  require_relative '../mock'
+  name = File.basename(__FILE__, '.rb')
+  dbgr, cmd = MockDebugger::setup(name)
+  require 'tmpdir'
+  cmd.run([name, Dir.tmpdir])
+  cmd.run([name])
+  cmd.run([name, File.join(Dir.tmpdir, 'save_file.txt')])
+end

data/processor/command/set.rb

@@ -0,0 +1,47 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+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'
+  name = File.basename(__FILE__, '.rb')
+  dbgr, cmd = MockDebugger::setup(name)
+  cmd.run([name])
+  cmd.run([name, 'autolist'])
+  cmd.run([name, 'autoeval', 'off'])
+  cmd.run([name, 'basename'])
+end

data/processor/command/set_subcmd/auto.rb

@@ -0,0 +1,27 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require_relative '../base/subsubcmd'
+require_relative '../base/subsubmgr'
+
+class Trepan::SubSubcommand::SetAuto < Trepan::SubSubcommandMgr
+  unless defined?(HELP)
+    HELP   = 'Set controls for things with some sort of "automatic" default behavior'
+    NAME   = File.basename(__FILE__, '.rb')
+    PREFIX = %w(set auto)
+  end
+end
+
+if __FILE__ == $0
+  require_relative '../../mock'
+  dbgr, cmd = MockDebugger::setup('set')
+  cmds = dbgr.core.processor.commands
+  set_cmd = cmds['set']
+  command = Trepan::SubSubcommand::SetAuto.new(dbgr.core.processor, 
+                                               set_cmd)
+  name = File.basename(__FILE__, '.rb')
+  cmd_args = ['set', name]
+  set_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/set_subcmd/auto_subcmd/eval.rb

@@ -0,0 +1,67 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require_relative '../../base/subsubcmd'
+
+class Trepan::SubSubcommand::SetAutoEval < Trepan::SetBoolSubSubcommand
+  unless defined?(HELP)
+    HELP = "Evaluate unrecognized debugger commands.
+
+Often inside the debugger, one would like to be able to run arbitrary
+Ruby commands without having to preface Python expressions with \"print\" or
+\"eval\". Setting \"auto eval\" on will cause unrecognized debugger
+commands to be eval'd as a Ruby expression. 
+
+Note that if this is set, on error the message shown on type a bad
+debugger command changes from:
+
+  Undefined command: \"fdafds\". Try \"help\".
+
+to something more Ruby-eval-specific such as:
+
+  NameError: name 'fdafds' is not defined
+
+One other thing that trips people up is when setting auto eval is that
+there are some short debugger commands that sometimes one wants to use
+as a variable, such as in an assignment statement. For example:
+
+  s = 5
+
+which produce when 'auto eval' is on:
+  *** Command 'step' can take at most 1 argument(s); got 2.
+
+because by default, 's' is an alias for the debugger 'step'
+command. It is possible to remove that alias if this causes constant
+problem. Another possibility is to go into a real Ruby shell via the
+'irb' command.
+"
+    MIN_ABBREV = 'ev'.size
+    NAME       = File.basename(__FILE__, '.rb')
+    PREFIX     = %w(set auto eval)
+    SHORT_HELP = "Set evaluation of unrecognized debugger commands"
+  end
+
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../../mock'
+  name = File.basename(__FILE__, '.rb')
+
+  # FIXME: DRY the below code
+  dbgr, set_cmd = MockTrepan::setup('set')
+  auto_cmd      = Trepan::SubSubcommand::SetAuto.new(dbgr.core.processor, 
+                                                     set_cmd)
+
+  # FIXME: remove the 'join' below
+  cmd_name      = Trepan::SubSubcommand::SetAutoEval::PREFIX.join('')
+  subcmd        = Trepan::SubSubcommand::SetAutoEval.new(set_cmd.proc, 
+                                                         auto_cmd,
+                                                         cmd_name)
+  # require_relative '../../../../lib/trepanning'
+  # Trepan.debug(:set_restart => true)
+
+  subcmd.run([cmd_name])
+  %w(off on 0 1).each { |arg| subcmd.run([cmd_name, arg]) }
+  puts '-' * 10
+  puts subcmd.save_command.join("\n")
+end

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

@@ -0,0 +1,49 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require_relative '../../base/subsubcmd'
+
+class Trepan::Subcommand::SetAutoIrb < Trepan::SetBoolSubSubcommand
+  unless defined?(HELP)
+    HELP = "Set to automatically go into irb each time we enter the debugger"
+    MIN_ABBREV = 'ir'.size
+    NAME       = File.basename(__FILE__, '.rb')
+    PREFIX     = %w(set auto irb)
+  end
+
+  def run(args)
+    super
+    if @proc.settings[:autoirb]
+      @proc.cmdloop_prehooks.insert_if_new(-1, *@proc.autoirb_hook)
+    else
+      @proc.cmdloop_prehooks.delete_by_name('autoirb')
+    end
+  end
+
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../../mock'
+  require_relative '../../../subcmd'
+  require_relative '../../../hook'
+  name = File.basename(__FILE__, '.rb')
+
+  # FIXME: DRY the below code
+  dbgr, set_cmd = MockTrepan::setup('set')
+  auto_cmd      = Trepan::SubSubcommand::SetAuto.new(dbgr.core.processor, 
+                                                     set_cmd)
+  # FIXME: remove the 'join' below
+  cmd_name      = Trepan::Subcommand::SetAutoIrb::PREFIX.join('')
+  autox_cmd     = Trepan::SubSubcommand::SetAutoIrb.new(set_cmd.proc, 
+                                                        auto_cmd,
+                                                        cmd_name)
+  # require_relative '../../../../lib/trepanning'
+  # dbgr = Trepan.new(:set_restart => true)
+  # dbgr.debugger
+  set_cmd.proc.hook_initialize(set_cmd.proc.commands)
+  subcmd_name = Trepan::Subcommand::SetAutoIrb::PREFIX[1..-1].join('')
+  autox_cmd.run([subcmd_name])
+  autox_cmd.run([subcmd_name, 'off'])
+  puts autox_cmd.save_command.join("\n")
+
+end

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

@@ -0,0 +1,51 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require_relative '../../base/subsubcmd'
+
+class Trepan::Subcommand::SetAutoList < Trepan::SetBoolSubSubcommand
+  unless defined?(HELP)
+    HELP = "Set to run a 'list' command each time we enter the debugger"
+    MIN_ABBREV = 'l'.size
+    NAME       = File.basename(__FILE__, '.rb')
+    PREFIX     = %w(set auto list)
+    SHORT_HELP = "Set running a 'list' command each time we enter the debugger"
+  end
+
+  def run(args)
+    super
+    if @proc.settings[:autolist]
+      @proc.cmdloop_prehooks.insert_if_new(10, *@proc.autolist_hook)
+    else
+      @proc.cmdloop_prehooks.delete_by_name('autolist')
+    end
+  end
+
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../../mock'
+  require_relative '../../../subcmd'
+  require_relative '../../../hook'
+  name = File.basename(__FILE__, '.rb')
+
+  # FIXME: DRY the below code
+  dbgr, set_cmd = MockDebugger::setup('set')
+  testcmdMgr    = Trepan::Subcmd.new(set_cmd)
+  auto_cmd      = Trepan::SubSubcommand::SetAuto.new(dbgr.core.processor, 
+                                                     set_cmd)
+  # FIXME: remove the 'join' below
+  cmd_name      = Trepan::Subcommand::SetAutoList::PREFIX.join('')
+  autox_cmd     = Trepan::SubSubcommand::SetAutoList.new(set_cmd.proc, 
+                                                         auto_cmd,
+                                                         cmd_name)
+  # require_relative '../../../../lib/trepanning'
+  # dbgr = Trepan.new(:set_restart => true)
+  # dbgr.debugger
+  set_cmd.proc.hook_initialize(set_cmd.proc.commands)
+  subcmd_name = Trepan::Subcommand::SetAutoList::PREFIX[1..-1].join('')
+  autox_cmd.run([subcmd_name])
+  autox_cmd.run([subcmd_name, 'off'])
+  puts '-' * 10
+  puts autox_cmd.save_command
+end

data/processor/command/set_subcmd/basename.rb

@@ -0,0 +1,39 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require_relative '../base/subcmd'
+
+class Trepan::Subcommand::SetBasename < Trepan::SetBoolSubcommand
+  unless defined?(HELP)
+    HELP = "Set to show only file basename in showing file names"
+    IN_LIST    = true
+    MIN_ABBREV = 'ba'.size
+    NAME       = File.basename(__FILE__, '.rb')
+    PREFIX     = %w(set basename)
+  end
+
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../mock'
+  name = File.basename(__FILE__, '.rb')
+
+  # FIXME: DRY the below code
+  dbgr, cmd = MockDebugger::setup('set')
+  subcommand = Trepan::Subcommand::SetBasename.new(cmd)
+  testcmdMgr = Trepan::Subcmd.new(subcommand)
+
+  subcommand.run_show_bool
+  subcommand.summary_help(name)
+
+  # require 'trepanning'
+  # Trepan.debug(:set_restart => true)
+  subcommand.run(['set', name])
+  subcommand.run(['set', name, 'off'])
+  subcommand.run(['set', name, 'on'])
+  subcommand.summary_help(name)
+  puts
+  puts '-' * 20
+  puts subcommand.save_command
+
+end

data/processor/command/set_subcmd/debug.rb

@@ -0,0 +1,27 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require_relative '../base/subsubcmd'
+require_relative '../base/subsubmgr'
+
+class Trepan::SubSubcommand::SetDebug < Trepan::SubSubcommandMgr
+  unless defined?(HELP)
+    HELP   = 'Set internal debugger settings'
+    NAME   = File.basename(__FILE__, '.rb')
+    PREFIX = %w(set debug)
+  end
+end
+
+if __FILE__ == $0
+  require_relative '../../mock'
+  dbgr = MockDebugger::MockDebugger.new
+  cmds = dbgr.core.processor.commands
+  set_cmd = cmds['set']
+  command = Trepan::SubSubcommand::SetAuto.new(dbgr.core.processor, 
+                                                  set_cmd)
+  name = File.basename(__FILE__, '.rb')
+  cmd_args = ['set', name]
+  set_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/set_subcmd/debug_subcmd/dbgr.rb

@@ -0,0 +1,49 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require_relative '../../base/subsubcmd'
+
+class Trepan::SubSubcommand::SetDebugDbgr < Trepan::SetBoolSubSubcommand
+  unless defined?(HELP)
+    HELP        = 'set debug dbgr [on|off]
+
+Facilitates debugging the debugger. Global variables $trepan_cmdproc
+and $trepan_frame are set to the current values of @frame and self
+when the command processor was entered.  '
+
+    MIN_ABBREV  = 'db'.size
+    NAME        = File.basename(__FILE__, '.rb')
+    PREFIX      = %w(set debug dbgr)
+    SHORT_HELP  = 'Set debugging debugger'
+  end
+
+  def run(args)
+    super
+    @proc.cmdloop_prehooks.insert_if_new(-1, *@proc.debug_dbgr_hook)
+    @proc.debug_dbgr_hook[1].call
+  end
+
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../../mock'
+  name = File.basename(__FILE__, '.rb')
+
+  # FIXME: DRY the below code
+  dbgr, dbg_cmd  = MockDebugger::setup('set')
+  debug_cmd      = Trepan::SubSubcommand::SetDebug.new(dbgr.core.processor, 
+                                                        dbg_cmd)
+  # FIXME: remove the 'join' below
+  cmd_name       = Trepan::SubSubcommand::SetDebugDbgr::PREFIX.join('')
+  debugx_cmd     = Trepan::SubSubcommand::SetDebugDbgr.new(dbg_cmd.proc, 
+                                                           debug_cmd,
+                                                           cmd_name)
+  # require_relative '../.././../lib/trepanning'
+  # dbgr = Trepan.new(:set_restart => true)
+  # dbgr.debugger
+  debugx_cmd.run([name])
+  debugx_cmd.run([name, 'on'])
+  debugx_cmd.run([name, 'off'])
+  puts '-' * 10
+  puts debugx_cmd.save_command
+end

data/processor/command/set_subcmd/debug_subcmd/except.rb

@@ -0,0 +1,35 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require_relative '../../base/subsubcmd'
+
+class Trepan::SubSubcommand::SetDebugExcept < Trepan::SetBoolSubSubcommand
+  unless defined?(HELP)
+    HELP        = 'Set to show execution traceback on debugger command exception'
+    MIN_ABBREV  = 'sk'.size
+    NAME        = File.basename(__FILE__, '.rb')
+    PREFIX      = %w(set debug except)
+  end
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../../mock'
+  require_relative '../../../subcmd'
+  name = File.basename(__FILE__, '.rb')
+
+  # FIXME: DRY the below code
+  dbgr, dbg_cmd  = MockDebugger::setup('set')
+  debug_cmd      = Trepan::SubSubcommand::SetDebug.new(dbgr.core.processor, 
+                                                        dbg_cmd)
+  # FIXME: remove the 'join' below
+  cmd_name       = Trepan::SubSubcommand::SetDebugExcept::PREFIX.join('')
+  debugx_cmd     = Trepan::SubSubcommand::SetDebugExcept.new(dbg_cmd.proc, 
+                                                              debug_cmd,
+                                                              cmd_name)
+  # require_relative '../../../../lib/trepan'
+  # dbgr = Trepan.new(:set_restart => true)
+  # dbgr.debugger
+  debugx_cmd.run([name, 'off'])
+  debugx_cmd.run([name])
+  debugx_cmd.run([name, 'on'])
+end

data/processor/command/set_subcmd/debug_subcmd/macro.rb

@@ -0,0 +1,35 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require_relative '../../base/subsubcmd'
+
+class Trepan::SubSubcommand::SetDebugMacro < Trepan::SetBoolSubSubcommand
+  unless defined?(HELP)
+    HELP = "Set macro debugging"
+    MIN_ABBREV  = 'macro'.size
+    NAME        = File.basename(__FILE__, '.rb')
+    PREFIX      = %w(set debug macro)
+  end
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../../mock'
+  require_relative '../../../subcmd'
+  name = File.basename(__FILE__, '.rb')
+
+  # FIXME: DRY the below code
+  dbgr, set_cmd  = MockTrepan::setup('set')
+  debug_cmd      = Trepan::SubSubcommand::SetDebug.new(dbgr.core.processor, 
+                                                        set_cmd)
+  # FIXME: remove the 'join' below
+  cmd_name       = Trepan::SubSubcommand::SetDebugMacro::PREFIX.join('')
+  debugx_cmd     = Trepan::SubSubcommand::SetDebugMacro.new(set_cmd.proc, 
+                                                            debug_cmd,
+                                                            cmd_name)
+  # require_relative '../../../../lib/trepanning'
+  # dbgr = Trepan.new(:set_restart => true)
+  # dbgr.debugger
+  debugx_cmd.run([name])
+  debugx_cmd.run([name, 'off'])
+  debugx_cmd.run([name, 'on'])
+end

data/processor/command/set_subcmd/debug_subcmd/skip.rb

@@ -0,0 +1,35 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require_relative '../../base/subsubcmd'
+
+class Trepan::SubSubcommand::SetDebugSkip < Trepan::SetBoolSubSubcommand
+  unless defined?(HELP)
+    HELP        = 'Set debugging of statement skip logic'
+    MIN_ABBREV  = 'sk'.size
+    NAME        = File.basename(__FILE__, '.rb')
+    PREFIX      = %w(set debug skip)
+  end
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../../mock'
+  require_relative '../../../subcmd'
+  name = File.basename(__FILE__, '.rb')
+
+  # FIXME: DRY the below code
+  dbgr, dbg_cmd  = MockDebugger::setup('set')
+  debug_cmd      = Trepan::SubSubcommand::SetDebug.new(dbgr.core.processor, 
+                                                        dbg_cmd)
+  # FIXME: remove the 'join' below
+  cmd_name       = Trepan::SubSubcommand::SetDebugSkip::PREFIX.join('')
+  debugx_cmd     = Trepan::SubSubcommand::SetDebugSkip.new(dbg_cmd.proc, 
+                                                            debug_cmd,
+                                                            cmd_name)
+  # require_relative '../../../../lib/trepanning'
+  # dbgr = Trepan.new(:set_restart => true)
+  # dbgr.debugger
+  debugx_cmd.run([name])
+  debugx_cmd.run([name, 'on'])
+  debugx_cmd.run([name, 'off'])
+end