1 files changed, 118 insertions, 0 deletions
diff --git a/lib/irb/input-method.rb b/lib/irb/input-method.rb
new file mode 100644
index 0000000000..19df0eb073
--- /dev/null
+++ b/lib/irb/input-method.rb
@@ -0,0 +1,118 @@
+#
+#   input-method.rb - input methods using irb
+#   	$Release Version: 0.6$
+#   	$Revision$
+#   	$Date$
+#   	by Keiju ISHITSUKA(Nippon Rational Inc.)
+#
+# --
+#
+#   
+#
+module IRB
+  # 
+  # InputMethod
+  #	StdioInputMethod
+  #	FileInputMethod
+  #	(ReadlineInputMethod)
+  #
+  STDIN_FILE_NAME = "(line)"
+  class InputMethod
+    @RCS_ID='-$Id$-'
+
+    def initialize(file = STDIN_FILE_NAME)
+      @file_name = file
+    end
+    attr :file_name
+
+    attr :prompt, true
+    
+    def gets
+      IRB.fail NotImplementError, "gets"
+    end
+    public :gets
+
+    def readable_atfer_eof?
+      false
+    end
+  end
+  
+  class StdioInputMethod < InputMethod
+    def initialize
+      super
+      @line_no = 0
+      @line = []
+    end
+
+    def gets
+      print @prompt
+      @line[@line_no += 1] = $stdin.gets
+    end
+
+    def eof?
+      $stdin.eof?
+    end
+
+    def readable_atfer_eof?
+      true
+    end
+
+    def line(line_no)
+      @line[line_no]
+    end
+  end
+  
+  class FileInputMethod < InputMethod
+    def initialize(file)
+      super
+      @io = open(file)
+    end
+    attr :file_name
+
+    def eof?
+      @io.eof?
+    end
+
+    def gets
+      l = @io.gets
+      print @prompt, l
+      l
+    end
+  end
+
+  begin
+    require "readline"
+    class ReadlineInputMethod < InputMethod
+      include Readline 
+      def initialize
+	super
+
+	@line_no = 0
+	@line = []
+	@eof = false
+      end
+
+      def gets
+	if l = readline(@prompt, true)
+	  @line[@line_no += 1] = l + "\n"
+	else
+	  @eof = true
+	  l
+	end
+      end
+
+      def eof?
+	@eof
+      end
+
+      def readable_atfer_eof?
+	true
+      end
+
+      def line(line_no)
+	@line[line_no]
+      end
+    end
+  rescue LoadError
+  end
+end