trepanning 1.93.35 → 2.15.33

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

@@ -1,41 +0,0 @@
-# -*- coding: utf-8 -*-
-# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
-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/raise.rb

@@ -1,48 +0,0 @@
-# Copyright (C) 2010, 2015 Rocky Bernstein <rockyb@rubyforge.net>
-require_relative '../command'
-class Trepan::Command::RaiseCommand < Trepan::Command
-
-  unless defined?(HELP)
-    NAME = File.basename(__FILE__, '.rb')
-    HELP = <<-HELP
-**#{NAME}** [*exception-name*]
-
-Raise an *execption-name* in the debugged program. If no exception name
-is given, raise `RuntimeError`.
-    HELP
-
-    CATEGORY     = 'running'
-    MAX_ARGS     = 1  # Need at most this many
-    SHORT_HELP  = 'Raise an exception in the debugged program'
-  end
-
-  # This method runs the command
-  def run(args)
-    exception =
-      if args.size > 1
-        except_str = args[1..-1].join(' ')
-        # Normally would need x.respond_to? && ..
-        # but since we catch errors with debug_eval.. not needed.
-        eval_str = ("%s.ancestors.include?(Exception)" %
-                    [except_str])
-        unless @proc.debug_eval_no_errmsg(eval_str)
-          errmsg "\"#{except_str}\" does not inherit Exception."
-          return
-        end
-        @proc.debug_eval_no_errmsg(except_str)
-      else
-        RuntimeError
-      end
-    @proc.step(0)
-    @proc.leave_cmd_loop = true
-    @proc.core.exception = exception
-  end
-end
-
-if __FILE__ == $0
-  require_relative '../mock'
-  dbgr, cmd = MockDebugger::setup
-  puts cmd.run([cmd.name, 'NotanException'])
-  puts cmd.run([cmd.name, '[5]'])
-  puts cmd.run([cmd.name, 'RuntimeError'])
-end

data/processor/command/set_subcmd/pc.rb

@@ -1,62 +0,0 @@
-# -*- coding: utf-8 -*-
-# Copyright (C) 2012 Rocky Bernstein <rockyb@rubyforge.net>
-require_relative '../base/subcmd'
-
-class Trepan::Subcommand::SetPc < Trepan::Subcommand
-  unless defined?(HELP)
-    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
-    HELP         = 'set PC INTEGER-EXPRESSION
-
-Set VM program-counter register (PC) to INTEGER-EXPRESSION.
-
-Warning: this is potentially dangerous.
-'
-    SHORT_HELP   = 'Set VM program counter (PC)'
-    IN_LIST      = true
-    MIN_ABBREV   = 'pc'.size
-  end
-
-  def run(args)
-    # FIXME handle c-return
-    # unless %w(return c-return).member?(@proc.event)
-    if args.size < 3
-      errmsg "Too few arguments - the 'pc' command requires a value"
-      return
-    end
-    new_val_str = args[2..-1].join(' ')
-    begin
-      new_val = @proc.debug_eval(new_val_str)
-    rescue StandardError, ScriptError => e
-      return
-    end
-    msg("Old value was: %s" % @proc.frame.pc_offset.inspect)
-    @proc.frame.pc_offset =  new_val
-    msg("New value is: %s" % new_val.inspect)
-  end
-
-end
-
-if __FILE__ == $0
-  # Demo it.
-  require_relative %w(.. .. mock)
-  require_relative %w(.. .. subcmd)
-  name = File.basename(__FILE__, '.rb')
-
-  # FIXME: DRY the below code
-  dbgr, cmd = MockDebugger::setup('set')
-  subcommand = Debugger::Subcommand::SetPc.new(cmd)
-  testcmdMgr = Debugger::Subcmd.new(subcommand)
-
-  def subcommand.msg(message)
-    puts message
-  end
-  def subcommand.msg_nocr(message)
-    print message
-  end
-  def subcommand.errmsg(message)
-    puts message
-  end
-  subcommand.run(%w(20))
-  name = File.basename(__FILE__, '.rb')
-  subcommand.summary_help(name)
-end

data/processor/command/set_subcmd/sp.rb

@@ -1,67 +0,0 @@
-# -*- coding: utf-8 -*-
-# Copyright (C) 2010-2012 Rocky Bernstein <rockyb@rubyforge.net>
-require_relative '../base/subcmd'
-
-class Trepan::Subcommand::SetSp < Trepan::Subcommand
-  unless defined?(HELP)
-    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
-    HELP         = 'set sp INTEGER-EXPRESSION
-
-Set VM stack-pointer register (SP) to INTEGER-EXPRESSION.
-
-Warning: this is potentially dangerous.
-'
-    SHORT_HELP   = 'Set a stack pointer register'
-    IN_LIST      = true
-    MIN_ABBREV   = 'sp'.size
-  end
-
-  def run(args)
-    # FIXME handle c-return
-    # unless %w(return c-return).member?(@proc.event)
-    if args.size < 4
-      errmsg "Too few arguments - the 'sp' command requires number and a value"
-      return
-    end
-    msg_on_error = "set SP requires an integer index"
-    index = @proc.get_an_int(args[2], 
-                             :msg_on_error => msg_on_error
-                             )
-    return unless index
-    new_val_str = args[3..-1].join(' ')
-    begin
-      new_val = @proc.debug_eval(new_val_str)
-    rescue StandardError, ScriptError => e
-      return
-    end
-    msg("Old value was: %s" % @proc.frame.sp(index).inspect)
-    @proc.frame.sp_set(index, new_val).inspect
-    msg("New value is: %s" % new_val.inspect)
-  end
-
-end
-
-if __FILE__ == $0
-  # Demo it.
-  require_relative '../../mock'
-  require_relative '../../subcmd'
-  name = File.basename(__FILE__, '.rb')
-
-  # FIXME: DRY the below code
-  dbgr, cmd = MockTrepan::setup('set')
-  subcommand = Trepan::Subcommand::SetSp.new(cmd)
-  testcmdMgr = Trepan::Subcmd.new(subcommand)
-
-  def subcommand.msg(message)
-    puts message
-  end
-  def subcommand.msg_nocr(message)
-    print message
-  end
-  def subcommand.errmsg(message)
-    puts message
-  end
-  subcommand.run(%w(20))
-  name = File.basename(__FILE__, '.rb')
-  subcommand.summary_help(name)
-end

data/processor/eventbuf.rb

@@ -1,133 +0,0 @@
-# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
-# For recording hook events in a buffer for review later. Make use of
-# Trace::Buffer for this prupose.
-require 'trace'
-require 'linecache'
-require_relative 'virtual'
-
-class Trepan
-  class CmdProcessor < VirtualCmdProcessor
-
-    attr_reader :eventbuf
-    attr_reader :event_tracefilter
-
-    def eventbuf_initialize(size=100)
-      @eventbuf = Trace::EventBuffer.new(size)
-      # @event_tracefilter = Trace::Filter.new
-    end
-    
-    # def event_processor(event, frame, arg=nil)
-    #   @eventbuf.append(event, frame, arg)
-    # end
-
-    # Print event buffer entries from FROM up to TO try to stay within
-    # WIDTH. We show source lines only the first time they are
-    # encountered. Also we use separators to indicate points that the
-    # debugger has stopped at.
-    def eventbuf_print(from=nil, to=nil, width=80)
-      sep = '-' * ((width - 7) / 2)
-      last_container, last_location = nil, nil
-      if from == nil || !@eventbuf.marks[-1] 
-        mark_index = 0
-      else
-        mark_index = @eventbuf.marks.size-1
-        translated_from = @eventbuf.zero_pos + from
-        @eventbuf.marks.each_with_index do
-          |m, i|
-          if m > translated_from
-            mark_index = [0, i-1].max
-            break
-          elsif m == translated_from
-            mark_index = i
-            break
-          end
-        end
-      end
-
-      nextmark = @eventbuf.marks[mark_index]
-      @eventbuf.each_with_index(from, to) do |e, i| 
-        if nextmark 
-          if nextmark == i
-            msg "#{sep} %5d #{sep}" % (mark_index - @eventbuf.marks.size)
-            mark_index += 1 if mark_index < @eventbuf.marks.size - 1
-            nextmark = @eventbuf.marks[mark_index]
-          elsif nextmark < i
-            mark_index += 1 if mark_index < @eventbuf.marks.size - 1
-            nextmark = @eventbuf.marks[mark_index]
-          end
-        end
-        last_container, last_location, mess = 
-          format_eventbuf_entry(e, last_container, last_location) if e
-        msg mess
-      end
-    end
-
-    # Show event buffer entry. If the location is the same as the previous
-    # location we don't show the duplicated location information.
-    def format_eventbuf_entry(item, last_container, last_location)
-      container = 
-        if item.source_container[0] == 'file'
-          item.source_container[1]
-        else
-          item.source_container
-        end
-    
-      location = 
-        if 1 == item.source_location.size 
-          item.source_location[0]
-        else
-          item.source_location
-        end
-
-      same_loc = (container == last_container && location == last_location)
-      mess = "#{item.event} "
-      mess +=
-        if %w(c-return return).member?(item.event)
-          "#{item.method} => #{item.arg.inspect}" + (same_loc ? '' : "\n\t")
-        elsif 'c-call' == item.event
-          "#{item.method} "
-        else
-          "#{item.type} #{item.method} "
-        end
-      mess += "#{container} at line #{location}" unless same_loc
-
-      if item.iseq # && long_format
-        mess += "\n\tVM offset #{item.pc_offset}"
-      end
-      unless same_loc
-        text = LineCache::getline(container, location, 
-                                  :reload_on_change => @reload_on_change)
-        mess += ":\n  #{text.chomp}" if text
-      end
-      return container, location, mess
-    end
-      
-    # FIXME: multiple hook mechanism needs work. 
-    # def start_capture
-    #   @event_tracefilter.add_trace_func(method(:event_processor).to_proc,
-    #                                     Trace::DEFAULT_EVENT_MASK)
-    # end
-
-    # def stop_capture
-    #   @event_tracefilter.set_trace_func(nil)
-    # end
-
-  end
-end
-if __FILE__ == $0
-  # Demo it.
-  cmdproc = Trepan::CmdProcessor.new([])
-  cmdproc.eventbuf_initialize(5)
-
-  def cmdproc.msg(mess)
-    puts mess
-  end
-  # cmdproc.start_capture
-  # z=5
-  # z.times do |i|
-  #   x = i
-  #   y = x+2
-  # end
-  # cmdproc.stop_capture
-  cmdproc.eventbuf_print
-end