rbx-trepanning 0.0.1-universal-rubinius

data/processor/command/show_subcmd/max.rb

@@ -0,0 +1,30 @@
+# -*- 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::ShowMax < Trepan::SubSubcommandMgr
+  unless defined?(HELP)
+    HELP   = 'Show "maximum length" settings'
+    NAME   = File.basename(__FILE__, '.rb')
+    PREFIX = %W(show #{NAME})
+  end
+
+  def run(args)
+    super
+  end
+end
+
+if __FILE__ == $0
+  require_relative '../../mock'
+  cmd_ary          = Trepan::SubSubcommand::ShowMax::PREFIX
+  dbgr, parent_cmd = MockDebugger::setup(cmd_ary[0], false)
+  cmd              = Trepan::SubSubcommand::ShowMax.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)
+end

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

@@ -0,0 +1,38 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../../base/subsubcmd'
+
+class Trepan::SubSubcommand::ShowMaxList < Trepan::ShowIntSubSubcommand
+  unless defined?(HELP)
+    HELP = 'Show the number of source file lines to list'
+    MIN_ABBREV   = 'lis'.size
+    NAME         = File.basename(__FILE__, '.rb')
+    PREFIX       = %w(show max list)
+  end
+
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../../mock'
+
+  # FIXME: DRY the below code
+  cmd_ary          = Trepan::SubSubcommand::ShowMaxList::PREFIX
+  dbgr, parent_cmd = MockDebugger::setup(cmd_ary[0], false)
+  cmd              = Trepan::SubSubcommand::ShowMax.new(dbgr.processor, 
+                                                        parent_cmd)
+  cmd_name       = cmd_ary.join('')
+  subcmd         = Trepan::SubSubcommand::ShowMaxList.new(parent_cmd.proc,
+                                                          cmd,
+                                                          cmd.name)
+  prefix_run = cmd_ary[1..-1]
+  subcmd.run(prefix_run)
+  
+  # require_relative '../../../../lib/trepanning'
+  # dbgr = Trepan.new(:set_restart => true)
+  # dbgr.debugger
+  puts subcmd.summary_help(cmd.name)
+  puts
+  puts '-' * 20
+end

data/processor/command/show_subcmd/max_subcmd/stack.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::ShowMaxStack < Trepan::ShowIntSubSubcommand
+  unless defined?(HELP)
+    HELP         = 'Show the number of backtrace lines the debugger will show'
+    MIN_ABBREV   = 'sta'.size
+    NAME         = File.basename(__FILE__, '.rb')
+    PREFIX       = %w(show max stack)
+  end
+
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../../mock'
+
+  # FIXME: DRY the below code
+  dbgr, show_cmd = MockDebugger::setup('show')
+  testcmdMgr     = Trepan::Subcmd.new(show_cmd)
+  # max_cmd        = Trepan::SubSubcommand::ShowMax.new(dbgr.core.processor, 
+  #                                                     show_cmd)
+  
+  # cmd_name       = Trepan::SubSubcommand::ShowMaxStack::PREFIX.join('')
+  # maxx_cmd       = Trepan::SubSubcommand::ShowMaxStack.new(show_cmd.proc,
+  #                                                          max_cmd,
+  #                                                          cmd_name)
+  # # require_relative '../../../../lib/trepanning'
+  # # dbgr = Trepan.new(:set_restart => true)
+  # # dbgr.debugger
+  puts max_cmd.summary_help(maxx_cmd)
+  puts
+  # maxx_cmd.run([])
+end

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

@@ -0,0 +1,42 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../../base/subsubcmd'
+
+class Trepan::SubSubcommand::ShowMaxString < Trepan::ShowIntSubSubcommand
+  unless defined?(HELP)
+    HELP = 'Show the number of characters in a string before truncating.
+
+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.'
+    MIN_ABBREV   = 'st'.size
+    NAME         = File.basename(__FILE__, '.rb')
+    PREFIX       = %w(show max string)
+  end
+
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../../mock'
+
+  # FIXME: DRY the below code
+  dbgr, show_cmd = MockDebugger::setup('show')
+  testcmdMgr     = Trepan::Subcmd.new(show_cmd)
+  # max_cmd        = Trepan::SubSubcommand::ShowMax.new(dbgr.core.processor, 
+  #                                                     show_cmd)
+  
+  # cmd_name       = Trepan::SubSubcommand::ShowMaxString::PREFIX.join('')
+  # maxx_cmd       = Trepan::SubSubcommand::ShowMaxString.new(show_cmd.proc,
+  #                                                           max_cmd,
+  #                                                           cmd_name)
+
+  # # require_relative '../../../../lib/trepanning'
+  # # dbgr = Trepan.new(:set_restart => true)
+  # # dbgr.debugger
+  puts max_cmd.summary_help(maxx_cmd)
+  puts 
+  maxx_cmd.run([])
+end

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

@@ -0,0 +1,37 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../../base/subsubcmd'
+
+class Trepan::SubSubcommand::ShowMaxWidth < Trepan::ShowIntSubSubcommand
+  unless defined?(HELP)
+    HELP = 'Show the number of characters the debugger thinks are in a line.'
+    MIN_ABBREV   = 'wid'.size
+    NAME         = File.basename(__FILE__, '.rb')
+    PREFIX       = %w(show max width)
+  end
+
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../../mock'
+
+  # FIXME: DRY the below code
+  dbgr, show_cmd = MockDebugger::setup('show')
+  testcmdMgr     = Trepan::Subcmd.new(show_cmd)
+  # max_cmd        = Trepan::SubSubcommand::ShowMax.new(dbgr.core.processor, 
+  #                                                     show_cmd)
+  # cmd_name       = Trepan::SubSubcommand::ShowMaxWidth::PREFIX.join('')
+  # maxx_cmd       = Trepan::SubSubcommand::ShowMaxWidth.new(show_cmd.proc,
+  #                                                          max_cmd,
+  #                                                          cmd_name)
+  
+  name = File.basename(__FILE__, '.rb')
+  # require_relative '../../../../lib/trepanning'
+  # dbgr = Trepan.new(:set_restart => true)
+  # dbgr.debugger
+  # puts max_cmd.summary_help(maxx_cmd)
+  # puts
+  # maxx_cmd.run([])
+end

data/processor/command/show_subcmd/trace.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::ShowTrace < Trepan::SubSubcommandMgr 
+
+  unless defined?(HELP)
+    HELP = "Show event tracing printing"
+    NAME       = File.basename(__FILE__, '.rb')
+    PREFIX     = %W(show #{NAME})
+    MIN_ABBREV = 'tr'.size
+    SHORT_HELP = HELP
+  end
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../mock'
+  dbgr, cmd = MockDebugger::setup('set', false)
+  parent_cmd = cmds['show']
+  command = Trepan::SubSubcommand::ShowTrace.new(dbgr.processor, 
+                                                 parent_cmd)
+
+  name = File.basename(__FILE__, '.rb')
+  cmd_args = ['show', name]
+  command.run(cmd_args)
+end

data/processor/command/show_subcmd/trace_subcmd/print.rb

@@ -0,0 +1,38 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require_relative '../../base/subsubcmd'
+
+class Trepan::SubSubcommand::ShowTracePrint < Trepan::ShowBoolSubSubcommand
+  unless defined?(HELP)
+    HELP = "Show tracing print status"
+    MIN_ABBREV   = 'p'.size
+    NAME         = File.basename(__FILE__, '.rb')
+    PREFIX       = %w(show trace buffer)
+    SHORT_HELP   = "Show tracing print status"
+  end
+
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../../mock'
+  require_relative '../../../subcmd'
+  name = File.basename(__FILE__, '.rb')
+
+  # FIXME: DRY the below code
+  dbgr, show_cmd = MockDebugger::setup('show')
+  testcmdMgr     = Trepan::Subcmd.new(show_cmd)
+  trace_cmd      = Trepan::SubSubcommand::ShowTrace.new(dbgr.core.processor, 
+                                                        show_cmd)
+
+  # FIXME: remove the 'join' below
+  cmd_name       = Trepan::SubSubcommand::ShowTracePrint::PREFIX.join('')
+  tb_cmd         = Trepan::SubSubcommand::ShowTracePrint.new(show_cmd.proc, 
+                                                             trace_cmd,
+                                                             cmd_name)
+  # require_relative '../../../../lib/trepanning'
+  # dbgr = Trepan.new(:set_restart => true)
+  # dbgr.debugger
+  tb_cmd.run([])
+
+end

data/processor/command/source.rb

@@ -0,0 +1,83 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+
+# Our local modules
+require 'rubygems'; require 'require_relative'
+require_relative 'base/cmd'
+require_relative '../../interface/script'
+require_relative '../../io/null_output'
+# Mfile     = import_relative('file', '...lib', 'pydbgr')
+
+class Trepan::Command::SourceCommand < Trepan::Command
+  unless defined?(HELP)
+    NAME = File.basename(__FILE__, '.rb')
+    HELP = <<-HELP
+#{NAME} [-v][-Y|-N][-c][-q] FILE
+
+Read debugger commands from a file named FILE.  Optional -v switch
+(before the filename) causes each command in FILE to be echoed as it
+is executed.  Option -Y sets the default value in any confirmation
+command to be 'yes' and -N sets the default value to 'no'.
+
+Option -q will turn off any debugger output that normally occurs in the
+running of the program.
+
+Note that the command startup file '.trepanx' is read automatically
+via a source command the debugger is started.
+
+An error in any command terminates execution of the command file
+unless option -c is given.
+    HELP
+    CATEGORY     = 'support'
+    MIN_ARGS     = 1  # Need at least this many
+    MAX_ARGS     = nil
+    SHORT_HELP   = 'Read and run debugger commands from a file'
+  end
+
+  def run(args)
+    verbose = false
+    parms   = args[1..-1]
+    opts    = {}
+    intf    = @proc.dbgr.intf
+    output  = intf[-1].output
+    parms.each do |arg|
+      case arg
+      when '-v'
+        opts[:verbose]        = true
+      when '-Y'
+        opts[:confirm_val]    = true
+      when '-N'
+        opts[:confirm_val]    = false
+      when '-c'
+        opts[:abort_on_error] = false
+      when '-q'
+        output = Trepan::OutputNull.new(nil)
+      end
+    end
+    
+    filename = args[-1]
+    
+    expanded_file = File.expand_path(filename)
+    unless File.readable?(expanded_file)
+      errmsg("Debugger command file '%s' is not a readable file" % filename)
+      return false
+    end
+    
+    # Push a new debugger interface.
+    script_intf = Trepan::ScriptInterface.new(expanded_file, output, opts)
+    intf << script_intf
+    return false
+  end
+end
+  
+# Demo it
+if __FILE__ == $0
+  require_relative '../mock'
+  dbgr, cmd = MockDebugger::setup
+  Trepan::Command::SourceCommand 
+  puts "Args given: #{ARGV.size}"
+  if ARGV.size > 0 
+    puts "running... #{cmd.name} #{ARGV}"
+    cmd.run([cmd.name, *ARGV])
+  end
+end

data/processor/command/step.rb

@@ -0,0 +1,41 @@
+require 'rubygems'; require 'require_relative'
+require_relative 'base/cmd'
+require_relative '../stepping'
+
+class Trepan::Command::StepCommand < Trepan::Command
+
+  ALIASES      = %w(s)
+  CATEGORY     = 'running'
+  NAME         = File.basename(__FILE__, '.rb')
+  HELP         = <<-HELP
+Behaves like 'next', but if there is a method call on the current line,
+exception is stopped in the called method.
+
+See also 'continue', 'next' and 'nexti' commands.
+      HELP
+  NEED_RUNNING = true
+  SHORT_HELP   = 'Step into next method call or to next line'
+
+  def run(args)
+    if args.size == 1
+      step_count = 1
+    else
+      step_str = args[1]
+      opts = {
+        :msg_on_error => 
+        "The #{NAME} command argument must eval to an integer. Got: %s" % 
+        step_str,
+        :min_value => 1
+      }
+      step_count = @proc.get_an_int(step_str, opts)
+      return unless step_count
+    end
+    
+    @proc.step('step', step_count)
+  end
+end
+
+if __FILE__ == $0
+  require_relative '../mock'
+  dbgr, cmd = MockDebugger::setup
+end

data/processor/command/tbreak.rb

@@ -0,0 +1,19 @@
+require 'rubygems'; require 'require_relative'
+require_relative './base/cmd'
+require_relative 'break'
+
+class Trepan::Command::SetTempBreakpointCommand < 
+    Trepan::Command::SetBreakpointCommand
+  ALIASES      = %w(tb tbrk)
+  CATEGORY     = 'breakpoints'
+  NAME         = File.basename(__FILE__, '.rb')
+  HELP         = <<-HELP
+Same as break, but the breakpoint is deleted when it is hit.
+      HELP
+  SHORT_HELP   = 'Set a temporary breakpoint'
+  
+  def run(args)
+    super args, true
+  end
+end
+

data/processor/command/unalias.rb

@@ -0,0 +1,44 @@
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative 'base/cmd'
+
+class Trepan::Command::UnaliasCommand < Trepan::Command
+
+  unless defined?(HELP)
+    HELP = 
+"unalias COMMAND
+
+Remove alias for COMMAND
+
+See also 'alias'.
+"
+
+    CATEGORY      = 'support'
+    MIN_ARGS      = 1
+    # MAX_ARGS      = 1  # Need at most this many
+    NAME          = File.basename(__FILE__, '.rb')
+    NEED_STACK    = true
+    SHORT_HELP    = 'Remove an alias'
+  end
+  
+  # Run command. 
+  def run(args)
+    args[1..-1].each do |arg|
+      if @proc.aliases.member?(arg)
+        @proc.aliases.delete(arg)
+        msg "Alias for #{arg} removed."
+      else
+        msg "No alias found for #{arg}."
+      end
+    end
+  end
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../mock'
+  dbgr, cmd = MockDebugger::setup
+  cmd.run %w(cmd.name n)
+  cmd.run %w(cmd.name n)
+  cmd.run %w(cmd.name foo bar c)
+end

data/processor/command/up.rb

@@ -0,0 +1,87 @@
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require '/home/rocky-rvm/.rvm/src/rbx-trepanning/processor/command/base/cmd'
+require_relative 'base/cmd'
+
+# up command. Like 'down' butthe 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
+  HELP        = 
+"u(p) [count]
+
+Move the current frame up in the stack trace (to an older frame). 0 is
+the most recent frame. If no count is given, move up 1.
+
+See also 'down' and 'frame'.
+"
+
+  ALIASES       = %w(u)
+  CATEGORY      = 'stack'
+  MAX_ARGS      = 1  # Need at most this many
+  NAME          = File.basename(__FILE__, '.rb')
+  NEED_STACK    = true
+  SHORT_HELP    = 'Move frame in the direction of the caller of the last-selected frame'
+  $VERBOSE      = old_verbose 
+
+  def initialize(proc)
+    super
+    @direction = +1 # -1 for down.
+  end
+
+  # Run 'up' command. 
+  def run(args)
+
+    # FIXME: move into @proc and test based on NEED_STACK.
+    if @proc.stack_size == 0
+      errmsg('No frames recorded.')
+      return false
+    end
+
+    if args.size == 1
+      # Form is: "up" which means "up 1"
+      count = 1
+    else
+      count_str = args[1]
+      name_or_id = args[1]
+      opts = {
+        :msg_on_error => 
+        "The '#{NAME}' command argument must eval to an integer. Got: %s" % count_str,
+        :min_value => -@proc.stack_size,
+        :max_value => @proc.stack_size-1
+      }
+      count = @proc.get_an_int(count_str, opts)
+      return false unless count
+    end
+    @proc.adjust_frame(@direction * count, false)
+  end
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../mock'
+  dbgr, cmd = MockDebugger::setup
+
+  # def sep ; puts '=' * 40 end
+  # cmd.run [cmd.name]
+  # %w(-1 0 1 -2).each do |count| 
+  #   puts "#{cmd.name} #{count}"
+  #   cmd.run([cmd.name, count])
+  #   sep 
+  # end
+  # def foo(cmd, cmd.name)
+  #   puts "#{cmd.name}"
+  #   cmd.run([cmd.name])
+  #   sep
+  #   %w(-2 -1).each do |count| 
+  #     puts "#{cmd.name} #{count}"
+  #     cmd.run([cmd.name, count])
+  #     sep 
+  #   end
+  # end
+  # foo(cmd, cmd.name)
+end

data/processor/default.rb

@@ -0,0 +1,56 @@
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../app/default'
+class Trepan
+  class CmdProcessor
+
+    DEFAULT_SETTINGS = {
+      :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
+      :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.
+      :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(Trepanning::HOME_DIR, 'tepanx', 'command'),
+                                   # User command directory
+
+      # Rubinius-specific user variables
+      :show_ip         => false,
+      :show_bytecode   => false,
+      :highlight       => false
+
+    } unless defined?(DEFAULT_SETTINGS)
+  end
+end
+
+if __FILE__ == $0
+  # Show it:
+  require 'pp'
+  PP.pp(Trepan::CmdProcessor::DEFAULT_SETTINGS)
+end

data/processor/disassemble.rb

@@ -0,0 +1,32 @@
+require 'rubygems'; require 'require_relative'
+require_relative '../app/iseq'
+
+class Trepan
+  class CmdProcessor
+
+    def show_bytecode(line=@frame.vm_location.line)
+      meth = @frame.method
+      start = meth.first_ip_on_line(line)
+      fin = meth.first_ip_on_line(line+1)
+
+      if fin == -1
+        fin = meth.iseq.size
+      end
+
+      # FIXME: Add section instead of "msg"
+      msg "Bytecode between #{start} and #{fin-1} for line #{line}"
+
+      iseq_decoder = Rubinius::InstructionDecoder.new(meth.iseq)
+      partial = iseq_decoder.decode_between(start, fin)
+
+      ip = start
+
+      partial.each do |ins|
+        inst = Rubinius::CompiledMethod::Instruction.new(ins, meth, ip)
+        prefix = Trepanning::ISeq::disasm_prefix(ip, frame.next_ip, meth)
+        msg "#{prefix} #{inst}"
+        ip += ins.size
+      end
+    end
+  end
+end