rbx-trepanning 0.0.5-universal-rubinius-1.2.1

data/processor/command/set_subcmd/highlight.rb

@@ -0,0 +1,33 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../base/subcmd'
+
+class Trepan::Subcommand::SetHighlight < Trepan::SetBoolSubcommand
+  unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
+    HELP       = 'Set whether we use terminal highlighting'
+    IN_LIST    = true
+    MIN_ABBREV = 'ba'.size
+  end
+  def run(args)
+    if args.size == 3 && 'reset' == args[2]
+      LineCache::clear_file_format_cache
+    else
+      super
+      @proc.settings[:highlight] = :term if @proc.settings[:highlight]
+    end
+  end
+
+end
+
+if __FILE__ == $0
+  # Demo it.
+  $0 = __FILE__ + 'notagain' # So we don't run this again
+  require_relative '../../mock'
+  cmd = MockDebugger::sub_setup(Trepan::Subcommand::SetHighlight, false)
+  cmd.run(cmd.prefix + ['off'])
+  cmd.run(cmd.prefix + ['ofn'])
+  cmd.run(cmd.prefix)
+  puts cmd.save_command
+end

data/processor/command/set_subcmd/kernelstep.rb

@@ -0,0 +1,60 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../show_subcmd/kernelstep'
+
+class Trepan::Subcommand::SetKernelstep < Trepan::Subcommand::ShowKernelstep
+  unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
+    HELP         = <<-EOH
+#{PREFIX.join(' ')} [on|off]
+
+Allow/disallow stepping into kernel methods.
+    EOH
+
+    IN_LIST      = true
+    MIN_ABBREV   = 'kern'.size
+    SHORT_HELP   = "Set stepping into kernel methods."
+  end
+
+  def run(args)
+    onoff_arg = args.size < 3 ? 'on' : args[2]
+    begin
+      on = @proc.get_onoff(onoff_arg)
+    rescue NameError, TypeError
+      return
+    end
+
+    if on
+      if ignore?
+        @proc.ignore_file_re.delete(KERNEL_METHOD_FILE_RE)
+      else
+        errmsg("We aren't ignoring kernel methods for stepping.")
+        return
+      end
+    else
+      if ignore?
+        errmsg("We already should be ignoring kernel methods for stepping.")
+        return
+      else
+        @proc.ignore_file_re[KERNEL_METHOD_FILE_RE] = 'step-finish'
+      end
+    end
+    show
+  end
+
+  def save_command
+    PREFIX.join(' ') + (ignore? ? ' on' : ' off')
+  end
+
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../mock'
+  cmd = MockDebugger::sub_setup(Trepan::Subcommand::SetKernelstep)
+  cmd.run(cmd.prefix + ['off'])
+  puts cmd.save_command
+  cmd.run(cmd.prefix + ['on'])
+  puts cmd.save_command
+end

data/processor/command/set_subcmd/max.rb

@@ -0,0 +1,26 @@
+# -*- 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::SubSubcommand::SetMax < Trepan::SubSubcommandMgr
+  Trepanning::Subcommand.set_name_prefix(__FILE__, self)
+  HELP   = 'Set maximum length for things which may have unbounded size'
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../mock'
+  cmd_ary          = Trepan::SubSubcommand::SetMax::PREFIX
+  dbgr, parent_cmd = MockDebugger::setup(cmd_ary[0], false)
+  cmd              = Trepan::SubSubcommand::SetMax.new(dbgr.processor, 
+                                                    parent_cmd)
+  cmd_name       = cmd_ary.join('')
+  prefix_run = cmd_ary[1..-1]
+  cmd.run(prefix_run)
+  # require 'trepanning'; debugger
+  %w(s lis foo).each do |prefix|
+    p [prefix, cmd.complete(prefix)]
+  end
+end

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

@@ -0,0 +1,49 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+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'
+
+  dbgr, set_cmd = MockDebugger::setup('set', false)
+  max_cmd       = Trepan::SubSubcommand::SetMax.new(dbgr.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))
+  subcmd.summary_help(subcmd.name)
+  puts
+  puts '-' * 20
+  puts subcmd.save_command
+end

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

@@ -0,0 +1,50 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+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 a list size", 
+                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')
+  name = File.basename(__FILE__, '.rb')
+
+  dbgr, set_cmd = MockDebugger::setup('set')
+  max_cmd       = Trepan::SubSubcommand::SetMax.new(dbgr.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(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/string.rb

@@ -0,0 +1,76 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../../base/subsubcmd'
+
+class Trepan::SubSubcommand::SetMaxString < Trepan::SubSubcommand
+  unless defined?(HELP)
+    NAME         = File.basename(__FILE__, '.rb')
+    # FIXME: DRY the next two lines and throw in "set" too.
+    dirname      = File.basename(File.dirname(File.expand_path(__FILE__)))
+    PREFIX       = %W(set #{dirname[0...-'_subcmd'.size]} #{NAME})
+    DEFAULT_MIN  = 10
+    DEFAULT_LENGTH  = 80
+
+    HELP         = <<-EOH
+
+#{PREFIX.join(' ')} [NUM]
+
+Sometimes the string representation of an object is very long. This
+setting limits how much of the string representation you want to
+see. 
+
+NUM must have a value at least #{DEFAULT_MIN}. If no value is supplied
+#{DEFAULT_LENGTH} is used.
+
+To disable any limit on the string size, use a negative number.
+
+If the string has an embedded newline then we will assume the output
+is intended to be formated as is.
+
+Examples:
+  #{PREFIX.join(' ')} #{DEFAULT_LENGTH}  # set maximum string length to 80
+  #{PREFIX.join(' ')} # same as above
+  #{PREFIX.join(' ')} -1  # set unlimited maximum string
+  #{PREFIX.join(' ')} -10 # same as above
+  #{PREFIX.join(' ')} #{DEFAULT_MIN-1} # invalid - number too small.
+
+EOH
+    MIN_ABBREV   = 'str'.size
+    SHORT_HELP   = "Set maximum # chars in a string before truncation"
+  end
+
+  def run(args)
+    args.shift
+    args = %W(#{DEFAULT_LENGTH}) if args.empty?
+    run_set_int(args.join(' '),
+                "The 'set maximum string' 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'
+  # FIXME: DRY this code.
+  dbgr, set_cmd = MockDebugger::setup('set')
+  max_cmd       = Trepan::SubSubcommand::SetMax.new(dbgr.processor, 
+                                                    set_cmd)
+  cmd_name      = Trepan::SubSubcommand::SetMaxString::PREFIX.join('')
+  name          = Trepan::SubSubcommand::SetMaxString::PREFIX[0]
+  subcmd        = Trepan::SubSubcommand::SetMaxString.new(set_cmd.proc, 
+                                                          max_cmd,
+                                                          cmd_name)
+  subcmd.run([])
+  subcmd.run(%W(#{name} 0))
+  subcmd.run(%W(#{name} 20))
+  subcmd.run(%W(#{name} 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,49 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+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 'width' 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_name      = Trepan::SubSubcommand::SetMaxWidth::PREFIX.join('')
+  # subcmd        = Trepan::SubSubcommand::SetMaxWidth.new(set_cmd.proc,
+  #                                                        max_cmd,
+  #                                                        cmd_name)
+  # subcmd.run(['max', 'width'])
+  # subcmd.run(%w(set max width 0))
+  # subcmd.run(%w(set max width 20))
+  name = File.basename(__FILE__, '.rb')
+  subcmd.summary_help(name)
+  # puts
+  # puts '-' * 20
+  # puts subcmd.save_command
+end

data/processor/command/set_subcmd/substitute.rb

@@ -0,0 +1,24 @@
+# -*- 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::SubSubcommand::SetSubstitute < Trepan::SubSubcommandMgr
+  unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
+    HELP   = 'Set instruction sequence-to-filename mapping'
+  end
+end
+
+if __FILE__ == $0
+  require_relative '../../mock'
+  dbgr, set_cmd = MockDebugger::setup('set')
+  command = Trepan::SubSubcommand::SetSubstitute.new(dbgr.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/path.rb

@@ -0,0 +1,56 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../../base/subsubcmd'
+require_relative '../substitute'
+
+class Trepan::SubSubcommand::SetSubstitutePath < Trepan::SubSubcommand
+  unless defined?(HELP)
+    HELP         = 
+'Add a substitution rule replacing FROM into TO in source file names.
+If a substitution rule was previously set for FROM, the old rule
+is replaced by the new one.'
+    MIN_ABBREV   = 'fi'.size  
+    MAX_ARGS     = 2
+    NAME         = File.basename(__FILE__, '.rb')
+    SHORT_HELP   = 'Use PATH in place of an filename'
+    PREFIX       = %w(set substitute path)
+  end
+
+  def run(args)
+    if args.size != 3
+      errmsg "This command needs 2 arguments, got #{args.size-1}."
+      return
+    end
+    from_path = args[1]
+    to_path   = args[2]
+    # FIXME Check from_path name to see if it is loaded
+    if File.exist?(to_path)
+      LineCache::remap_file(from_path, to_path)
+    else
+      errmsg "File #{to_path} doesn't exist"
+    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')
+  testcmdMgr = Trepan::Subcmd.new(set_cmd)
+  cmd_name   = Trepan::SubSubcommand::SetSubstitutePath::PREFIX.join('')
+  setx_cmd   = Trepan::SubSubcommand::SetSubstitutePath.new(set_cmd.proc, 
+                                                            set_cmd,
+                                                            cmd_name)
+  # require_relative '../../../../lib/trepanning'
+  # dbgr = Trepan.new(:set_restart => true)
+  # dbgr.debugger
+  setx_cmd.run([])
+
+  # name = File.basename(__FILE__, '.rb')
+  # subcommand.summary_help(name)
+end

data/processor/command/set_subcmd/trace.rb

@@ -0,0 +1,36 @@
+# -*- 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::SubSubcommand::SetTrace < Trepan::SubSubcommandMgr 
+  unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
+    HELP = "Set tracing of various sorts.
+
+The types of tracing include global variables, events from the trace
+buffer, or printing those events.
+
+See 'help #{PREFIX.join(' ')} *' for a list of subcommands or 'help set trace
+<name>' for help on a particular trace subcommand."
+
+    IN_LIST    = true
+    MIN_ABBREV = 'tr'.size
+    SHORT_HELP = 'Set tracing of various sorts.'
+  end
+
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../mock'
+  cmd_ary          = Trepan::SubSubcommand::SetTrace::PREFIX
+  dbgr, parent_cmd = MockDebugger::setup(cmd_ary[0], false)
+  command = Trepan::SubSubcommand::SetTrace.new(dbgr.processor, 
+                                                parent_cmd)
+  # require_relative '../../../lib/trepanning'
+  # Trepan.debug(:set_restart => true)
+  command.run(cmd_ary)
+  command.run(['set', command.name, 'print'])
+end