Contents

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

# undisplay display-number...
class Trepan::Command::UndisplayCommand < Trepan::Command
    
  unless defined?(HELP)
    NAME = File.basename(__FILE__, '.rb')
    HELP = <<EOH
#{NAME} DISPLAY_NUMBER ...
Cancel some expressions to be displayed when program stops.
Arguments are the code numbers of the expressions to stop displaying.
No argument means cancel all automatic-display expressions.
"delete display" has the same effect as this command.
Use "info display" to see current list of display numbers.
EOH

    CATEGORY      = 'data'
    NEED_STACK    = false
    SHORT_HELP    = 'Cancel some expressions to be displayed when program stops'
  end

  def complete(prefix)
    @proc.displays.nums.map{|disp| disp.to_s}
  end

  def run(args)
    
    if args.size == 1
      if confirm('Delete all displays?', false)
        @proc.displays.clear
        return
      end
    end
    opts = {}
    args[1..-1].each do |arg|
      opts = {:msg_on_error => '%s must be a display number' % arg}
      i = @proc.get_an_int(arg, opts)
      if i 
        unless @proc.displays.delete_index(i)
          errmsg("No display number %d." % i)
          return
        end
      end
    end
  end
end

if __FILE__ == $0
  # demo it.
  require_relative '../mock'
  dbgr, cmd = MockDebugger::setup

  def run_cmd(cmd, args)
    cmd.run(args)
    puts '==' * 10
  end

  run_cmd(cmd, %W(#{cmd.name} z))
  run_cmd(cmd, %W(#{cmd.name} 1 10))
end

Version data entries

7 entries across 7 versions & 2 rubygems

Version	Path
rbx-trepanning-0.2.1-universal-rubinius-2.0	processor/command/undisplay.rb
rbx-trepanning-0.2.1-universal-rubinius-1.2	processor/command/undisplay.rb
rbx-trepanning-0.2.0-universal-rubinius-2.0	processor/command/undisplay.rb
rb8-trepanning-0.1.6	processor/command/undisplay.rb
rb8-trepanning-0.1.5	processor/command/undisplay.rb
rbx-trepanning-0.1.0-universal-rubinius-1.2	processor/command/undisplay.rb
rb8-trepanning-0.1.4	processor/command/undisplay.rb