rbx-trepanning 0.2.0-universal-rubinius-2.0

data/processor/command/shell.rb

@@ -0,0 +1,131 @@
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
+require 'irb'
+require 'rubygems'; require 'require_relative'
+require_relative '../command'
+class Trepan::Command::IRBCommand < Trepan::Command
+
+  unless defined?(HELP)
+    require_relative '../../app/irb'
+    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? && @proc.dbgr.completion_proc
+      @proc.intf.read_history if @proc.intf.respond_to?(:read_history)
+      Readline.completion_proc = @proc.dbgr.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.step ('next', 1, {})
+    when :quit
+      @proc.quit
+    when :step
+      @proc.step ('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
+  # Get an IRB session -- the hard way :-)
+  cmd.run([cmd.name]) if ARGV.size > 0
+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,3 @@
+/*.rbc
+/*~
+

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/aliases.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::ShowAliases < 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 alias 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,25 @@
+# -*- 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)
+    dbgr = @proc.dbgr
+    msg "Restart directory: #{Rubinius::OS_STARTUP_DIR}"
+    msg "Restart args:\n\t#{dbgr.restart_argv.inspect}"
+  end
+    
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../mock'
+  cmd = MockDebugger::sub_setup(Trepan::Subcommand::ShowArgs)
+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/.gitignore

@@ -0,0 +1,3 @@
+/*.rbc
+/*~
+

data/processor/command/show_subcmd/auto_subcmd/dis.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::ShowAutoDis < Trepan::ShowBoolSubSubcommand
+  unless defined?(HELP)
+    HELP = "Show running a 'dis' command each time we enter the debugger"
+    MIN_ABBREV   = 'l'.size
+    NAME         = File.basename(__FILE__, '.rb')
+    PREFIX       = %w(show auto dis)
+  end
+
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../../mock'
+  require_relative '../../../subcmd'
+
+  # FIXME: DRY the below code
+
+  dbgr, show_cmd = MockDebugger::setup('show', false)
+  testcmdMgr     = Trepan::Subcmd.new(show_cmd)
+  auto_cmd       = Trepan::SubSubcommand::ShowAuto.new(dbgr.processor, 
+                                                       show_cmd)
+
+  # FIXME: remove the 'join' below
+  cmd_name       = Trepan::SubSubcommand::ShowAutoDis::PREFIX.join('')
+  autox_cmd      = Trepan::SubSubcommand::ShowAutoDis.new(show_cmd.proc, auto_cmd,
+                                                           cmd_name)
+  # require_relative '../../../../lib/trepanning'
+  # dbgr = Trepan.new(:set_restart => true)
+  # dbgr.debugger
+  autox_cmd.run([])
+
+end

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

@@ -0,0 +1,24 @@
+# -*- 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 = "Show evaluation of unrecognized debugger commands"
+    MIN_ABBREV   = 'ev'.size
+    NAME         = File.basename(__FILE__, '.rb')
+    PREFIX       = %W(show auto #{NAME})
+    SHORT_HELP   = HELP
+  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/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

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/.gitignore

@@ -0,0 +1,3 @@
+/*.rbc
+/*~
+

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/hidelevel.rb

@@ -0,0 +1,41 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../base/subsubcmd'
+
+class Trepan::Subcommand::ShowHidelevel < Trepan::ShowIntSubcommand
+  unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
+    HELP         = 'Show the number of stack levels to hide'
+    MIN_ABBREV   = 'hide'.size
+  end
+  def run(args)
+    if @proc.settings[:hidelevel]
+      super
+    else
+      help = self.class.const_get(:HELP)
+      msg "%s is auto selection." % help[5..-1].capitalize
+    end
+  end
+
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../mock'
+
+  # FIXME: DRY the below code
+  dbgr, cmd = MockDebugger::setup('show')
+  subcommand = Trepan::Subcommand::ShowHidelevel.new(cmd)
+
+  subcommand.run(subcommand.name)
+  subcommand.proc.settings[:hidelevel] = 1
+  subcommand.run(subcommand.name)
+  
+  # require_relative '../../../../lib/trepanning'
+  # dbgr = Trepan.new(:set_restart => true)
+  # dbgr.debugger
+  subcommand.summary_help(subcommand.name)
+  puts
+  puts '-' * 20
+end

data/processor/command/show_subcmd/highlight.rb

@@ -0,0 +1,25 @@
+# -*- 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'
+    MIN_ABBREV   = 'high'.size
+  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