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
56
57
58
59
60
61
62
63
64
65
66
67
|
#
# frame.rb -
# $Release Version: 0.6$
# $Revision$
# $Date$
# by Keiju ISHITSUKA(Nihon Rational Software Co.,Ltd)
#
# --
#
#
#
require "e2mmap"
module IRB
class Frame
extend Exception2MessageMapper
def_exception :FrameOverflow, "frame overflow"
def_exception :FrameUnderflow, "frame underflow"
INIT_STACK_TIMES = 3
CALL_STACK_OFFSET = 3
def initialize
@frames = [TOPLEVEL_BINDING] * INIT_STACK_TIMES
end
def trace_func(event, file, line, id, binding)
case event
when 'call', 'class'
@frames.push binding
when 'return', 'end'
@frames.pop
end
end
def top(n = 0)
bind = @frames[-(n + CALL_STACK_OFFSET)]
Fail FrameUnderflow unless bind
bind
end
def bottom(n = 0)
bind = @frames[n]
Fail FrameOverflow unless bind
bind
end
# singleton functions
def Frame.bottom(n = 0)
@backtrace.bottom(n)
end
def Frame.top(n = 0)
@backtrace.top(n)
end
def Frame.sender
eval "self", @backtrace.top
end
@backtrace = Frame.new
set_trace_func proc{|event, file, line, id, binding, klass|
@backtrace.trace_func(event, file, line, id, binding)
}
end
end
|
