trepanning 0.0.4

data/processor/command/set_subcmd/debug_subcmd/stack.rb

@@ -0,0 +1,45 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require_relative '../../base/subsubcmd'
+
+class Trepan::SubSubcommand::SetDebugStack < Trepan::SetBoolSubSubcommand
+  unless defined?(HELP)
+    HELP = "Set display of complete stack including possibly setup stack from trepanning"
+    MIN_ABBREV  = 'st'.size
+    NAME        = File.basename(__FILE__, '.rb')
+    PREFIX      = %w(set debug stack)
+  end
+
+  def run(args)
+    super
+    @proc.hide_level  = 
+      if @proc.settings[:debugstack]
+        0
+      else
+        @proc.hidelevels[Thread.current] || 0
+      end
+  end
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../../mock'
+  require_relative '../../../subcmd'
+  name = File.basename(__FILE__, '.rb')
+
+  # FIXME: DRY the below code
+  dbgr, set_cmd  = MockDebugger::setup('set')
+  debug_cmd      = Trepan::SubSubcommand::SetDebug.new(dbgr.core.processor, 
+                                                        set_cmd)
+  # FIXME: remove the 'join' below
+  cmd_name       = Trepan::SubSubcommand::SetDebugStack::PREFIX.join('')
+  debugx_cmd     = Trepan::SubSubcommand::SetDebugStack.new(set_cmd.proc, 
+                                                              debug_cmd,
+                                                              cmd_name)
+  # require_relative '../../../../lib/trepanning'
+  # dbgr = Trepan.new(:set_restart => true)
+  # dbgr.debugger
+  debugx_cmd.run([name])
+  debugx_cmd.run([name, 'off'])
+  debugx_cmd.run([name, 'on'])
+end

data/processor/command/set_subcmd/different.rb

@@ -0,0 +1,67 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require_relative '../base/subcmd'
+
+class Trepan::Subcommand::SetDifferent < Trepan::SetBoolSubcommand
+  unless defined?(HELP)
+    HELP = "
+set different [on|off|nostack]
+
+Set to make sure 'next/step' move to a new position.
+
+Due to the interpretive, expression-oriented nature of the Ruby
+Language and implementation, each line often may contain many possible
+stopping points with possibly different event type. In a debugger it
+is sometimes desirable to continue but stop only when the position
+next changes.
+
+Setting 'different' to on will cause each 'step' or 'next' command to
+stop at a different position.
+
+Note though that the notion of different does take into account stack
+nesting. So in ARGV.map {|arg| arg.to_i} you get a stop before ARGV as
+well as one in the block. 
+
+If you to ignore stopping at added nesting levels, there are two
+possibilities. 'set step nostack' will ignore stack nestings levels on
+a given line. Also you can use 'next', but that also stepping into
+functions on different lines to also be skipped.
+
+See also 'step', 'next' which have suffixes '+' and '-' which
+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
+
+  def run(args)
+    if args.size == 3 && 'nostack' == args[2]
+      @proc.settings[:different] = 'nostack'
+      msg("different is nostack.")
+    else
+      super
+    end
+    @proc.different_pos = @proc.settings[:different]
+  end
+
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../mock'
+  name = File.basename(__FILE__, '.rb')
+
+  # FIXME: DRY the below code
+  dbgr, cmd = MockDebugger::setup('set')
+  subcommand = Trepan::Subcommand::SetDifferent.new(cmd)
+  testcmdMgr = Trepan::Subcmd.new(subcommand)
+
+  subcommand.run_show_bool
+  subcommand.summary_help(name)
+  puts
+  puts '-' * 20
+  puts subcommand.save_command
+end

data/processor/command/set_subcmd/events.rb

@@ -0,0 +1,71 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require 'trace'
+require 'columnize'
+require_relative '../base/subcmd'
+
+class Trepan::Subcommand::SetEvents < Trepan::Subcommand
+  unless defined?(HELP)
+    HELP         = "set events {event-name[,] ...}
+
+Set trace events that the debugger will stop on
+
+Valid event names come from the Trace module and include:
+#{Columnize::columnize(Trace.const_get('EVENTS'), 80, ' ' * 4, true, true, ' ' * 2)}
+
+Separate event names with space and an optional comma is also
+allowable after an event name.
+
+Examples:
+   set events call return
+   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
+
+  def save_command
+    step_events_list = @proc.core.step_events_list
+    step_events_list = 'brkpt' unless step_events_list
+    ["#{subcmd_prefix_string} #{step_events_list}"]
+  end
+
+  def run(args)
+    unless args.size <= 2
+      events = args[2..-1]
+      events.each {|event| event.chomp!(',')}
+      bitmask, bad_events = Trace.events2bitmask(events)
+      bitmask |= Trace::BRKPT_EVENT_MASK
+      unless bad_events.empty?
+        errmsg("Event names unrecognized/ignored: %s" % bad_events.join(', '))
+      end
+      @proc.core.step_events = bitmask
+    end
+    @proc.commands['show'].subcmds.subcmds[:events].run('events')
+  end
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../mock'
+  name = File.basename(__FILE__, '.rb')
+
+  # FIXME: DRY the below code
+  dbgr, cmd = MockDebugger::setup('set')
+  subcommand = Trepan::Subcommand::SetEvents.new(cmd)
+  testcmdMgr = Trepan::Subcmd.new(subcommand)
+
+  name = File.basename(__FILE__, '.rb')
+  subcommand.summary_help(name)
+  puts
+  subcommand.run([])
+  [%w(call line foo), %w(insn, c_call, c_return,)].each do |events|
+    subcommand.run(%w(set events) + events)
+    puts 'bitmask: %09b, events: %s ' % [dbgr.core.step_events, events.inspect]
+  end
+  puts '-' * 20
+  puts subcommand.save_command()
+
+end

data/processor/command/set_subcmd/max.rb

@@ -0,0 +1,35 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require_relative '../base/subsubcmd'
+require_relative '../base/subsubmgr'
+
+class Trepan::SubSubcommand::SetMax < Trepan::SubSubcommandMgr
+  unless defined?(HELP)
+    HELP   = 'Set maximum length for things which may have unbounded size'
+    NAME   = File.basename(__FILE__, '.rb')
+    PREFIX = %w(set max)
+  end
+
+  # def run(args)
+  #   puts "foo"
+  #   require 'trepanning'
+  #   Trepan.debug
+  #   super
+  # end
+end
+
+if __FILE__ == $0
+  require_relative '../../mock'
+  dbgr, cmd = MockDebugger::setup('set')
+  cmds = dbgr.core.processor.commands
+  set_cmd = cmds['set']
+  command = Trepan::SubSubcommand::SetMax.new(dbgr.core.processor, 
+                                              set_cmd)
+  name = File.basename(__FILE__, '.rb')
+  cmd_args = ['set', name]
+  set_cmd.instance_variable_set('@last_args', cmd_args)
+  command.run(cmd_args)
+  require_relative '../../../lib/trepanning'
+  # Trepan.debug(:set_restart => true)
+  command.run(['set', name, 'string', 30])
+end

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

@@ -0,0 +1,50 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require_relative '../../base/subsubcmd'
+
+class Trepan::SubSubcommand::SetMaxList < Trepan::SubSubcommand
+  unless defined?(HELP)
+    HELP         = 'Set max[imum] list NUMBER
+
+Set number of source-code lines to list by default.'
+    IN_LIST      = true
+    MIN_ABBREV   = 'lis'.size
+    NAME         = File.basename(__FILE__, '.rb')
+    PREFIX       = %w(set max list)
+    SHORT_HELP   = 'Set number of lines to list'
+  end
+
+  def run(args)
+    args.shift
+    run_set_int(args.join(' '),
+                "The '#{PREFIX.join(' ')}' command requires a list size", 
+                0, nil)
+  end
+
+  alias save_command save_command_from_settings
+
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../../mock'
+  name = File.basename(__FILE__, '.rb')
+
+  dbgr, set_cmd = MockDebugger::setup('set')
+  max_cmd       = Trepan::SubSubcommand::SetMax.new(dbgr.core.processor, 
+                                                      set_cmd)
+  cmd_ary       = Trepan::SubSubcommand::SetMaxWidth::PREFIX
+  cmd_name      = cmd_ary.join('')
+  subcmd        = Trepan::SubSubcommand::SetMaxList.new(set_cmd.proc,
+                                                        max_cmd,
+                                                        cmd_name)
+  prefix_run = cmd_ary[1..-1]
+  subcmd.run(prefix_run)
+  subcmd.run(prefix_run + %w(0))
+  subcmd.run(prefix_run + %w(20))
+  name = File.basename(__FILE__, '.rb')
+  subcmd.summary_help(name)
+  puts
+  puts '-' * 20
+  puts subcmd.save_command
+end

data/processor/command/set_subcmd/max_subcmd/stack.rb

@@ -0,0 +1,60 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require_relative '../../base/subsubcmd'
+
+class Trepan::Subcommand::SetMaxStack < Trepan::SubSubcommand
+  unless defined?(HELP)
+    HELP         = 'Set number of backtrace lines the debugger will show'
+    DEFAULT_MIN  = 3
+    MIN_ABBREV   = 'sta'.size
+    NAME         = File.basename(__FILE__, '.rb')
+    PREFIX       = %w(set max stack)
+  end
+
+  def run(args)
+    args.shift
+    args = %W(#{DEFAULT_MIN}) if args.empty?
+    run_set_int(args.join(' '),
+                "The '#{PREFIX.join(' ')}'command requires number at least #{DEFAULT_MIN}", 
+                DEFAULT_MIN, nil)
+  end
+
+  alias save_command save_command_from_settings
+
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../../mock'
+  dbgr, set_cmd = MockDebugger::setup('set')
+  max_cmd       = Trepan::SubSubcommand::SetMax.new(dbgr.core.processor, 
+                                                    set_cmd)
+  # FIXME: remove the 'join' below
+  cmd_name      = Trepan::SubSubcommand::SetMaxStack::PREFIX.join('')
+  subcmd        = Trepan::SubSubcommand::SetMaxStack.new(set_cmd.proc, 
+                                                         max_cmd,
+                                                         cmd_name)
+  name = File.basename(__FILE__, '.rb')
+
+  # FIXME: DRY the below code
+  dbgr, set_cmd = MockDebugger::setup('set')
+  max_cmd       = Trepan::SubSubcommand::SetMax.new(dbgr.core.processor, 
+                                                      set_cmd)
+  cmd_ary       = Trepan::SubSubcommand::SetMaxStack::PREFIX
+  cmd_name      = cmd_ary.join(' ')
+  subcmd        = Trepan::SubSubcommand::SetMaxStack.new(set_cmd.proc,
+                                                         max_cmd,
+                                                         cmd_name)
+
+  prefix_run = cmd_ary[1..-1]
+  subcmd.run(prefix_run)
+  subcmd.run(prefix_run + %w(0))
+  subcmd.run(prefix_run + %w(10))
+  name = File.basename(__FILE__, '.rb')
+  subcmd.summary_help(name)
+  puts
+  puts '-' * 20
+
+  require_relative '../../../../lib/trepanning'
+  puts subcmd.save_command
+end

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

@@ -0,0 +1,53 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require_relative '../../base/subsubcmd'
+
+class Trepan::SubSubcommand::SetMaxString < Trepan::SubSubcommand
+  unless defined?(HELP)
+    HELP         = 'Set max st[ring] NUMBER
+
+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 is.
+'
+    DEFAULT_MIN  = 10
+    MIN_ABBREV   = 'str'.size
+    NAME         = File.basename(__FILE__, '.rb')
+    PREFIX       = %w(set max string)
+    SHORT_HELP   = "Set maximum # chars in a string before truncation"
+  end
+
+  def run(args)
+    args.shift
+    args = %W(#{DEFAULT_MIN}) if args.empty?
+    run_set_int(args.join(' '),
+                "The '#{PREFIX.join(' ')}' command requires number at least #{DEFAULT_MIN}", 
+                DEFAULT_MIN, nil)
+  end
+
+  alias save_command save_command_from_settings
+
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../../mock'
+  dbgr, set_cmd = MockDebugger::setup('set')
+  max_cmd       = Trepan::SubSubcommand::SetMax.new(dbgr.core.processor, 
+                                                    set_cmd)
+  # FIXME: remove the 'join' below
+  cmd_name      = Trepan::SubSubcommand::SetMaxString::PREFIX.join('')
+  subcmd        = Trepan::SubSubcommand::SetMaxString.new(set_cmd.proc, 
+                                                          max_cmd,
+                                                          cmd_name)
+  subcmd.run([])
+  subcmd.run(%w(0))
+  subcmd.run(%w(20))
+  subcmd.run(%w(100))
+  name = File.basename(__FILE__, '.rb')
+  subcmd.summary_help(name)
+  puts
+  puts '-' * 20
+  puts subcmd.save_command
+end

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

@@ -0,0 +1,50 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require_relative '../../base/subsubcmd'
+
+class Trepan::SubSubcommand::SetMaxWidth < Trepan::SubSubcommand
+  unless defined?(HELP)
+    HELP         = 'Set max[imum] width NUMBER
+
+Set number of characters the debugger thinks are in a line.'
+    IN_LIST      = true
+    MIN_ABBREV   = 'wid'.size
+    NAME         = File.basename(__FILE__, '.rb')
+    PREFIX       = %w(set max width)
+    SHORT_HELP   = 'Set number of characters the debugger thinks are in a line'
+  end
+
+  def run(args)
+    args.shift
+    run_set_int(args.join(' '),
+                "The '#{PREFIX.join(' ')}' command requires a line width", 
+                0, nil)
+  end
+
+  alias save_command save_command_from_settings
+
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../../mock'
+  name = File.basename(__FILE__, '.rb')
+
+  dbgr, set_cmd = MockDebugger::setup('set')
+  max_cmd       = Trepan::SubSubcommand::SetMax.new(dbgr.core.processor, 
+                                                      set_cmd)
+  cmd_ary       = Trepan::SubSubcommand::SetMaxWidth::PREFIX
+  cmd_name      = cmd_ary.join(' ')
+  subcmd        = Trepan::SubSubcommand::SetMaxWidth.new(set_cmd.proc,
+                                                         max_cmd,
+                                                         cmd_name)
+  prefix_run = cmd_ary[1..-1]
+  subcmd.run(prefix_run)
+  subcmd.run(prefix_run + %w(0))
+  subcmd.run(prefix_run + %w(20))
+  name = File.basename(__FILE__, '.rb')
+  subcmd.summary_help(name)
+  puts
+  puts '-' * 20
+  puts subcmd.save_command
+end

data/processor/command/set_subcmd/return.rb

@@ -0,0 +1,66 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require_relative '../base/subcmd'
+require_relative '../../../app/frame'
+
+class Trepan::Subcommand::SetReturn < Trepan::Subcommand
+  unless defined?(HELP)
+    HELP         = 'Set the value that will be returned in the current method'
+    IN_LIST      = true
+    MIN_ABBREV   = 'ret'.size
+    NAME         = File.basename(__FILE__, '.rb')
+    PREFIX       = %w(set return)
+  end
+
+  include Trepan::Frame
+
+  def run(args)
+    event = @proc.event
+    unless %w(return c-return).member?(event)
+      errmsg('You need to be in a return event to do this. Event is %s' % 
+             event)
+      return
+    end
+    if args.size < 3 
+      errmsg "Too few arguments - the 'return' command requires a return value"
+      return
+    end
+    new_val_str = args[2..-1].join(' ')
+    begin
+      new_val = @proc.debug_eval(new_val_str)
+    rescue StandardError, ScriptError => e
+      p $!
+      return
+    end
+    ret_val = Trepan::Frame.value_returned(@proc.frame, event)
+    msg('Return value was: %s' % ret_val.inspect)
+    Trepan::Frame.set_return_value(@proc.frame, event, new_val)
+    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::SetReturn.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/command/set_subcmd/sp.rb

@@ -0,0 +1,62 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require_relative '../base/subcmd'
+
+class Trepan::Subcommand::SetSp < Trepan::Subcommand
+  unless defined?(HELP)
+    HELP         = 'Set a stack pointer register'
+    IN_LIST      = true
+    MIN_ABBREV   = 'sp'.size
+    NAME         = File.basename(__FILE__, '.rb')
+    PREFIX       = %w(set sp)
+  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/command/set_subcmd/substitute.rb

@@ -0,0 +1,25 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require_relative '../base/subsubcmd'
+require_relative '../base/subsubmgr'
+
+class Trepan::SubSubcommand::SetSubstitute < Trepan::SubSubcommandMgr
+  unless defined?(HELP)
+    HELP   = 'Set instruction sequence-to-filename mapping'
+    NAME   = File.basename(__FILE__, '.rb')
+    PREFIX = %w(set substitute)
+  end
+end
+
+if __FILE__ == $0
+  require_relative '../../mock'
+  dbgr, set_cmd = MockDebugger::setup('set')
+  command = Trepan::SubSubcommand::SetSubstitute.new(dbgr.core.processor, 
+                                                       set_cmd)
+  name = File.basename(__FILE__, '.rb')
+  cmd_args = ['set', name]
+  set_cmd.instance_variable_set('@last_args', cmd_args)
+  # require_relative '../../../lib/trepanning'
+  # Trepan.debug(:set_restart => true)
+  command.run(cmd_args)
+end

data/processor/command/set_subcmd/substitute_subcmd/eval.rb

@@ -0,0 +1,98 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require_relative '../../frame'
+require_relative '../../base/subsubcmd'
+require_relative '../substitute'
+
+class Trepan::SubSubcommand::SetSubstituteEval < Trepan::SubSubcommand
+  unless defined?(HELP)
+    HELP         = 
+'set substitute eval [FRAME-NUM]
+
+Causes lines in an EVAL frame to show up as we stop/step through them. 
+The text fror the eval string comes from the current frame. 
+
+FRAME-NUM is a relative frame number unless prefaced with an "=" which
+indicates how many frames prior to move. The default is "0"
+(alternatively "=0", the current frame.
+
+This is largely done automatically anytime the debugger discovers an EVAL frame.
+We have this here for completeness and just in case.
+'
+    MIN_ABBREV   = 'ev'.size  
+    MAX_ARGS     = 1
+    NAME         = File.basename(__FILE__, '.rb')
+    SHORT_HELP   = 'Set eval string text of an filename'
+    PREFIX       = %w(set substitute string)
+  end
+
+  def run(args)
+
+    frame = 
+      if args.size == 2
+        absolute, count_str = 
+          if '=' == args[1][0]
+            [true, args[1][1..-1].dup]
+          else
+            [false, args[1]]
+          end
+        stack_size = @proc.top_frame.stack_size - @hide_level
+        opts = {
+        :msg_on_error => 
+        "The 'eval' command argument must eval to an integer. Got: %s" % count_str,
+        :min_value => -stack_size,
+        :max_value => stack_size-1
+      }
+        count = @proc.get_an_int(count_str, opts)
+        @proc.get_frame(count, absolute)[0]
+      else
+        @proc.frame
+    end
+    return unless frame
+    if 'EVAL' != frame.type
+      errmsg "Current frame has to be of type EVAL, not #{frame.type}"
+      return
+    end
+
+    unless frame.iseq
+      errmsg "Can't get instruction sequence for frame."
+      return
+    end
+
+    prev = frame.prev
+    if 'CFUNC' != prev.type
+      errmsg "Previous frame has to be of type CFUNC, not #{frame.type}"
+      return
+    end
+
+    if 'eval' != prev.method
+      errmsg "Previous frame has to be of type CFUNC, not #{frame.method}"
+      return
+    end
+    @proc.frame_eval_remap
+  end
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../../mock'
+  require_relative '../../../subcmd'
+  name = File.basename(__FILE__, '.rb')
+
+  # FIXME: DRY the below code
+  dbgr, set_cmd = MockDebugger::setup('set')
+  set_cmd.proc.send('frame_initialize')
+  testcmdMgr = Trepan::Subcmd.new(set_cmd)
+  cmd_name   = Trepan::SubSubcommand::SetSubstituteEval::PREFIX.join('')
+  setx_cmd   = Trepan::SubSubcommand::SetSubstituteEval.new(set_cmd.proc, 
+                                                            set_cmd,
+                                                            cmd_name)
+  setx_cmd.run([])
+  # require_relative '../../../../lib/trepanning'
+  # dbgr = Trepan.new(:set_restart => true)
+  # dbgr.debugger
+  eval('set_cmd.proc.frame_setup(RubyVM::ThreadFrame::current); setx_cmd.run([])')
+
+  # name = File.basename(__FILE__, '.rb')
+  # subcommand.summary_help(name)
+end