rbx-trepanning 0.0.1-universal-rubinius

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

@@ -0,0 +1,54 @@
+# -*- 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)
+    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 #{NAME})
+    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,34 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+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 '../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,34 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+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 '../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,26 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 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
+    NAME       = File.basename(__FILE__, '.rb')
+    PREFIX     = %w(set basename)
+  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::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/debug.rb

@@ -0,0 +1,27 @@
+# -*- 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::SetDebug < Trepan::SubSubcommandMgr
+  unless defined?(HELP)
+    HELP   = 'Set internal debugger settings'
+    NAME   = File.basename(__FILE__, '.rb')
+    PREFIX = %W(set #{NAME})
+  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/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,60 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../base/subcmd'
+
+class Trepan::Subcommand::SetDifferent < Trepan::SetBoolSubcommand
+  unless defined?(HELP)
+    NAME         = File.basename(__FILE__, '.rb')
+    HELP         = <<-EOH
+set #{NAME} [on|off|nostack]
+
+Set to make sure 'next/step' move 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
+    PREFIX       = %W(set #{NAME})
+    SHORT_HELP   = "Set to make sure 'next/step' move to a new position."
+  end
+
+  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,63 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../base/subcmd'
+
+class Trepan::Subcommand::SetHidelevel < Trepan::Subcommand
+  unless defined?(HELP)
+    NAME         = File.basename(__FILE__, '.rb')
+    HELP         = <<-EOH
+set #{NAME} [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 #{NAME}     # Use the default value and hide 'uninteresting' ones
+   set #{NAME} 0   # Show all stack entries, even from loading the program
+                     # or initial stack entries the debugger created to 
+                     # debug the program.
+   set #{NAME} 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
+    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.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/kernelstep.rb

@@ -0,0 +1,61 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../show_subcmd/kernelstep'
+
+class Trepan::Subcommand::SetKernelstep < Trepan::Subcommand::ShowKernelstep
+  unless defined?(HELP)
+    NAME         = File.basename(__FILE__, '.rb')
+    HELP         = <<-EOH
+set #{NAME} [on|off]
+
+Allow/disallow stepping into kernel methods.
+    EOH
+
+    IN_LIST      = true
+    MIN_ABBREV   = 'kern'.size
+    PREFIX       = %W(set #{NAME})
+    SHORT_HELP   = "Set stepping into kernel methods."
+  end
+
+  def run(args)
+    onoff_arg = args.size < 3 ? 'on' : args[2]
+    begin
+      on = @proc.get_onoff(onoff_arg)
+    rescue NameError, TypeError
+      return
+    end
+
+    if on
+      if ignore?
+        @proc.ignore_file_re.delete(KERNEL_METHOD_FILE_RE)
+      else
+        errmsg("We aren't ignoring kernel methods for stepping.")
+        return
+      end
+    else
+      if ignore?
+        errmsg("We already should be ignoring kernel methods for stepping.")
+        return
+      else
+        @proc.ignore_file_re[KERNEL_METHOD_FILE_RE] = 'step-finish'
+      end
+    end
+    show
+  end
+
+  def save_command
+    PREFIX.join(' ') + (ignore? ? ' on' : ' off')
+  end
+
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../mock'
+  cmd = MockDebugger::sub_setup(Trepan::Subcommand::SetKernelstep)
+  cmd.run(cmd.prefix + ['off'])
+  puts cmd.save_command
+  cmd.run(cmd.prefix + ['on'])
+  puts cmd.save_command
+end

data/processor/command/set_subcmd/max.rb

@@ -0,0 +1,29 @@
+# -*- 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::SetMax < Trepan::SubSubcommandMgr
+  HELP   = 'Set maximum length for things which may have unbounded size'
+  NAME   = File.basename(__FILE__, '.rb')
+  PREFIX = %W(set #{NAME})
+
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../mock'
+  cmd_ary          = Trepan::SubSubcommand::SetMax::PREFIX
+  dbgr, parent_cmd = MockDebugger::setup(cmd_ary[0], false)
+  cmd              = Trepan::SubSubcommand::SetMax.new(dbgr.processor, 
+                                                    parent_cmd)
+  cmd_name       = cmd_ary.join('')
+  prefix_run = cmd_ary[1..-1]
+  cmd.run(prefix_run)
+  # require_relative '../../../lib/trepanning'
+  # # Trepan.debug(:set_restart => true)
+  ## puts cmd.summary_help(cmd.name)
+  ## puts
+  ## puts '-' * 20
+end

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

@@ -0,0 +1,49 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../../base/subsubcmd'
+
+class Trepan::SubSubcommand::SetMaxList < Trepan::SubSubcommand
+  unless defined?(HELP)
+    HELP         = 'Set max[imum] list NUMBER
+
+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)
+    SHORT_HELP   = 'Set number of lines to list'
+  end
+
+  def run(args)
+    args.shift
+    run_set_int(args.join(' '),
+                "The '#{PREFIX.join(' ')}' command requires a list size", 
+                0, nil)
+  end
+
+  alias save_command save_command_from_settings
+
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../../mock'
+
+  dbgr, set_cmd = MockDebugger::setup('set', false)
+  max_cmd       = Trepan::SubSubcommand::SetMax.new(dbgr.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))
+  subcmd.summary_help(subcmd.name)
+  puts
+  puts '-' * 20
+  puts subcmd.save_command
+end

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

@@ -0,0 +1,50 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../../base/subsubcmd'
+
+class Trepan::Subcommand::SetMaxStack < Trepan::SubSubcommand
+  unless defined?(HELP)
+    HELP         = 'Set number of backtrace lines the debugger will show'
+    DEFAULT_MIN  = 3
+    MIN_ABBREV   = 'sta'.size
+    NAME         = File.basename(__FILE__, '.rb')
+    PREFIX       = %w(set max stack)
+  end
+
+  def run(args)
+    args.shift
+    args = %W(#{DEFAULT_MIN}) if args.empty?
+    run_set_int(args.join(' '),
+                "The '#{PREFIX.join(' ')}' command requires a list size", 
+                DEFAULT_MIN, nil)
+  end
+
+  alias save_command save_command_from_settings
+
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../../mock'
+  dbgr, set_cmd = MockDebugger::setup('set')
+  name = File.basename(__FILE__, '.rb')
+
+  dbgr, set_cmd = MockDebugger::setup('set')
+  max_cmd       = Trepan::SubSubcommand::SetMax.new(dbgr.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(20))
+  name = File.basename(__FILE__, '.rb')
+  subcmd.summary_help(name)
+  puts
+  puts '-' * 20
+  puts subcmd.save_command
+end

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

@@ -0,0 +1,54 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../../base/subsubcmd'
+
+class Trepan::SubSubcommand::SetMaxString < Trepan::SubSubcommand
+  unless defined?(HELP)
+    HELP         = 'Set max st[ring] NUMBER
+
+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 is.
+'
+    DEFAULT_MIN  = 10
+    MIN_ABBREV   = 'str'.size
+    NAME         = File.basename(__FILE__, '.rb')
+    PREFIX       = %w(set max string)
+    SHORT_HELP   = "Set maximum # chars in a string before truncation"
+  end
+
+  def run(args)
+    args.shift
+    args = %W(#{DEFAULT_MIN}) if args.empty?
+    run_set_int(args.join(' '),
+                "The 'set maximum string' command requires number at least #{DEFAULT_MIN}", 
+                DEFAULT_MIN, nil)
+  end
+
+  alias save_command save_command_from_settings
+
+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::SetMaxString::PREFIX.join('')
+  # subcmd        = Trepan::SubSubcommand::SetMaxString.new(set_cmd.proc, 
+  #                                                         max_cmd,
+  #                                                         cmd_name)
+  # subcmd.run([])
+  # subcmd.run(%w(0))
+  # subcmd.run(%w(20))
+  # subcmd.run(%w(100))
+  name = File.basename(__FILE__, '.rb')
+  subcmd.summary_help(name)
+  puts
+  # puts '-' * 20
+  # puts subcmd.save_command
+end

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

@@ -0,0 +1,49 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../../base/subsubcmd'
+
+class Trepan::SubSubcommand::SetMaxWidth < Trepan::SubSubcommand
+  unless defined?(HELP)
+    HELP         = 'Set max[imum] width NUMBER
+
+Set number of characters the debugger thinks are in a line.'
+    IN_LIST      = true
+    MIN_ABBREV   = 'wid'.size
+    NAME         = File.basename(__FILE__, '.rb')
+    PREFIX       = %w(set max width)
+    SHORT_HELP   = 'Set number of characters the debugger thinks are in a line'
+  end
+
+  def run(args)
+    args.shift
+    run_set_int(args.join(' '),
+                "The 'width' command requires a line width", 
+                0, nil)
+  end
+
+  alias save_command save_command_from_settings
+
+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_name      = Trepan::SubSubcommand::SetMaxWidth::PREFIX.join('')
+  # subcmd        = Trepan::SubSubcommand::SetMaxWidth.new(set_cmd.proc,
+  #                                                        max_cmd,
+  #                                                        cmd_name)
+  # subcmd.run(['max', 'width'])
+  # subcmd.run(%w(set max width 0))
+  # subcmd.run(%w(set max width 20))
+  name = File.basename(__FILE__, '.rb')
+  subcmd.summary_help(name)
+  # puts
+  # puts '-' * 20
+  # puts subcmd.save_command
+end