trepanning 0.0.9 → 0.1.0

data/processor/command/set_subcmd/hidelevel.rb

@@ -1,11 +1,12 @@
 # -*- coding: utf-8 -*-
-# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
 require_relative '../base/subcmd'
 
 class Trepan::Subcommand::SetHidelevel < Trepan::Subcommand
   unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
     HELP = "
-set hidelevel [NUM]
+#{PREFIX.join(' ')} [NUM]
 
 Hide this many stack frames from the bottom (or least-recent) frame.
 
@@ -21,19 +22,17 @@ would be otherwise be, empty then we show all entries, or take NUM to
 be 0.
 
 Examples:
-   set hidelevel     # Use the default value and hide 'uninteresting' ones
-   set hidelevel 0   # Show all stack entries, even from loading the program
+   #{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.
-   set hidelevel 1   # Hide only the bottom-most or least-recent stack frame.
+   #{PREFIX.join(' ')} 1   # Hide only the bottom-most or least-recent stack frame.
 
 See also 'backtrace' and 'show hidelevel'. 
 ."
 
     IN_LIST      = true
     MIN_ABBREV   = 'hide'.size
-    NAME         = File.basename(__FILE__, '.rb')
-    PREFIX       = %W(set #{NAME})
     SHORT_HELP   = "Set the number of bottom frames to hide."
   end
 

data/processor/command/set_subcmd/highlight.rb

@@ -0,0 +1,32 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
+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 highlight 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/max.rb

@@ -1,13 +1,12 @@
 # -*- coding: utf-8 -*-
-# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
 require_relative '../base/subsubcmd'
 require_relative '../base/subsubmgr'
 
 class Trepan::SubSubcommand::SetMax < Trepan::SubSubcommandMgr
   unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
     HELP   = 'Set maximum length for things which may have unbounded size'
-    NAME   = File.basename(__FILE__, '.rb')
-    PREFIX = %w(set max)
   end
 
   # def run(args)

data/processor/command/set_subcmd/return.rb

@@ -1,15 +1,14 @@
 # -*- coding: utf-8 -*-
-# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
 require_relative '../base/subcmd'
 require_relative '../../../app/frame'
 
 class Trepan::Subcommand::SetReturn < Trepan::Subcommand
   unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
     HELP         = 'Set the value that will be returned in the current method'
     IN_LIST      = true
     MIN_ABBREV   = 'ret'.size
-    NAME         = File.basename(__FILE__, '.rb')
-    PREFIX       = %w(set return)
   end
 
   include Trepan::Frame

data/processor/command/set_subcmd/sp.rb

@@ -1,14 +1,13 @@
 # -*- coding: utf-8 -*-
-# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
 require_relative '../base/subcmd'
 
 class Trepan::Subcommand::SetSp < Trepan::Subcommand
   unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
     HELP         = 'Set a stack pointer register'
     IN_LIST      = true
     MIN_ABBREV   = 'sp'.size
-    NAME         = File.basename(__FILE__, '.rb')
-    PREFIX       = %w(set sp)
   end
 
   def run(args)

data/processor/command/set_subcmd/substitute.rb

@@ -1,13 +1,12 @@
 # -*- coding: utf-8 -*-
-# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
 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'
-    NAME   = File.basename(__FILE__, '.rb')
-    PREFIX = %w(set substitute)
   end
 end
 

data/processor/command/set_subcmd/timer.rb

@@ -1,9 +1,10 @@
 # -*- coding: utf-8 -*-
-# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
 require_relative '../base/subsubcmd'
 
 class Trepan::Subcommand::SetTimer < Trepan::SetBoolSubcommand
   unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
     HELP = "set timer [on|off|0|1]
 
 Tracks and shows elapsed time between debugger events.
@@ -26,8 +27,6 @@ See also: 'set events', 'set trace buffer', 'step', and 'break'.
 "
 
     MIN_ABBREV = 'ti'.size
-    NAME       = File.basename(__FILE__, '.rb')
-    PREFIX     = %w(set timer)
     SHORT_HELP = "Set to show elapsed time between debugger events"
   end
 

data/processor/command/set_subcmd/trace.rb

@@ -1,22 +1,21 @@
 # -*- coding: utf-8 -*-
-# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
 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 set trace *' or a list of subcommands or 'help set trace
+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
-    NAME       = File.basename(__FILE__, '.rb')
-    PREFIX     = %w(set trace)
     SHORT_HELP = 'Set tracing of various sorts.'
   end
 

data/processor/command/show_subcmd/alias.rb

@@ -1,16 +1,16 @@
 # -*- coding: utf-8 -*-
-# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
 require_relative '../base/subcmd'
 
 class Trepan::Subcommand::ShowAlias < Trepan::Subcommand
   unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
     HELP = "show alias [NAME1 NAME2 ...] 
 
 If aliases names are given, show their definition. If left blank, show
 all alias names"
 
     MIN_ABBREV = 'al'.size
-    NAME   = File.basename(__FILE__, '.rb')
     SHORT_HELP = "Show defined aliases"
   end
 
@@ -26,7 +26,7 @@ all alias names"
     elsif @proc.aliases.empty?
       msg "No aliases defined."
     else
-      msg "List of aliases names currently defined:"
+      section "List of aliases names currently defined:"
       msg columnize_commands(@proc.aliases.keys.sort)
     end
   end

data/processor/command/show_subcmd/args.rb

@@ -1,13 +1,12 @@
 # -*- coding: utf-8 -*-
-# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
 require_relative '../base/subcmd'
 
 class Trepan::Subcommand::ShowArgs < Trepan::Subcommand
   unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
     HELP = 'Show argument list to give program when it is restarted'
     MIN_ABBREV   = 'ar'.size
-    NAME         = File.basename(__FILE__, '.rb')
-    PREFIX       = %W(show #{NAME})
   end
 
   def run(args)

data/processor/command/show_subcmd/auto.rb

@@ -5,9 +5,8 @@ require_relative '../base/subsubmgr'
 
 class Trepan::SubSubcommand::ShowAuto < Trepan::SubSubcommandMgr
   unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
     HELP   = 'Show settings which some sort of "automatic" default behavior'
-    NAME   = File.basename(__FILE__, '.rb')
-    PREFIX = %W(show #{NAME})
     MIN_ABBREV = 'au'.size
   end
 end

data/processor/command/show_subcmd/basename.rb

@@ -1,13 +1,12 @@
 # -*- coding: utf-8 -*-
-# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
 require_relative '../base/subcmd'
 
 class Trepan::Subcommand::ShowBasename < Trepan::ShowBoolSubcommand
   unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
     HELP       = "Show only file basename in showing file names"
     MIN_ABBREV = 'ba'.size
-    NAME       = File.basename(__FILE__, '.rb')
-    PREFIX     = %W(show #{NAME})
   end
 
 end

data/processor/command/show_subcmd/debug.rb

@@ -5,9 +5,8 @@ require_relative '../base/subsubmgr'
 
 class Trepan::SubSubcommand::ShowDebug < Trepan::SubSubcommandMgr
   unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
     HELP   = 'Show internal debugger settings.'
-    NAME   = File.basename(__FILE__, '.rb')
-    PREFIX = %W(show #{NAME})
     MIN_ABBREV = 'de'.size
   end
 end

data/processor/command/show_subcmd/different.rb

@@ -1,9 +1,10 @@
 # -*- coding: utf-8 -*-
-# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
 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

data/processor/command/show_subcmd/events.rb

@@ -1,12 +1,12 @@
 # -*- coding: utf-8 -*-
-# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
 require_relative '../base/subcmd'
 
 class Trepan::Subcommand::ShowEvents < Trepan::Subcommand
   unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
     HELP         = 'Show trace events we may stop on.'
     MIN_ABBREV   = 'ev'.size
-    NAME         = File.basename(__FILE__, '.rb')
   end
 
   # FIXME: this really should be a subcommand of "set trace"

data/processor/command/show_subcmd/hidelevel.rb

@@ -1,13 +1,12 @@
 # -*- coding: utf-8 -*-
-# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
 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
-    NAME         = File.basename(__FILE__, '.rb')
-    PREFIX       = %w(show hidelevel)
   end
   def run(args)
     if @proc.settings[:hidelevel]

data/processor/command/show_subcmd/highlight.rb

@@ -0,0 +1,23 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2011 Rocky Bernstein <rockyb@rubyforge.net>
+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 highlight 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/macro.rb

@@ -1,9 +1,10 @@
 # -*- coding: utf-8 -*-
-# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
 require_relative '../base/subcmd'
 
 class Trepan::Subcommand::ShowMacro < Trepan::Subcommand
   unless defined?(HELP)
+    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
     HELP = "Show defined macros"
     MIN_ABBREV = 'ma'.size
   end

data/processor/command/show_subcmd/max.rb

@@ -1,13 +1,12 @@
 # -*- coding: utf-8 -*-
-# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
 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'
-    NAME   = File.basename(__FILE__, '.rb')
-    PREFIX = %W(show #{NAME})
     MIN_ABBREV = NAME.size
   end
 

data/processor/command/show_subcmd/trace.rb

@@ -1,14 +1,13 @@
 # -*- coding: utf-8 -*-
-# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
 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"
-    NAME       = File.basename(__FILE__, '.rb')
-    PREFIX     = %W(show #{NAME})
     MIN_ABBREV = 'tr'.size
     SHORT_HELP = HELP
   end

data/processor/command/source.rb

@@ -1,54 +1,95 @@
 # -*- coding: utf-8 -*-
-# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
+require 'optparse'
 
 # Our local modules
 require_relative 'base/cmd'
 require_relative '../../interface/script'
-# Mfile     = import_relative('file', '...lib', 'pydbgr')
+require_relative '../../io/null_output'
+require_relative '../../app/default'
 
 class Trepan::Command::SourceCommand < Trepan::Command
+  include Trepanning
   unless defined?(HELP)
-    NAME         = File.basename(__FILE__, '.rb')
+    NAME = File.basename(__FILE__, '.rb')
     HELP = <<-HELP
-#{NAME} [-v][-Y|-N][-c][q] FILE
+#{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
-(before the filename) 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'.
+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 '.pydbgrc' is read automatically
+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 is given.
+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 run(args)
-    verbose = false
-    parms   = args[1..-1]
-    opts    = {}
-    intf = @proc.dbgr.intf
-    output  = intf[-1].output
-    parms.each do |arg|
-      case arg
-      when '-v'
-        opts[:verbose]        = true
-      when '-Y'
-        opts[:confirm_val]    = true
-      when '-N'
-        opts[:confirm_val]    = false
-      when '-c'
-        opts[:abort_on_error] = false
-      when '-q'
-        output = Trepan::OutputNull.new(nil)
+  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]
     
@@ -59,7 +100,7 @@ unless option -c is given.
     end
     
     # Push a new debugger interface.
-    script_intf = Trepan::ScriptInterface.new(expanded_file, output, opts)
+    script_intf = Trepan::ScriptInterface.new(expanded_file, output, options)
     intf << script_intf
     return false
   end
@@ -69,6 +110,15 @@ end
 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])