rbx-trepanning 0.0.2-universal-rubinius-1.2

data/processor/command/set_subcmd/substitute.rb

@@ -0,0 +1,25 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../base/subsubcmd'
+require_relative '../base/subsubmgr'
+
+class Trepan::SubSubcommand::SetSubstitute < Trepan::SubSubcommandMgr
+  unless defined?(HELP)
+    HELP   = 'Set instruction sequence-to-filename mapping'
+    NAME   = File.basename(__FILE__, '.rb')
+    PREFIX = %W(set #{NAME})
+  end
+end
+
+if __FILE__ == $0
+  require_relative '../../mock'
+  dbgr, set_cmd = MockDebugger::setup('set')
+  command = Trepan::SubSubcommand::SetSubstitute.new(dbgr.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/substitute_subcmd/path.rb

@@ -0,0 +1,56 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../../base/subsubcmd'
+require_relative '../substitute'
+
+class Trepan::SubSubcommand::SetSubstitutePath < Trepan::SubSubcommand
+  unless defined?(HELP)
+    HELP         = 
+'Add a substitution rule replacing FROM into TO in source file names.
+If a substitution rule was previously set for FROM, the old rule
+is replaced by the new one.'
+    MIN_ABBREV   = 'fi'.size  
+    MAX_ARGS     = 2
+    NAME         = File.basename(__FILE__, '.rb')
+    SHORT_HELP   = 'Use PATH in place of an filename'
+    PREFIX       = %w(set substitute path)
+  end
+
+  def run(args)
+    if args.size != 3
+      errmsg "This command needs 2 arguments, got #{args.size-1}."
+      return
+    end
+    from_path = args[1]
+    to_path   = args[2]
+    # FIXME Check from_path name to see if it is loaded
+    if File.exist?(to_path)
+      LineCache::remap_file(from_path, to_path)
+    else
+      errmsg "File #{to_path} doesn't exist"
+    end
+  end
+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')
+  testcmdMgr = Trepan::Subcmd.new(set_cmd)
+  cmd_name   = Trepan::SubSubcommand::SetSubstitutePath::PREFIX.join('')
+  setx_cmd   = Trepan::SubSubcommand::SetSubstitutePath.new(set_cmd.proc, 
+                                                            set_cmd,
+                                                            cmd_name)
+  # require_relative '../../../../lib/trepanning'
+  # dbgr = Trepan.new(:set_restart => true)
+  # dbgr.debugger
+  setx_cmd.run([])
+
+  # name = File.basename(__FILE__, '.rb')
+  # subcommand.summary_help(name)
+end

data/processor/command/set_subcmd/trace.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'
+require_relative '../base/subsubmgr'
+
+class Trepan::SubSubcommand::SetTrace < Trepan::SubSubcommandMgr 
+  unless defined?(HELP)
+    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
+<name>' for help on a particular trace subcommand."
+
+    IN_LIST    = true
+    MIN_ABBREV = 'tr'.size
+    NAME       = File.basename(__FILE__, '.rb')
+    PREFIX     = %W(set #{NAME})
+    SHORT_HELP = 'Set tracing of various sorts.'
+  end
+
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../mock'
+  cmd_ary          = Trepan::SubSubcommand::SetTrace::PREFIX
+  dbgr, parent_cmd = MockDebugger::setup(cmd_ary[0], false)
+  command = Trepan::SubSubcommand::SetTrace.new(dbgr.processor, 
+                                                parent_cmd)
+  # require_relative '../../../lib/trepanning'
+  # Trepan.debug(:set_restart => true)
+  command.run(cmd_ary)
+  command.run(['set', command.name, 'print'])
+end

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

@@ -0,0 +1,57 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../../base/subsubcmd'
+require_relative '../trace'
+class Trepan::SubSubcommand::SetTracePrint < Trepan::SetBoolSubSubcommand
+  unless defined?(HELP)
+    HELP         = 
+"set trace print [on|off|1|0]
+
+Set printing trace events."
+
+    MIN_ABBREV   = 'p'.size  
+    NAME         = File.basename(__FILE__, '.rb')
+    PREFIX       = %w(set trace print)
+    SHORT_HELP   = 'Set print trace events'
+  end
+
+  def run(args)
+    super
+    if settings[:traceprint]
+      @proc.unconditional_prehooks.insert_if_new(-1, *@proc.trace_hook)
+    else
+      @proc.unconditional_prehooks.delete_by_name('trace')
+    end
+  end
+
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../../mock'
+  require_relative '../../../subcmd'
+  name = File.basename(__FILE__, '.rb')
+
+  # FIXME: DRY the below code
+  cmd_ary          = Trepan::SubSubcommand::SetTracePrint::PREFIX
+  dbgr, parent_cmd = MockDebugger::setup(cmd_ary[0], false)
+  trace_cmd        = Trepan::SubSubcommand::SetTrace.new(dbgr.processor, 
+                                                         parent_cmd)
+  cmd_name      = cmd_ary.join('')
+  subcmd        = Trepan::SubSubcommand::SetTracePrint.new(parent_cmd.proc, 
+                                                           trace_cmd,
+                                                           cmd_name)
+  prefix_run = cmd_ary[2..-1]
+  # require_relative '../../../../lib/trepanning'
+  # dbgr = Trepan.new(:set_restart => true)
+  # dbgr.debugger
+
+  subcmd.run(prefix_run)
+  %w(off on 1 0).each { |arg| subcmd.run(prefix_run + [arg]) }
+  puts
+  puts '-' * 20
+  puts subcmd.save_command()
+
+end
+

data/processor/command/show.rb

@@ -0,0 +1,27 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative 'base/submgr'
+
+class Trepan::Command::ShowCommand < Trepan::SubcommandMgr
+  unless defined?(HELP)
+    HELP =
+'Generic command for showing things about the debugger.  You can
+give unique prefix of the name of a subcommand to get information
+about just that subcommand.
+
+Type "show" for a list of "show" subcommands and what they do.
+Type "help show *" for just a list of "show" subcommands.'
+
+    CATEGORY      = 'status'
+    NAME          = File.basename(__FILE__, '.rb')
+    NEED_STACK    = false
+    SHORT_HELP    = 'Show parts of the debugger environment'
+  end
+end
+
+if __FILE__ == $0
+  require_relative '../mock'
+  dbgr, cmd = MockDebugger::setup
+  cmd.run([cmd.name])
+end

data/processor/command/show_subcmd/alias.rb

@@ -0,0 +1,43 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../base/subcmd'
+
+class Trepan::Subcommand::ShowAlias < Trepan::Subcommand
+    NAME       = File.basename(__FILE__, '.rb')
+  unless defined?(HELP)
+    HELP         = <<-EOH
+show #{NAME} [NAME1 NAME2 ...] 
+
+If aliases names are given, show their definition. If left blank, show
+all alias names
+    EOH
+    MIN_ABBREV = 'al'.size
+    PREFIX     = %W(show #{NAME})
+    SHORT_HELP = "Show defined aliases"
+  end
+
+  def run(args)
+    if args.size > 2
+      args[2..-1].each do |alias_name|
+        if @proc.aliases.member?(alias_name)
+          msg "%s: %s" % [alias_name, @proc.aliases[alias_name]]
+        else
+          msg "%s is not a defined alias" % alias_name
+        end
+      end
+    elsif @proc.aliases.empty?
+      msg "No aliases defined."
+    else
+      msg "List of aliases names currently defined:"
+      msg columnize_commands(@proc.aliases.keys.sort)
+    end
+  end
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../mock'
+  cmd = MockDebugger::sub_setup(Trepan::Subcommand::ShowAlias)
+  cmd.run(cmd.prefix + %w(u foo))
+end

data/processor/command/show_subcmd/args.rb

@@ -0,0 +1,26 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../base/subcmd'
+
+class Trepan::Subcommand::ShowArgs < Trepan::Subcommand
+  unless defined?(HELP)
+    NAME         = File.basename(__FILE__, '.rb')
+    HELP = 'Show argument list to give program when it is restarted'
+    MIN_ABBREV   = 'ar'.size
+    PREFIX       = %W(show #{NAME})
+  end
+
+  def run(args)
+    dbgr = @proc.dbgr
+    msg "Restart directory: #{Rubinius::OS_STARTUP_DIR}"
+    msg "Restart args:\n\t#{dbgr.restart_argv.inspect}"
+  end
+    
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../mock'
+  cmd = MockDebugger::sub_setup(Trepan::Subcommand::ShowArgs)
+end

data/processor/command/show_subcmd/auto.rb

@@ -0,0 +1,28 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../base/subsubcmd'
+require_relative '../base/subsubmgr'
+
+class Trepan::SubSubcommand::ShowAuto < Trepan::SubSubcommandMgr
+  unless defined?(HELP)
+    HELP   = 'Show settings which some sort of "automatic" default behavior'
+    NAME   = File.basename(__FILE__, '.rb')
+    PREFIX = %w(show auto)
+  end
+end
+
+if __FILE__ == $0
+  require_relative '../../mock'
+  dbgr = MockDebugger::MockDebugger.new
+  cmds = dbgr.core.processor.commands
+  show_cmd = cmds['show']
+  # command = Trepan::SubSubcommand::ShowAuto.new(dbgr.core.processor, 
+  #                                                 show_cmd)
+  # name = File.basename(__FILE__, '.rb')
+  # cmd_args = ['show', name]
+  # show_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/show_subcmd/auto_subcmd/dis.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::ShowAutoDis < Trepan::ShowBoolSubSubcommand
+  unless defined?(HELP)
+    HELP = "Show running a 'dis' command each time we enter the debugger"
+    MIN_ABBREV   = 'l'.size
+    NAME         = File.basename(__FILE__, '.rb')
+    PREFIX       = %w(show auto dis)
+  end
+
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../../mock'
+  require_relative '../../../subcmd'
+
+  # FIXME: DRY the below code
+
+  dbgr, show_cmd = MockDebugger::setup('show', false)
+  testcmdMgr     = Trepan::Subcmd.new(show_cmd)
+  auto_cmd       = Trepan::SubSubcommand::ShowAuto.new(dbgr.processor, 
+                                                       show_cmd)
+
+  # FIXME: remove the 'join' below
+  cmd_name       = Trepan::SubSubcommand::ShowAutoDis::PREFIX.join('')
+  autox_cmd      = Trepan::SubSubcommand::ShowAutoDis.new(show_cmd.proc, auto_cmd,
+                                                           cmd_name)
+  # require_relative '../../../../lib/trepanning'
+  # dbgr = Trepan.new(:set_restart => true)
+  # dbgr.debugger
+  autox_cmd.run([])
+
+end

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

@@ -0,0 +1,28 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../../base/subsubcmd'
+
+class Trepan::SubSubcommand::ShowAutoEval < Trepan::ShowBoolSubSubcommand
+  unless defined?(HELP)
+    HELP = "set auto eval [ON|OFF]
+
+Set this on if you want things that don't look like debugger command to be eval'd
+as a string."
+
+    MIN_ABBREV   = 'ev'.size
+    NAME         = File.basename(__FILE__, '.rb')
+    PREFIX       = %W(show auto #{NAME})
+    SHORT_HELP = "Show evaluation of unrecognized debugger commands"
+  end
+
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../../mock'
+  require_relative '../auto'
+  cmd = MockDebugger::subsub_setup(Trepan::SubSubcommand::ShowAuto,
+                                   Trepan::SubSubcommand::ShowAutoEval)
+
+end

data/processor/command/show_subcmd/auto_subcmd/irb.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'
+require_relative '../auto'
+
+class Trepan::SubSubcommand::ShowAutoIrb < Trepan::ShowBoolSubSubcommand
+  unless defined?(HELP)
+    HELP = "Show if IRB is invoked on debugger stops"
+    MIN_ABBREV = 'ir'.size
+    NAME       = File.basename(__FILE__, '.rb')
+    PREFIX     = %W(show auto #{NAME})
+  end
+
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../../mock'
+  require_relative '../auto'
+  cmd = MockDebugger::subsub_setup(Trepan::SubSubcommand::ShowIrb,
+                                   Trepan::SubSubcommand::ShowAutoIrb)
+end

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

@@ -0,0 +1,22 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../../base/subsubcmd'
+
+class Trepan::SubSubcommand::ShowAutoList < Trepan::ShowBoolSubSubcommand
+  unless defined?(HELP)
+    HELP = "Show running a 'list' command each time we enter the debugger"
+    MIN_ABBREV   = 'l'.size
+    NAME         = File.basename(__FILE__, '.rb')
+    PREFIX       = %W(show auto #{NAME})
+  end
+
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../../mock'
+  require_relative '../auto'
+  cmd = MockDebugger::subsub_setup(Trepan::SubSubcommand::ShowAuto,
+                                   Trepan::SubSubcommand::ShowAutoList)
+end

data/processor/command/show_subcmd/basename.rb

@@ -0,0 +1,22 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../base/subcmd'
+
+class Trepan::Subcommand::ShowBasename < Trepan::ShowBoolSubcommand
+  unless defined?(HELP)
+    HELP       = "Show only file basename in showing file names"
+    MIN_ABBREV = 'ba'.size
+    NAME       = File.basename(__FILE__, '.rb')
+    PREFIX     = %W(show #{NAME})
+  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::ShowBasename, false)
+  cmd.run(cmd.prefix)
+end

data/processor/command/show_subcmd/debug.rb

@@ -0,0 +1,27 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../base/subsubcmd'
+require_relative '../base/subsubmgr'
+
+class Trepan::SubSubcommand::ShowDebug < Trepan::SubSubcommandMgr
+  unless defined?(HELP)
+    HELP   = 'Show internal debugger settings.'
+    NAME   = File.basename(__FILE__, '.rb')
+    PREFIX = %W(show #{NAME})
+  end
+end
+
+if __FILE__ == $0
+  require_relative '../../mock'
+  dbgr, cmd = MockDebugger::setup('show')
+  show_cmd = cmds['show']
+  # command = Trepan::SubSubcommand::ShowDebug.new(dbgr.core.processor, 
+  #                                                show_cmd)
+  # name = File.basename(__FILE__, '.rb')
+  # cmd_args = ['show', name]
+  # show_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/show_subcmd/debug_subcmd/dbgr.rb

@@ -0,0 +1,21 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../../base/subsubcmd'
+
+class Trepan::SubSubcommand::ShowDebugDbgr < Trepan::ShowBoolSubSubcommand
+  unless defined?(HELP)
+    HELP        = "Show debugging the debugger"
+    NAME        = File.basename(__FILE__, '.rb')
+    PREFIX      = %W(show debug #{NAME})
+  end
+
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../../mock'
+  require_relative '../debug'
+  cmd = MockDebugger::subsub_setup(Trepan::SubSubcommand::ShowDebug,
+                                   Trepan::SubSubcommand::ShowDebugDbgr)
+end

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

@@ -0,0 +1,22 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../../base/subsubcmd'
+
+class Trepan::SubSubcommand::ShowDebugSkip < Trepan::ShowBoolSubSubcommand
+  unless defined?(HELP)
+    HELP        = 'Show debugging of statement skip logic'
+    MIN_ABBREV  = 'st'.size
+    NAME        = File.basename(__FILE__, '.rb')
+    PREFIX      = %W(show debug #{NAME})
+  end
+
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../../mock'
+  require_relative '../debug'
+  cmd = MockDebugger::subsub_setup(Trepan::SubSubcommand::ShowDebug,
+                                   Trepan::SubSubcommand::ShowDebugSkip)
+end

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

@@ -0,0 +1,22 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../../base/subsubcmd'
+
+class Trepan::SubSubcommand::ShowDebugStep < Trepan::ShowBoolSubSubcommand
+  unless defined?(HELP)
+    HELP        = 'Show debugging of statement step logic'
+    MIN_ABBREV  = 'st'.size
+    NAME        = File.basename(__FILE__, '.rb')
+    PREFIX      = %W(show debug #{NAME})
+  end
+
+end
+
+if __FILE__ == $0
+  # Demo it.
+  require_relative '../../../mock'
+  require_relative '../debug'
+  cmd = MockDebugger::subsub_setup(Trepan::SubSubcommand::ShowDebug,
+                                   Trepan::SubSubcommand::ShowDebugStep)
+end

data/processor/command/show_subcmd/different.rb

@@ -0,0 +1,27 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../base/subcmd'
+
+class Trepan::Subcommand::ShowDifferent < Trepan::ShowBoolSubcommand
+  unless defined?(HELP)
+    HELP         = "Show status of 'set different'"
+    MIN_ABBREV   = 'dif'.size
+    NAME         = File.basename(__FILE__, '.rb')
+    PREFIX       = %W(show #{NAME})
+  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,42 @@
+# -*- 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)
+    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]
+      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/kernelstep.rb

@@ -0,0 +1,37 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2010 Rocky Bernstein <rockyb@rubyforge.net>
+require 'rubygems'; require 'require_relative'
+require_relative '../base/subcmd'
+
+class Trepan::Subcommand::ShowKernelstep < Trepan::Subcommand
+  unless defined?(HELP)
+    NAME         = File.basename(__FILE__, '.rb')
+    HELP       = "Show stepping into kernel methods"
+
+    IN_LIST      = true
+    MIN_ABBREV   = 'kern'.size
+    PREFIX       = %W(set #{NAME})
+
+    # 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