rbx-trepanning 0.0.7-universal-rubinius-1.2 → 0.0.8-universal-rubinius-1.2

data/processor/command/help/filename.txt

@@ -0,0 +1,40 @@
+syntax for indicating a filename
+
+There are two ways you can give a file name:
+  - unadorned (without double-quotes) with possible escapes
+  - as a double-quoted string with possible escapes in the string
+
+Probably most of the time a file name will be specified in the first
+form, without using quotes. If the file name however has a space or a
+colon in it, escape that character with a backslash. Also, if you need
+to enter a backslash and the character followinng that is unlucky
+enough to be a colon, space, or backslash use two backslashes. Some
+examples:
+
+   irb.rb       => irb.rb
+   /tmp/irb.rb  =>  /tmp/irb.rb
+   C\:irb.rb    =>  C:irb.rb
+   C\:\irb.rb   =>  C:\irb.rb
+   C\:\\irb.rb  =>  C:\irb.rb  # Note: double slash not needed
+   \\new.rb    =>  \new.rb     # Note: double slash, or filename has newline
+   my\ file.rb  =>  my file.rb
+
+
+The quoted string is useful if you have a file name that contains
+several characters that normally confuse the debugger parser, notably
+a space, newline, or a colon. The quoted string starts with a double
+quote ("). Escape sequences are allowed inside the string to be able
+to enter tabs or newlines, or a double quote inside the string. The
+list of translations is as follows:
+   
+   \t => <tab>
+   \n => <newline>
+   \" => "
+   \\ => \
+
+Here are some examples of quoted filenames:
+
+  "This is a file with blanks.rb" => This is a file with blanks.rb
+  "/tmp/RubyProgram \"foo\".rb    => /tmp/RubyProgram "foo".rb
+  "/Ruby\nProgram.rb"             => /tmp/Ruby
+Program.rb

data/processor/command/help/location.txt

@@ -0,0 +1,37 @@
+syntax for source code locations; e.g. used "list" and "break"
+
+Locations are used to indicates places in the source code or the
+places in bytecode compiled from source code. Locations are used in
+the listing commands like "list" or "disassemble"; they are also used
+in "breakpoint" commands like "break", "tbreak" and "continue"
+
+A location is either some sort of "container" and a position inside
+that container. A container is either a file name or a method
+name. And a position is either a line number or a bytecode offset.
+Bytecode offsets are prefaced with an '@'. So 4 is a line number 4, but
+@4 is bytecode offset 4. 
+
+File names are distinguished from method names purely by semantic
+means.  That its "foo" (without the quotes) could conceivably be
+either a method or a file name. The debugger does a file check to see
+if "foo" is a file. 
+
+In gdb, locations are often given using a filename a colon and a line
+number. That is supported here are well. So myfile.rb:5 indicates line 5
+of file "myfile.rb". But since we also allow method names you can also use
+"gcd:5" to indicate line 5 of method "gcd". 
+
+Line numbers in methods are not relative to the beginning of the
+method but relative the beginning of source text that contains the
+method. This is also how Ruby stores line numbers for methods which
+are shown for example in a backtrace. So all of this hopefully will
+feel familiar and consistent. 
+
+Instead of using a colon to separate the container and the position,
+you can also use spacs. So "gcd 5" is the same as gcd:5. 
+
+If the filename has an embedded blank in it, you can indicate that by
+using a backslash escape. For example: "file\ with\ blanks.rb"
+
+
+

data/processor/command/help.rb

@@ -3,7 +3,6 @@ require 'rubygems'; require 'require_relative'
 require_relative 'base/cmd'
 require_relative '../../app/complete'
 class Trepan::Command::HelpCommand < Trepan::Command
-
   unless defined?(HELP)
     NAME = File.basename(__FILE__, '.rb')
     HELP = <<-HELP
@@ -34,26 +33,27 @@ See also 'examine' and 'whatis'.
     'running'     => 'Running the program', 
     'status'      => 'Status inquiries',
     'support'     => 'Support facilities',
-    'stack'       => 'Examining the call stack'
+    'stack'       => 'Examining the call stack',
+    'syntax'      => 'Debugger command syntax'
     }
     CATEGORY      = 'support'
     NEED_STACK    = false
     SHORT_HELP    = 'Print commands or give help for command(s)'
+
+    ROOT_DIR      = File.dirname(RequireRelative.abs_file)
+    HELP_DIR      = File.join(ROOT_DIR, 'help')
   end
 
-  def complete(prefix)
-    matches = Trepan::Complete.complete_token(CATEGORIES.keys + 
-                                              %w(* syntax all) + 
-                                          @proc.commands.keys, prefix)
-    aliases = Trepan::Complete.complete_token_filtered(@proc.aliases, prefix, 
-                                                       matches)
-    (matches + aliases).sort
-  end    
+  class Syntax
+    def initialize(syntax_files); @syntax_files = syntax_files; end
+    def complete(prefix)
+      matches = Trepan::Complete.complete_token(syntax_files, prefix)
+    end
+  end
 
   def complete(prefix)
-    matches = Trepan::Complete.complete_token(CATEGORIES.keys + 
-                                              %w(* syntax all) + 
-                                          @proc.commands.keys, prefix)
+    matches = Trepan::Complete.complete_token(CATEGORIES.keys + %w(* all) + 
+                                              @proc.commands.keys, prefix)
     aliases = Trepan::Complete.complete_token_filtered(@proc.aliases, prefix, 
                                                        matches)
     (matches + aliases).sort
@@ -67,18 +67,17 @@ See also 'examine' and 'whatis'.
 
   # List the command categories and a short description of each.
   def list_categories
-    section 'Classes of commands:'
+    section 'Help classes:'
     CATEGORIES.keys.sort.each do |cat|
       msg("%-13s -- %s" % [cat, CATEGORIES[cat]])
     end
     final_msg = '
-Type "help" followed by a class name for a list of commands in that class.
-Type "help syntax" for information on debugger command syntax.
-Type "help aliases" for a list of current aliases
-Type "help macros" for a list of current macros
+Type "help" followed by a class name for a list of help items in that class.
+Type "help aliases" for a list of current aliases.
+Type "help macros" for a list of current macros.
 Type "help *" for the list of all commands, macros and aliases.
 Type "help all" for the list of all commands.
-Type "help REGEXP" for the list of commands matching /^#{REGEXP}/
+Type "help REGEXP" for the list of commands matching /^#{REGEXP}/.
 Type "help CLASS *" for the list of all commands in class CLASS.
 Type "help" followed by command name for full documentation.
 '
@@ -99,7 +98,7 @@ Type "help" followed by command name for full documentation.
       elsif cmd_name =~ /^macros$/i
         show_macros
       elsif cmd_name =~ /^syntax$/i
-        show_command_syntax
+        show_command_syntax(args)
       elsif cmd_name =~ /^all$/i
         CATEGORIES.sort.each do |category|
           show_category(category[0], [])
@@ -127,7 +126,7 @@ Type "help" followed by command name for full documentation.
       elsif @proc.macros.member?(cmd_name)
         msg "#{cmd_name} is a macro which expands to:"
         msg "  #{@proc.macros[cmd_name]}", {:unlimited => true}
-      else
+      else 
         matches = @proc.commands.keys.grep(/^#{cmd_name}/).sort rescue []
         if matches.empty?
           errmsg("No commands found matching /^#{cmd_name}/. Try \"help\".")
@@ -148,7 +147,7 @@ Type "help" followed by command name for full documentation.
 
   # Show short help for all commands in `category'.
   def show_category(category, args)
-      
+    
     if args.size == 1 && args[0] == '*'
       section "Commands in class %s:" % category
       
@@ -158,7 +157,7 @@ Type "help" followed by command name for full documentation.
       width = settings[:maxwidth]
       return columnize_commands(cmds)
     end
-        
+    
     msg('')
     section "Command class: %s" % category
     msg('')
@@ -167,56 +166,35 @@ Type "help" followed by command name for full documentation.
       msg("%-13s -- %s" % [name, @proc.commands[name].short_help])
     end
   end
-
-  def show_command_syntax
-    section "Debugger command syntax"
-    msg <<-EOS
-Command tokenization syntax is very simple-minded. 
-
-If a line starts with #, the command is ignored. 
-If a line starts with !, the line is eval'd. 
-
-If the command you want eval'd uses the Ruby ! initally, add that
-after the first !.
-
-Commands are split at whereever ;; appears. This process disregards
-any quotes or other symbols that have meaning in Ruby. The strings
-after the leading command string are put back on a command queue. 
-
-Within a single command, tokens are then white-space split. Again,
-this process disregards quotes or symbols that have meaning in Ruby.
-Some commands like 'eval' and 'macro' have access to the untokenized
-string entered and make use of that rather than the tokenized list.
-
-The leading token is first looked up in the macro table. If it
-found there, the expansion is replaces the current command and possibly
-other commands pushed onto a command queue.  Next the leading token is
-looked up in the debugger alias table and the name may be substituted
-there. Finally, the leading token is looked up in the debugger alias
-table. If a match is found, the command name and arguments are
-dispatched to the command object that process the command.
-
-If the command is not found and "auto eval" is set on, then the
-command is eval'd in the context that the program is currently stopped
-at. If "auto eval" is not set on, then we display an error message
-that the entered string is "undefined".
-
-If you want irb-like command-processing, it's possible to go into an
-irb shell with the "irb" command. It is also possible to arrange going
-into an irb shell every time you enter the debugger.
-
-Examples:
-
-# This line does nothing. It is a comment
-s    # by default, this is an alias for the "step" command
-!s   # shows the value of variable step. 
-!!s  # Evaluates !s (or "not s"). The first ! is indicates evaluate.
-info program;; list # Runs two commands "info program" and "list"
-pr  "hi ;;-)"  # Syntax error since ;; splits the line and " is not closed.
-!puts "hi ;;-)" # One way to do the above.
-
-See also "alias", "irb", "set auto eval", and "set auto irb".
-    EOS
+  
+  def syntax_files
+    @syntax_files ||= Dir.glob(File.join(HELP_DIR, '*.txt')).map do |txt| 
+      basename = File.basename(txt, '.txt')
+    end
+  end
+  
+  def show_command_syntax(args)
+    if args.size == 2
+      @syntax_summary_help ||= {}
+      section "List of syntax help"
+      syntax_files.each do |name|
+        @syntax_summary_help[name] ||= 
+          File.open(File.join(HELP_DIR, "#{name}.txt")).readline.chomp
+        msg "  %-8s -- %s" % [name, @syntax_summary_help[name]]
+      end
+    else
+      args[2..-1].each do |name|
+        if syntax_files.member?(name)
+          @syntax_help ||= {}
+          @syntax_help[name] = 
+            File.open(File.join(HELP_DIR, "#{name}.txt")).readlines[2..-1].join
+          section "Debugger syntax for a #{name}:"
+          msg @syntax_help[name]
+        else
+          errmsg "No syntax help for #{name}"
+        end
+      end
+    end
   end
 
   def show_macros
@@ -248,4 +226,5 @@ if __FILE__ == $0
   cmd.run %W(#{cmd.name} s<>)
   puts '=' * 40
   p cmd.complete('br')
+  p cmd.complete('un')
 end

data/processor/command/info_subcmd/breakpoints.rb

@@ -4,6 +4,7 @@ require 'rubygems'; require 'require_relative'
 require_relative '../base/subcmd'
 
 class Trepan::Subcommand::InfoBreakpoints < Trepan::Subcommand
+  unless defined?(HELP)
     Trepanning::Subcommand.set_name_prefix(__FILE__, self)
     HELP         = <<-EOH
 #{PREFIX.join(' ')} [num1 ...] [verbose]
@@ -20,10 +21,39 @@ The "enb" column indicates whether the breakpoint is enabled.
 
 The "Where" column indicates where the breakpoint is located.
 EOH
-  MIN_ABBREV   = 'br'.size
-  SHORT_HELP   = 'Status of user-settable breakpoints'
+    MIN_ABBREV   = 'br'.size
+    SHORT_HELP   = 'Status of user-settable breakpoints'
+  end
   
+  def bpprint(bp, verbose=false)
+    disp  = bp.temp?    ? 'del  ' : 'keep '
+    disp += bp.enabled? ? 'y  '   : 'n  '
+    msg "%-4dbreakpoint    %s at %s" % [bp.id, disp, bp.describe]
+    if bp.condition && bp.condition != 'true'
+      msg("\tstop %s %s" %
+          [bp.negate ? "unless" : "only if", bp.condition])
+    end
+    if bp.hits > 0
+      ss = (bp.hits > 1) ? 's' : ''
+      msg("\tbreakpoint already hit %d time%s" %
+          [bp.hits, ss])
+    end
+
+    if bp.ignore > 0
+      msg("\tignore next %d hits" % bp.ignore)
+    end
+  end
+
   def run(args)
+    verbose = false
+    unless args.empty?
+      if 'verbose' == args[-1]
+        verbose = true
+        args.pop
+      end
+    end
+
+
     show_all = 
       if args.size > 2
         opts = {
@@ -37,23 +67,15 @@ EOH
       else
         true
       end
-
+    
     bpmgr = @proc.brkpts
     if bpmgr.empty? && @proc.dbgr.deferred_breakpoints.empty?
       msg('No breakpoints.')
     else
       # There's at least one
-      section "Num  Breakpoint"
+      section("Num Type          Disp Enb Where")
       bpmgr.list.each do |bp|
-        msg "%3d: %s" % [bp.id, bp.describe]
-        if bp.condition && bp.condition != 'true'
-          msg("\tstop only if %s" % bp.condition)
-        end
-        if bp.hits > 0
-          ss = (bp.hits > 1) ? 's' : ''
-          msg("\tbreakpoint already hit %d time%s" %
-              [bp.hits, ss])
-        end
+        bpprint(bp)
       end
       section 'Deferred breakpoints...'
       @proc.dbgr.deferred_breakpoints.each_with_index do |bp, i|

data/processor/command/info_subcmd/files.rb

@@ -9,7 +9,7 @@ require_relative '../../../app/complete'
 class Trepan::Subcommand::InfoFiles < Trepan::Subcommand
   unless defined?(HELP)
     Trepanning::Subcommand.set_name_prefix(__FILE__, self)
-    DEFAULT_FILE_ARGS = %w(size mtime sha1)
+    DEFAULT_FILE_ARGS = %w(size mtime sha1 cm)
 
     HELP = <<-EOH
 #{CMD} [{FILENAME|.|*} [all|ctime|brkpts|mtime|sha1|size|stat]]
@@ -24,6 +24,7 @@ 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.
+cm     -- Top-level compiled method found for this file
 ctime  -- File creation time
 mtime  -- File modification time
 sha1   -- A SHA1 hash of the source text. This may be useful in comparing
@@ -47,7 +48,7 @@ EOH
     NEED_STACK   = false
   end
 
-  # completion %w(all brkpts iseq sha1 size stat)
+  # completion %w(all brkpts cm sha1 size stat)
 
   include Trepanning
 
@@ -65,8 +66,15 @@ EOH
     return if args.size < 2
     args << '.' if 2 == args.size 
     if '*' == args[2]
-      section 'Files names cached:'
-      msg columnize_commands(file_list.sort)
+      section 'Canonic Files names cached:'
+      primary = LineCache.class_variable_get('@@file_cache')
+      remap = LineCache.class_variable_get('@@file2file_remap')
+      msg columnize_commands(remap.keys.uniq.sort)
+      names = remap.keys - primary.keys
+      unless names.empty?
+        section 'Non-canonic names cached:'
+        msg columnize_commands(names.sort)
+      end
       return
     end
     filename = 
@@ -76,19 +84,21 @@ EOH
           return false
           nil
         else
-          File.expand_path(@proc.frame.file)
+          frame_file = @proc.frame_file
+          LineCache::map_file(frame_file) || File.expand_path(frame_file)
         end
       else
         args[2]
       end
     args += DEFAULT_FILE_ARGS if args.size == 3
 
-    m = filename + ' is'
-    canonic_name = LineCache::map_file(filename) || filename
+    m = filename
+    canonic_name = @proc.canonic_file(filename)
+    canonic_name = LineCache::map_file(canonic_name) || canonic_name
     if LineCache::cached?(canonic_name)
-      m += " cached in debugger"
+      m += " is cached in debugger"
       if canonic_name != filename
-        m += (' as:' + canonic_name)
+        m += (" as:\n  " + canonic_name)
       end
       m += '.'
       msg(m)
@@ -110,9 +120,11 @@ EOH
         matches.sort.each { |match_file| msg "\t%s" % match_file }
         return
       elsif 1 == matches.size
-        canonic_name = LineCache::map_file(matches[1])
+        canonic_name = LineCache::map_file(matches[0])
+        m += " matched debugger cache file:\n  "  + canonic_name
+        msg m
       else
-        msg(m + ' not cached in debugger.')
+        msg(m + ' is not cached in debugger.')
         return
       end
     end
@@ -138,7 +150,7 @@ EOH
       if %w(all brkpts).member?(arg)
         unless seen[:brkpts]
           msg("Possible breakpoint line numbers:")
-          lines = LineCache::trace_line_numbers(canonic_name)
+          lines = LineCache.trace_line_numbers(canonic_name)
           fmt_lines = columnize_numbers(lines)
           msg(fmt_lines)
         end
@@ -153,19 +165,16 @@ EOH
         processed_arg = seen[:ctime] = true
       end
       
-      # if %w(all iseq).member?(arg) 
-      #   unless seen[:iseq]
-      #     if SCRIPT_ISEQS__.member?(canonic_name)
-      #       msg("File contains instruction sequences:")
-      #       SCRIPT_ISEQS__[canonic_name].each do |iseq|
-      #         msg("\t %s %s" % [iseq, iseq.name.inspect])
-      #       end 
-      #     else
-      #       msg("Instruction sequences not recorded; there may be some, though.")
-      #     end
-      #   end
-      #   processed_arg = seen[:iseq] = true
-      # end
+      if %w(all cm).member?(arg) 
+        unless seen[:cm]
+          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
+        end
+        processed_arg = seen[:cm] = true
+      end
 
       if %w(all mtime).member?(arg)
         unless seen[:mtime]

data/processor/command/info_subcmd/frame.rb

@@ -0,0 +1,67 @@
+# -*- coding: utf-8 -*-
+require 'rubygems'; require 'require_relative'
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
+require_relative '../base/subcmd'
+
+class Trepan::Subcommand::InfoFrame < Trepan::Subcommand
+  unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
+    HELP = <<-EOH
+#{CMD} 
+
+Show information about the selected frame. The fields we list are:
+
+* A source container and name (e.g. "file" or "string" and the value)
+* The actual number of arguments passed in
+* The 'arity' or permissible number of arguments passed it. -1 indicates
+  variable number
+* The frame "type", e.g. TOP, METHOD, BLOCK, EVAL, CFUNC etc.
+* The return value if the frame is at a return point
+* The PC offset we are currently at; May be omitted of no instruction 
+  sequence
+
+A backtrace shows roughly the same information in a more compact form.
+
+Example form inside File.basename('foo')
+
+Frame basename
+  file  : /tmp/c-func.rb # actually location of caller
+  line  : 2  # inherited from caller
+  argc  : 1  # One out argument supplied: 'foo'
+  arity : -1 # Variable number of args, can have up to 2 arguments.
+  type  : CFUNC  (A C function)
+
+
+See also: backtrace
+    EOH
+    MIN_ABBREV   = 'fr'.size # Note we have "info file"
+    NEED_STACK   = true
+    SHORT_HELP   = 'Show information about the selected frame'
+  end
+
+  def run(args)
+    frame = @proc.frame
+    loc   = frame.vm_location
+    section "Frame %2d: #{frame.method.name}" % frame.number
+    msg "  in    : #{loc.describe_receiver}#{loc.name}"
+    msg "  file  : %s" % loc.method.active_path
+    msg "  line  : %s" % frame.line
+    # msg "  argc  : %d" % frame.argc
+    msg "  arity : %d" % frame.method.arity
+    # msg "  type  : %s" % frame.type
+    msg "  offset: %d" % frame.ip
+    # if %w(return c-return).member?(@proc.event)
+    #   ret_val = Trepan::Frame.value_returned(@proc.frame, @proc.event)
+    #   msg "  Return: %s" % ret_val
+    # end
+  end
+
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../mock'
+  dbgr, cmd = MockDebugger::setup('info')
+  cmd = MockDebugger::sub_setup(Trepan::Subcommand::InfoFrame, false)
+  cmd.run(cmd.prefix)
+end

data/processor/command/kill.rb

@@ -50,7 +50,6 @@ Examples:
         errmsg("Signal name '#{sig}' is not a signal I know about.\n")
         return false
       end
-      # FIXME: reinstate
       if 'KILL' == sig || Signal['KILL'] == sig
         @proc.intf.finalize
       end

data/processor/command/restart.rb

@@ -26,19 +26,19 @@ new copy of the debugger is used.
     dbgr = @proc.dbgr
     argv = dbgr.restart_argv
     if argv and argv.size > 0
-      # unless File.executable?(argv[0])
-      #   msg(["File #{argv[0]} not executable.",
-      #        "Adding Ruby interpreter."])
-      #   argv.unshift Trepanning::ruby_path
-      # end
       @proc.run_cmd(%w(show args))
       if not confirm('Restart (exec)?', false)
         msg "Restart not confirmed"
       else
-        msg 'Restarting...'
-        @proc.run_cmd(%w(save))
-        # FIXME: Run atexit finalize routines?
+        if defined?(Trepan::PROG_UNRESOLVED_SCRIPT) &&
+            position = argv.index(Trepan::PROG_UNRESOLVED_SCRIPT)
+          save_filename = @proc.save_commands(:erase =>true)
+          argv.insert(position, '--command', save_filename) if save_filename
+        end
         Dir.chdir(Rubinius::OS_STARTUP_DIR)
+        msg 'Restarting using...'
+        msg "\t #{argv.inspect}"
+        @proc.finalize
         exec(*argv)
       end
     else

data/processor/command/save.rb

@@ -0,0 +1,58 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative 'base/cmd'
+class Trepan::Command::SaveCommand < Trepan::Command
+
+  unless defined?(HELP)
+    NAME = File.basename(__FILE__, '.rb')
+    HELP = <<-HELP
+#{NAME} [--[no-]erase] [--output|-o FILENAME]
+
+Save settings to file FILENAME. If FILENAME not given one will be made
+selected.
+    HELP
+
+    CATEGORY     = 'running'
+    MAX_ARGS     = 1  # Need at most this many
+    SHORT_HELP  = 'Send debugger state to a file'
+
+    DEFAULT_OPTIONS = { :erase => true, }
+  end
+    
+  def parse_options(options, args) # :nodoc
+    parser = OptionParser.new do |opts|
+      opts.on("-e", "--[no-]erase", 
+              "Add line to erase after reading") do
+        |v| 
+        options[:erase] = v
+      end
+      opts.on("-o", "--output FILE", String, 
+              "Save file to FILE. ") do 
+        |filename|
+        options[:filename] = filename
+      end
+    end
+    parser.parse(args)
+    return options
+  end
+
+  # This method runs the command
+  def run(args)
+    options = parse_options(DEFAULT_OPTIONS.dup, args[1..-1])
+    save_filename = @proc.save_commands(options)
+    msg "Debugger commands written to file: #{save_filename}" if
+      save_filename
+  end
+end
+
+if __FILE__ == $0
+  require_relative '../mock'
+  dbgr, cmd = MockDebugger::setup
+  require 'tmpdir'
+  cmd.run([cmd.name])
+  # require_relative '../../lib/trepanning'; debugger
+  cmd.run([cmd.name, '--erase', 
+           '--output', File.join(Dir.tmpdir, 'save_file.txt')])
+  # A good test would be to see we can read in those files without error.
+end

data/processor/command/set_subcmd/trace_subcmd/buffer.rb

@@ -4,7 +4,7 @@ require 'rubygems'; require 'require_relative'
 require_relative '../../base/subsubcmd'
 require_relative '../trace'
 class Trepan::SubSubcommand::SetTraceBuffer < Trepan::SetBoolSubSubcommand
-  Trepanning::Subcommand.set_name_prefix(__FILE__, self)
+  Trepanning::SubSubcommand.set_name_prefix(__FILE__, self)
   unless defined?(HELP)
     HELP         = <<-EOH
 #{CMD} [on|off|1|0]

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

@@ -4,7 +4,7 @@ require 'rubygems'; require 'require_relative'
 require_relative '../../base/subsubcmd'
 require_relative '../trace'
 class Trepan::SubSubcommand::SetTracePrint < Trepan::SetBoolSubSubcommand
-  Trepanning::Subcommand.set_name_prefix(__FILE__, self)
+  Trepanning::SubSubcommand.set_name_prefix(__FILE__, self)
   unless defined?(HELP)
     HELP         = <<-EOH
 "#{CMD} [on|off|1|0]