Contents

# -*- coding: utf-8 -*-
# Copyright (C) 2011 Rocky Bernstein <[e-mail]>
require 'rubygems'; require 'require_relative'
require_relative '../base/subcmd'

class Trepan::Subcommand::InfoProgram < Trepan::Subcommand
  unless defined?(HELP)
    Trepanning::Subcommand.set_name_prefix(__FILE__, self)
    HELP         = 'Show argument variables of the current stack frame'
    MIN_ABBREV   = 'pr'.size
    MIN_ARGS     = 0
    MAX_ARGS     = 0
    NEED_STACK   = true
   end

  def run(args)
    if not @proc.context
      errmsg 'The program being debugged is not being run.'
      return
    end
    case @proc.event 
    when :raise
      status = 'crashed'
    else
      status = 'stopped'
    end

    msg "Program #{status}."
    event_arg = @proc.state.processor.event_arg
    case @proc.context.stop_reason
    when :step
      msg "It stopped after stepping, next'ing or initial start."
    when :breakpoint
      msg("It stopped at breakpoint %d.\n" %
            (Debugger.breakpoints.index(event_arg)+1))
    when :catchpoint
      msg("Handling an uncaught exception `%s' (%s)." % [event_arg,  
            event_arg.class])
    else
      msg "unknown reason: %s" % @proc.context.stop_reason.to_s
    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::InfoProgram, false)
  ## cmd.run(cmd.prefix)
end

Version data entries

5 entries across 5 versions & 1 rubygems

Version	Path
rb8-trepanning-0.1.5	processor/command/info_subcmd/program.rb
rb8-trepanning-0.1.4	processor/command/info_subcmd/program.rb
rb8-trepanning-0.1.3	processor/command/info_subcmd/program.rb
rb8-trepanning-0.1.3-universal-ruby-1.9.2	processor/command/info_subcmd/program.rb
rb8-trepanning-0.1.3-universal-ruby-1.8.7	processor/command/info_subcmd/program.rb