rbx-trepanning 0.0.8-universal-rubinius-1.2 → 0.1.0-universal-rubinius-1.2

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/{alias.rb → aliases.rb}

@@ -3,7 +3,7 @@
 require 'rubygems'; require 'require_relative'
 require_relative '../base/subcmd'
 
-class Trepan::Subcommand::ShowAlias < Trepan::Subcommand
+class Trepan::Subcommand::ShowAliases < Trepan::Subcommand
   Trepanning::Subcommand.set_name_prefix(__FILE__, self)
   unless defined?(HELP)
     HELP         = <<-EOH
@@ -32,7 +32,7 @@ all alias names
     elsif @proc.aliases.empty?
       msg "No aliases defined."
     else
-      section "List of aliases names currently defined:"
+      section "List of alias names currently defined:"
       msg columnize_commands(@proc.aliases.keys.sort)
     end
   end

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

@@ -5,15 +5,11 @@ require_relative '../../base/subsubcmd'
 
 class Trepan::SubSubcommand::ShowAutoEval < Trepan::ShowBoolSubSubcommand
   unless defined?(HELP)
-    HELP = "set auto eval [ON|OFF]
-
-Set this on if you want things that don't look like debugger command to be eval'd
-as a string."
-
+    HELP = "Show evaluation of unrecognized debugger commands"
     MIN_ABBREV   = 'ev'.size
     NAME         = File.basename(__FILE__, '.rb')
     PREFIX       = %W(show auto #{NAME})
-    SHORT_HELP = "Show evaluation of unrecognized debugger commands"
+    SHORT_HELP   = HELP
   end
 
 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

@@ -6,7 +6,7 @@ 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'
+    HELP         = 'Show the number of stack levels to hide'
     MIN_ABBREV   = 'hide'.size
   end
   def run(args)

data/processor/command/show_subcmd/highlight.rb

@@ -7,7 +7,8 @@ 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'
+    HELP         = 'Show whether we use terminal highlighting'
+    MIN_ABBREV   = 'high'.size
   end
 
   def run(args)

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

@@ -4,7 +4,7 @@ require 'optparse'
 
 # Our local modules
 require 'rubygems'; require 'require_relative'
-require_relative 'base/cmd'
+require_relative '../command'
 require_relative '../../interface/script'
 require_relative '../../io/null_output'
 require_relative '../../app/default'
@@ -59,28 +59,28 @@ unless option -c or --continue is given.
   def parse_options(options, args) # :nodoc
     seen_yes_no = false
     parser = OptionParser.new do |opts|
-      opts.on("-c", "--[no-]continue", 
-              "Continue in the face of errors") do
+      opts.on('-c', '--[no-]continue', 
+              'Continue in the face of errors') do
         |v| 
         options[:abort_on_error] = !v
       end
-      opts.on("-v", 
-              "--[no-]verbose", "echo each command as it is executed") do
+      opts.on('-v', 
+              '--[no-]verbose', 'echo each command as it is executed') do
         |v| 
         options[:verbose] = v
       end
-      opts.on("-N", "--no", "Use 'no' in any confirmation prompts") do
+      opts.on('-N', '--no', "Use 'no' in any confirmation prompts") do
         |v| 
         if seen_yes_no
-          msg("Yes/No option already seen. This option (no) ignored.")
+          msg('Yes/No option already seen. This option (no) ignored.')
         end
         options[:confirm_val] = false
       end
-      opts.on("-q", "--[no-]quiet", "Silence debugger output") do
+      opts.on('-q', '--[no-]quiet', 'Silence debugger output') do
         |v| 
         options[:quiet] = v
       end
-      opts.on("-Y", "--yes", "Use 'yes' in any confirmation prompts") do
+      opts.on('-Y', '--yes', "Use 'yes' in any confirmation prompts") do
         |v| 
         if seen_yes_no
           msg("Yes/No option already seen. This option, --yes, ignored.")

data/processor/command/step.rb

@@ -1,5 +1,5 @@
 require 'rubygems'; require 'require_relative'
-require_relative 'base/cmd'
+require_relative '../command'
 require_relative '../../app/condition'
 require_relative '../stepping'
 

data/processor/command/tbreak.rb

@@ -1,14 +1,15 @@
 require 'rubygems'; require 'require_relative'
-require_relative './base/cmd'
+require_relative '../command'
 require_relative 'break'
 
 class Trepan::Command::SetTempBreakpointCommand < 
     Trepan::Command::BreakCommand
-  ALIASES      = %w(tb tbrk)
+  ALIASES      = []
   CATEGORY     = 'breakpoints'
   NAME         = File.basename(__FILE__, '.rb')
   HELP         = <<-HELP
 Same as break, but the breakpoint is deleted when it is hit.
+See also "break".
       HELP
   SHORT_HELP   = 'Set a temporary breakpoint'
   

data/processor/command/unalias.rb

@@ -1,17 +1,18 @@
-# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
 require 'rubygems'; require 'require_relative'
-require_relative 'base/cmd'
+require_relative '../command'
+require_relative '../../app/complete'
 
 class Trepan::Command::UnaliasCommand < Trepan::Command
 
   unless defined?(HELP)
-    HELP = 
-"unalias COMMAND
+    HELP = <<-HELP
+unalias ALIAS
 
-Remove alias for COMMAND
+Remove alias ALIAS
 
 See also 'alias'.
-"
+HELP
 
     CATEGORY      = 'support'
     MIN_ARGS      = 1
@@ -21,6 +22,10 @@ See also 'alias'.
     SHORT_HELP    = 'Remove an alias'
   end
   
+  def complete(prefix)
+    Trepan::Complete.complete_token(@proc.aliases.keys, prefix)
+  end
+
   # Run command. 
   def run(args)
     args[1..-1].each do |arg|

data/processor/command/undisplay.rb

@@ -1,7 +1,7 @@
 # -*- coding: utf-8 -*-
 # Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
 require 'rubygems'; require 'require_relative'
-require_relative 'base/cmd'
+require_relative '../command'
 
 # undisplay display-number...
 class Trepan::Command::UndisplayCommand < Trepan::Command
@@ -9,37 +9,41 @@ class Trepan::Command::UndisplayCommand < Trepan::Command
   unless defined?(HELP)
     NAME = File.basename(__FILE__, '.rb')
     HELP = <<EOH
-undisplay DISPLAY_NUMBER ...
+#{NAME} DISPLAY_NUMBER ...
 Cancel some expressions to be displayed when program stops.
 Arguments are the code numbers of the expressions to stop displaying.
 No argument means cancel all automatic-display expressions.
 "delete display" has the same effect as this command.
-Do "info display" to see current list of code numbers.
+Use "info display" to see current list of display numbers.
 EOH
 
-    ALIASES       = %w(und)
     CATEGORY      = 'data'
     NEED_STACK    = false
     SHORT_HELP    = 'Cancel some expressions to be displayed when program stops'
   end
 
+  def complete(prefix)
+    @proc.displays.nums.map{|disp| disp.to_s}
+  end
+
   def run(args)
     
     if args.size == 1
-      @proc.displays.clear
-      return
+      if confirm('Delete all displays?', false)
+        @proc.displays.clear
+        return
+      end
     end
     opts = {}
     args[1..-1].each do |arg|
-      opts[:msg_on_error] = '%s must be a display number' % arg
+      opts = {:msg_on_error => '%s must be a display number' % arg}
       i = @proc.get_an_int(arg, opts)
       if i 
         unless @proc.displays.delete_index(i)
-          errmsg("no display number %d." % i)
+          errmsg("No display number %d." % i)
           return
         end
       end
-      return false
     end
   end
 end

data/processor/command/up.rb

@@ -1,17 +1,16 @@
-# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
 require 'rubygems'; require 'require_relative'
-require_relative 'base/cmd'
+require_relative '../command'
+require_relative '../../app/util'
 
-# up command. Like 'down' butthe direction (set by DIRECTION) is different.
+# up command. Like 'down' but the direction (set by DIRECTION) is different.
 #
 # NOTE: The down command  subclasses this, so beware when changing! 
 class Trepan::Command::UpCommand < Trepan::Command
 
-  # Silence already initialized constant .. warnings
-  old_verbose = $VERBOSE  
-  $VERBOSE    = nil
-  NAME        = File.basename(__FILE__, '.rb')
-  HELP        = <<-HELP
+  Trepan::Util.suppress_warnings {
+    NAME        = File.basename(__FILE__, '.rb')
+    HELP        = <<-HELP
 #{NAME} [count]
 
 Move the current frame up in the stack trace (to an older frame). 0 is
@@ -20,12 +19,12 @@ the most recent frame. If no count is given, move up 1.
 See also 'down' and 'frame'.
   HELP
 
-  ALIASES       = %w(u)
-  CATEGORY      = 'stack'
-  MAX_ARGS      = 1  # Need at most this many
-  NEED_STACK    = true
-  SHORT_HELP    = 'Move frame in the direction of the caller of the last-selected frame'
-  $VERBOSE      = old_verbose
+    ALIASES       = %w(u)
+    CATEGORY      = 'stack'
+    MAX_ARGS      = 1  # Need at most this many
+    NEED_STACK    = true
+    SHORT_HELP    = 'Move frame in the direction of the caller of the last-selected frame'
+  }
 
   def complete(prefix)
     @proc.frame_complete(prefix, @direction)

data/processor/default.rb

@@ -1,54 +1,57 @@
 # Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
 require 'rubygems'; require 'require_relative'
 require_relative '../app/default'
-class Trepan
-  class CmdProcessor
+require_relative 'virtual'
+class Trepan::CmdProcessor < Trepan::VirtualCmdProcessor
 
-    DEFAULT_SETTINGS = {
-      :autoeval      => true,      # Ruby eval non-debugger commands
-      :autoirb       => false,     # Go into IRB in debugger command loop
-      :autolist      => false,     # Run 'list' 
+  DEFAULT_SETTINGS = {
+    :abbrev        => true,       # Allow abbreviations of debugger commands?
+    :autoeval      => true,       # Ruby eval non-debugger commands
+    :autoirb       => false,      # Go into IRB in debugger command loop
+    :autolist      => false,      # Run 'list' 
+    
+    :basename      => false,      # Show basename of filenames only
+    :confirm       => true,       # Confirm potentially dangerous operations?
+    :different     => 'nostack',  # stop *only* when  different position? 
+    
+    :debugdbgr     => false,      # Debugging the debugger
+    :debugexcept   => true,       # Internal debugging of command exceptions
+    :debugmacro    => false,      # debugging macros
+    :debugskip     => false,      # Internal debugging of step/next skipping
+    :directory     =>             # last-resort path-search for files
+                    '$rbx:$cdir:$cwd',  # that are not fully qualified.
 
-      :basename      => false,     # Show basename of filenames only
-      :confirm       => true,      # Confirm potentially dangerous operations?
-      :different     => 'nostack', # stop *only* when  different position? 
-
-      :debugdbgr     => false,     # Debugging the debugger
-      :debugexcept   => true,      # Internal debugging of command exceptions
-      :debugmacro    => false,     # debugging macros
-      :debugskip     => false,     # Internal debugging of step/next skipping
-      :directory     =>            # last-resort path-search for files
-                    '$cdir:$cwd',  # that are not fully qualified.
-
-      :hidestack     => nil,       # Fixnum. How many hidden outer
-                                   # debugger stack frames to hide?
-                                   # nil or -1 means compute value. 0
-                                   # means hide none. Less than 0 means show
-                                   # all stack entries.
-      :hightlight    => false,     # Use terminal highlight? 
-      
-      :maxlist       => 10,        # Number of source lines to list 
-      :maxstack      => 10,        # backtrace limit
-      :maxstring     => 150,       # Strings which are larger than this
-                                   # will be truncated to this length when
-                                   # printed
-      :maxwidth       => (ENV['COLUMNS'] || '80').to_i,
-      :prompt         => 'trepanx', # core part of prompt. Additional info like
-                                   # debug nesting and 
-      :save_cmdfile  => nil,       # If set, debugger command file to be
-                                   # used on restart
-      :timer         => false,     # show elapsed time between events
-      :traceprint    => false,     # event tracing printing
-      :tracebuffer   => false,     # save events to a trace buffer.
-      :user_cmd_dir  => File.join(Trepan::HOME_DIR, 'tepanx', 'command'),
-                                   # User command directory
-
-      # Rubinius-specific user variables
-      :show_ip         => false,
-      :show_bytecode   => false,
+    :hidestack     => nil,        # Fixnum. How many hidden outer
+                                  # debugger stack frames to hide?
+                                  # nil or -1 means compute value. 0
+                                  # means hide none. Less than 0 means show
+                                  # all stack entries.
+    :hightlight    => false,      # Use terminal highlight? 
+    
+    :maxlist       => 10,         # Number of source lines to list 
+    :maxstack      => 10,         # backtrace limit
+    :maxstring     => 150,        # Strings which are larger than this
+                                  # will be truncated to this length when
+                                  # printed
+    :maxwidth       => (ENV['COLUMNS'] || '80').to_i,
+    :prompt         => 'trepanx', # core part of prompt. Additional info like
+                                  # debug nesting and thread name is fixed
+                                  # and added on.
+    :reload         => false,     # Reread source file if we determine
+                                  # it has changed?
+    :save_cmdfile  => nil,        # If set, debugger command file to be
+                                  # used on restart
+    :timer         => false,      # show elapsed time between events
+    :traceprint    => false,      # event tracing printing
+    :tracebuffer   => false,      # save events to a trace buffer.
+    :user_cmd_dir  => File.join(%W(#{Trepan::HOME_DIR} trepanx command)),
+                                  # User command directory
 
+    # Rubinius-specific user variables
+    :show_ip         => false,
+    :show_bytecode   => false,
+    
     } unless defined?(CmdProcessor::DEFAULT_SETTINGS)
-  end
 end
 
 if __FILE__ == $0