rb8-trepanning 0.1.3

data/processor/command/set_subcmd/.gitignore

@@ -0,0 +1 @@
+/*~

data/processor/command/set_subcmd/abbrev.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::SetAbbrev < Trepan::SetBoolSubcommand
+  unless defined?(HELP)
+    HELP = "Set to allow unique abbreviations of commands"
+    IN_LIST    = true
+    MIN_ABBREV = 'ab'.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::SetAbbrev, 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/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/.gitignore

@@ -0,0 +1 @@
+/*~

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

@@ -0,0 +1,53 @@
+# -*- 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)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
+    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
+    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,33 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../../base/subsubcmd'
+
+class Trepan::Subcommand::SetAutoIrb < Trepan::SetBoolSubSubcommand
+  unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
+    HELP = "Set to automatically go into irb each time we enter the debugger"
+    MIN_ABBREV = 'ir'.size
+  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,33 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../../base/subsubcmd'
+
+class Trepan::Subcommand::SetAutoList < Trepan::SetBoolSubSubcommand
+  unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
+    HELP = "Set to run a 'list' command each time we enter the debugger"
+    MIN_ABBREV = 'l'.size
+    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/callstyle.rb

@@ -0,0 +1,46 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2011 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../base/subcmd'
+
+class Trepan::Subcommand::SetCallstyle < Trepan::Subcommand
+  unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
+    MIN_ABBREV   = 'call'.size
+    MAX_ARGS     = 1
+    SHORT_HELP   = 'Set how you want call parameters displayed'
+    HELP         = <<-EOH
+#{CMD} {short|last|tracked}
+
+Set how you want call parameters displayed in a backtrace.
+    EOH
+  end
+
+  def complete(prefix)
+    Trepan::Complete.complete_token(%w(short last tracked), prefix)
+  end
+
+  def run(args)
+    arg = args[2].downcase.to_sym
+    case arg
+    when :short, :last, :tracked
+      settings[:callstyle] = arg
+      Debugger.track_frame_args = (arg == :tracked) ? true : false
+      @proc.commands['show'].run(%w(show callstyle))
+      return
+    else
+      errmsg "Invalid call style #{arg}. Should be one of: " +
+        "'short', 'last', or 'tracked'."
+    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::SetCallstyle, false)
+  %w(short last tracked).each do |arg|
+    cmd.run(cmd.prefix + [arg])
+  end
+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,47 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../base/subcmd'
+require_relative '../../../interface/script'
+
+class Trepan::Subcommand::SetDebug < Trepan::SetBoolSubcommand
+  unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
+    HELP         = <<-EOH
+#{PREFIX.join(' ')} [on|off|testing]
+    EOH
+
+    IN_LIST      = true
+    MIN_ABBREV   = 'deb'.size
+    SHORT_HELP   = "Set debugger testing."
+  end
+
+  completion %w(on off testing)
+
+  def run(args)
+    if args.size == 3 && 'testing' == args[2]
+      @proc.settings[:debuggertesting] = true
+      @proc.settings[:basename] = true
+      intf = @proc.intf
+      if intf.kind_of?(Trepan::ScriptInterface)
+        intf.opts[:verbose] = true
+        intf.opts[:basename] = true
+        intf.output = STDOUT
+        intf.opts[:abort_on_error] = false
+      end
+      msg("debugger testing is on.")
+    else
+      super
+    end
+  end
+
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../mock'
+  cmd = MockDebugger::sub_setup(Trepan::Subcommand::SetDebug)
+  cmd.run(cmd.prefix + ['off'])
+  cmd.run(cmd.prefix + ['testing'])
+  puts cmd.save_command
+end

data/processor/command/set_subcmd/different.rb

@@ -0,0 +1,61 @@
+# -*- 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)
+    SHORT_HELP   = "Make sure 'next/step' moves to a new line number"
+    HELP         = <<-EOH
+#{PREFIX.join(' ')} [on|off|nostack]
+
+Make sure 'next/step' moves to a new line number.
+
+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
+  end
+
+  completion %w(on off nostack)
+
+  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/highlight.rb

@@ -0,0 +1,43 @@
+# -*- 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 = 'hi'.size
+  end
+
+  def complete(prefix)
+    Trepan::Complete.complete_token(%w(on off reset), prefix)
+  end
+
+  def run(args)
+    if LineCache.respond_to?(:clear_file_format_cache)
+      if args.size == 3 && 'reset' == args[2]
+        LineCache::clear_file_format_cache
+        @proc.settings[:highlight] = :term 
+      else
+        super
+        @proc.settings[:highlight] = :term if @proc.settings[:highlight]
+      end
+    else
+      errmsg "Your version of LineCache doesn't support terminal highlight"
+      @proc.settings[:highlight] = nil
+    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/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