rb8-trepanning 0.1.3

data/processor/command/show_subcmd/debug.rb

@@ -0,0 +1,26 @@
+# -*- 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::ShowDebug < Trepan::SubSubcommandMgr
+  unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
+    HELP   = 'Show internal debugger settings.'
+  end
+end
+
+if __FILE__ == $0
+  require_relative '../../mock'
+  dbgr, cmd = MockDebugger::setup('show')
+  # show_cmd = cmds['show']
+  # command = Trepan::SubSubcommand::ShowDebug.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/debug_subcmd/dbgr.rb

@@ -0,0 +1,21 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../../base/subsubcmd'
+
+class Trepan::SubSubcommand::ShowDebugDbgr < Trepan::ShowBoolSubSubcommand
+  unless defined?(HELP)
+    HELP        = "Show debugging the debugger"
+    NAME        = File.basename(__FILE__, '.rb')
+    PREFIX      = %W(show debug #{NAME})
+  end
+
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../../mock'
+  require_relative '../debug'
+  cmd = MockDebugger::subsub_setup(Trepan::SubSubcommand::ShowDebug,
+                                   Trepan::SubSubcommand::ShowDebugDbgr)
+end

data/processor/command/show_subcmd/debug_subcmd/skip.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::ShowDebugSkip < Trepan::ShowBoolSubSubcommand
+  unless defined?(HELP)
+    HELP        = 'Show debugging of statement skip logic'
+    MIN_ABBREV  = 'st'.size
+    NAME        = File.basename(__FILE__, '.rb')
+    PREFIX      = %W(show debug #{NAME})
+  end
+
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../../mock'
+  require_relative '../debug'
+  cmd = MockDebugger::subsub_setup(Trepan::SubSubcommand::ShowDebug,
+                                   Trepan::SubSubcommand::ShowDebugSkip)
+end

data/processor/command/show_subcmd/debug_subcmd/step.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::ShowDebugStep < Trepan::ShowBoolSubSubcommand
+  unless defined?(HELP)
+    HELP        = 'Show debugging of statement step logic'
+    MIN_ABBREV  = 'st'.size
+    NAME        = File.basename(__FILE__, '.rb')
+    PREFIX      = %W(show debug #{NAME})
+  end
+
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../../mock'
+  require_relative '../debug'
+  cmd = MockDebugger::subsub_setup(Trepan::SubSubcommand::ShowDebug,
+                                   Trepan::SubSubcommand::ShowDebugStep)
+end

data/processor/command/show_subcmd/different.rb

@@ -0,0 +1,26 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../base/subcmd'
+
+class Trepan::Subcommand::ShowDifferent < Trepan::ShowBoolSubcommand
+  unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
+    HELP         = "Show status of 'set different'"
+    MIN_ABBREV   = 'dif'.size
+  end
+
+  def run(args)
+    if 'nostack' == @proc.settings[:different]
+      msg "%s is nostack." % HELP[5..-1].capitalize
+    else
+      super
+    end
+  end
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../mock'
+  cmd = MockDebugger::sub_setup(Trepan::Subcommand::ShowDifferent)
+end

data/processor/command/show_subcmd/directories.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::ShowDirectories < Trepan::Subcommand
+  unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
+    HELP         = "Show current search path for finding source files"
+    MIN_ABBREV   = 'dir'.size
+  end
+
+  def run(args)
+    msg "Source directories searched: #{settings[:directory]}"
+  end
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../mock'
+  cmd = MockDebugger::sub_setup(Trepan::Subcommand::ShowDirectories)
+end

data/processor/command/show_subcmd/highlight.rb

@@ -0,0 +1,24 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2011 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../base/subsubcmd'
+require_relative '../base/subsubmgr'
+
+class Trepan::Subcommand::ShowHighlight < Trepan::ShowBoolSubcommand
+  unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
+    HELP   = 'Show whether we use terminal highlighting'
+  end
+
+  def run(args)
+    val = :term == @proc.settings[:highlight] 
+    onoff = show_onoff(val)
+    msg("%s is %s." % [@name, onoff])
+  end
+end
+
+if __FILE__ == $0
+  require_relative '../../mock'
+  cmd = MockDebugger::sub_setup(Trepan::Subcommand::ShowHighlight, false)
+  cmd.run(cmd.prefix)
+end

data/processor/command/show_subcmd/max.rb

@@ -0,0 +1,27 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../base/subsubcmd'
+require_relative '../base/subsubmgr'
+
+class Trepan::SubSubcommand::ShowMax < Trepan::SubSubcommandMgr
+  unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
+    HELP   = 'Show "maximum length" settings'
+  end
+
+  def run(args)
+    super
+  end
+end
+
+if __FILE__ == $0
+  require_relative '../../mock'
+  cmd_ary          = Trepan::SubSubcommand::ShowMax::PREFIX
+  dbgr, parent_cmd = MockDebugger::setup(cmd_ary[0], false)
+  cmd              = Trepan::SubSubcommand::ShowMax.new(dbgr.processor, 
+                                                        parent_cmd)
+  cmd_name       = cmd_ary.join('')
+  prefix_run = cmd_ary[1..-1]
+  cmd.run(prefix_run)
+end

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

@@ -0,0 +1,38 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../../base/subsubcmd'
+
+class Trepan::SubSubcommand::ShowMaxList < Trepan::ShowIntSubSubcommand
+  unless defined?(HELP)
+    HELP = 'Show the number of source file lines to list'
+    MIN_ABBREV   = 'lis'.size
+    NAME         = File.basename(__FILE__, '.rb')
+    PREFIX       = %w(show max list)
+  end
+
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../../mock'
+
+  # FIXME: DRY the below code
+  cmd_ary          = Trepan::SubSubcommand::ShowMaxList::PREFIX
+  dbgr, parent_cmd = MockDebugger::setup(cmd_ary[0], false)
+  cmd              = Trepan::SubSubcommand::ShowMax.new(dbgr.processor, 
+                                                        parent_cmd)
+  cmd_name       = cmd_ary.join('')
+  subcmd         = Trepan::SubSubcommand::ShowMaxList.new(parent_cmd.proc,
+                                                          cmd,
+                                                          cmd.name)
+  prefix_run = cmd_ary[1..-1]
+  subcmd.run(prefix_run)
+  
+  # require_relative '../../../../lib/trepanning'
+  # dbgr = Trepan.new(:set_restart => true)
+  # dbgr.debugger
+  puts subcmd.summary_help(cmd.name)
+  puts
+  puts '-' * 20
+end

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

@@ -0,0 +1,36 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../../base/subsubcmd'
+
+class Trepan::SubSubcommand::ShowMaxStack < Trepan::ShowIntSubSubcommand
+  unless defined?(HELP)
+    HELP         = 'Show the number of backtrace lines the debugger will show'
+    MIN_ABBREV   = 'sta'.size
+    NAME         = File.basename(__FILE__, '.rb')
+    PREFIX       = %w(show max stack)
+  end
+
+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)
+  # max_cmd        = Trepan::SubSubcommand::ShowMax.new(dbgr.core.processor, 
+  #                                                     show_cmd)
+  
+  # cmd_name       = Trepan::SubSubcommand::ShowMaxStack::PREFIX.join('')
+  # maxx_cmd       = Trepan::SubSubcommand::ShowMaxStack.new(show_cmd.proc,
+  #                                                          max_cmd,
+  #                                                          cmd_name)
+  # # require_relative '../../../../lib/trepanning'
+  # # dbgr = Trepan.new(:set_restart => true)
+  # # dbgr.debugger
+  puts max_cmd.summary_help(maxx_cmd)
+  puts
+  # maxx_cmd.run([])
+end

data/processor/command/show_subcmd/max_subcmd/string.rb

@@ -0,0 +1,42 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../../base/subsubcmd'
+
+class Trepan::SubSubcommand::ShowMaxString < Trepan::ShowIntSubSubcommand
+  unless defined?(HELP)
+    HELP = 'Show the number of characters in a string before truncating.
+
+Sometimes the string representation of an object is very long. This
+setting limits how much of the string representation you want to
+see. However if the string has an embedded newline then we will assume
+the output is intended to be formated as.'
+    MIN_ABBREV   = 'st'.size
+    NAME         = File.basename(__FILE__, '.rb')
+    PREFIX       = %w(show max string)
+  end
+
+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)
+  # max_cmd        = Trepan::SubSubcommand::ShowMax.new(dbgr.core.processor, 
+  #                                                     show_cmd)
+  
+  # cmd_name       = Trepan::SubSubcommand::ShowMaxString::PREFIX.join('')
+  # maxx_cmd       = Trepan::SubSubcommand::ShowMaxString.new(show_cmd.proc,
+  #                                                           max_cmd,
+  #                                                           cmd_name)
+
+  # # require_relative '../../../../lib/trepanning'
+  # # dbgr = Trepan.new(:set_restart => true)
+  # # dbgr.debugger
+  puts max_cmd.summary_help(maxx_cmd)
+  puts 
+  maxx_cmd.run([])
+end

data/processor/command/show_subcmd/max_subcmd/width.rb

@@ -0,0 +1,37 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../../base/subsubcmd'
+
+class Trepan::SubSubcommand::ShowMaxWidth < Trepan::ShowIntSubSubcommand
+  unless defined?(HELP)
+    HELP = 'Show the number of characters the debugger thinks are in a line.'
+    MIN_ABBREV   = 'wid'.size
+    NAME         = File.basename(__FILE__, '.rb')
+    PREFIX       = %w(show max width)
+  end
+
+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)
+  # max_cmd        = Trepan::SubSubcommand::ShowMax.new(dbgr.core.processor, 
+  #                                                     show_cmd)
+  # cmd_name       = Trepan::SubSubcommand::ShowMaxWidth::PREFIX.join('')
+  # maxx_cmd       = Trepan::SubSubcommand::ShowMaxWidth.new(show_cmd.proc,
+  #                                                          max_cmd,
+  #                                                          cmd_name)
+  
+  name = File.basename(__FILE__, '.rb')
+  # require_relative '../../../../lib/trepanning'
+  # dbgr = Trepan.new(:set_restart => true)
+  # dbgr.debugger
+  # puts max_cmd.summary_help(maxx_cmd)
+  # puts
+  # maxx_cmd.run([])
+end

data/processor/command/show_subcmd/reload.rb

@@ -0,0 +1,18 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2011 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../base/subcmd'
+
+class Trepan::Subcommand::ShowReload < Trepan::ShowBoolSubcommand
+  unless defined?(SHORT_HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
+    HELP = "Show whether to reread source text when it changes"
+    MIN_ABBREV = 're'.size
+  end
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../mock'
+  cmd = MockDebugger::sub_setup(Trepan::Subcommand::ShowReload, false)
+end

data/processor/command/show_subcmd/timer.rb

@@ -0,0 +1,18 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2011 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../base/subcmd'
+
+class Trepan::Subcommand::ShowTimer < Trepan::ShowBoolSubcommand
+  unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
+    HELP       = "Show status of the timing hook"
+    MIN_ABBREV = 'ti'.size
+  end
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../mock'
+  cmd = MockDebugger::sub_setup(Trepan::Subcommand::ShowTimer)
+end

data/processor/command/show_subcmd/trace.rb

@@ -0,0 +1,29 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../base/subsubcmd'
+require_relative '../base/subsubmgr'
+
+class Trepan::SubSubcommand::ShowTrace < Trepan::SubSubcommandMgr 
+
+  unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
+    HELP = "Show event tracing printing"
+    MIN_ABBREV = 'tr'.size
+    SHORT_HELP = HELP
+  end
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../mock'
+  dbgr = MockDebugger::MockDebugger.new
+  cmds = dbgr.core.processor.commands
+  show_cmd = cmds['show']
+  command = Trepan::SubSubcommand::ShowTrace.new(dbgr.core.processor, 
+                                                 show_cmd)
+
+  name = File.basename(__FILE__, '.rb')
+  cmd_args = ['show', name]
+  command.run(cmd_args)
+end

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

@@ -0,0 +1,65 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../../base/subsubcmd'
+
+class Trepan::SubSubcommand::ShowTraceBuffer < Trepan::ShowBoolSubSubcommand
+  unless defined?(HELP)
+    Trepanning::SubSubcommand.set_name_prefix(__FILE__, self)
+    HELP         = <<-EOH
+#{CMD} [NUM]
+
+Show the events recorded in the event buffer. If NUM is a negative
+number, events run starting from that many debugger stops back. If NUM
+is a positive number, we print starting from that (adjusted) position
+in the event buffer with Since the event buffer may be a ring, its
+zero being the first position. (Since the event buffer may be a ring
+the earliest position recorded may move around.)
+    EOH
+    MIN_ABBREV   = 'b'.size
+    SHORT_HELP   = "Show tracing buffer"
+  end
+
+  def parse_show_buffer_args(args)
+    marksize = @proc.eventbuf.size
+    opts = {
+      :max_value    => @proc.eventbuf.size,
+      :min_value    => - marksize,
+      :msg_on_error => 
+      'Positive or negative number expected, got %s.' % args[0]
+    }
+    num = @proc.get_an_int(args[0], opts)
+    return nil, nil unless num
+    num = marksize + num  if num < 0 
+    first = @proc.eventbuf.zero_pos + num
+    return first, nil
+  end
+
+  def run(args)
+    if args.size > 1
+      if @proc.eventbuf.size ==  0 
+        msg 'no events recorded.'
+        errmsg 'event buffer tracing is off. ' + 
+          'use "set trace buffer on" to turn on.' unless 
+          settings[:tracebuffer]
+        return
+      end
+      first, last = parse_show_buffer_args(args[1..-1])
+
+      return unless first
+      @proc.eventbuf_print(first, last, settings[:maxwidth])
+    else
+      super
+    end
+  end
+
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../../mock'
+  require_relative '../../../subcmd'
+  require_relative '../trace'
+  cmd = MockDebugger::subsub_setup(Trepan::SubSubcommand::ShowTrace,
+                                   Trepan::SubSubcommand::ShowTraceBuffer)
+end