trepanning 0.0.6 → 0.0.8

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

@@ -14,22 +14,9 @@ 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'])
+  require_relative '../debug'
+  cmd = MockDebugger::subsub_setup(Trepan::SubSubcommand::SetDebug,
+                                   Trepan::SubSubcommand::SetDebugSkip)
+  %w(off on 0 1).each { |arg| cmd.run([cmd.name, arg]) }
+  puts '-' * 10
 end

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

@@ -24,22 +24,9 @@ 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  = MockDebugger::setup('set')
-  debug_cmd      = Trepan::SubSubcommand::SetDebug.new(dbgr.core.processor, 
-                                                        set_cmd)
-  # FIXME: remove the 'join' below
-  cmd_name       = Trepan::SubSubcommand::SetDebugStack::PREFIX.join('')
-  debugx_cmd     = Trepan::SubSubcommand::SetDebugStack.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'])
+  require_relative '../debug'
+  cmd = MockDebugger::subsub_setup(Trepan::SubSubcommand::SetDebug,
+                                   Trepan::SubSubcommand::SetDebugStack)
+  %w(off on 0 1).each { |arg| cmd.run([cmd.name, arg]) }
+  puts '-' * 10
 end

data/processor/command/set_subcmd/hidelevel.rb

@@ -0,0 +1,60 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require_relative '../base/subcmd'
+
+class Trepan::Subcommand::SetHidelevel < Trepan::Subcommand
+  unless defined?(HELP)
+    HELP = "
+set hidelevel [NUM]
+
+Hide this many stack frames from the bottom (or least-recent) frame.
+
+Often the bottom-most frames are setup frames that one doesn't think
+of as being part of one's program but are part of the overhead loading
+or debugging the program. As such generally they are unintersting in
+a backtrace command and one wants these omitted.
+
+If NUM is 0, no stack frames are hidden. If NUM is < 0 or omitted,
+then use value the program sets automatically. If the value is larger
+than the current number of entries in the stack, i.e. the stack shown
+would be otherwise be, empty then we show all entries, or take NUM to
+be 0.
+
+Examples:
+   set hidelevel     # Use the default value and hide 'uninteresting' ones
+   set hidelevel 0   # Show all stack entries, even from loading the program
+                     # or initial stack entries the debugger created to 
+                     # debug the program.
+   set hidelevel 1   # Hide only the bottom-most or least-recent stack frame.
+
+See also 'backtrace' and 'show hidelevel'. 
+."
+
+    IN_LIST      = true
+    MIN_ABBREV   = 'hide'.size
+    NAME         = File.basename(__FILE__, '.rb')
+    PREFIX       = %W(set #{NAME})
+    SHORT_HELP   = "Set the number of bottom frames to hide."
+  end
+
+  def run(args)
+    if args.size == 2
+      val = nil
+    else
+      val = @proc.get_an_int(args[2])
+      return unless val
+    end
+    @proc.hide_level = @proc.settings[:hidelevel] = val
+    @proc.run_command('show hidelevel')
+  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::SetHidelevel, false)
+  cmd.run(cmd.prefix + %w(10))
+  cmd.run(cmd.prefix)
+end

data/processor/command/set_subcmd/max.rb

@@ -30,6 +30,6 @@ if __FILE__ == $0
   set_cmd.instance_variable_set('@last_args', cmd_args)
   command.run(cmd_args)
   require_relative '../../../lib/trepanning'
-  # Trepan.debug(:set_restart => true)
+  # Trepan.debug
   command.run(['set', name, 'string', 30])
 end

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

@@ -4,13 +4,13 @@ require_relative '../../base/subsubcmd'
 
 class Trepan::SubSubcommand::SetMaxList < Trepan::SubSubcommand
   unless defined?(HELP)
-    HELP         = 'Set max[imum] list NUMBER
+    NAME         = File.basename(__FILE__, '.rb')
+    HELP         = "Set max[imum] #{NAME} NUMBER
 
-Set number of source-code lines to list by default.'
+Set number of source-code lines to list by default."
     IN_LIST      = true
     MIN_ABBREV   = 'lis'.size
-    NAME         = File.basename(__FILE__, '.rb')
-    PREFIX       = %w(set max list)
+    PREFIX       = %W(set max #{NAME})
     SHORT_HELP   = 'Set number of lines to list'
   end
 
@@ -28,23 +28,12 @@ end
 if __FILE__ == $0
   # Demo it.
   require_relative '../../../mock'
-  name = File.basename(__FILE__, '.rb')
-
-  dbgr, set_cmd = MockDebugger::setup('set')
-  max_cmd       = Trepan::SubSubcommand::SetMax.new(dbgr.core.processor, 
-                                                      set_cmd)
-  cmd_ary       = Trepan::SubSubcommand::SetMaxWidth::PREFIX
-  cmd_name      = cmd_ary.join('')
-  subcmd        = Trepan::SubSubcommand::SetMaxList.new(set_cmd.proc,
-                                                        max_cmd,
-                                                        cmd_name)
-  prefix_run = cmd_ary[1..-1]
-  subcmd.run(prefix_run)
-  subcmd.run(prefix_run + %w(0))
-  subcmd.run(prefix_run + %w(20))
-  name = File.basename(__FILE__, '.rb')
-  subcmd.summary_help(name)
-  puts
-  puts '-' * 20
-  puts subcmd.save_command
+  require_relative '../max'
+  cmd = MockDebugger::subsub_setup(Trepan::SubSubcommand::SetMax,
+                                   Trepan::SubSubcommand::SetMaxList, false)
+  prefix_run = cmd.prefix[1..-1]
+  cmd.run(prefix_run)
+  cmd.run(prefix_run + %w(0))
+  cmd.run(prefix_run + %w(20))
+  puts cmd.save_command
 end

data/processor/command/set_subcmd/max_subcmd/stack.rb

@@ -26,35 +26,12 @@ end
 if __FILE__ == $0
   # Demo it.
   require_relative '../../../mock'
-  dbgr, set_cmd = MockDebugger::setup('set')
-  max_cmd       = Trepan::SubSubcommand::SetMax.new(dbgr.core.processor, 
-                                                    set_cmd)
-  # FIXME: remove the 'join' below
-  cmd_name      = Trepan::SubSubcommand::SetMaxStack::PREFIX.join('')
-  subcmd        = Trepan::SubSubcommand::SetMaxStack.new(set_cmd.proc, 
-                                                         max_cmd,
-                                                         cmd_name)
-  name = File.basename(__FILE__, '.rb')
-
-  # FIXME: DRY the below code
-  dbgr, set_cmd = MockDebugger::setup('set')
-  max_cmd       = Trepan::SubSubcommand::SetMax.new(dbgr.core.processor, 
-                                                      set_cmd)
-  cmd_ary       = Trepan::SubSubcommand::SetMaxStack::PREFIX
-  cmd_name      = cmd_ary.join(' ')
-  subcmd        = Trepan::SubSubcommand::SetMaxStack.new(set_cmd.proc,
-                                                         max_cmd,
-                                                         cmd_name)
-
-  prefix_run = cmd_ary[1..-1]
-  subcmd.run(prefix_run)
-  subcmd.run(prefix_run + %w(0))
-  subcmd.run(prefix_run + %w(10))
-  name = File.basename(__FILE__, '.rb')
-  subcmd.summary_help(name)
-  puts
-  puts '-' * 20
-
-  require_relative '../../../../lib/trepanning'
-  puts subcmd.save_command
+  require_relative '../max'
+  cmd = MockDebugger::subsub_setup(Trepan::SubSubcommand::SetMax,
+                                   Trepan::SubSubcommand::SetMaxStack, false)
+  prefix_run = cmd.prefix[1..-1]
+  cmd.run(prefix_run)
+  cmd.run(prefix_run + %w(0))
+  cmd.run(prefix_run + %w(10))
+  puts cmd.save_command
 end

data/processor/command/set_subcmd/substitute.rb

@@ -20,6 +20,6 @@ if __FILE__ == $0
   cmd_args = ['set', name]
   set_cmd.instance_variable_set('@last_args', cmd_args)
   # require_relative '../../../lib/trepanning'
-  # Trepan.debug(:set_restart => true)
+  # Trepan.debug
   command.run(cmd_args)
 end

data/processor/command/set_subcmd/substitute_subcmd/eval.rb

@@ -89,7 +89,7 @@ if __FILE__ == $0
                                                             cmd_name)
   setx_cmd.run([])
   # require_relative '../../../../lib/trepanning'
-  # dbgr = Trepan.new(:set_restart => true)
+  # dbgr = Trepan.new
   # dbgr.debugger
   eval('set_cmd.proc.frame_setup(RubyVM::ThreadFrame::current); setx_cmd.run([])')
 

data/processor/command/set_subcmd/substitute_subcmd/path.rb

@@ -46,7 +46,7 @@ if __FILE__ == $0
                                                             set_cmd,
                                                             cmd_name)
   # require_relative '../../../../lib/trepanning'
-  # dbgr = Trepan.new(:set_restart => true)
+  # dbgr = Trepan.new
   # dbgr.debugger
   setx_cmd.run([])
 

data/processor/command/set_subcmd/substitute_subcmd/string.rb

@@ -51,22 +51,10 @@ 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 = MockDebugger::setup('set')
-  testcmdMgr = Trepan::Subcmd.new(set_cmd)
-  cmd_name   = Trepan::SubSubcommand::SetSubstituteString::PREFIX.join('')
-  setx_cmd   = Trepan::SubSubcommand::SetSubstituteString.new(set_cmd.proc, 
-                                                              set_cmd,
-                                                              cmd_name)
-  # require_relative '../../../../lib/trepanning'
-  # dbgr = Trepan.new(:set_restart => true)
-  # dbgr.debugger
-  setx_cmd.run([])
-
-  # name = File.basename(__FILE__, '.rb')
-  # subcommand.summary_help(name)
+  require_relative '../../../mock'
+  require_relative '../substitute'
+  cmd = MockDebugger::subsub_setup(Trepan::SubSubcommand::SetSubstitute,
+                                   Trepan::SubSubcommand::SetSubstituteString,
+                                   false)
+  cmd.run([cmd.name, '/tmp/foo.rb', 'a=1;b=2'])
 end

data/processor/command/set_subcmd/timer.rb

@@ -60,7 +60,7 @@ if __FILE__ == $0
   subcommand.summary_help(name)
 
   # require 'trepanning'
-  # Trepan.debug(:set_restart => true)
+  # Trepan.debug
   subcommand.run(['set', name])
   subcommand.run(['set', name, 'off'])
   subcommand.run(['set', name, 'on'])

data/processor/command/set_subcmd/trace.rb

@@ -37,7 +37,7 @@ if __FILE__ == $0
   cmd_args = ['set', name]
   set_cmd.instance_variable_set('@last_args', cmd_args)
   # require_relative '../../../lib/trepanning'
-  # Trepan.debug(:set_restart => true)
+  # Trepan.debug
   command.run(cmd_args)
   command.run(['set', name, '*'])
 end

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

@@ -45,7 +45,7 @@ if __FILE__ == $0
                                                             trace_cmd,
                                                             cmd_name)
   # require_relative '../../../../lib/trepanning'
-  # dbgr = Trepan.new(:set_restart => true)
+  # dbgr = Trepan.new
   # dbgr.debugger
 
   subcmd.run([cmd_name])

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

@@ -29,26 +29,10 @@ 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')
-  trace_cmd     = Trepan::SubSubcommand::SetTrace.new(dbgr.core.processor, 
-                                                        set_cmd)
-
-  # FIXME: remove the 'join' below
-  cmd_name      = Trepan::SubSubcommand::SetTracePrint::PREFIX.join('')
-  subcmd        = Trepan::SubSubcommand::SetTracePrint.new(set_cmd.proc, 
-                                                           trace_cmd,
-                                                           cmd_name)
-  # require_relative '../../../../lib/trepanning'
-  # dbgr = Trepan.new(:set_restart => true)
-  # dbgr.debugger
-
-  subcmd.run([cmd_name])
-  %w(off on 1 0).each { |arg| subcmd.run([cmd_name, arg]) }
-  puts subcmd.save_command()
-
+  require_relative '../trace'
+  cmd = MockDebugger::subsub_setup(Trepan::SubSubcommand::SetTrace,
+                                   Trepan::SubSubcommand::SetTracePrint)
+  %w(off on 0 1).each { |arg| cmd.run([cmd.name, arg]) }
+  puts '-' * 10
 end
 

data/processor/command/set_subcmd/trace_subcmd/var.rb

@@ -51,7 +51,7 @@ if __FILE__ == $0
                                                       cmd_name)
   setx_cmd.run([])
   # require_relative '../../../../lib/bdbgr'
-  # dbgr = Trepan.new(:set_restart => true)
+  # dbgr = Trepan.new
   # dbgr.debugger
   eval('set_cmd.proc.frame_setup(RubyVM::ThreadFrame::current); setx_cmd.run([])')
 

data/processor/command/show_subcmd/args.rb

@@ -6,13 +6,14 @@ class Trepan::Subcommand::ShowArgs < Trepan::Subcommand
   unless defined?(HELP)
     HELP = 'Show argument list to give program when it is restarted'
     MIN_ABBREV   = 'ar'.size
+    NAME         = File.basename(__FILE__, '.rb')
+    PREFIX       = %W(show #{NAME})
   end
 
   def run(args)
     dbgr = @proc.dbgr
-    argv = dbgr.restart_argv
-    msg("Restart directory: #{dbgr.initial_dir}") if dbgr.initial_dir
-    msg("Restart args:\n\t#{argv.inspect}")
+    msg "Restart directory: #{RubyVM::OS_STARTUP_DIR}"
+    msg "Restart args:\n\t#{dbgr.restart_argv.inspect}"
   end
     
 end
@@ -20,29 +21,10 @@ 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('show')
-  subcommand = Trepan::Subcommand::ShowArgs.new(cmd)
-  testcmdMgr = Trepan::Subcmd.new(subcommand)
-
-  def subcommand.msg(message)
-    puts message
-  end
-  def subcommand.msg_nocr(message)
-    print message
-  end
-  def subcommand.errmsg(message)
-    puts message
-  end
-  subcommand.run([])
-  name = File.basename(__FILE__, '.rb')
-  subcommand.summary_help(name)
+  cmd_ary          = Trepan::Subcommand::ShowArgs::PREFIX
+  dbgr, parent_cmd = MockDebugger::setup(cmd_ary[0], false)
+  cmd              = Trepan::Subcommand::ShowArgs.new(parent_cmd)
+  cmd.run([])
+  cmd.summary_help(cmd.name)
   puts
-  dbgr.instance_variable_set('@initial_dir', Dir.pwd)
-  dbgr.restart_argv = ARGV
-  subcommand.run([])
-  
 end

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

@@ -20,19 +20,7 @@ end
 if __FILE__ == $0
   # Demo it.
   require_relative '../../../mock'
-
-  # FIXME: DRY the below code
-  dbgr, show_cmd = MockDebugger::setup('show')
-  testcmdMgr     = Trepan::Subcmd.new(show_cmd)
-  auto_cmd       = Trepan::SubSubcommand::ShowAuto.new(dbgr.core.processor, 
-                                                       show_cmd)
-  # FIXME: remove the 'join' below
-  cmd_name       = Trepan::SubSubcommand::ShowAutoEval::PREFIX.join('')
-  autox_cmd      = Trepan::SubSubcommand::ShowAutoEval.new(show_cmd.proc, auto_cmd,
-                                                           cmd_name)
-  # require_relative '../../../../lib/trepanning'
-  # dbgr = Trepan.new(:set_restart => true)
-  # dbgr.debugger
-  autox_cmd.run([])
-
+  require_relative '../auto'
+  cmd = MockDebugger::subsub_setup(Trepan::SubSubcommand::ShowAuto,
+                                   Trepan::SubSubcommand::ShowAutoEval)
 end

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

@@ -16,19 +16,7 @@ end
 if __FILE__ == $0
   # Demo it.
   require_relative '../../../mock'
-  require_relative '../../../subcmd'
-  name = File.basename(__FILE__, '.rb')
-
-  # FIXME: DRY the below code
-  dbgr, show_cmd = MockDebugger::setup('show')
-  testcmdMgr     = Trepan::Subcmd.new(show_cmd)
-  auto_cmd       = Trepan::SubSubcommand::ShowAuto.new(dbgr.core.processor, 
-                                                       show_cmd)
-
-  cmd_name       = Trepan::SubSubcommand::ShowAutoIrb::PREFIX.join('')
-  autox_cmd      = Trepan::SubSubcommand::ShowAutoIrb.new(show_cmd.proc, auto_cmd,
-                                                          cmd_name)
-  autox_cmd.run([])
-  # name = File.basename(__FILE__, '.rb')
-  # autox_cmd.summary_help(name)
+  require_relative '../auto'
+  cmd = MockDebugger::subsub_setup(Trepan::SubSubcommand::ShowAuto,
+                                   Trepan::SubSubcommand::ShowAutoIrb)
 end