This repository has been archived by the owner on Nov 15, 2021. It is now read-only.
forked from mark-moseley/ruby-debug
/
catchpoint.rb
55 lines (51 loc) · 1.48 KB
/
catchpoint.rb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
module Debugger
class CatchCommand < Command # :nodoc:
self.allow_in_control = true
def regexp
/^\s* cat(?:ch)?
(?:\s+ (\S+))?
(?:\s+ (off))? \s* $/ix
end
def execute
excn = @match[1]
if not excn
# No args given.
info_catch
elsif not @match[2]
# One arg given.
if 'off' == excn
Debugger.catchpoints.clear if
confirm("Delete all catchpoints? (y or n) ")
else
binding = @state.context ? get_binding : TOPLEVEL_BINDING
unless debug_eval("#{excn}.is_a?(Class)", binding)
print "Warning #{excn} is not known to be a Class\n"
end
Debugger.add_catchpoint(excn)
print "Catch exception %s.\n", excn
end
elsif @match[2] != 'off'
errmsg "Off expected. Got %s\n", @match[2]
elsif Debugger.catchpoints.member?(excn)
Debugger.catchpoints.delete(excn)
print "Catch for exception %s removed.\n", excn
else
errmsg "Catch for exception %s not found.\n", excn
end
end
class << self
def help_command
'catch'
end
def help(cmd)
%{
cat[ch]\t\tsame as "info catch"
cat[ch] <exception-name> [on|off]
\tIntercept <exception-name> when there would otherwise be no handler.
\tWith an "on" or "off", turn handling the exception on or off.
cat[ch] off\tdelete all catchpoints
}
end
end
end
end