trepanning 0.1.0 → 0.1.1

data/processor/command/reload_subcmd/.gitignore

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

data/processor/command/restart.rb

@@ -1,5 +1,5 @@
 # -*- coding: utf-8 -*-
-# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
 require_relative 'base/cmd'
 require_relative '../../app/run'
 class Trepan::Command::RestartCommand < Trepan::Command
@@ -25,19 +25,19 @@ new copy of the debugger is used.
     dbgr = @proc.dbgr
     argv = dbgr.restart_argv
     if argv and argv.size > 0
-      # unless File.executable?(argv[0])
-      #   msg(["File #{argv[0]} not executable.",
-      #        "Adding Ruby interpreter."])
-      #   argv.unshift Trepanning::ruby_path
-      # end
       @proc.run_cmd(%w(show args))
       if not confirm('Restart (exec)?', false)
         msg "Restart not confirmed"
       else
-        msg 'Restarting...'
-        @proc.run_cmd(%w(save))
-        # FIXME: Run atexit finalize routines?
+        if defined?(Trepan::PROG_UNRESOLVED_SCRIPT) &&
+            position = argv.index(Trepan::PROG_UNRESOLVED_SCRIPT)
+          save_filename = @proc.save_commands(:erase =>true)
+          argv.insert(position, '--command', save_filename) if save_filename
+        end
         Dir.chdir(RubyVM::OS_STARTUP_DIR)
+        msg 'Restarting using...'
+        msg "\t #{argv.inspect}"
+        @proc.finalize
         exec(*argv)
       end
     else

data/processor/command/save.rb

@@ -1,12 +1,12 @@
-# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
-require 'tmpdir'
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
 require_relative 'base/cmd'
 class Trepan::Command::SaveCommand < Trepan::Command
 
   unless defined?(HELP)
     NAME = File.basename(__FILE__, '.rb')
     HELP = <<-HELP
-#{NAME} [filename]
+#{NAME} [--[no-]erase] [--output|-o FILENAME]
 
 Save settings to file FILENAME. If FILENAME not given one will be made
 selected.
@@ -15,49 +15,42 @@ selected.
     CATEGORY     = 'running'
     MAX_ARGS     = 1  # Need at most this many
     SHORT_HELP  = 'Send debugger state to a file'
+
+    DEFAULT_OPTIONS = { :erase => true, }
   end
     
-  # This method runs the command
-  def run(args)
-    save_filename = 
-      if args.size > 1
-        args[1]
-      else
-        @proc.settings[:save_cmdfile] ||
-          File.join(Dir.tmpdir, 
-                    Dir::Tmpname.make_tmpname(['trepanning-save', '.txt'], nil))
+  def parse_options(options, args) # :nodoc
+    parser = OptionParser.new do |opts|
+      opts.on("-e", "--[no-]erase", 
+              "Add line to erase after reading") do
+        |v| 
+        options[:erase] = v
       end
-    begin
-      save_file = File.open(save_filename, 'w')
-    rescue => exc
-      errmsg("Can't open #{save_filename} for writing.")
-      errmsg("System reports: #{exc.inspect}")
-      return
-    end
-    save_file.puts "#\n# Commands to restore trepanning environment\n#\n"
-    @proc.commands.each do |cmd_name, cmd_obj|
-      cmd_obj.save_command if cmd_obj.respond_to?(:save_command)
-      next unless cmd_obj.is_a?(Trepan::SubcommandMgr)
-      cmd_obj.subcmds.subcmds.each do |subcmd_name, subcmd_obj|
-        save_file.puts subcmd_obj.save_command if 
-          subcmd_obj.respond_to?(:save_command)
-        next unless subcmd_obj.is_a?(Trepan::SubSubcommandMgr)
-        subcmd_obj.subcmds.subcmds.each do |subsubcmd_name, subsubcmd_obj|
-        save_file.puts subsubcmd_obj.save_command if 
-            subsubcmd_obj.respond_to?(:save_command)
-        end
+      opts.on("-o", "--output FILE", String, 
+              "Save file to FILE. ") do 
+        |filename|
+        options[:filename] = filename
       end
     end
-    save_file.close
-    msg "Debugger commands written to file: #{save_file.to_path}"
+    parser.parse(args)
+    return options
+  end
+
+  # This method runs the command
+  def run(args)
+    options = parse_options(DEFAULT_OPTIONS.dup, args[1..-1])
+    save_filename = @proc.save_commands(options)
+    msg "Debugger commands written to file: #{save_filename}" if
+      save_filename
   end
 end
 
 if __FILE__ == $0
   require_relative '../mock'
   dbgr, cmd = MockDebugger::setup
-  require 'tmpdir'
-  cmd.run([cmd.name, Dir.tmpdir])
   cmd.run([cmd.name])
-  cmd.run([cmd.name, File.join(Dir.tmpdir, 'save_file.txt')])
+  # require_relative '../../lib/trepanning'; debugger
+  cmd.run([cmd.name, '--erase', 
+           '--output', File.join(Dir.tmpdir, 'save_file.txt')])
+  # A good test would be to see we can read in those files without error.
 end

data/processor/command/set_subcmd/.gitignore

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

data/processor/command/set_subcmd/auto_subcmd/.gitignore

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

data/processor/command/set_subcmd/confirm.rb

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

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

data/processor/command/set_subcmd/different.rb

@@ -36,6 +36,8 @@ override this setting."
     SHORT_HELP   = "Set to make sure 'next/step' move to a new position."
   end
 
+  completion %w(on off nostack)
+
   def run(args)
     if args.size == 3 && 'nostack' == args[2]
       @proc.settings[:different] = 'nostack'

data/processor/command/set_subcmd/events.rb

@@ -25,6 +25,8 @@ Examples:
     SHORT_HELP   = 'Set trace events we may stop on.'
   end
 
+  completion Trace.const_get("EVENTS").map{|event| event.to_s}
+
   def save_command
     step_events_list = @proc.core.step_events_list
     step_events_list = 'brkpt' unless step_events_list

data/processor/command/set_subcmd/max.rb

@@ -18,17 +18,14 @@ class Trepan::SubSubcommand::SetMax < Trepan::SubSubcommandMgr
 end
 
 if __FILE__ == $0
+  # Demo it.
   require_relative '../../mock'
-  dbgr, cmd = MockDebugger::setup('set')
-  cmds = dbgr.core.processor.commands
-  set_cmd = cmds['set']
-  command = Trepan::SubSubcommand::SetMax.new(dbgr.core.processor, 
-                                              set_cmd)
-  name = File.basename(__FILE__, '.rb')
-  cmd_args = ['set', name]
-  set_cmd.instance_variable_set('@last_args', cmd_args)
-  command.run(cmd_args)
-  require_relative '../../../lib/trepanning'
-  # Trepan.debug
-  command.run(['set', name, 'string', 30])
+  dbgr, parent_cmd = MockDebugger::setup('set', false)
+  cmd              = Trepan::SubSubcommand::SetMax.new(dbgr.core.processor, 
+                                                       parent_cmd)
+  cmd.run(cmd.prefix + ['string', '30'])
+
+  %w(s lis foo).each do |prefix|
+    p [prefix, cmd.complete(prefix)]
+  end
 end

data/processor/command/set_subcmd/max_subcmd/.gitignore

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

data/processor/command/set_subcmd/substitute_subcmd/.gitignore

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

data/processor/command/set_subcmd/trace.rb

@@ -24,19 +24,13 @@ end
 if __FILE__ == $0
   # Demo it.
   require_relative '../../mock'
-  require_relative '../../subcmd'
-  require_relative '../../hook'
-  name = File.basename(__FILE__, '.rb')
-
-  # FIXME: DRY the below code
-  dbgr, set_cmd = MockDebugger::setup('set')
-  command = Trepan::SubSubcommand::SetTrace.new(dbgr.core.processor,
-                                                  set_cmd)
-  name = File.basename(__FILE__, '.rb')
-  cmd_args = ['set', name]
-  set_cmd.instance_variable_set('@last_args', cmd_args)
+  dbgr, cmd = MockDebugger::setup('set')
+  cmds = dbgr.core.processor.commands
+  set_cmd = cmds['set']
+  command = Trepan::SubSubcommand::SetTrace.new(dbgr.core.processor, 
+                                               set_cmd)
+  set_cmd.instance_variable_set('@last_args', command.class.const_get('CMD'))
   # require_relative '../../../lib/trepanning'
   # Trepan.debug
-  command.run(cmd_args)
-  command.run(['set', name, '*'])
+  command.run(command.class.const_get('PREFIX'))
 end

data/processor/command/set_subcmd/trace_subcmd/.gitignore

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

data/processor/command/set_subcmd/trace_subcmd/buffer.rb

@@ -1,17 +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/subsubcmd'
 require_relative '../trace'
 class Trepan::SubSubcommand::SetTraceBuffer < Trepan::SetBoolSubSubcommand
+  Trepanning::SubSubcommand.set_name_prefix(__FILE__, self)
   unless defined?(HELP)
-    HELP         = 
-"set trace buffer [on|off|1|0]
+    HELP         = <<-EOH
+#{CMD} [on|off|1|0]
 
 Set saving trace events in a buffer
-"
+    EOH
     MIN_ABBREV   = 'b'.size  
-    NAME         = File.basename(__FILE__, '.rb')
-    PREFIX       = %w(set trace buffer)
     SHORT_HELP   = 'Set saving trace events in a buffer'
   end
 
@@ -31,26 +30,12 @@ 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')
-  trace_cmd     = Trepan::SubSubcommand::SetTrace.new(dbgr.core.processor, 
-                                                      set_cmd)
-
-  # FIXME: remove the 'join' below
-  cmd_name      = Trepan::SubSubcommand::SetTraceBuffer::PREFIX.join('')
-  subcmd        = Trepan::SubSubcommand::SetTraceBuffer.new(set_cmd.proc, 
-                                                            trace_cmd,
-                                                            cmd_name)
-  # require_relative '../../../../lib/trepanning'
-  # dbgr = Trepan.new
-  # dbgr.debugger
-
-  subcmd.run([cmd_name])
-  %w(off on 1 0).each { |arg| subcmd.run([cmd_name, arg]) }
-  puts subcmd.save_command()
-
+  require_relative '../trace'
+  cmd = MockDebugger::subsub_setup(Trepan::SubSubcommand::SetTrace,
+                                   Trepan::SubSubcommand::SetTraceBuffer)
+  %w(off on 1 0).each do |arg|
+      cmd.run([cmd.name, arg])
+  end
+  puts cmd.save_command()
 end
 

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

@@ -1,17 +1,17 @@
 # -*- 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 '../trace'
 class Trepan::SubSubcommand::SetTracePrint < Trepan::SetBoolSubSubcommand
+  Trepanning::SubSubcommand.set_name_prefix(__FILE__, self)
   unless defined?(HELP)
-    HELP         = 
-"set trace print [on|off|1|0]
+    HELP         = <<-EOH
+"#{CMD} [on|off|1|0]
 
-Set printing trace events."
+Set printing trace events.
+    EOH
 
     MIN_ABBREV   = 'p'.size  
-    NAME         = File.basename(__FILE__, '.rb')
-    PREFIX       = %w(set trace print)
     SHORT_HELP   = 'Set print trace events'
   end
 
@@ -32,7 +32,9 @@ if __FILE__ == $0
   require_relative '../trace'
   cmd = MockDebugger::subsub_setup(Trepan::SubSubcommand::SetTrace,
                                    Trepan::SubSubcommand::SetTracePrint)
-  %w(off on 0 1).each { |arg| cmd.run([cmd.name, arg]) }
-  puts '-' * 10
+  %w(off on 1 0).each do |arg|
+      cmd.run([cmd.name, arg])
+  end
+  puts cmd.save_command()
 end
 

data/processor/command/set_subcmd/trace_subcmd/var.rb

@@ -1,22 +1,22 @@
 # -*- 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 '../trace'
 class Trepan::SubSubcommand::SetTraceVar < Trepan::SubSubcommand
+  Trepanning::SubSubcommand.set_name_prefix(__FILE__, self)
   unless defined?(HELP)
-    HELP         = 
-"set trace var GLOBAL_VARIABLE
+    HELP         = <<-EOH
+#{CMD} var GLOBAL_VARIABLE
 
 The debugger calls 'trace_var' to trace changes to the value of
 GLOBAL_VARIABLE.  Note in contrast to other events, stopping for
 variable tracing occurs *after* the event, not before.
 
-See also 'set events'."
+See also 'set events'.
+    EOH
 
     MIN_ABBREV   = 'v'.size  
-    NAME         = File.basename(__FILE__, '.rb')
     SHORT_HELP   = "Set to display trace a global variable."
-    PREFIX       = %w(set trace var)
   end
 
   def run(args)
@@ -39,7 +39,6 @@ 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')
@@ -54,8 +53,5 @@ if __FILE__ == $0
   # dbgr = Trepan.new
   # dbgr.debugger
   eval('set_cmd.proc.frame_setup(RubyVM::ThreadFrame::current); setx_cmd.run([])')
-
-  # name = File.basename(__FILE__, '.rb')
-  # subcommand.summary_help(name)
 end
 

data/processor/command/show.rb

@@ -1,5 +1,5 @@
 # -*- coding: utf-8 -*-
-# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
 require_relative 'base/submgr'
 
 class Trepan::Command::ShowCommand < Trepan::SubcommandMgr
@@ -18,6 +18,17 @@ Type "help #{NAME} *" for just a list of "#{NAME}" subcommands.
     NEED_STACK    = false
     SHORT_HELP    = 'Show parts of the debugger environment'
   end
+
+  def run(args)
+    if args.size > 1 
+      first = args[1].downcase
+      alen = 'auto'.size
+      args[1..1] = ['auto', first[alen..-1]] if
+        first.start_with?('auto') && first.size > alen
+    end
+    super
+  end
+
 end
 
 if __FILE__ == $0

data/processor/command/show_subcmd/.gitignore

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

data/processor/command/show_subcmd/alias.rb

@@ -3,17 +3,22 @@
 require_relative '../base/subcmd'
 
 class Trepan::Subcommand::ShowAlias < Trepan::Subcommand
+  Trepanning::Subcommand.set_name_prefix(__FILE__, self)
   unless defined?(HELP)
-    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
-    HELP = "show alias [NAME1 NAME2 ...] 
+    HELP         = <<-EOH
+#{CMD} [NAME1 NAME2 ...] 
 
 If aliases names are given, show their definition. If left blank, show
-all alias names"
-
+all alias names
+    EOH
     MIN_ABBREV = 'al'.size
     SHORT_HELP = "Show defined aliases"
   end
 
+  def complete(prefix)
+    Trepan::Complete.complete_token(@proc.aliases.keys, prefix)
+  end
+
   def run(args)
     if args.size > 2
       args[2..-1].each do |alias_name|
@@ -35,15 +40,6 @@ end
 if __FILE__ == $0
   # Demo it.
   require_relative '../../mock'
-  name = File.basename(__FILE__, '.rb')
-
-  # FIXME: DRY the below code
-  dbgr, cmd = MockDebugger::setup('show')
-  subcommand = Trepan::Subcommand::ShowAlias.new(cmd)
-
-  name = File.basename(__FILE__, '.rb')
-  subcommand.summary_help(name)
-  puts 
-  subcommand.run(%W(show #{name}))
-  subcommand.run(%w(show #{name} u foo))
+  cmd = MockDebugger::sub_setup(Trepan::Subcommand::ShowAlias)
+  cmd.run(cmd.prefix + %w(u foo))
 end