rbx-trepanning 0.0.4-universal-rubinius-1.2 → 0.0.6-universal-rubinius-1.2

data/processor/command/info_subcmd/{file.rb → files.rb}

@@ -2,22 +2,30 @@
 # Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
 require 'rubygems'; require 'require_relative'
 require 'linecache'
+require 'columnize'
 require_relative '../base/subcmd'
+require_relative '../../../app/complete'
 
-class Trepan::Subcommand::InfoFile < Trepan::Subcommand
+class Trepan::Subcommand::InfoFiles < Trepan::Subcommand
   unless defined?(HELP)
     Trepanning::Subcommand.set_name_prefix(__FILE__, self)
-    DEFAULT_FILE_ARGS = %w(size sha1)
+    DEFAULT_FILE_ARGS = %w(size mtime sha1)
 
     HELP = <<-EOH
-#{PREFIX.join(' ')} [{FILENAME|.} [all | brkpts | sha1 | size | stat]]
+#{CMD=PREFIX.join(' ')} [{FILENAME|.|*} [all|ctime|brkpts|mtime|sha1|size|stat]]
 
 Show information about the current file. If no filename is given and
-the program is running then the current file associated with the
-current stack entry is used. Sub options which can be shown about a file are:
+the program is running, then the current file associated with the
+current stack entry is used. Giving . has the same effect. 
+
+Given * gives a list of all files we know about.
+
+Sub options which can be shown about a file are:
 
 brkpts -- Line numbers where there are statement boundaries. 
           These lines can be used in breakpoint commands.
+ctime  -- File creation time
+mtime  -- File modification time
 sha1   -- A SHA1 hash of the source text. This may be useful in comparing
           source code.
 size   -- The number of lines in the file.
@@ -25,16 +33,42 @@ stat   -- File.stat information
 
 all    -- All of the above information.
 
-If no sub-options are given #{DEFAULT_FILE_ARGS.join(' ')} are assumed.
+If no sub-options are given, "#{DEFAULT_FILE_ARGS.join(' ')}" are assumed.
+
+Examples:
+
+#{CMD}    # Show #{DEFAULT_FILE_ARGS.join(' ')} information about current file
+#{CMD} .  # same as above
+#{CMD} brkpts      # show the number of lines in the current file
+#{CMD} brkpts size # same as above but also list breakpoint line numbers
+#{CMD} *  # Give a list of files we know about
 EOH
     MIN_ABBREV   = 'fi'.size  # Note we have "info frame"
     NEED_STACK   = false
   end
+
+  # completion %w(all brkpts iseq sha1 size stat)
+
+  include Trepanning
+
+  def file_list
+    (LineCache.class_variable_get('@@file_cache').keys +
+     LineCache.class_variable_get('@@file2file_remap').keys).uniq
+  end
+  def complete(prefix)
+    completions = ['.'] + file_list
+    Trepan::Complete.complete_token(completions, prefix)
+  end
   
   # Get file information
   def run(args)
     return if args.size < 2
     args << '.' if 2 == args.size 
+    if '*' == args[2]
+      section 'Files names cached:'
+      msg columnize_commands(file_list.sort)
+      return
+    end
     filename = 
       if '.' == args[2]
         if not @proc.frame
@@ -50,7 +84,7 @@ EOH
     args += DEFAULT_FILE_ARGS if args.size == 3
 
     m = filename + ' is'
-    canonic_name = LineCache::map_file(filename)
+    canonic_name = LineCache::map_file(filename) || filename
     if LineCache::cached?(canonic_name)
       m += " cached in debugger"
       if canonic_name != filename
@@ -70,8 +104,17 @@ EOH
     #     canonic_name = matches[0]
     #   end
     else
-      msg(m + ' not cached in debugger.')
-      return
+      matches = file_list.select{|try| try.end_with?(filename)}
+      if (matches.size > 1)
+        msg("Multiple files found ending filename string:")
+        matches.sort.each { |match_file| msg "\t%s" % match_file }
+        return
+      elsif 1 == matches.size
+        canonic_name = LineCache::map_file(matches[1])
+      else
+        msg(m + ' not cached in debugger.')
+        return
+      end
     end
     seen = {}
     args[3..-1].each do |arg|
@@ -102,6 +145,14 @@ EOH
         processed_arg = seen[:brkpts] = true
       end
 
+      if %w(all ctime).member?(arg)
+        unless seen[:ctime]
+          msg("create time:\t%s." % 
+              LineCache::stat(canonic_name).ctime.to_s)
+        end
+        processed_arg = seen[:ctime] = true
+      end
+      
       # if %w(all iseq).member?(arg) 
       #   unless seen[:iseq]
       #     if SCRIPT_ISEQS__.member?(canonic_name)
@@ -116,6 +167,14 @@ EOH
       #   processed_arg = seen[:iseq] = true
       # end
 
+      if %w(all mtime).member?(arg)
+        unless seen[:mtime]
+          msg("modify time:\t%s." % 
+              LineCache::stat(canonic_name).mtime.to_s)
+        end
+        processed_arg = seen[:mtime] = true
+      end
+      
       if %w(all stat).member?(arg)
         unless seen[:stat]
           msg("Stat info:\n\t%s." % LineCache::stat(canonic_name).inspect)
@@ -132,20 +191,19 @@ end
 
 if __FILE__ == $0
   require_relative '../../mock'
-  name = File.basename(__FILE__, '.rb')
-  # FIXME: DRY the below code
-  dbgr, cmd = MockDebugger::setup('info')
-  subcommand = Trepan::Subcommand::InfoFile.new(cmd)
-  testcmdMgr = Trepan::Subcmd.new(subcommand)
+  cmd = MockDebugger::sub_setup(Trepan::Subcommand::InfoFiles, false)
   LineCache::cache(__FILE__)
+  LineCache::cache('../../mock.rb')
   
   [%w(info file nothere),
    %w(info file .),
+   %w(info file *),
    %w(info file),
-   %w(info file file.rb),
-   %w(info file . all),
-   %w(info file . lines size sha1 sha1)].each do |args|
-    subcommand.run(args)
+   %W(info file #{__FILE__}),
+   %W(info file #{__FILE__} all),
+   %W(info file #{__FILE__} brkpts bad size sha1 sha1)].each do |args|
+    cmd.run(args)
     puts '-' * 40
   end
+  p cmd.complete('')
 end

data/processor/command/info_subcmd/line.rb

@@ -0,0 +1,86 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2011 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../base/subcmd'
+
+class Trepan::Subcommand::InfoLine < Trepan::Subcommand
+  unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
+    HELP = <<-EOH
+#{CMD=PREFIX.join(' ')} [LINE-NUMBER]
+
+Show bytecode offset for LINE-NUMBER. If no LINE-NUMBER is given, 
+then we use the current line that we are stopped in.
+
+Examples:
+#{CMD} 
+#{CMD} 10
+    EOH
+    MIN_ABBREV   = 'li'.size
+    NEED_STACK   = true
+    SHORT_HELP   = 'Byte code offsets for source code line'
+   end
+
+  def ip_ranges_for_line(lines, line)
+    result = []
+    in_range = false
+    start_ip = nil
+    total = lines.size
+    i = 1
+    while i < total
+      cur_line = lines.at(i)
+      if cur_line == line
+        start_ip = lines.at(i-1)
+        in_range = true
+      elsif cur_line > line && in_range
+        result << [start_ip, lines.at(i-1)]
+        start_ip = nil
+        in_range = false
+      end
+      i += 2
+    end
+    if in_range && start_ip
+      result << [start_ip, lines.at(total-1)]
+    end
+    result
+  end
+  
+  def run(args)
+    frame = @proc.frame
+    vm_location = frame.vm_location
+    cm          = frame.method
+    filename    = cm.file
+    lines       = cm.lines
+    if args.size == 2
+      line_no     = vm_location.line
+    else
+      lineno_str = args[2]
+      opts = {
+        :msg_on_error =>
+        "The 'info line' line number must be an integer. Got: %s" % lineno_str,
+        :min_value => lines.at(1),
+        :max_value => lines.at(lines.size-2)
+      }
+      line_no = @proc.get_an_int(lineno_str, opts)
+      return false unless line_no
+    end
+      
+    ranges      = ip_ranges_for_line(lines, line_no)
+    if ranges.empty?
+      msg "Line %s of %s:\n\tno bytecode offsets" % [line_no, filename]
+    else
+      msg "Line %s of %s:" % [line_no, filename]
+      ranges.each do |tuple|
+        msg "\t starts at offset %d and ends before offset %d" % tuple
+      end
+    end
+  end
+
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../mock'
+  cmd = MockDebugger::sub_setup(Trepan::Subcommand::InfoLine, false)
+  cmd.run(cmd.prefix)
+end

data/processor/command/info_subcmd/program.rb

@@ -44,15 +44,6 @@ end
 if __FILE__ == $0
   # Demo it.
   require_relative '../../mock'
-  name = File.basename(__FILE__, '.rb')
-
-  # FIXME: DRY the below code
-  dbgr, cmd = MockDebugger::setup('info')
-  subcommand = Trepan::Subcommand::InfoProgram.new(cmd)
-  testcmdMgr = Trepan::Subcmd.new(subcommand)
-
-  subcommand.run_show_bool
-  name = File.basename(__FILE__, '.rb')
-  subcommand.summary_help(name)
-  puts
+  cmd = MockDebugger::sub_setup(Trepan::Subcommand::InfoProgram, false)
+  cmd.run(cmd.prefix)
 end

data/processor/command/info_subcmd/ruby.rb

@@ -0,0 +1,62 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2011 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../base/subcmd'
+
+class Trepan::Subcommand::InfoRuby < Trepan::Subcommand
+  unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
+    HELP         = <<-EOH
+#{CMD=PREFIX.join(' ')} [-v|--verbose|-no-verbose]
+
+Show Ruby version information such as you'd get from 
+"rbx -v" (which is really just the value of RUBY_RELEASE_DATE),
+or from "rbx -vv". 
+
+See also constants: RUBY_DESCRIPITON, RUBY_VERSION, and RUBY_RELEASE_DATE."
+    EOH
+    MIN_ABBREV   = 'ru'.size
+    NEED_STACK   = false
+    SHORT_HELP   = 'Ruby version information'
+   end
+
+  def parse_options(args) # :nodoc
+    options = {}
+    parser = OptionParser.new do |opts|
+      opts.on("-v", 
+              "--[no-]verbose", "show additional version information") do
+        |v| 
+        options[:verbose] = v
+      end
+    end
+    parser.parse(args)
+    return options
+  end
+
+  def run(args)
+    options = parse_options(args[2..-1])
+    msg RUBY_DESCRIPTION
+    if options[:verbose]
+      msg "Options:"
+      msg "  Interpreter type: #{Rubinius::INTERPRETER}"
+      if jit = Rubinius::JIT
+        msg "  JIT enabled: #{jit.join(', ')}"
+      else
+        msg "  JIT disabled"
+      end
+    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::InfoRuby, false)
+  cmd.run(cmd.prefix)
+  %w(-v --verbose --no-verbose).each do |opt|
+    puts '-' * 10 + " #{opt}"
+    cmd.run(cmd.prefix + [opt])
+  end
+end

data/processor/command/info_subcmd/variables.rb

@@ -39,3 +39,10 @@ The optional argument is which variable specifically to show the value of.
     end
   end
 end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../mock'
+  cmd = MockDebugger::sub_setup(Trepan::Subcommand::InfoVariables, false)
+  # cmd.run(cmd.prefix)
+end

data/processor/command/irb.rb

@@ -31,7 +31,7 @@ But arguments have to be quoted because #{NAME} will evaluate them:
 
 Here then is a loop to query VM stack values:
   (-1..1).each {|i| dbgr(\"info reg sp \#{i}\")}
-    HELP
+     HELP
 
     CATEGORY     = 'support'
     MAX_ARGS     = 1  # Need at most this many
@@ -39,7 +39,7 @@ Here then is a loop to query VM stack values:
   end
 
   # This method runs the command
-  def run(args) # :nodoc
+  def run(args)
     add_debugging = 
       if args.size > 1
         '-d' == args[1]
@@ -65,10 +65,33 @@ Here then is a loop to query VM stack values:
     $trepanx_irb_statements = nil
     $trepanx_command = nil
 
-    conf = {:BACK_TRACE_LIMIT => settings[:maxstack]}
-    cont = IRB.start_session(@proc.frame.binding, @proc, conf).to_s
-    trap('SIGINT', save_trap) # Restore old trap
+    conf = {:BACK_TRACE_LIMIT => settings[:maxstack],
+            :RC => true}
 
+    # ?? Should we set GNU readline to what we have,
+    # or let IRB make its own determination? 
+
+    # Save the Readline history and set the Readline completion function 
+    # to be IRB's function 
+    if Trepan::GNU_readline? 
+      @proc.intf.save_history if @proc.intf.respond_to?(:save_history)
+      require 'irb/completion'
+      Readline.completion_proc = IRB::InputCompletor::CompletionProc
+    end
+
+    # And just when you thought, we'd never get around to 
+    # actually running irb...
+    cont = IRB.start_session(@proc.frame.binding, @proc, conf)
+    trap('SIGINT', save_trap) # Restore our old interrupt function.
+
+    # Restore the debuggers' Readline history and the Readline completion 
+    # function
+    if Trepan::GNU_readline? && @proc.dbgr.completion_proc
+      @proc.intf.read_history if @proc.intf.respond_to?(:read_history)
+      Readline.completion_proc = @proc.dbgr.completion_proc 
+    end
+
+    # Respect any backtrace limit set in irb.
     back_trace_limit = IRB.CurrentContext.back_trace_limit
     if settings[:maxstack] !=  back_trace_limit
       msg("\nSetting debugger's BACK_TRACE_LIMIT (%d) to match irb's last setting (%d)" % 
@@ -76,8 +99,17 @@ Here then is a loop to query VM stack values:
       settings[:maxstack]= IRB.CurrentContext.back_trace_limit
     end
 
-    if %w(continue finish next ext step).member?(cont)
-      @proc.commands[cont].run([cont]) # (1, {})
+    case cont
+    when :continue
+      @proc.continue
+    when :finish
+      @proc.finish 
+    when :next
+      @proc.next # (1, {})
+    when :quit
+      @proc.quit
+    when :step
+      @proc.step # (1, {})
     else
       @proc.print_location
     end

data/processor/command/macro.rb

@@ -0,0 +1,76 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative 'base/cmd'
+require_relative '../eval'
+class Trepan::Command::MacroCommand < Trepan::Command
+
+  unless defined?(HELP)
+    NAME          = File.basename(__FILE__, '.rb')
+    HELP = <<-HELP
+#{NAME} MACRO-NAME PROC-OBJECT
+
+Define MACRO-NAME as a debugger macro. Debugger macros get a list of
+arguments and should return either a String or an Array of Strings to
+use in its place.  If the return is a String, that gets tokenized by a
+simple String#split .  Note that macro processing is done right after
+splitting on ;; so if the macro returns a string containing ;; those
+won't be handled on the first string returned.
+
+If instead, Array of Strings is returned, then the first string is
+unshifted from the array and executed. The remaning strings are pushed
+onto the command queue. In contrast to the first string, subsequent
+strings which contain other macros or ;; splitting will be acted upon.
+
+Here is an example. The below creates a macro called finish+ which
+issues two commands 'finish' followed by 'step':
+
+  macro fin+ Proc.new{|*args| %w(finish step)}
+
+Here is another example using arguments. I use the following to debug
+a debugger command:
+
+  macro dbgcmd Proc.new{|*args| ["set debug dbgr", "debug $trepan_cmdproc.commands['\#{args[0]}'].run(\#{args.inspect})"]}
+
+With the above, 'dbgcmd list 5' will ultimately expand to: 
+  set debug dbgr
+  debug $trepan_cmdproc.commands['list'].run(['5'])
+
+and will debug the debugger's 'list' command on the command 'list 5'.
+
+See also 'show macro'.
+    HELP
+
+    CATEGORY      = 'support'
+    MIN_ARGS      = 2  # Need at least this many
+    SHORT_HELP    = 'Define a macro'
+  end
+  
+  def run(args)
+    macro_name = args[1]
+    proc_argstr = @proc.cmd_argstr[macro_name.size..-1].lstrip
+    proc_obj = @proc.debug_eval(proc_argstr, @proc.settings[:maxstring])
+    if proc_obj
+      if proc_obj.is_a?(Proc)
+        @proc.macros[macro_name] = proc_obj
+        msg "Macro \"#{macro_name}\" defined."
+      else
+        errmsg "Expecting a Proc object; got: #{proc_argstr}"
+      end
+    end
+  end
+end
+        
+if __FILE__ == $0
+  require_relative '../mock'
+  dbgr, cmd = MockDebugger::setup
+  cmdproc = cmd.proc
+  ["#{cmd.name} foo Proc.new{|x, y| 'x+y'}",
+   "#{cmd.name} bad2 1+2"].each do |cmdline|
+    args = cmdline.split
+    cmd_argstr = cmdline[args[0].size..-1].lstrip
+    cmdproc.instance_variable_set('@cmd_argstr', cmd_argstr)
+    cmd.run(args)
+  end
+  p cmdproc.macros
+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/max.rb

@@ -19,9 +19,8 @@ if __FILE__ == $0
   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
+  # require 'trepanning'; debugger
+  %w(s lis foo).each do |prefix|
+    p [prefix, cmd.complete(prefix)]
+  end
 end

data/processor/command/show.rb

@@ -18,6 +18,17 @@ Type "help show *" for just a list of "show" subcommands.'
     NEED_STACK    = false
     SHORT_HELP    = 'Show 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

data/processor/command/show_subcmd/auto.rb

@@ -8,6 +8,7 @@ class Trepan::SubSubcommand::ShowAuto < Trepan::SubSubcommandMgr
   unless defined?(HELP)
     Trepanning::Subcommand.set_name_prefix(__FILE__, self)
     HELP   = 'Show settings which some sort of "automatic" default behavior'
+    MIN_ABBREV   = 'au'.size
   end
 end
 

data/processor/command/show_subcmd/basename.rb

@@ -16,6 +16,5 @@ if __FILE__ == $0
   # Demo it.
   $0 = __FILE__ + 'notagain' # So we don't run this agin
   require_relative '../../mock'
-  cmd = MockDebugger::sub_setup(Trepan::Subcommand::ShowBasename, false)
-  cmd.run(cmd.prefix)
+  cmd = MockDebugger::sub_setup(Trepan::Subcommand::ShowBasename)
 end

data/processor/command/show_subcmd/confirm.rb

@@ -0,0 +1,18 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../base/subcmd'
+
+class Trepan::Subcommand::ShowConfirm < Trepan::ShowBoolSubcommand
+  unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
+    HELP       = "Show confirm potentially dangerous operations setting"
+    MIN_ABBREV = 'co'.size
+  end
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../mock'
+  cmd = MockDebugger::sub_setup(Trepan::Subcommand::ShowConfirm, false)
+end

data/processor/command/show_subcmd/max.rb

@@ -24,6 +24,4 @@ if __FILE__ == $0
   cmd_name       = cmd_ary.join('')
   prefix_run = cmd_ary[1..-1]
   cmd.run(prefix_run)
-  # require_relative '../../../lib/trepanning'
-  # Trepan.debug(:set_restart => true)
 end

data/processor/command/source.rb

@@ -10,7 +10,6 @@ require_relative '../../io/null_output'
 require_relative '../../app/default'
 
 class Trepan::Command::SourceCommand < Trepan::Command
-  include Trepanning
   unless defined?(HELP)
     NAME = File.basename(__FILE__, '.rb')
     HELP = <<-HELP

data/processor/default.rb

@@ -10,6 +10,7 @@ class Trepan
       :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
@@ -25,6 +26,7 @@ class Trepan
                                    # 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

data/processor/disassemble.rb

@@ -14,6 +14,7 @@ class Trepan
         fin = meth.iseq.size
       end
 
+      start += 1 if start == -1
       section "Bytecode between #{start} and #{fin-1} for line #{line}"
 
       iseq_decoder = Rubinius::InstructionDecoder.new(meth.iseq)