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
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
|
#
# xmp.rb - irb version of gotoken xmp
# $Release Version: 0.6$
# $Revision: 1.5 $
# $Date: 1999/03/05 03:14:32 $
# by Keiju ISHITSUKA(Nippon Rational Inc.)
#
# --
#
#
#
require "irb/irb"
require "irb/frame"
class XMP
@RCS_ID='-$Id: xmp.rb,v 1.5 1999/03/05 03:14:32 keiju Exp keiju $-'
def initialize(bind = nil)
#IRB.parse_opts
#IRB.load_modules
bind = IRB::Frame.top(1) unless bind
main = eval("self", bind)
@io = StringInputMethod.new
@irb = IRB::Irb.new(main, bind, @io)
@irb.context.prompt_mode = :XMP
@irb.context.ignore_sigint = false
# IRB.conf[:IRB_RC].call(@irb.context) if IRB.conf[:IRB_RC]
IRB.conf[:MAIN_CONTEXT] = @irb.context
end
def puts(exps)
@io.puts exps
if @irb.context.ignore_sigint
begin
trap_proc_b = trap("SIGINT"){@irb.signal_handle}
catch(:IRB_EXIT) do
@irb.eval_input
end
ensure
trap("SIGINT", trap_proc_b)
end
else
catch(:IRB_EXIT) do
@irb.eval_input
end
end
end
class StringInputMethod < IRB::InputMethod
def initialize
super
@exps = []
end
def eof?
@exps.empty?
end
def gets
while l = @exps.shift
next if /^\s+$/ =~ l
l.concat "\n"
print @prompt, l
break
end
l
end
def puts(exps)
@exps.concat exps.split(/\n/)
end
end
end
def xmp(exps, bind = nil)
bind = IRB::Frame.top(1) unless bind
xmp = XMP.new(bind)
xmp.puts exps
xmp
end
|
