rbx-trepanning 0.2.0-universal-rubinius-2.0

data/processor/command/server.rb

@@ -0,0 +1,72 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2011 Rocky Bernstein <rockyb@rubyforge.net>
+require 'optparse'
+require 'rubygems'; require 'require_relative'
+require_relative '../command'
+require_relative '../../app/default'
+require_relative '../../interface/server'   # server interface (remote debugging)
+class Trepan::Command::ServerCommand < Trepan::Command
+  include Trepanning
+
+  unless defined?(HELP)
+    CATEGORY     = 'support'
+    DEFAULT_OPTIONS = {
+      :host => Trepan::DEFAULT_SETTINGS[:host],
+      :port => Trepan::DEFAULT_SETTINGS[:port]
+    }
+    MAX_ARGS     = 4  # Need at most this many
+    NAME         = File.basename(__FILE__, '.rb')
+    HELP = <<-HELP
+#{NAME} [{--port|-p} NUM] [{--host|-h} HOST-OR-IP]
+
+Put session into server mode which allows an out-of-process or remote
+connection to the debugged program. --port and --host can be supplied
+to specify the port number to use and the host name for TCP
+connections. If neither is given, the default host (#{Trepan::DEFAULT_SETTINGS[:host]}) 
+and the default port (#{Trepan::DEFAULT_SETTINGS[:port]}) are used.
+
+Examples:
+   #{NAME} # Accept remote connections using defaults
+   #{NAME} --port 123 # Accept remote connections on port 123
+   #{NAME} --host my.host.net --port 2048
+   #{NAME} -h my.host.net -p 2048 # same as above
+      HELP
+
+    SHORT_HELP  = 'Go into out-of-process debugging (server) mode'
+
+  end
+    
+  def parse_options(options, args) # nodoc
+    parser = OptionParser.new do |opts|
+      opts.on("-h", "--host NAME", String, 
+              "Host or IP used in TCP connections for --server or --client. " + 
+              "Default is #{DEFAULT_SETTINGS[:host].inspect}.") do 
+        |name_or_ip| 
+        options[:host] = name_or_ip
+      end
+      opts.on("-p", "--port NUMBER", Integer, 
+              "Port number used in TCP connections for --server or --client. " + 
+              "Default is #{DEFAULT_SETTINGS[:port]}.") do 
+        |num| 
+        options[:port] = num
+      end
+    end
+    parser.parse(args)
+    return options
+  end
+
+  # This method runs the command
+  def run(args) # :nodoc
+    options = parse_options(DEFAULT_OPTIONS.dup, args[1..-1])
+    msg("starting debugger in out-of-process mode on host #{options[:host].inspect}, " +
+        "port: #{options[:port]}")
+    @proc.dbgr.intf << Trepan::ServerInterface.new(nil, nil, options)
+  end
+end
+
+if __FILE__ == $0
+  require_relative '../mock'
+  dbgr, cmd = MockDebugger::setup
+  # cmd.run([cmd.name])
+  # cmd.run([cmd.name, '--server'])
+end

data/processor/command/set.rb

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

data/processor/command/set_subcmd/.gitignore

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

data/processor/command/set_subcmd/abbrev.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::SetAbbrev < Trepan::SetBoolSubcommand
+  unless defined?(HELP)
+    HELP = "Set to allow unique abbreviations of commands"
+    IN_LIST    = true
+    MIN_ABBREV = 'ab'.size
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
+  end
+
+end
+
+if __FILE__ == $0
+  # Demo it.
+  $0 = __FILE__ + 'notagain' # So we don't run this again
+  require_relative '../../mock'
+  cmd = MockDebugger::sub_setup(Trepan::Subcommand::SetAbbrev, false)
+  cmd.run(cmd.prefix + ['off'])
+  cmd.run(cmd.prefix + ['ofn'])
+  cmd.run(cmd.prefix)
+  puts cmd.save_command
+end

data/processor/command/set_subcmd/auto.rb

@@ -0,0 +1,33 @@
+# -*- 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::SetAuto < Trepan::SubSubcommandMgr
+  unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
+    HELP   = <<-EOH
+Set controls for things with some sort of "automatic" default behavior.
+
+See "#{PREFIX.join(' ')} *" for a list of subcommands or "#{PREFIX.join(' ')} <name>" 
+for help on a particular trace subcommand.
+    EOH
+    SHORT_HELP = 'Set controls for some "automatic" default behaviors';
+  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/.gitignore

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

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

@@ -0,0 +1,33 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../../base/subsubcmd'
+
+class Trepan::Subcommand::SetAutoDis < Trepan::SetBoolSubSubcommand
+  unless defined?(HELP)
+    HELP = "Set to run a 'disassemble' command each time we enter the debugger"
+    MIN_ABBREV = 'd'.size
+    NAME       = File.basename(__FILE__, '.rb')
+    PREFIX     = %W(set auto #{NAME})
+    SHORT_HELP = "Set running a 'disassemble' command each time we enter the debugger"
+  end
+
+  def run(args)
+    super
+    if @proc.settings[:autodis]
+      @proc.cmdloop_prehooks.insert_if_new(10, *@proc.autodis_hook)
+    else
+      @proc.cmdloop_prehooks.delete_by_name('autodis')
+    end
+  end
+
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../../mock'
+  require_relative '../auto'
+  cmd = MockDebugger::subsub_setup(Trepan::SubSubcommand::SetAuto,
+                                   Trepan::SubSubcommand::SetAutoDis)
+  cmd.run([cmd.name, 'off'])
+end

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

@@ -0,0 +1,53 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../../base/subsubcmd'
+
+class Trepan::SubSubcommand::SetAutoEval < Trepan::SetBoolSubSubcommand
+  unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
+    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
+    SHORT_HELP = "Set evaluation of unrecognized debugger commands"
+  end
+
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../../mock'
+  require_relative '../auto'
+
+  cmd = MockDebugger::subsub_setup(Trepan::SubSubcommand::SetAuto,
+                                   Trepan::SubSubcommand::SetAutoEval)
+  cmd.run([cmd.name, 'off'])
+end

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

@@ -0,0 +1,33 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../../base/subsubcmd'
+
+class Trepan::Subcommand::SetAutoIrb < Trepan::SetBoolSubSubcommand
+  unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
+    HELP = "Set to automatically go into irb each time we enter the debugger"
+    MIN_ABBREV = 'ir'.size
+  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 '../auto'
+
+  cmd = MockDebugger::subsub_setup(Trepan::SubSubcommand::SetAuto,
+                                   Trepan::SubSubcommand::SetAutoIrb)
+  cmd.run([cmd.name, 'off'])
+  cmd.run([cmd.name, 'on'])
+end

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

@@ -0,0 +1,33 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../../base/subsubcmd'
+
+class Trepan::Subcommand::SetAutoList < Trepan::SetBoolSubSubcommand
+  unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
+    HELP = "Set to run a 'list' command each time we enter the debugger"
+    MIN_ABBREV = 'l'.size
+    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 '../auto'
+  cmd = MockDebugger::subsub_setup(Trepan::SubSubcommand::SetAuto,
+                                   Trepan::SubSubcommand::SetAutoList)
+  cmd.run([cmd.name, 'off'])
+  cmd.run([cmd.name, 'on'])
+end

data/processor/command/set_subcmd/basename.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::SetBasename < Trepan::SetBoolSubcommand
+  unless defined?(HELP)
+    HELP = "Set to show only file basename in showing file names"
+    IN_LIST    = true
+    MIN_ABBREV = 'ba'.size
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
+  end
+
+end
+
+if __FILE__ == $0
+  # Demo it.
+  $0 = __FILE__ + 'notagain' # So we don't run this again
+  require_relative '../../mock'
+  cmd = MockDebugger::sub_setup(Trepan::Subcommand::SetBasename, false)
+  cmd.run(cmd.prefix + ['off'])
+  cmd.run(cmd.prefix + ['ofn'])
+  cmd.run(cmd.prefix)
+  puts cmd.save_command
+end

data/processor/command/set_subcmd/confirm.rb

@@ -0,0 +1,24 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2011 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../base/subcmd'
+
+class Trepan::Subcommand::SetConfirm < Trepan::SetBoolSubcommand
+  unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
+    HELP = "Set whether to confirm potentially dangerous operations."
+    IN_LIST    = true
+    MIN_ABBREV = 'co'.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::SetConfirm, false)
+  cmd.run(cmd.prefix + ['off'])
+  cmd.run(cmd.prefix + ['ofn'])
+  cmd.run(cmd.prefix)
+  puts cmd.save_command
+end

data/processor/command/set_subcmd/debug.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/subsubcmd'
+require_relative '../base/subsubmgr'
+
+class Trepan::SubSubcommand::SetDebug < Trepan::SubSubcommandMgr
+  unless defined?(HELP)
+    HELP   = 'Set internal debugger settings'
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
+  end
+end
+
+if __FILE__ == $0
+  require_relative '../../mock'
+  dbgr, cmd = MockDebugger::setup('set')
+  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/.gitignore

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

data/processor/command/set_subcmd/debug_subcmd/dbgr.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::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 #{NAME})
+    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'
+  require_relative '../debug'
+  cmd = MockDebugger::subsub_setup(Trepan::SubSubcommand::SetDebug,
+                                   Trepan::SubSubcommand::SetDebugDbgr)
+  cmd.run([cmd.name, 'off'])
+  cmd.run([cmd.name, 'on'])
+end

data/processor/command/set_subcmd/debug_subcmd/skip.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'
+
+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 #{NAME})
+  end
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../../mock'
+  require_relative '../debug'
+  cmd = MockDebugger::subsub_setup(Trepan::SubSubcommand::SetDebug,
+                                   Trepan::SubSubcommand::SetDebugSkip)
+  cmd.run([cmd.name, 'off'])
+  cmd.run([cmd.name, 'on'])
+end

data/processor/command/set_subcmd/debug_subcmd/step.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'
+
+class Trepan::SubSubcommand::SetDebugStep < Trepan::SetBoolSubSubcommand
+  unless defined?(HELP)
+    HELP        = 'Set debugging of statement step logic'
+    MIN_ABBREV  = 'st'.size
+    NAME        = File.basename(__FILE__, '.rb')
+    PREFIX      = %W(set debug #{NAME})
+  end
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../../mock'
+  require_relative '../debug'
+  cmd = MockDebugger::subsub_setup(Trepan::SubSubcommand::SetDebug,
+                                   Trepan::SubSubcommand::SetDebugStep)
+  cmd.run([cmd.name, 'off'])
+  cmd.run([cmd.name, 'on'])
+end

data/processor/command/set_subcmd/different.rb

@@ -0,0 +1,61 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../base/subcmd'
+
+class Trepan::Subcommand::SetDifferent < Trepan::SetBoolSubcommand
+  unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
+    HELP         = <<-EOH
+#{PREFIX.join(' ')} [on|off|nostack]
+
+Set to make sure 'next' or 'step' moves to a new position.
+
+Due to the interpretive, expression-oriented nature of the Ruby
+Language and implementation, each line often may contain many possible
+stopping points with possibly different event type. In a debugger it
+is sometimes desirable to continue but stop only when the position
+next changes.
+
+Setting 'different' to on will cause each 'step' or 'next' command to
+stop at a different position.
+
+Note though that the notion of different does take into account stack
+nesting. So in ARGV.map {|arg| arg.to_i} you get a stop before ARGV as
+well as one in the block. 
+
+If you to ignore stopping at added nesting levels, there are two
+possibilities. 'set step nostack' will ignore stack nestings levels on
+a given line. Also you can use 'next', but that also stepping into
+functions on different lines to also be skipped.
+
+See also 'step', 'next' which have suffixes '+' and '-' which
+override this setting.
+    EOH
+
+    IN_LIST      = true
+    MIN_ABBREV   = 'dif'.size
+    SHORT_HELP   = "Set to make sure 'next/step' move to a new position."
+  end
+
+  completion %w(on off nostack)
+
+  def run(args)
+    if args.size == 3 && 'nostack' == args[2]
+      @proc.settings[:different] = 'nostack'
+      msg("different is nostack.")
+    else
+      super
+    end
+    @proc.different_pos = @proc.settings[:different]
+  end
+
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../mock'
+  cmd = MockDebugger::sub_setup(Trepan::Subcommand::SetDifferent)
+  cmd.run(cmd.prefix + ['off'])
+  puts cmd.save_command
+end

data/processor/command/set_subcmd/hidelevel.rb

@@ -0,0 +1,62 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../base/subcmd'
+
+class Trepan::Subcommand::SetHidelevel < Trepan::Subcommand
+  unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
+    HELP         = <<-EOH
+#{PREFIX.join(' ')} [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:
+   #{PREFIX.join(' ')}     # Use the default value and hide 'uninteresting' ones
+   #{PREFIX.join(' ')} 0   # Show all stack entries, even from loading the program
+                     # or initial stack entries the debugger created to 
+                     # debug the program.
+   #{PREFIX.join(' ')} 1   # Hide only the bottom-most or least-recent stack frame.
+
+See also 'backtrace' and 'show hidelevel'. 
+.
+    EOH
+
+    IN_LIST      = true
+    MIN_ABBREV   = 'hide'.size
+    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.hidelevels[@current_thread] = nil
+    @proc.settings[:hidelevel] = val
+    @proc.set_hide_level
+    @proc.run_command('show hidelevel')
+  end
+
+end
+
+if __FILE__ == $0
+  # Demo it.
+  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/highlight.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/subcmd'
+
+class Trepan::Subcommand::SetHighlight < Trepan::SetBoolSubcommand
+  unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
+    HELP       = 'Set whether we use terminal highlighting'
+    IN_LIST    = true
+    MIN_ABBREV = 'hi'.size
+  end
+
+  def complete(prefix)
+    Trepan::Complete.complete_token(%w(on off reset), prefix)
+  end
+
+  def run(args)
+    if args.size == 3 && 'reset' == args[2]
+      LineCache::clear_file_format_cache
+      @proc.settings[:highlight] = :term 
+    else
+      super
+      @proc.settings[:highlight] = :term if @proc.settings[:highlight]
+    end
+  end
+
+end
+
+if __FILE__ == $0
+  # Demo it.
+  $0 = __FILE__ + 'notagain' # So we don't run this again
+  require_relative '../../mock'
+  cmd = MockDebugger::sub_setup(Trepan::Subcommand::SetHighlight, false)
+  cmd.run(cmd.prefix + ['off'])
+  cmd.run(cmd.prefix + ['ofn'])
+  cmd.run(cmd.prefix)
+  puts cmd.save_command
+end