rbx-trepanning 0.2.0-universal-rubinius-2.0

data/processor/command/info_subcmd/source.rb

@@ -0,0 +1,75 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2011 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require 'linecache'
+require 'columnize'
+require_relative '../base/subcmd'
+require_relative '../../../app/file'
+require_relative '../../../app/complete'
+
+class Trepan::Subcommand::InfoSource < Trepan::Subcommand
+  unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
+    DEFAULT_FILE_ARGS = %w(size mtime sha1)
+
+    HELP = <<-EOH
+#{CMD} 
+
+Show information about the current source file. 
+EOH
+    MAX_ARGS     = 0
+    MIN_ABBREV   = 'so'.size  # Note we have "info frame"
+    NEED_STACK   = true
+  end
+
+  # completion %w(all brkpts iseq sha1 size stat)
+
+  include Trepanning
+
+  # Get file information
+  def run(args)
+    if not @proc.frame
+      errmsg('No frame - no default file.')
+      return false
+    end
+    frame_file = @proc.frame.file
+    filename = LineCache::map_file(frame_file) || File.expand_path(frame_file)
+    canonic_name = @proc.canonic_file(filename)
+    canonic_name = LineCache::map_file(canonic_name) || canonic_name
+    m = filename
+    if LineCache::cached?(canonic_name)
+      m += ' is cached in debugger'
+      if canonic_name != filename
+        m += (' as:\n  ' + canonic_name)
+      end
+      m += '.'
+      msg(m)
+    end
+    max_line = LineCache::size(canonic_name)
+    msg 'File has %d lines.' % max_line if max_line
+    msg('SHA1 is %s.' % LineCache::sha1(canonic_name))
+    msg('Possible breakpoint line numbers:')
+    lines = LineCache.trace_line_numbers(canonic_name)
+    fmt_lines = columnize_numbers(lines)
+    msg(fmt_lines)
+    if cm = LineCache.compiled_method(canonic_name)
+      msg("File has compiled method: #{cm}")
+    else
+      msg('Compiled method not recorded; there may be some, though.')
+    end
+    msg("Stat info:\n\t%s" % LineCache::stat(canonic_name).inspect)
+  end
+end
+
+if __FILE__ == $0
+  if !(ARGV.size == 1 && ARGV[0] == 'noload')
+    ISEQS__        = {}
+    SCRIPT_ISEQS__ = {}
+    ARGV[0..-1]    = ['noload']
+    load(__FILE__)
+  else    
+    require_relative '../../mock'
+    cmd = MockDebugger::sub_setup(Trepan::Subcommand::InfoSource, false)
+    cmd.run(cmd.prefix)
+  end
+end

data/processor/command/info_subcmd/stack.rb

@@ -0,0 +1,25 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2011 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../base/subcmd'
+
+
+class Trepan::Subcommand::InfoStack < Trepan::Subcommand
+  unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
+    HELP = 'Same thing as "backtrace"'
+    MIN_ABBREV   = 'st'.size
+    NEED_STACK   = true
+   end
+
+  def run(args)
+    @proc.commands['backtrace'].run(['backtrace'] + args[2..-1])
+  end
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../mock'
+  cmd = MockDebugger::sub_setup(Trepan::Subcommand::InfoStack, false)
+  cmd.run(cmd.prefix)
+end

data/processor/command/info_subcmd/variables.rb

@@ -0,0 +1,35 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../base/subsubcmd'
+require_relative '../base/subsubmgr'
+
+class Trepan::Subcommand::InfoVariables < Trepan::SubSubcommandMgr
+  unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
+    HELP = <<-EOH
+#{CMD} [locals|globals|instance]
+
+List various classes of variables for the current stack frame.
+
+Examples:
+#{CMD} locals    # show local variables
+#{CMD} globals   # show global variables
+    EOH
+    NEED_STACK   = true
+    SHORT_HELP   = 'List names and/or values from the current stack frame'
+  end
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../mock'
+  dbgr, parent_cmd = MockDebugger::setup('info', false)
+  cmd = Trepan::Subcommand::InfoVariables.new(dbgr.processor, 
+                                              parent_cmd)
+  cmd.run(cmd.prefix + %w(locals))
+  cmd.run(cmd.prefix + %w(globals name))
+  %w(loc glo globals i).each do |prefix|
+    p [prefix, cmd.complete(prefix)]
+  end
+end

data/processor/command/info_subcmd/variables_subcmd/.gitignore

@@ -0,0 +1,2 @@
+/*~
+/*.rbc

data/processor/command/info_subcmd/variables_subcmd/class.rb

@@ -0,0 +1,42 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative 'locals'
+
+class Trepan::Subcommand::InfoVariablesClass < 
+    Trepan::Subcommand::InfoVariablesLocals
+  Trepan::Util.suppress_warnings {
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
+    HELP         = <<-EOH
+#{CMD}
+#{CMD} [names]
+
+Show class variables of the current stack frame.
+Normally for each which show both the name and value. If you just
+want a list of names add parameter 'names'.
+EOH
+    SHORT_HELP   = 'Show instance variables of the current stack frame'
+    MIN_ABBREV   = 'co'.size
+    MIN_ARGS     = 0
+    MAX_ARGS     = 1
+    NEED_STACK   = true
+  }
+
+  def get_names
+    @proc.debug_eval_no_errmsg('self.class_variables.sort') || []
+  end
+
+  def run(args)
+    run_for_type(args, 'class', @proc.debug_eval('self'))
+  end
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../mock'
+  cmd = 
+    MockDebugger::subsub_setup(Trepan::Subcommand::InfoVariables,
+                               Trepan::Subcommand::InfoVariablesClass)
+  cmd.run(cmd.prefix)
+  cmd.run(cmd.prefix + ['name'])
+end

data/processor/command/info_subcmd/variables_subcmd/constant.rb

@@ -0,0 +1,42 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative 'locals'
+
+class Trepan::Subcommand::InfoVariablesConstant < 
+    Trepan::Subcommand::InfoVariablesLocals
+  Trepan::Util.suppress_warnings {
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
+    HELP         = <<-EOH
+#{CMD}
+#{CMD} [names]
+
+Show class constants of the current stack frame.
+Normally for each which show both the name and value. If you just
+want a list of names add parameter 'names'.
+EOH
+    SHORT_HELP   = 'Show class constants via the current stack frame'
+    MIN_ABBREV   = 'co'.size
+    MIN_ARGS     = 0
+    MAX_ARGS     = 1
+    NEED_STACK   = true
+  }
+
+  def get_names
+    @proc.debug_eval_no_errmsg('self.class.constants.sort') || []
+  end
+
+  def run(args)
+    run_for_type(args, 'constant', @proc.debug_eval('self'))
+  end
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../mock'
+  cmd = 
+    MockDebugger::subsub_setup(Trepan::Subcommand::InfoVariables,
+                               Trepan::Subcommand::InfoVariablesConstant)
+  cmd.run(cmd.prefix)
+  cmd.run(cmd.prefix + ['name'])
+end

data/processor/command/info_subcmd/variables_subcmd/globals.rb

@@ -0,0 +1,69 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative 'locals'
+
+class Trepan::SubSubcommand::InfoVariablesGlobals < Trepan::SubSubcommand
+  Trepan::Util.suppress_warnings {
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
+    HELP         = <<-EOH
+#{CMD}
+#{CMD} [names]
+
+Show global variables.
+Normally for each which show both the name and value. If you just
+want a list of names add parameter 'names'.
+EOH
+    SHORT_HELP   = 'Show global variables'
+    MIN_ARGS     = 0
+    MAX_ARGS     = 1
+    NEED_STACK   = true
+  }
+
+  def get_names
+    global_variables.sort
+  end
+
+  def run(args)
+    if args.size == 2
+      if 0 == 'names'.index(args[-1].downcase)
+        names = get_names()
+        if names.empty?
+            msg "No global variables defined."
+        else
+          section "Global variable names:"
+          width = settings[:maxwidth]
+          mess = Columnize::columnize(names, 
+                                      @proc.settings[:maxwidth], '  ',
+                                      false, true, ' ' * 2).chomp
+          msg mess
+        end
+      else
+        errmsg("unrecognized argument: #{args[-1]}")
+      end
+    elsif args.size == 1
+      names = get_names
+      if names.empty?
+        msg "No global variables defined."
+      else
+        section "Global variables:"
+        names.each do |var_name| 
+          s = @proc.debug_eval(var_name.to_s)
+          msg("#{var_name} = #{s.inspect}", :code=>true)
+        end
+      end
+    else
+      errmsg("Wrong number of arguments #{args.size}")
+    end
+  end
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../../mock'
+  require_relative '../variables'
+  cmd = MockDebugger::subsub_setup(Trepan::Subcommand::InfoVariables, 
+                                   Trepan::SubSubcommand::InfoVariablesGlobals)
+  cmd.run(cmd.prefix)
+  cmd.run(cmd.prefix + ['name'])
+end

data/processor/command/info_subcmd/variables_subcmd/instance.rb

@@ -0,0 +1,42 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative 'locals'
+
+class Trepan::Subcommand::InfoVariablesInstance < 
+    Trepan::Subcommand::InfoVariablesLocals
+  Trepan::Util.suppress_warnings {
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
+    HELP         = <<-EOH
+#{CMD}
+#{CMD} [names]
+
+Show instance variables of the current stack frame.
+Normally for each which show both the name and value. If you just
+want a list of names add parameter 'names'.
+EOH
+    SHORT_HELP   = 'Show instance variables of the current stack frame'
+    MIN_ARGS     = 0
+    MAX_ARGS     = 1
+    MIN_ABBREV   = 'iv'.size 
+    NEED_STACK   = true
+  }
+
+  def get_names
+    @proc.debug_eval('self.instance_variables')
+  end
+
+  def run(args)
+    run_for_type(args, 'instance', @proc.debug_eval('self'))
+  end
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../mock'
+  cmd = 
+    MockDebugger::subsub_setup(Trepan::Subcommand::InfoVariables,
+                               Trepan::Subcommand::InfoVariablesInstance)
+  cmd.run(cmd.prefix)
+  cmd.run(cmd.prefix + ['name'])
+end

data/processor/command/info_subcmd/variables_subcmd/locals.rb

@@ -0,0 +1,80 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require 'columnize'
+require_relative '../../base/subsubcmd'
+require_relative '../../../../app/frame'
+require_relative '../../../../app/util'
+
+class Trepan::Subcommand::InfoVariablesLocals < Trepan::SubSubcommand
+  Trepan::Util.suppress_warnings {
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
+    HELP         = <<-EOH
+#{CMD}
+#{CMD} [names]
+
+Show local variables including parameters of the current stack frame.
+Normally for each which show both the name and value. If you just
+want a list of names add parameter 'names'.
+EOH
+    SHORT_HELP   = 'Show local variables of the current stack frame'
+    MIN_ARGS     = 0
+    MAX_ARGS     = 1
+    MIN_ABBREV   = 'lo'.size 
+    NEED_STACK   = true
+  }
+
+  def get_names
+    @proc.frame.local_variables
+  end
+
+  def run_for_type(args, type, klass=nil)
+    suffix = klass ? " for #{klass.to_s}" : '' rescue ''
+    names = get_names()
+    if args.size == 2
+      if 0 == 'names'.index(args[-1].downcase)
+        names = get_names()
+        if names.empty?
+          msg "No #{type} variables defined."
+        else
+          section "#{type.capitalize} variable names#{suffix}:"
+
+          width = settings[:maxwidth]
+          mess = Columnize::columnize(names, 
+                                      @proc.settings[:maxwidth], '  ',
+                                      false, true, ' ' * 2).chomp
+          msg mess
+        end
+      else
+        errmsg("unrecognized argument: #{args[-1]}")
+      end
+    elsif args.size == 1
+      if names.empty?
+        msg "No #{type} variables defined#{suffix}."
+      else
+        section "#{type.capitalize} variables#{suffix}:"
+        names.each do |var_name| 
+          var_value = 
+            @proc.safe_rep(@proc.debug_eval_no_errmsg(var_name).inspect)
+          msg("#{var_name} = #{var_value}", :code =>true)
+        end
+      end
+    else
+      errmsg("Wrong number of arguments #{args.size}")
+    end
+  end
+  def run(args)
+    run_for_type(args, 'local', @proc.debug_eval('self'))
+  end
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../../mock'
+  require_relative '../variables'
+  cmd = MockDebugger::subsub_setup(Trepan::SubSubcommand::InfoVariables,
+                                   Trepan::SubSubcommand::InfoVariablesLocals
+                                   )
+  cmd.run([])
+  cmd.run(['name'])
+end

data/processor/command/kill.rb

@@ -0,0 +1,79 @@
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../command'
+class Trepan::Command::KillCommand < Trepan::Command
+
+  unless defined?(HELP)
+    NAME = File.basename(__FILE__, '.rb')
+    HELP = <<-HELP
+#{NAME} [signal-number|signal-name]
+
+Kill execution of program being debugged.
+
+Equivalent of Process.kill('KILL', Process.pid). This is an unmaskable
+signal. When all else fails, e.g. in thread code, use this.
+
+If you are in interactive mode, you are prompted to confirm killing.
+However when this command is aliased from a command ending in !, no 
+questions are asked.
+
+Examples:
+
+  #{NAME}  
+  #{NAME} unconditionally
+  #{NAME} KILL # same as above
+  #{NAME} kill # same as above
+  #{NAME} -9   # same as above
+  #{NAME}  9   # same as above
+  #{NAME}! 9   # same as above, but no questions asked.
+    HELP
+
+    ALIASES      = %w(kill!)
+    CATEGORY     = 'running'
+    MAX_ARGS     = 1  # Need at most this many
+    SHORT_HELP  = 'Send this process a POSIX signal (default "9" is "kill -9")'
+  end
+  
+  def complete(prefix)
+    completions = Signal.list.keys + Signal.list.keys.map{|k| k.downcase} +
+      Signal.list.values.map{|i| i.to_s} + 
+      Signal.list.values.map{|i| (-i).to_s} + 
+      ['unconditionally']
+    Trepan::Complete.complete_token(completions, prefix)
+  end
+    
+  # This method runs the command
+  def run(args) # :nodoc
+    unconditional = ('!' == args[0][-1..-1])
+    if args.size > 1
+      sig = Integer(args[1]) rescue args[1]
+      unless sig.is_a?(Integer) || Signal.list.member?(sig.upcase)
+        errmsg("Signal name '#{sig}' is not a signal I know about.\n")
+        return false
+      end
+    else
+      if not (unconditional || confirm('Really quit?', false))
+        msg('Kill not confirmed.')
+        return
+      else 
+        sig = 'KILL'
+      end
+    end
+    begin
+      @proc.intf.finalize if 'KILL' == sig || Signal.list['KILL'] == sig
+      Process.kill(sig, Process.pid)
+    rescue Errno::ESRCH, Errno::EINVAL, Errno::EPERM, RangeError
+      errmsg "Unable to send kill #{sig} to process #{Process.pid}: #{$!}"
+    end
+  end
+end
+
+if __FILE__ == $0
+  require_relative '../mock'
+  dbgr, cmd = MockDebugger::setup
+  %w(fooo 100 1 -1 HUP -9).each do |arg| 
+    puts "#{cmd.name} #{arg}"
+    cmd.run([cmd.name, arg])
+    puts '=' * 40
+  end
+end