trepanning 0.0.9 → 0.1.0

data/processor/command/info_subcmd/file.rb

@@ -1,11 +1,12 @@
 # -*- coding: utf-8 -*-
-# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
 require 'linecache'
 require_relative '../base/subcmd'
 require_relative '../../../app/file'
 
 class Trepan::Subcommand::InfoFile < Trepan::Subcommand
   unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
     DEFAULT_FILE_ARGS = %w(size sha1)
 
     HELP =
@@ -28,9 +29,7 @@ all    -- All of the above information.
 If no sub-options are given #{DEFAULT_FILE_ARGS.join(' ')} are assumed.
 "
     MIN_ABBREV   = 'fi'.size  # Note we have "info frame"
-    NAME         = File.basename(__FILE__, '.rb')
     NEED_STACK   = false
-    PREFIX       = %w(info file)
   end
 
   include Trepanning

data/processor/command/info_subcmd/frame.rb

@@ -1,14 +1,13 @@
 # -*- coding: utf-8 -*-
-# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
 require_relative '../base/subcmd'
 
 class Trepan::Subcommand::InfoFrame < Trepan::Subcommand
   unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
     HELP         = 'Show all information about the selected frame'
     MIN_ABBREV   = 'fr'.size # Note we have "info file"
-    NAME         = File.basename(__FILE__, '.rb')
     NEED_STACK   = true
-    PREFIX       = %w(info frame)
   end
 
   def run(args)

data/processor/command/info_subcmd/iseq.rb

@@ -1,10 +1,11 @@
 # -*- coding: utf-8 -*-
-# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
 require_relative '../base/subcmd'
 require 'pp'
 
 class Trepan::Subcommand::InfoIseq < Trepan::Subcommand
   unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
     HELP         = 
 'info iseq [METHOD|.]
 
@@ -16,9 +17,7 @@ Examples:
   info iseq require_relative
 '
     MIN_ABBREV   = 'is'.size
-    NAME         = File.basename(__FILE__, '.rb')
     NEED_STACK   = true
-    PREFIX       = %w(info iseq)
     SHORT_HELP   = 'Information about an instruction sequence'
   end
 
@@ -59,9 +58,9 @@ Examples:
         msg "\nCompile options:"
         msg iseq.compile_options.pretty_inspect
       end
-      if iseq.source
+      if iseq.eval_source
         msg "Source string:"
-        msg @proc.safe_rep(iseq.source.inspect)
+        msg @proc.safe_rep(iseq.eval_source.inspect)
       end
     else
       mess = "Can't find instruction sequence"

data/processor/command/info_subcmd/locals.rb

@@ -1,17 +1,16 @@
 # -*- coding: utf-8 -*-
-# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
 require 'columnize'
 require_relative '../base/subcmd'
 require_relative '../../../app/frame'
 
 class Trepan::Subcommand::InfoLocals < Trepan::Subcommand
   unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
     HELP         = 'Show local variables of the current stack frame'
     MAX_ARGS     = 1
     MIN_ABBREV   = 'lo'.size 
-    NAME         = File.basename(__FILE__, '.rb')
     NEED_STACK   = true
-    PREFIX       = %w(info locals)
   end
 
   include Trepan::Frame

data/processor/command/info_subcmd/program.rb

@@ -1,14 +1,13 @@
 # -*- coding: utf-8 -*-
-# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
 require_relative '../base/subcmd'
 
 class Trepan::Subcommand::InfoProgram < Trepan::Subcommand
   unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
     HELP         = 'Information about debugged program and its environment'
     MIN_ABBREV   = 'pr'.size
-    NAME         = File.basename(__FILE__, '.rb')
     NEED_STACK   = true
-    PREFIX       = %w(info program)
   end
 
   def run(args)

data/processor/command/info_subcmd/registers.rb

@@ -1,10 +1,11 @@
 # -*- coding: utf-8 -*-
-# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
 require_relative '../base/subsubcmd'
 require_relative '../base/subsubmgr'
 
 class Trepan::SubSubcommand::InfoRegisters < Trepan::SubSubcommandMgr
   unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
     HELP         = 
 'List of contents for the registers of the current stack frame.
 If a register name given, only only that register is show.
@@ -19,9 +20,7 @@ Examples:
 '
 
     MIN_ABBREV   = 'reg'.size  # Note we have "info return"
-    NAME         = File.basename(__FILE__, '.rb')
     NEED_STACK   = true
-    PREFIX       = %w(info registers)
   end
 
   def run(args)

data/processor/command/info_subcmd/return.rb

@@ -1,14 +1,13 @@
 # -*- coding: utf-8 -*-
-# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
 require_relative '../base/subcmd'
 
 class Trepan::Subcommand::InfoReturn < Trepan::Subcommand
   unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
     HELP         = 'Show the value about to be returned'
     MIN_ABBREV   = 'ret'.size # Note we have "info registers"
-    NAME         = File.basename(__FILE__, '.rb')
     NEED_STACK   = true
-    PREFIX       = %w(info return)
   end
 
   def run(args)

data/processor/command/info_subcmd/thread.rb

@@ -1,11 +1,12 @@
 # -*- coding: utf-8 -*-
-# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
 require_relative '../base/subcmd'
 require_relative '../../../app/thread'
 require_relative '../../../app/frame'
 
 class Trepan::Subcommand::InfoThread < Trepan::Subcommand
   unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
     HELP         = 
 'info thread [THREAD-ARG1 THREAD-ARG2.. ]
 
@@ -26,9 +27,7 @@ Examples:
    info thread 92562770    # ifnormation for thread with object id 92562770
 '
     MIN_ABBREV   = 'thr'.size 
-    NAME         = File.basename(__FILE__, '.rb')
     NEED_STACK   = true
-    PREFIX       = %w(info thread)
     SHORT_HELP   = 'Show frame(s) for threads'
   end
 

data/processor/command/list.rb

@@ -1,4 +1,4 @@
-# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
 # -*- coding: utf-8 -*-
 require 'linecache'
 require_relative 'base/cmd'
@@ -22,8 +22,8 @@ previously shown.
 If the command has a '>' suffix, then line centering is disabled and
 listing begins at the specificed location.
 
-The number of line to show is controled by the debugger listsize
-setting. Use 'set listsize' or 'show listsize' to see or set the
+The number of lines to show is controlled by the debugger "listsize"
+setting. Use 'set max list' or 'show max list' to see or set the
 value.
 
 \"#{NAME} -\" shows lines before a previous listing. 
@@ -234,13 +234,17 @@ disabled.
     end
 
     begin
+      opts = {
+        :reload_on_change => @proc.reload_on_change,
+        :output => settings[:highlight]
+      }
       first.upto(last).each do |lineno|
-        line = LineCache::getline(container[1], lineno,
-                                  @proc.reload_on_change).chomp
+        line = LineCache::getline(container[1], lineno, opts)
         unless line
           msg('[EOF]')
           break
         end
+        line.chomp!
         s = '%3d' % lineno
         s = s + ' ' if s.size < 4 
         s += if breaklist.member?(lineno)
@@ -253,7 +257,7 @@ disabled.
              end
         s += (frame && lineno == @proc.frame_line &&
               container == frame.source_container) ? '->' : a_pad
-        msg(s + "\t" + line)
+        msg(s + "\t" + line, {:unlimited => true})
         @proc.line_no = lineno
       end
     rescue => e

data/processor/command/reload.rb

@@ -1,5 +1,5 @@
 # -*- coding: utf-8 -*-
-# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
 require_relative 'base/submgr'
 
 class Trepan::Command::ReloadCommand < Trepan::SubcommandMgr

data/processor/command/reload_subcmd/command.rb

@@ -1,19 +1,37 @@
 # -*- coding: utf-8 -*-
-# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
 require_relative '../base/subcmd'
 
 class Trepan::Subcommand::ReloadCommand < Trepan::Subcommand
   unless defined?(HELP)
-    HELP         = 'Reload debugger commmands from debugger directories'
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
+    HELP = <<-HELP
+reload command [file-or-directory ...]
+
+Loads or reloads debugger commands. If no parameters are passed all 
+commands are reloaded. If a parameters are passed each is expected to 
+be a either a Ruby file which implements a series of debugger
+commands by defining Trepan::Command classes, or a directory which contains
+files that implements debugger commands.
+    HELP
     MIN_ABBREV   = 'co'.size # Note we have "info file"
-    NAME         = File.basename(__FILE__, '.rb')
     NEED_STACK   = true
-    PREFIX       = %w(reload command)
+    SHORT_HELP   = 'Reload debugger commmands from debugger directories'
   end
 
   def run(args)
-    @proc.load_cmds_initialize
-    msg('Debugger commands reloaded.')
+    if args.size == 2
+      @proc.load_cmds_initialize
+      msg('Debugger commands reloaded.')
+    elsif args.size > 2
+      args[2..-1].each do |name|
+        if @proc.load_debugger_commands(name)
+          msg "Debugger command file #{name} loaded."
+        else
+          errmsg "Can't load file or directory #{name}"
+        end
+      end
+    end
   end
 
 end
@@ -21,14 +39,9 @@ end
 if __FILE__ == $0
   # Demo it.
   require_relative '../../mock'
-  require_relative '../../subcmd'
-  name = File.basename(__FILE__, '.rb')
-
-  # FIXME: DRY the below code
-  dbgr, cmd  = MockDebugger::setup('reload')
-  subcommand = Trepan::Subcommand::ReloadCommand.new(cmd)
-  testcmdMgr = Trepan::Subcmd.new(subcommand)
-
-  name = File.basename(__FILE__, '.rb')
-  subcommand.summary_help(name)
+  cmd = MockDebugger::sub_setup(Trepan::Subcommand::ReloadCommand, false)
+  cmd.run(cmd.prefix)
+  dir = File.dirname(__FILE__)
+  cmd.run(cmd.prefix + [File.join(%W(#{dir} .. list.rb))])
+  cmd.run(cmd.prefix + [File.join(%W(#{dir} nonexistent-command.rb))])
 end

data/processor/command/server.rb

@@ -0,0 +1,70 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2011 Rocky Bernstein <rockyb@rubyforge.net>
+require 'optparse'
+require_relative 'base/cmd'
+require_relative '../../app/default'
+require_relative '../../interface/server'   # server interface (remote debugging)
+class Trepan::Command::ServerCommand < Trepan::Command
+
+  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_subcmd/auto.rb

@@ -1,13 +1,12 @@
 # -*- coding: utf-8 -*-
-# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
 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   = 'Set controls for things with some sort of "automatic" default behavior'
-    NAME   = File.basename(__FILE__, '.rb')
-    PREFIX = %w(set auto)
   end
 end
 

data/processor/command/set_subcmd/basename.rb

@@ -1,14 +1,13 @@
 # -*- coding: utf-8 -*-
-# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
 require_relative '../base/subcmd'
 
 class Trepan::Subcommand::SetBasename < Trepan::SetBoolSubcommand
   unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
     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

data/processor/command/set_subcmd/debug.rb

@@ -1,13 +1,12 @@
 # -*- coding: utf-8 -*-
-# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
 require_relative '../base/subsubcmd'
 require_relative '../base/subsubmgr'
 
 class Trepan::SubSubcommand::SetDebug < Trepan::SubSubcommandMgr
   unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
     HELP   = 'Set internal debugger settings'
-    NAME   = File.basename(__FILE__, '.rb')
-    PREFIX = %w(set debug)
   end
 end
 

data/processor/command/set_subcmd/different.rb

@@ -1,9 +1,10 @@
 # -*- coding: utf-8 -*-
-# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
 require_relative '../base/subcmd'
 
 class Trepan::Subcommand::SetDifferent < Trepan::SetBoolSubcommand
   unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
     HELP = "
 set different [on|off|nostack]
 
@@ -32,8 +33,6 @@ override this setting."
 
     IN_LIST      = true
     MIN_ABBREV   = 'dif'.size
-    NAME         = File.basename(__FILE__, '.rb')
-    PREFIX       = %w(set different)
     SHORT_HELP   = "Set to make sure 'next/step' move to a new position."
   end
 

data/processor/command/set_subcmd/events.rb

@@ -1,11 +1,12 @@
 # -*- coding: utf-8 -*-
-# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
 require 'trace'
 require 'columnize'
 require_relative '../base/subcmd'
 
 class Trepan::Subcommand::SetEvents < Trepan::Subcommand
   unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
     HELP         = "set events {event-name[,] ...}
 
 Set trace events that the debugger will stop on
@@ -21,8 +22,6 @@ Examples:
    set ev call, c_call, return, c_return, c_return, insn
 "
     MIN_ABBREV   = 'ev'.size
-    NAME         = File.basename(__FILE__, '.rb')
-    PREFIX       = %w(set events)
     SHORT_HELP   = 'Set trace events we may stop on.'
   end