rb8-trepanning 0.1.5 → 0.1.6

data/processor/command/alias.rb

@@ -1,4 +1,4 @@
-# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
+# Copyright (C) 2010-2011, 2013 Rocky Bernstein <rockyb@rubyforge.net>
 require 'rubygems'; require 'require_relative'
 require_relative '../command'
 
@@ -9,7 +9,7 @@ class Trepan::Command::AliasCommand < Trepan::Command
     HELP = <<-HELP
 #{NAME} ALIAS COMMAND
 
-Add alias ALIAS for a debugger command COMMAND.  
+Add alias ALIAS for a debugger command COMMAND.
 
 Add an alias when you want to use a command abbreviation for a command
 that would otherwise be ambigous. For example, by default we make 's'
@@ -20,7 +20,7 @@ Example:
 
 alias cat list   # "cat rubyfile.rb" is the same as "list rubyfile.rb"
 alias s   step   # "s" is now an alias for "step".
-                 # The above examples done by default.
+                 # The above example is done by default.
 
 See also 'unalias' and 'show #{NAME}'.
     HELP
@@ -30,8 +30,8 @@ See also 'unalias' and 'show #{NAME}'.
     NEED_STACK    = true
     SHORT_HELP    = 'Add an alias for a debugger command'
   end
-  
-  # Run command. 
+
+  # Run command.
   def run(args)
     if args.size == 1
       @proc.commands['show'].run(%W(show #{NAME}))
@@ -43,7 +43,7 @@ See also 'unalias' and 'show #{NAME}'.
       if @proc.commands.member?(command)
         @proc.aliases[al] = command
         if old_command
-          msg("Alias '#{al}' for command '#{command}' replaced old " + 
+          msg("Alias '#{al}' for command '#{command}' replaced old " +
               "alias for '#{old_command}'.")
         else
           msg "New alias '#{al}' for command '#{command}' created."

data/processor/command/down.rb

@@ -1,5 +1,5 @@
 # -*- coding: utf-8 -*-
-# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
+# Copyright (C) 2010-2012 Rocky Bernstein <rockyb@rubyforge.net>
 require 'rubygems'; require 'require_relative'
 require_relative 'up'
 
@@ -19,7 +19,6 @@ is the most recent frame. If no count is given, move down 1.
 See also 'up' and 'frame'.
   HELP
 
-    ALIASES       = %w(d)
     NAME          = File.basename(__FILE__, '.rb')
     SHORT_HELP    = 'Move frame in the direction of the caller of the last-selected frame'
   }

data/processor/command/edit.rb

@@ -1,11 +1,11 @@
 # -*- coding: utf-8 -*-
-# Copyright (C) 2011 Rocky Bernstein <rockyb@rubyforge.net>
+# Copyright (C) 2011, 2013 Rocky Bernstein <rockyb@rubyforge.net>
 require 'rubygems'; require 'require_relative'
 require_relative '../command'
 
 class Trepan::Command::EditCommand < Trepan::Command
 
-  old_verbose = $VERBOSE  
+  old_verbose = $VERBOSE
   $VERBOSE    = nil
   NAME        = File.basename(__FILE__, '.rb')
   HELP    = <<-HELP
@@ -30,7 +30,7 @@ Examples:
   NEED_STACK    = false
   SHORT_HELP    = 'Invoke an editor on some source code'
   MAX_ARGS      = 2
-  $VERBOSE      = old_verbose 
+  $VERBOSE      = old_verbose
 
   # FIXME: redo with locations and kparse.
   def run(args)
@@ -38,28 +38,32 @@ Examples:
     when 1
       unless @proc.context
         errmsg "We are not in a state that has an associated file."
-        return 
+        return
       end
       file = @proc.frame.file
       line = @proc.frame.line
     when 2
       line = Integer(args[1]) rescue nil
-      if line 
+      if line
         unless @proc.context
           errmsg "We are not in a state that has an associated file."
-          return 
+          return
         end
         file = @proc.frame.file
-      else 
+      else
         file = args[1]
         line = 1
       end
     when 3
       line, file =  args[2], args[1]
     else
-      errmsg "edit needs at most 2 args." 
+      errmsg "edit needs at most 2 args."
     end
     editor = ENV['EDITOR'] || '/bin/ex'
+    unless File.executable?(editor)
+      errmsg "Editor #{editor} is not executable. Trying anyway..."
+    end
+
     if File.readable?(file)
       file = File.basename(file) if settings[:basename]
       edit_cmd = "#{editor} +#{line} \"#{file}\""

data/processor/command/eval.rb

@@ -5,7 +5,7 @@ require_relative '../command'
 
 class Trepan::Command::EvalCommand < Trepan::Command
 
-  old_verbose = $VERBOSE  
+  old_verbose = $VERBOSE
   $VERBOSE    = nil
   NAME          = File.basename(__FILE__, '.rb')
   HELP    = <<-HELP
@@ -19,7 +19,7 @@ next to the inspect output of the value.
 
 If no string is given, we run the string from the current source code
 about to be run. If the command ends ? (via an alias) and no string is
-given we will the following translations occur:
+given, the following translations occur:
 
    {if|elsif|unless} expr [then]  => expr
    {until|while} expr [do]        => expr
@@ -38,7 +38,7 @@ Examples:
 #{NAME} @v
 #{NAME}      # Run current source-code line
 #{NAME}?     # but strips off leading 'if', 'while', ..
-             # from command 
+             # from command
 
 See also 'set autoeval'. The command helps one predict future execution.
 See 'set buffer trace' for showing what may have already been run.
@@ -48,14 +48,14 @@ See 'set buffer trace' for showing what may have already been run.
   CATEGORY      = 'data'
   NEED_STACK    = true
   SHORT_HELP    = 'Run code in the current context'
-  $VERBOSE      = old_verbose 
+  $VERBOSE      = old_verbose
 
   def complete(prefix)
-    if prefix.empty? 
+    if prefix.empty?
       if @proc.leading_str.start_with?('eval?')
         Trepan::Util.extract_expression(@proc.current_source_text)
       else
-        @proc.current_source_text 
+        @proc.current_source_text
       end
     else
       prefix
@@ -66,7 +66,7 @@ See 'set buffer trace' for showing what may have already been run.
     if args.size == 1
       text  = @proc.current_source_text.chomp
       ## FIXME turn into a subroutine and use in complete.
-      if  '?' == args[0][-1..-1] 
+      if  '?' == args[0][-1..-1]
         text = Trepan::Util::extract_expression(text)
         msg "eval: #{text}"
       end

data/processor/command/info_subcmd/macro.rb

@@ -1,5 +1,5 @@
 # -*- coding: utf-8 -*-
-# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
+# Copyright (C) 2010-2011, 2013 Rocky Bernstein <rockyb@rubyforge.net>
 require 'rubygems'; require 'require_relative'
 require_relative '../base/subcmd'
 require_relative '../../../app/complete'
@@ -8,14 +8,14 @@ class Trepan::Subcommand::InfoMacro < Trepan::Subcommand
   unless defined?(HELP)
     Trepanning::Subcommand.set_name_prefix(__FILE__, self)
     HELP = <<-HELP
-#{CMD} 
+#{CMD}
 #{CMD} *
 #{CMD} MACRO1 [MACRO2 ..]
 
 In the first form a list of the existing macro names are shown
 in column format.
 
-In the second form, all macro names and their definitions are show.
+In the second form, all macro names and their definitions are shown.
 
 In the last form the only definitions of the given macro names is shown.
     HELP
@@ -29,12 +29,12 @@ In the last form the only definitions of the given macro names is shown.
 
   def run(args)
     if args.size > 2
-      macro_names = 
-        if args.size == 3 && '*' == args[2] 
+      macro_names =
+        if args.size == 3 && '*' == args[2]
           @proc.macros.keys
         else
           args[2..-1]
-        end        
+        end
       macro_names.each do |macro_name|
         if @proc.macros.member?(macro_name)
           section "#{macro_name}:"

data/processor/command/info_subcmd/program.rb

@@ -19,7 +19,8 @@ class Trepan::Subcommand::InfoProgram < Trepan::Subcommand
       return
     end
     case @proc.event 
-    when :raise
+    when 'raise'
+    when 'post-mortem'
       status = 'crashed'
     else
       status = 'stopped'
@@ -36,6 +37,9 @@ class Trepan::Subcommand::InfoProgram < Trepan::Subcommand
     when :catchpoint
       msg("Handling an uncaught exception `%s' (%s)." % [event_arg,  
             event_arg.class])
+    when :"post-mortem"
+      msg("It stopped in post-mortem exception `%s' (%s)." % [event_arg,  
+            event_arg.class])
     else
       msg "unknown reason: %s" % @proc.context.stop_reason.to_s
     end

data/processor/command/macro.rb

@@ -1,5 +1,5 @@
 # -*- coding: utf-8 -*-
-# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
+# Copyright (C) 2010-2011, 2013 Rocky Bernstein <rockyb@rubyforge.net>
 require 'rubygems'; require 'require_relative'
 require_relative '../command'
 require_relative '../eval'
@@ -37,25 +37,25 @@ could do that this way:
 
   macro fin+ Proc.new{|*args| ['finish \#{args[0]}' 'step']}
 
-Invoking with 
+Invoking with
   fin+ 3
 
 would expand to ["finish 3", "step"]
 
-If you were to add another parameter for 'step', the note that the 
+If you were to add another parameter for 'step', the note that the
 invocation might be:
   fin+ 3 2
 
 rather than 'fin+(3,2)' or 'fin+ 3, 2'.
 
-See also 'show macro'.
+See also 'alias' and 'info macro'.
     HELP
 
     CATEGORY      = 'support'
     MIN_ARGS      = 2  # Need at least this many
     SHORT_HELP    = 'Define a macro'
   end
-  
+
   def run(args)
     cmd_name = args[1]
     cmd_argstr = @proc.cmd_argstr[cmd_name.size..-1].lstrip
@@ -70,7 +70,7 @@ See also 'show macro'.
     end
   end
 end
-        
+
 if __FILE__ == $0
   require_relative '../mock'
   dbgr, cmd = MockDebugger::setup

data/processor/command/show_subcmd/abbrev.rb

@@ -1,12 +1,12 @@
 # -*- coding: utf-8 -*-
-# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
+# Copyright (C) 2010-2012 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"
+    HELP       = "Show whether we allow abbreviated debugger command names"
     MIN_ABBREV = 'ab'.size
   end
 

data/processor/command/up.rb

@@ -1,4 +1,4 @@
-# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
+# Copyright (C) 2010-2012 Rocky Bernstein <rockyb@rubyforge.net>
 require 'rubygems'; require 'require_relative'
 require_relative '../command'
 
@@ -18,7 +18,6 @@ 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

data/processor/complete.rb

@@ -0,0 +1,120 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2013 Rocky Bernstein <rockyb@rubyforge.net>
+
+# Part of Trepan::CmdProcess to handle command completion
+require_relative '../app/complete'
+require_relative 'virtual'
+
+class Trepan::CmdProcessor < Trepan::VirtualCmdProcessor
+
+  attr_reader   :leading_str     # leading part of string. Used in
+                                 # command completion
+
+  # Handle initial completion. We draw from the commands, aliases,
+  # and macros for completion. However we won't include aliases which
+  # are prefixes of other commands.
+  def complete(str, last_token)
+    @leading_str = str
+    next_blank_pos, token = Trepan::Complete.next_token(str, 0)
+    return [''] if token.empty? && !last_token.empty?
+    match_pairs = Trepan::Complete.complete_token_with_next(@commands,
+                                                            token)
+    match_hash = {}
+    match_pairs.each do |pair|
+      match_hash[pair[0]] = pair[1]
+    end
+    alias_pairs = Trepan::Complete.
+      complete_token_filtered_with_next(@aliases, token, match_hash,
+                                        @commands)
+    match_pairs += alias_pairs
+
+    macro_pairs = Trepan::Complete.
+      complete_token_filtered_with_next(@macros, token, match_hash,
+                                        @commands)
+    match_pairs += macro_pairs
+
+    if str[next_blank_pos..-1].empty?
+      return match_pairs.map{|pair| pair[0]}.sort
+    else
+      alias_pairs.each do |pair|
+        match_hash[pair[0]] = pair[1]
+      end
+    end
+    if match_pairs.size > 1
+      # FIXME: figure out what to do here.
+      # Matched multiple items in the middle of the string
+      # We can't handle this so do nothing.
+      return []
+      # return match_pairs.map do |name, cmd|
+      #   ["#{name} #{args[1..-1].join(' ')}"]
+      # end
+    end
+    # match_pairs.size == 1
+    next_complete(str, next_blank_pos, match_pairs[0][1], last_token)
+  end
+
+  def next_complete(str, next_blank_pos, cmd, last_token)
+    next_blank_pos, token = Trepan::Complete.next_token(str, next_blank_pos)
+    return [] if token.empty? && !last_token.empty?
+
+    if cmd.respond_to?(:complete_token_with_next)
+      match_pairs = cmd.complete_token_with_next(token)
+      return [] if match_pairs.empty?
+      if str[next_blank_pos..-1].rstrip.empty? &&
+          (token.empty? || token == last_token)
+        return match_pairs.map { |completion, junk| completion }
+      else
+        if match_pairs.size == 1
+          return next_complete(str, next_blank_pos, match_pairs[0][1],
+                               last_token)
+        else
+          # FIXME: figure out what to do here.
+          # Matched multiple items in the middle of the string
+          # We can't handle this so do nothing.
+          return []
+        end
+      end
+    elsif cmd.respond_to?(:complete)
+      matches = cmd.complete(token)
+      return [] if matches.empty?
+      if str[next_blank_pos..-1].rstrip.empty? &&
+          (token.empty? || token == last_token)
+        return matches
+      else
+        # FIXME: figure out what to do here.
+        # Matched multiple items in the middle of the string
+        # We can't handle this so do nothing.
+        return []
+      end
+    else
+      return []
+    end
+  end
+end
+
+if __FILE__ == $0
+
+  require_relative 'load_cmds'
+  class Trepan::CmdProcessor
+    def initialize(core, settings={})
+    end
+  end
+
+
+  cmdproc = Trepan::CmdProcessor.new(nil)
+
+  def cmdproc.errmsg(mess)
+    puts "** #{mess}"
+  end
+
+  def cmdproc.msg(mess)
+    puts mess
+  end
+
+  cmddir = File.join(File.dirname(__FILE__), 'command')
+  cmdproc.instance_variable_set('@settings', {})
+  cmdproc.load_cmds_initialize
+  p cmdproc.complete("d", 'd')
+  p cmdproc.complete("sho d", 'd')
+  p cmdproc.complete('', '')
+end

data/processor/default.rb

@@ -1,19 +1,23 @@
+# Copyright (C) 2013 Rocky Bernstein <rockyb@rubyforge.net>
 require 'rubygems'; require 'require_relative'
 require_relative '../app/default' # for Trepan::HOME_DIR etc.
 require_relative 'virtual'
 class Trepan::CmdProcessor < Trepan::VirtualCmdProcessor
 
+  computed_displaywidth = (ENV['COLUMNS'] || '80').to_i
+  computed_displaywidth = 80 unless computed_displaywidth >= 10
+
   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' 
-    
+    :autolist      => false,      # Run 'list'
+
     :basename      => false,      # Show basename of filenames only
-    :callstyle     => :last,      # 
+    :callstyle     => :last,      #
     :confirm       => true,       # Confirm potentially dangerous operations?
-    :different     => 'nostack',  # stop *only* when  different position? 
-    
+    :different     => 'nostack',  # stop *only* when  different position?
+
     :debugdbgr     => false,      # Debugging the debugger
     :debugexcept   => true,       # Internal debugging of command exceptions
     :debugmacro    => false,      # debugging macros
@@ -26,14 +30,14 @@ class Trepan::CmdProcessor < Trepan::VirtualCmdProcessor
                                   # 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 
+    :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,
+    :maxwidth       => computed_displaywidth,
     :prompt         => 'trepan8', # core part of prompt. Additional info like
                                   # debug nesting and thread name is fixed
                                   # and added on.