2000-05-12

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@687 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

1 files changed, 84 insertions, 0 deletions

diff --git a/lib/irb/xmp.rb b/lib/irb/xmp.rb
new file mode 100644
index 0000000000..fc745a2757
--- /dev/null
+++ b/lib/irb/xmp.rb
@@ -0,0 +1,84 @@
+#
+#   xmp.rb - irb version of gotoken xmp
+#   	$Release Version: 0.6$
+#   	$Revision$
+#   	$Date$
+#   	by Keiju ISHITSUKA(Nippon Rational Inc.)
+#
+# --
+#
+#   
+#
+
+require "irb/irb"
+require "irb/frame"
+
+class XMP
+  @RCS_ID='-$Id$-'
+
+  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