rbx-trepanning 0.0.5-universal-rubinius-1.2.1

data/processor/command/show_subcmd/different.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/subcmd'
+
+class Trepan::Subcommand::ShowDifferent < Trepan::ShowBoolSubcommand
+  unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
+    HELP         = "Show status of 'set different'"
+    MIN_ABBREV   = 'dif'.size
+  end
+
+  def run(args)
+    if 'nostack' == @proc.settings[:different]
+      msg "%s is nostack." % HELP[5..-1].capitalize
+    else
+      super
+    end
+  end
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../mock'
+  cmd = MockDebugger::sub_setup(Trepan::Subcommand::ShowDifferent)
+end

data/processor/command/show_subcmd/hidelevel.rb

@@ -0,0 +1,41 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../base/subsubcmd'
+
+class Trepan::Subcommand::ShowHidelevel < Trepan::ShowIntSubcommand
+  unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
+    HELP = 'Show the number of stack levels to hide'
+    MIN_ABBREV   = 'hide'.size
+  end
+  def run(args)
+    if @proc.settings[:hidelevel]
+      super
+    else
+      help = self.class.const_get(:HELP)
+      msg "%s is auto selection." % help[5..-1].capitalize
+    end
+  end
+
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../mock'
+
+  # FIXME: DRY the below code
+  dbgr, cmd = MockDebugger::setup('show')
+  subcommand = Trepan::Subcommand::ShowHidelevel.new(cmd)
+
+  subcommand.run(subcommand.name)
+  subcommand.proc.settings[:hidelevel] = 1
+  subcommand.run(subcommand.name)
+  
+  # require_relative '../../../../lib/trepanning'
+  # dbgr = Trepan.new(:set_restart => true)
+  # dbgr.debugger
+  subcommand.summary_help(subcommand.name)
+  puts
+  puts '-' * 20
+end

data/processor/command/show_subcmd/highlight.rb

@@ -0,0 +1,24 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2011 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../base/subsubcmd'
+require_relative '../base/subsubmgr'
+
+class Trepan::Subcommand::ShowHighlight < Trepan::ShowBoolSubcommand
+  unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
+    HELP   = 'Show whether we use terminal highlighting'
+  end
+
+  def run(args)
+    val = :term == @proc.settings[:highlight] 
+    onoff = show_onoff(val)
+    msg("%s is %s." % [@name, onoff])
+  end
+end
+
+if __FILE__ == $0
+  require_relative '../../mock'
+  cmd = MockDebugger::sub_setup(Trepan::Subcommand::ShowHighlight, false)
+  cmd.run(cmd.prefix)
+end

data/processor/command/show_subcmd/kernelstep.rb

@@ -0,0 +1,34 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../base/subcmd'
+
+class Trepan::Subcommand::ShowKernelstep < Trepan::Subcommand
+  unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
+    HELP         = "Show stepping into kernel methods"
+    MIN_ABBREV   = 'kern'.size
+
+    # Specific to this class
+    KERNEL_METHOD_FILE_RE    = /^kernel\//
+  end
+
+  def ignore?
+    @proc.ignore_file_re.member?(KERNEL_METHOD_FILE_RE)
+  end
+
+  def show
+    msg("stepping into kernel methods is %s." % 
+        (ignore? ? 'disallowed' : 'allowed'))
+  end
+
+  def run(args)
+    show
+  end
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../mock'
+  cmd = MockDebugger::sub_setup(Trepan::Subcommand::ShowKernelstep)
+end

data/processor/command/show_subcmd/max.rb

@@ -0,0 +1,27 @@
+# -*- 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::ShowMax < Trepan::SubSubcommandMgr
+  unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
+    HELP   = 'Show "maximum length" settings'
+  end
+
+  def run(args)
+    super
+  end
+end
+
+if __FILE__ == $0
+  require_relative '../../mock'
+  cmd_ary          = Trepan::SubSubcommand::ShowMax::PREFIX
+  dbgr, parent_cmd = MockDebugger::setup(cmd_ary[0], false)
+  cmd              = Trepan::SubSubcommand::ShowMax.new(dbgr.processor, 
+                                                        parent_cmd)
+  cmd_name       = cmd_ary.join('')
+  prefix_run = cmd_ary[1..-1]
+  cmd.run(prefix_run)
+end

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

@@ -0,0 +1,38 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../../base/subsubcmd'
+
+class Trepan::SubSubcommand::ShowMaxList < Trepan::ShowIntSubSubcommand
+  unless defined?(HELP)
+    HELP = 'Show the number of source file lines to list'
+    MIN_ABBREV   = 'lis'.size
+    NAME         = File.basename(__FILE__, '.rb')
+    PREFIX       = %w(show max list)
+  end
+
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../../mock'
+
+  # FIXME: DRY the below code
+  cmd_ary          = Trepan::SubSubcommand::ShowMaxList::PREFIX
+  dbgr, parent_cmd = MockDebugger::setup(cmd_ary[0], false)
+  cmd              = Trepan::SubSubcommand::ShowMax.new(dbgr.processor, 
+                                                        parent_cmd)
+  cmd_name       = cmd_ary.join('')
+  subcmd         = Trepan::SubSubcommand::ShowMaxList.new(parent_cmd.proc,
+                                                          cmd,
+                                                          cmd.name)
+  prefix_run = cmd_ary[1..-1]
+  subcmd.run(prefix_run)
+  
+  # require_relative '../../../../lib/trepanning'
+  # dbgr = Trepan.new(:set_restart => true)
+  # dbgr.debugger
+  puts subcmd.summary_help(cmd.name)
+  puts
+  puts '-' * 20
+end

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

@@ -0,0 +1,36 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../../base/subsubcmd'
+
+class Trepan::SubSubcommand::ShowMaxStack < Trepan::ShowIntSubSubcommand
+  unless defined?(HELP)
+    HELP         = 'Show the number of backtrace lines the debugger will show'
+    MIN_ABBREV   = 'sta'.size
+    NAME         = File.basename(__FILE__, '.rb')
+    PREFIX       = %w(show max stack)
+  end
+
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../../mock'
+
+  # FIXME: DRY the below code
+  dbgr, show_cmd = MockDebugger::setup('show')
+  testcmdMgr     = Trepan::Subcmd.new(show_cmd)
+  # max_cmd        = Trepan::SubSubcommand::ShowMax.new(dbgr.core.processor, 
+  #                                                     show_cmd)
+  
+  # cmd_name       = Trepan::SubSubcommand::ShowMaxStack::PREFIX.join('')
+  # maxx_cmd       = Trepan::SubSubcommand::ShowMaxStack.new(show_cmd.proc,
+  #                                                          max_cmd,
+  #                                                          cmd_name)
+  # # require_relative '../../../../lib/trepanning'
+  # # dbgr = Trepan.new(:set_restart => true)
+  # # dbgr.debugger
+  puts max_cmd.summary_help(maxx_cmd)
+  puts
+  # maxx_cmd.run([])
+end

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

@@ -0,0 +1,42 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../../base/subsubcmd'
+
+class Trepan::SubSubcommand::ShowMaxString < Trepan::ShowIntSubSubcommand
+  unless defined?(HELP)
+    HELP = 'Show the number of characters in a string before truncating.
+
+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.'
+    MIN_ABBREV   = 'st'.size
+    NAME         = File.basename(__FILE__, '.rb')
+    PREFIX       = %w(show max string)
+  end
+
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../../mock'
+
+  # FIXME: DRY the below code
+  dbgr, show_cmd = MockDebugger::setup('show')
+  testcmdMgr     = Trepan::Subcmd.new(show_cmd)
+  # max_cmd        = Trepan::SubSubcommand::ShowMax.new(dbgr.core.processor, 
+  #                                                     show_cmd)
+  
+  # cmd_name       = Trepan::SubSubcommand::ShowMaxString::PREFIX.join('')
+  # maxx_cmd       = Trepan::SubSubcommand::ShowMaxString.new(show_cmd.proc,
+  #                                                           max_cmd,
+  #                                                           cmd_name)
+
+  # # require_relative '../../../../lib/trepanning'
+  # # dbgr = Trepan.new(:set_restart => true)
+  # # dbgr.debugger
+  puts max_cmd.summary_help(maxx_cmd)
+  puts 
+  maxx_cmd.run([])
+end

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

@@ -0,0 +1,37 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../../base/subsubcmd'
+
+class Trepan::SubSubcommand::ShowMaxWidth < Trepan::ShowIntSubSubcommand
+  unless defined?(HELP)
+    HELP = 'Show the number of characters the debugger thinks are in a line.'
+    MIN_ABBREV   = 'wid'.size
+    NAME         = File.basename(__FILE__, '.rb')
+    PREFIX       = %w(show max width)
+  end
+
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../../mock'
+
+  # FIXME: DRY the below code
+  dbgr, show_cmd = MockDebugger::setup('show')
+  testcmdMgr     = Trepan::Subcmd.new(show_cmd)
+  # max_cmd        = Trepan::SubSubcommand::ShowMax.new(dbgr.core.processor, 
+  #                                                     show_cmd)
+  # cmd_name       = Trepan::SubSubcommand::ShowMaxWidth::PREFIX.join('')
+  # maxx_cmd       = Trepan::SubSubcommand::ShowMaxWidth.new(show_cmd.proc,
+  #                                                          max_cmd,
+  #                                                          cmd_name)
+  
+  name = File.basename(__FILE__, '.rb')
+  # require_relative '../../../../lib/trepanning'
+  # dbgr = Trepan.new(:set_restart => true)
+  # dbgr.debugger
+  # puts max_cmd.summary_help(maxx_cmd)
+  # puts
+  # maxx_cmd.run([])
+end

data/processor/command/show_subcmd/trace.rb

@@ -0,0 +1,27 @@
+# -*- 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::ShowTrace < Trepan::SubSubcommandMgr 
+
+  unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
+    HELP = "Show event tracing printing"
+    MIN_ABBREV = 'tr'.size
+    SHORT_HELP = HELP
+  end
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../mock'
+  cmd_ary          = Trepan::SubSubcommand::ShowTrace::PREFIX
+  dbgr, parent_cmd = MockDebugger::setup(cmd_ary[0], false)
+  cmd              = Trepan::SubSubcommand::ShowTrace.new(dbgr.processor, 
+                                                          parent_cmd)
+  cmd_name       = cmd_ary.join('')
+  prefix_run = cmd_ary[1..-1]
+  cmd.run(prefix_run)
+end

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

@@ -0,0 +1,38 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require_relative '../../base/subsubcmd'
+
+class Trepan::SubSubcommand::ShowTracePrint < Trepan::ShowBoolSubSubcommand
+  unless defined?(HELP)
+    HELP = "Show tracing print status"
+    MIN_ABBREV   = 'p'.size
+    NAME         = File.basename(__FILE__, '.rb')
+    PREFIX       = %w(show trace buffer)
+    SHORT_HELP   = "Show tracing print status"
+  end
+
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../../mock'
+  require_relative '../../../subcmd'
+  name = File.basename(__FILE__, '.rb')
+
+  # FIXME: DRY the below code
+  dbgr, show_cmd = MockDebugger::setup('show')
+  testcmdMgr     = Trepan::Subcmd.new(show_cmd)
+  trace_cmd      = Trepan::SubSubcommand::ShowTrace.new(dbgr.core.processor, 
+                                                        show_cmd)
+
+  # FIXME: remove the 'join' below
+  cmd_name       = Trepan::SubSubcommand::ShowTracePrint::PREFIX.join('')
+  tb_cmd         = Trepan::SubSubcommand::ShowTracePrint.new(show_cmd.proc, 
+                                                             trace_cmd,
+                                                             cmd_name)
+  # require_relative '../../../../lib/trepanning'
+  # dbgr = Trepan.new(:set_restart => true)
+  # dbgr.debugger
+  tb_cmd.run([])
+
+end

data/processor/command/show_subcmd/version.rb

@@ -0,0 +1,23 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../../../app/options'
+require_relative '../base/subcmd'
+
+class Trepan::Subcommand::ShowVersion < Trepan::Subcommand
+  unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
+    HELP         = "Show what version of #{Trepan::PROGRAM} this is"
+    MIN_ABBREV   = 'vers'.size
+  end
+
+  def run(args)
+    msg Trepan::show_version
+  end
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../mock'
+  cmd = MockDebugger::sub_setup(Trepan::Subcommand::ShowVersion)
+end

data/processor/command/source.rb

@@ -0,0 +1,126 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
+require 'optparse'
+
+# Our local modules
+require 'rubygems'; require 'require_relative'
+require_relative 'base/cmd'
+require_relative '../../interface/script'
+require_relative '../../io/null_output'
+require_relative '../../app/default'
+
+class Trepan::Command::SourceCommand < Trepan::Command
+  unless defined?(HELP)
+    NAME = File.basename(__FILE__, '.rb')
+    HELP = <<-HELP
+#{NAME} [options] FILE
+
+options: 
+    -q | --quiet | --no-quiet
+    -c | --continue | --no-continue
+    -Y | --yes | -N | --no
+    -v | --verbose | --no-verbose
+
+Read debugger commands from a file named FILE.  Optional -v switch
+causes each command in FILE to be echoed as it is executed.  Option -Y
+sets the default value in any confirmation command to be 'yes' and -N
+sets the default value to 'no'.
+
+Option -q will turn off any debugger output that normally occurs in the
+running of the program.
+
+Note that the command startup file #{Trepan::CMD_INITFILE_BASE} is read automatically
+via a #{NAME} command the debugger is started.
+
+An error in any command terminates execution of the command file
+unless option -c or --continue is given.
+    HELP
+    CATEGORY     = 'support'
+    MIN_ARGS     = 1  # Need at least this many
+    MAX_ARGS     = nil
+    SHORT_HELP   = 'Read and run debugger commands from a file'
+
+    DEFAULT_OPTIONS = {
+      :abort_on_error => false,
+      :confirm_val => false,
+      :quiet => false,
+      :verbose => false
+    }
+
+  end
+
+  def parse_options(options, args) # :nodoc
+    seen_yes_no = false
+    parser = OptionParser.new do |opts|
+      opts.on("-c", "--[no-]continue", 
+              "Continue in the face of errors") do
+        |v| 
+        options[:abort_on_error] = !v
+      end
+      opts.on("-v", 
+              "--[no-]verbose", "echo each command as it is executed") do
+        |v| 
+        options[:verbose] = v
+      end
+      opts.on("-N", "--no", "Use 'no' in any confirmation prompts") do
+        |v| 
+        if seen_yes_no
+          msg("Yes/No option already seen. This option (no) ignored.")
+        end
+        options[:confirm_val] = false
+      end
+      opts.on("-q", "--[no-]quiet", "Silence debugger output") do
+        |v| 
+        options[:quiet] = v
+      end
+      opts.on("-Y", "--yes", "Use 'yes' in any confirmation prompts") do
+        |v| 
+        if seen_yes_no
+          msg("Yes/No option already seen. This option, --yes, ignored.")
+        end
+        options[:confirm_val] = true
+        seen_yes_no = true
+      end
+    end
+    parser.parse(args)
+    return options
+  end
+
+  def run(args)
+    options = parse_options(DEFAULT_OPTIONS.dup, args[1..-2])
+    intf = @proc.dbgr.intf
+    output  = options[:quiet] ? Trepan::OutputNull.new(nil) : intf[-1].output
+    
+    filename = args[-1]
+    
+    expanded_file = File.expand_path(filename)
+    unless File.readable?(expanded_file)
+      errmsg("Debugger command file '%s' is not a readable file" % filename)
+      return false
+    end
+    
+    # Push a new debugger interface.
+    script_intf = Trepan::ScriptInterface.new(expanded_file, output, options)
+    intf << script_intf
+    return false
+  end
+end
+  
+# Demo it
+if __FILE__ == $0
+  require_relative '../mock'
+  dbgr, cmd = MockDebugger::setup
+  %w(--quiet -q --no-quiet --continue --no-continue -c -v --verbose 
+     --no-verbose).each do |opt|
+    puts "parsing #{opt}"
+    options = 
+      cmd.parse_options(Trepan::Command::SourceCommand::DEFAULT_OPTIONS.dup,
+                        opt)
+    p options
+  end
+
+  if ARGV.size >= 1 
+    puts "running... #{cmd.name} #{ARGV}"
+    cmd.run([cmd.name, *ARGV])
+  end
+end