rbx-trepanning 0.0.5-universal-rubinius-1.2.1

data/processor/command/set_subcmd/auto.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::SetAuto < Trepan::SubSubcommandMgr
+  unless defined?(HELP)
+    HELP   = 'Set controls for things with some sort of "automatic" default behavior'
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
+  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::SetAuto.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/auto_subcmd/dis.rb

@@ -0,0 +1,33 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../../base/subsubcmd'
+
+class Trepan::Subcommand::SetAutoDis < Trepan::SetBoolSubSubcommand
+  unless defined?(HELP)
+    HELP = "Set to run a 'disassemble' command each time we enter the debugger"
+    MIN_ABBREV = 'd'.size
+    NAME       = File.basename(__FILE__, '.rb')
+    PREFIX     = %W(set auto #{NAME})
+    SHORT_HELP = "Set running a 'disassemble' command each time we enter the debugger"
+  end
+
+  def run(args)
+    super
+    if @proc.settings[:autodis]
+      @proc.cmdloop_prehooks.insert_if_new(10, *@proc.autodis_hook)
+    else
+      @proc.cmdloop_prehooks.delete_by_name('autodis')
+    end
+  end
+
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../../mock'
+  require_relative '../auto'
+  cmd = MockDebugger::subsub_setup(Trepan::SubSubcommand::SetAuto,
+                                   Trepan::SubSubcommand::SetAutoDis)
+  cmd.run([cmd.name, 'off'])
+end

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

@@ -0,0 +1,54 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../../base/subsubcmd'
+
+class Trepan::SubSubcommand::SetAutoEval < Trepan::SetBoolSubSubcommand
+  unless defined?(HELP)
+    HELP = "Evaluate unrecognized debugger commands.
+
+Often inside the debugger, one would like to be able to run arbitrary
+Ruby commands without having to preface Python expressions with \"print\" or
+\"eval\". Setting \"auto eval\" on will cause unrecognized debugger
+commands to be eval'd as a Ruby expression. 
+
+Note that if this is set, on error the message shown on type a bad
+debugger command changes from:
+
+  Undefined command: \"fdafds\". Try \"help\".
+
+to something more Ruby-eval-specific such as:
+
+  NameError: name 'fdafds' is not defined
+
+One other thing that trips people up is when setting auto eval is that
+there are some short debugger commands that sometimes one wants to use
+as a variable, such as in an assignment statement. For example:
+
+  s = 5
+
+which produce when 'auto eval' is on:
+  *** Command 'step' can take at most 1 argument(s); got 2.
+
+because by default, 's' is an alias for the debugger 'step'
+command. It is possible to remove that alias if this causes constant
+problem. Another possibility is to go into a real Ruby shell via the
+'irb' command.
+"
+    MIN_ABBREV = 'ev'.size
+    NAME       = File.basename(__FILE__, '.rb')
+    PREFIX     = %W(set auto #{NAME})
+    SHORT_HELP = "Set evaluation of unrecognized debugger commands"
+  end
+
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../../mock'
+  require_relative '../auto'
+
+  cmd = MockDebugger::subsub_setup(Trepan::SubSubcommand::SetAuto,
+                                   Trepan::SubSubcommand::SetAutoEval)
+  cmd.run([cmd.name, 'off'])
+end

data/processor/command/set_subcmd/auto_subcmd/irb.rb

@@ -0,0 +1,34 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../../base/subsubcmd'
+
+class Trepan::Subcommand::SetAutoIrb < Trepan::SetBoolSubSubcommand
+  unless defined?(HELP)
+    HELP = "Set to automatically go into irb each time we enter the debugger"
+    MIN_ABBREV = 'ir'.size
+    NAME       = File.basename(__FILE__, '.rb')
+    PREFIX     = %w(set auto irb)
+  end
+
+  def run(args)
+    super
+    if @proc.settings[:autoirb]
+      @proc.cmdloop_prehooks.insert_if_new(-1, *@proc.autoirb_hook)
+    else
+      @proc.cmdloop_prehooks.delete_by_name('autoirb')
+    end
+  end
+
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../../mock'
+  require_relative '../auto'
+
+  cmd = MockDebugger::subsub_setup(Trepan::SubSubcommand::SetAuto,
+                                   Trepan::SubSubcommand::SetAutoIrb)
+  cmd.run([cmd.name, 'off'])
+  cmd.run([cmd.name, 'on'])
+end

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

@@ -0,0 +1,34 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../../base/subsubcmd'
+
+class Trepan::Subcommand::SetAutoList < Trepan::SetBoolSubSubcommand
+  unless defined?(HELP)
+    HELP = "Set to run a 'list' command each time we enter the debugger"
+    MIN_ABBREV = 'l'.size
+    NAME       = File.basename(__FILE__, '.rb')
+    PREFIX     = %w(set auto list)
+    SHORT_HELP = "Set running a 'list' command each time we enter the debugger"
+  end
+
+  def run(args)
+    super
+    if @proc.settings[:autolist]
+      @proc.cmdloop_prehooks.insert_if_new(10, *@proc.autolist_hook)
+    else
+      @proc.cmdloop_prehooks.delete_by_name('autolist')
+    end
+  end
+
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../../mock'
+  require_relative '../auto'
+  cmd = MockDebugger::subsub_setup(Trepan::SubSubcommand::SetAuto,
+                                   Trepan::SubSubcommand::SetAutoList)
+  cmd.run([cmd.name, 'off'])
+  cmd.run([cmd.name, 'on'])
+end

data/processor/command/set_subcmd/basename.rb

@@ -0,0 +1,25 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../base/subcmd'
+
+class Trepan::Subcommand::SetBasename < Trepan::SetBoolSubcommand
+  unless defined?(HELP)
+    HELP = "Set to show only file basename in showing file names"
+    IN_LIST    = true
+    MIN_ABBREV = 'ba'.size
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
+  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::SetBasename, 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/confirm.rb

@@ -0,0 +1,24 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2011 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../base/subcmd'
+
+class Trepan::Subcommand::SetConfirm < Trepan::SetBoolSubcommand
+  unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
+    HELP = "Set whether to confirm potentially dangerous operations."
+    IN_LIST    = true
+    MIN_ABBREV = 'co'.size
+  end
+end
+
+if __FILE__ == $0
+  # Demo it.
+  $0 = __FILE__ + 'notagain' # So we don't run this agin
+  require_relative '../../mock'
+  cmd = MockDebugger::sub_setup(Trepan::Subcommand::SetConfirm, 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/debug.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::SetDebug < Trepan::SubSubcommandMgr
+  unless defined?(HELP)
+    HELP   = 'Set internal debugger settings'
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
+  end
+end
+
+if __FILE__ == $0
+  require_relative '../../mock'
+  dbgr, cmd = MockDebugger::setup('set')
+  set_cmd = cmds['set']
+  # command = Trepan::SubSubcommand::SetAuto.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/debug_subcmd/dbgr.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::SetDebugDbgr < Trepan::SetBoolSubSubcommand
+  unless defined?(HELP)
+    HELP        = 'set debug dbgr [on|off]
+
+Facilitates debugging the debugger. Global variables $trepan_cmdproc
+and $trepan_frame are set to the current values of @frame and self
+when the command processor was entered.  '
+
+    MIN_ABBREV  = 'db'.size
+    NAME        = File.basename(__FILE__, '.rb')
+    PREFIX      = %W(set debug #{NAME})
+    SHORT_HELP  = 'Set debugging debugger'
+  end
+
+  def run(args)
+    super
+    @proc.cmdloop_prehooks.insert_if_new(-1, *@proc.debug_dbgr_hook)
+    @proc.debug_dbgr_hook[1].call
+  end
+
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../../mock'
+  require_relative '../debug'
+  cmd = MockDebugger::subsub_setup(Trepan::SubSubcommand::SetDebug,
+                                   Trepan::SubSubcommand::SetDebugDbgr)
+  cmd.run([cmd.name, 'off'])
+  cmd.run([cmd.name, 'on'])
+end

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

@@ -0,0 +1,23 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../../base/subsubcmd'
+
+class Trepan::SubSubcommand::SetDebugSkip < Trepan::SetBoolSubSubcommand
+  unless defined?(HELP)
+    HELP        = 'Set debugging of statement skip logic'
+    MIN_ABBREV  = 'sk'.size
+    NAME        = File.basename(__FILE__, '.rb')
+    PREFIX      = %W(set debug #{NAME})
+  end
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../../mock'
+  require_relative '../debug'
+  cmd = MockDebugger::subsub_setup(Trepan::SubSubcommand::SetDebug,
+                                   Trepan::SubSubcommand::SetDebugSkip)
+  cmd.run([cmd.name, 'off'])
+  cmd.run([cmd.name, 'on'])
+end

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

@@ -0,0 +1,23 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../../base/subsubcmd'
+
+class Trepan::SubSubcommand::SetDebugStep < Trepan::SetBoolSubSubcommand
+  unless defined?(HELP)
+    HELP        = 'Set debugging of statement step logic'
+    MIN_ABBREV  = 'st'.size
+    NAME        = File.basename(__FILE__, '.rb')
+    PREFIX      = %W(set debug #{NAME})
+  end
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../../mock'
+  require_relative '../debug'
+  cmd = MockDebugger::subsub_setup(Trepan::SubSubcommand::SetDebug,
+                                   Trepan::SubSubcommand::SetDebugStep)
+  cmd.run([cmd.name, 'off'])
+  cmd.run([cmd.name, 'on'])
+end

data/processor/command/set_subcmd/different.rb

@@ -0,0 +1,59 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../base/subcmd'
+
+class Trepan::Subcommand::SetDifferent < Trepan::SetBoolSubcommand
+  unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
+    HELP         = <<-EOH
+#{PREFIX.join(' ')} [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.
+    EOH
+
+    IN_LIST      = true
+    MIN_ABBREV   = 'dif'.size
+    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'
+  cmd = MockDebugger::sub_setup(Trepan::Subcommand::SetDifferent)
+  cmd.run(cmd.prefix + ['off'])
+  puts cmd.save_command
+end

data/processor/command/set_subcmd/hidelevel.rb

@@ -0,0 +1,62 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../base/subcmd'
+
+class Trepan::Subcommand::SetHidelevel < Trepan::Subcommand
+  unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
+    HELP         = <<-EOH
+#{PREFIX.join(' ')} [NUM]
+
+Hide this many stack frames from the bottom (or least-recent) frame.
+
+Often the bottom-most frames are setup frames that one doesn't think
+of as being part of one's program but are part of the overhead loading
+or debugging the program. As such generally they are unintersting in
+a backtrace command and one wants these omitted.
+
+If NUM is 0, no stack frames are hidden. If NUM is < 0 or omitted,
+then use value the program sets automatically. If the value is larger
+than the current number of entries in the stack, i.e. the stack shown
+would be otherwise be, empty then we show all entries, or take NUM to
+be 0.
+
+Examples:
+   #{PREFIX.join(' ')}     # Use the default value and hide 'uninteresting' ones
+   #{PREFIX.join(' ')} 0   # Show all stack entries, even from loading the program
+                     # or initial stack entries the debugger created to 
+                     # debug the program.
+   #{PREFIX.join(' ')} 1   # Hide only the bottom-most or least-recent stack frame.
+
+See also 'backtrace' and 'show hidelevel'. 
+.
+    EOH
+
+    IN_LIST      = true
+    MIN_ABBREV   = 'hide'.size
+    SHORT_HELP   = "Set the number of bottom frames to hide."
+  end
+
+  def run(args)
+    if args.size == 2
+      val = nil
+    else
+      val = @proc.get_an_int(args[2])
+      return unless val
+    end
+    @proc.hidelevels[@current_thread] = nil
+    @proc.settings[:hidelevel] = val
+    @proc.set_hide_level
+    @proc.run_command('show hidelevel')
+  end
+
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../mock'
+  cmd = MockDebugger::sub_setup(Trepan::Subcommand::SetHidelevel, false)
+  cmd.run(cmd.prefix + %w(10))
+  cmd.run(cmd.prefix)
+end