* bin/irb lib/irb.rb lib/irb/...: IRB 0.9.5.

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

ChangeLog

@@ -1,3 +1,6 @@
+Thu Apr 14 00:20:31 2005 Keiju Ishitsuka <keiju@ruby-lang.org>
+	* bin/irb lib/irb.rb lib/irb/...: IRB 0.9.5.
+	
 Wed Apr 13 23:40:21 2005  Kouhei Sutou  <kou@cozmixng.org>
 
 	* lib/rss/rss.rb (RSS::VERSION): 0.1.3 -> 0.1.4.

bin/irb

@@ -1,10 +1,10 @@
 #!/usr/bin/env ruby
 #
 #   irb.rb - intaractive ruby
-#   	$Release Version: 0.7.3 $
+#   	$Release Version: 0.9.5 $
 #   	$Revision$
 #   	$Date$
-#   	by Keiju ISHITSUKA(keiju@ishitsuka.com)
+#   	by Keiju ISHITSUKA(keiju@ruby-lang.org)
 #
 
 require "irb"

lib/irb.rb

@@ -1,9 +1,9 @@
 #
 #   irb.rb - irb main module
-#   	$Release Version: 0.9 $
+#   	$Release Version: 0.9.5 $
 #   	$Revision$
 #   	$Date$
-#   	by Keiju ISHITSUKA(keiju@ishitsuka.com)
+#   	by Keiju ISHITSUKA(keiju@ruby-lang.org)
 #
 # --
 #
@@ -88,8 +88,8 @@ module IRB
   # irb interpriter main routine 
   #
   class Irb
-    def initialize(workspace = nil, input_method = nil)
+    def initialize(workspace = nil, input_method = nil, output_method = nil)
-      @context = Context.new(self, workspace, input_method)
+      @context = Context.new(self, workspace, input_method, output_method)
       @context.main.extend ExtendCommandBundle
       @signal_status = :IN_IRB
 
@@ -106,6 +106,8 @@ module IRB
 	  f = @context.prompt_s
 	elsif continue
 	  f = @context.prompt_c
+	elsif indent > 0
+	  f = @context.prompt_n
 	else @context.prompt_i
 	  f = @context.prompt_i
 	end

lib/irb/cmd/chws.rb

@@ -1,9 +1,9 @@
 #
 #   change-ws.rb - 
-#   	$Release Version: 0.9$
+#   	$Release Version: 0.9.5$
 #   	$Revision$
 #   	$Date$
-#   	by Keiju ISHITSUKA(Nihon Rational Software Co.,Ltd)
+#   	by Keiju ISHITSUKA(keiju@ruby-lang.org)
 #
 # --
 #

lib/irb/cmd/fork.rb

@@ -1,9 +1,23 @@
+#
+#   fork.rb - 
+#   	$Release Version: 0.9.5 $
+#   	$Revision$
+#   	$Date$
+#   	by Keiju ISHITSUKA(keiju@ruby-lang.org)
+#
+# --
+#
+#   
+#
+
+@RCS_ID='-$Id$-'
+
 
 module IRB
   module ExtendCommand
     class Fork<Nop
       def execute(&block)
-	pid = send(ExtendCommand.irb_original_method_name("fork"))
+	pid = send ExtendCommand.irb_original_method_name("fork")
 	unless pid 
 	  class<<self
 	    alias_method :exit, ExtendCommand.irb_original_method_name('exit')

lib/irb/cmd/load.rb

@@ -1,9 +1,9 @@
 #
 #   load.rb - 
-#   	$Release Version: 0.9$
+#   	$Release Version: 0.9.5$
 #   	$Revision$
 #   	$Date$
-#   	by Keiju ISHITSUKA(Nihon Rational Software Co.,Ltd)
+#   	by Keiju ISHITSUKA(keiju@ruby-lang.org)
 #
 # --
 #

lib/irb/cmd/nop.rb

@@ -1,9 +1,9 @@
 #
 #   nop.rb - 
-#   	$Release Version: 0.9$
+#   	$Release Version: 0.9.5$
 #   	$Revision$
 #   	$Date$
-#   	by Keiju ISHITSUKA(Nihon Rational Software Co.,Ltd)
+#   	by Keiju ISHITSUKA(keiju@ruby-lang.org)
 #
 # --
 #

lib/irb/cmd/pushws.rb

@@ -1,9 +1,9 @@
 #
 #   change-ws.rb - 
-#   	$Release Version: 0.9$
+#   	$Release Version: 0.9.5$
 #   	$Revision$
 #   	$Date$
-#   	by Keiju ISHITSUKA(Nihon Rational Software Co.,Ltd)
+#   	by Keiju ISHITSUKA(keiju@ruby-lang.org)
 #
 # --
 #

lib/irb/cmd/subirb.rb

@@ -1,10 +1,10 @@
 #!/usr/local/bin/ruby
 #
 #   multi.rb - 
-#   	$Release Version: 0.9$
+#   	$Release Version: 0.9.5$
 #   	$Revision$
 #   	$Date$
-#   	by Keiju ISHITSUKA(Nihon Rational Software Co.,Ltd)
+#   	by Keiju ISHITSUKA(keiju@ruby-lang.org)
 #
 # --
 #

lib/irb/context.rb

@@ -1,9 +1,9 @@
 #
 #   irb/context.rb - irb context
-#   	$Release Version: 0.9$
+#   	$Release Version: 0.9.5$
 #   	$Revision$
 #   	$Date$
-#   	by Keiju ISHITSUKA(keiju@ishitsuka.com)
+#   	by Keiju ISHITSUKA(keiju@ruby-lang.org)
 #
 # --
 #
@@ -19,7 +19,7 @@ module IRB
     #		      String -- File
     #		      other -- using this as InputMethod
     #
-    def initialize(irb, workspace = nil, input_method = nil)
+    def initialize(irb, workspace = nil, input_method = nil, output_method = nil)
       @irb = irb
       if workspace
 	@workspace = workspace
@@ -71,6 +71,13 @@ module IRB
       else
 	@io = input_method
       end
+      self.save_history = IRB.conf[:SAVE_HISTORY] if IRB.conf[:SAVE_HISTORY]
+
+      if output_method
+	@output_method = output_method
+      else
+	@output_method = StdioOutputMethod.new
+      end
 
       @verbose = IRB.conf[:VERBOSE] 
       @echo = IRB.conf[:ECHO]
@@ -96,13 +103,14 @@ module IRB
     attr_accessor :irb_name
     attr_accessor :irb_path
 
-    attr_accessor :use_readline
+    attr_reader :use_readline
     attr_reader :inspect_mode
 
     attr_reader :prompt_mode
     attr_accessor :prompt_i
     attr_accessor :prompt_s
     attr_accessor :prompt_c
+    attr_accessor :prompt_n
     attr_accessor :auto_indent_mode
     attr_accessor :return_format
 
@@ -141,6 +149,7 @@ module IRB
 
     def set_last_value(value)
       @last_value = value
+      @workspace.evaluate self, "_ = IRB.CurrentContext.last_value"
     end
 
     attr_reader :irb_name
@@ -151,6 +160,7 @@ module IRB
       @prompt_i = pconf[:PROMPT_I]
       @prompt_s = pconf[:PROMPT_S]
       @prompt_c = pconf[:PROMPT_C]
+      @prompt_n = pconf[:PROMPT_N]
       @return_format = pconf[:RETURN]
       if ai = pconf.include?(:AUTO_INDENT)
 	@auto_indent_mode = ai
@@ -177,7 +187,6 @@ module IRB
       @inspect_mode
     end
 
-    undef use_readline=
     def use_readline=(opt)
       @use_readline = opt
       print "use readline module\n" if @use_readline

lib/irb/ext/change-ws.rb

@@ -1,9 +1,9 @@
 #
 #   irb/ext/cb.rb - 
-#   	$Release Version: 0.9$
+#   	$Release Version: 0.9.5$
 #   	$Revision$
 #   	$Date$
-#   	by Keiju ISHITSUKA(Nihon Rational Software Co.,Ltd)
+#   	by Keiju ISHITSUKA(keiju@ruby-lang.org)
 #
 # --
 #

lib/irb/ext/history.rb

@@ -1,9 +1,9 @@
 #
 #   history.rb - 
-#   	$Release Version: 0.9$
+#   	$Release Version: 0.9.5$
 #   	$Revision$
 #   	$Date$
-#   	by Keiju ISHITSUKA(Nihon Rational Software Co.,Ltd)
+#   	by Keiju ISHITSUKA(keiju@ruby-lang.org)
 #
 # --
 #
@@ -21,8 +21,8 @@ module IRB
     def set_last_value(value)
       _set_last_value(value)
 
-      @workspace.evaluate self, "_ = IRB.CurrentContext.last_value"
+#      @workspace.evaluate self, "_ = IRB.CurrentContext.last_value"
-      if (@eval_history ||= nil) #and !@eval_history_values.equal?(llv)
+      if @eval_history #and !@eval_history_values.equal?(llv)
  	@eval_history_values.push @line_no, @last_value
  	@workspace.evaluate self, "__ = IRB.CurrentContext.instance_eval{@eval_history_values}"
       end
@@ -33,7 +33,7 @@ module IRB
     attr_reader :eval_history
     def eval_history=(no)
       if no
-	if (@eval_history ||= nil)
+	if @eval_history 
 	  @eval_history_values.size(no)
 	else
 	  @eval_history_values = History.new(no)

lib/irb/ext/loader.rb

@@ -1,3 +1,18 @@
+#
+#   loader.rb - 
+#   	$Release Version: 0.9.5$
+#   	$Revision$
+#   	$Date$
+#   	by Keiju ISHITSUKA(keiju@ruby-lang.org)
+#
+# --
+#
+#   
+#
+
+@RCS_ID='-$Id$-'
+
+
 module IRB
   class LoadAbort < Exception;end
 

lib/irb/ext/math-mode.rb

@@ -1,9 +1,9 @@
 #
 #   math-mode.rb - 
-#   	$Release Version: 0.9$
+#   	$Release Version: 0.9.5$
 #   	$Revision$
 #   	$Date$
-#   	by Keiju ISHITSUKA(Nihon Rational Software Co.,Ltd)
+#   	by Keiju ISHITSUKA(keiju@ruby-lang.org)
 #
 # --
 #

lib/irb/ext/multi-irb.rb

@@ -1,9 +1,9 @@
 #
 #   irb/multi-irb.rb - multiple irb module
-#   	$Release Version: 0.9$
+#   	$Release Version: 0.9.5$
 #   	$Revision$
 #   	$Date$
-#   	by Keiju ISHITSUKA(keiju@ishitsuka.com)
+#   	by Keiju ISHITSUKA(keiju@ruby-lang.org)
 #
 # --
 #

lib/irb/ext/tracer.rb

@@ -1,9 +1,9 @@
 #
 #   irb/lib/tracer.rb - 
-#   	$Release Version: 0.9$
+#   	$Release Version: 0.9.5$
 #   	$Revision$
 #   	$Date$
-#   	by Keiju ISHITSUKA(Nihon Rational Software Co.,Ltd)
+#   	by Keiju ISHITSUKA(keiju@ruby-lang.org)
 #
 # --
 #

lib/irb/ext/use-loader.rb

@@ -1,9 +1,9 @@
 #
 #   use-loader.rb - 
-#   	$Release Version: 0.9$
+#   	$Release Version: 0.9.5$
 #   	$Revision$
 #   	$Date$
-#   	by Keiju ISHITSUKA(Nihon Rational Software Co.,Ltd)
+#   	by Keiju ISHITSUKA(keiju@ruby-lang.org)
 #
 # --
 #

lib/irb/ext/workspaces.rb

@@ -1,9 +1,9 @@
 #
 #   push-ws.rb - 
-#   	$Release Version: 0.9$
+#   	$Release Version: 0.9.5$
 #   	$Revision$
 #   	$Date$
-#   	by Keiju ISHITSUKA(Nihon Rational Software Co.,Ltd)
+#   	by Keiju ISHITSUKA(keiju@ruby-lang.org)
 #
 # --
 #

lib/irb/extend-command.rb

@@ -1,9 +1,9 @@
 #
-#   irb/extend-command.rb - irb command extend
+#   irb/extend-command.rb - irb extend command 
-#   	$Release Version: 0.9$
+#   	$Release Version: 0.9.5$
 #   	$Revision$
 #   	$Date$
-#   	by Keiju ISHITSUKA(keiju@ishitsuka.com)
+#   	by Keiju ISHITSUKA(keiju@ruby-lang.org)
 #
 # --
 #
@@ -103,6 +103,7 @@ module IRB
 
       [:irb_help, :Help, "irb/cmd/help",
         [:help, NO_OVERRIDE]],
+
     ]
 
     def EXCB.install_extend_commands
@@ -192,6 +193,7 @@ module IRB
       [:use_tracer=, "irb/ext/tracer.rb"],
       [:math_mode=, "irb/ext/math-mode.rb"],
       [:use_loader=, "irb/ext/use-loader.rb"],
+      [:save_history=, "irb/ext/save-history.rb"],
     ]
 
     def CE.install_extend_commands
@@ -215,5 +217,48 @@ module IRB
 
     CE.install_extend_commands
   end
+
+  module MethodExtender
+    def def_pre_proc(base_method, extend_method)
+      base_method = base_method.to_s
+      extend_method = extend_method.to_s
+
+      alias_name = new_alias_name(base_method)
+      module_eval %[
+        alias_method alias_name, base_method
+        def #{base_method}(*opts)
+	  send :#{extend_method}, *opts
+	  send :#{alias_name}, *opts
+	end
+      ]
+    end
+
+    def def_post_proc(base_method, extend_method)
+      base_method = base_method.to_s
+      extend_method = extend_method.to_s
+
+      alias_name = new_alias_name(base_method)
+      module_eval %[
+        alias_method alias_name, base_method
+        def #{base_method}(*opts)
+	  send :#{alias_name}, *opts
+	  send :#{extend_method}, *opts
+	end
+      ]
+    end
+
+    # return #{prefix}#{name}#{postfix}<num>
+    def new_alias_name(name, prefix = "__alias_of__", postfix = "__")
+      base_name = "#{prefix}#{name}#{postfix}"
+      all_methods = instance_methods(true) + private_instance_methods(true)
+      same_methods = all_methods.grep(/^#{Regexp.quote(base_name)}[0-9]*$/)
+      return base_name if same_methods.empty?
+      no = same_methods.size
+      while !same_methods.include?(alias_name = base_name + no)
+	no += 1
+      end
+      alias_name
+    end
+  end
 end
 

lib/irb/help.rb

@@ -1,6 +1,6 @@
 #
 #   irb/help.rb - print usase module
-#   	$Release Version: 0.9$
+#   	$Release Version: 0.9.5$
 #   	$Revision$
 #   	$Date$
 #   	by Keiju ISHITSUKA(keiju@ishitsuka.com)

lib/irb/init.rb

@@ -1,9 +1,9 @@
 #
 #   irb/init.rb - irb initialize module
-#   	$Release Version: 0.9$
+#   	$Release Version: 0.9.5$
 #   	$Revision$
 #   	$Date$
-#   	by Keiju ISHITSUKA(keiju@ishitsuka.com)
+#   	by Keiju ISHITSUKA(keiju@ruby-lang.org)
 #
 # --
 #
@@ -54,36 +54,43 @@ module IRB
     @CONF[:VERBOSE] = nil
 
     @CONF[:EVAL_HISTORY] = nil
+    @CONF[:SAVE_HISTORY] = nil
 
     @CONF[:BACK_TRACE_LIMIT] = 16
 
     @CONF[:PROMPT] = {
       :NULL => {
 	:PROMPT_I => nil,
+	:PROMPT_N => nil,
 	:PROMPT_S => nil,
 	:PROMPT_C => nil,
 	:RETURN => "%s\n"
       },
       :DEFAULT => {
 	:PROMPT_I => "%N(%m):%03n:%i> ",
+	:PROMPT_N => "%N(%m):%03n:%i> ",
 	:PROMPT_S => "%N(%m):%03n:%i%l ",
 	:PROMPT_C => "%N(%m):%03n:%i* ",
 	:RETURN => "=> %s\n"
       },
       :CLASSIC => {
 	:PROMPT_I => "%N(%m):%03n:%i> ",
+	:PROMPT_N => "%N(%m):%03n:%i> ",
 	:PROMPT_S => "%N(%m):%03n:%i%l ",
 	:PROMPT_C => "%N(%m):%03n:%i* ",
 	:RETURN => "%s\n"
       },
       :SIMPLE => {
 	:PROMPT_I => ">> ",
+	:PROMPT_N => ">> ",
 	:PROMPT_S => nil,
 	:PROMPT_C => "?> ",
 	:RETURN => "=> %s\n"
       },
       :INF_RUBY => {
 	:PROMPT_I => "%N(%m):%03n:%i> ",
+#	:PROMPT_N => "%N(%m):%03n:%i> ",
+	:PROMPT_N => nil,
 	:PROMPT_S => nil,
 	:PROMPT_C => nil,
 	:RETURN => "%s\n",
@@ -91,6 +98,7 @@ module IRB
       },
       :XMP => {
 	:PROMPT_I => nil,
+	:PROMPT_N => nil,
 	:PROMPT_S => nil,
 	:PROMPT_C => nil,
 	:RETURN => "    ==>%s\n"
@@ -183,36 +191,47 @@ module IRB
     end
   end
 
-  # enumerate possible rc files
-  def IRB.rc_files(rc)
-    yield File.expand_path("~/.irb#{rc}") if ENV.key?("HOME")
-    yield ".irb#{rc}"
-    yield "irb#{rc.sub(/\A_?/, '.')}"
-    yield "_irb#{rc}"
-    yield "$irb#{rc}"
-  end
-
   # running config
   def IRB.run_config
     if @CONF[:RC]
-      catch(:EXIT) do
-	rc_files("rc") do |rc|
       begin
-	    load rc
+	load rc_file
-	    throw :EXIT
       rescue LoadError, Errno::ENOENT
       rescue
-	    print "load error: #{rc}\n"
+	print "load error: #{rc_file}\n"
 	print $!.class, ": ", $!, "\n"
 	for err in $@[0, $@.size - 2]
 	  print "\t", err, "\n"
 	end
-	    throw :EXIT
       end
     end
   end
+
+  IRBRC_EXT = "rc"
+  def IRB.rc_file(ext = IRBRC_EXT)
+    if !@CONF[:RC_NAME_GENERATOR]
+      rc_file_generators do |rcgen|
+	@CONF[:RC_NAME_GENERATOR] ||= rcgen
+	if File.exist?(rcgen.call(IRBRC_EXT))
+	  @CONF[:RC_NAME_GENERATOR] = rcgen
+	  break
 	end
       end
+    end
+    @CONF[:RC_NAME_GENERATOR].call ext
+  end
+
+  # enumerate possible rc-file base name generators
+  def IRB.rc_file_generators
+    if home = ENV["HOME"]
+      yield proc{|rc| home+"/.irb#{rc}"} 
+    end
+    home = Dir.pwd
+    yield proc{|rc| home+"/.irb#{rc}"}
+    yield proc{|rc| home+"/irb#{rc.sub(/\A_?/, '.')}"}
+    yield proc{|rc| home+"/_irb#{rc}"}
+    yield proc{|rc| home+"/$irb#{rc}"}
+  end
 
   # loading modules
   def IRB.load_modules

lib/irb/input-method.rb

@@ -1,9 +1,9 @@
 #
-#   irb/input-method.rb - input methods using irb
+#   irb/input-method.rb - input methods used irb
-#   	$Release Version: 0.9$
+#   	$Release Version: 0.9.5$
 #   	$Revision$
 #   	$Date$
-#   	by Keiju ISHITSUKA(keiju@ishitsuka.com)
+#   	by Keiju ISHITSUKA(keiju@ruby-lang.org)
 #
 # --
 #
@@ -85,49 +85,12 @@ module IRB
     require "readline"
     class ReadlineInputMethod < InputMethod
       include Readline 
-
-      def ReadlineInputMethod.create_finalizer(hist, file)
-	proc do
-	  if num = IRB.conf[:SAVE_HISTORY] and (num = num.to_i) > 0
-            if hf = IRB.conf[:HISTORY_FILE]
-	      file = File.expand_path(hf)
-            end
-            if file
-              open(file, 'w' ) do |f|
-                hist = hist.to_a
-                f.puts(hist[-num..-1] || hist)
-              end
-	    end
-	  end
-	end
-      end
-
       def initialize
 	super
 
 	@line_no = 0
 	@line = []
 	@eof = false
-
-	loader = proc {|f| f.each {|l| HISTORY << l.chomp}}
-	if hist = IRB.conf[:HISTORY_FILE]
-	  hist = File.expand_path(hist)
-	  begin
-	    open(hist, &loader) 
-	  rescue
-	  end
-	else
-	  IRB.rc_files("_history") do |hist|
-	    begin
-	      open(hist, &loader)
-	    rescue
-	      hist = nil
-	    else
-	      break
-	    end
-	  end
-	end
-	ObjectSpace.define_finalizer(self, ReadlineInputMethod.create_finalizer(HISTORY, hist))
       end
 
       def gets

lib/irb/lc/error.rb

@@ -1,9 +1,9 @@
 #
 #   irb/lc/error.rb - 
-#   	$Release Version: 0.9$
+#   	$Release Version: 0.9.5$
 #   	$Revision$
 #   	$Date$
-#   	by Keiju ISHITSUKA(keiju@ishitsuka.com)
+#   	by Keiju ISHITSUKA(keiju@ruby-lang.org)
 #
 # --
 #

lib/irb/lc/help-message

@@ -1,9 +1,9 @@
 #
 #   irb/lc/help-message.rb - 
-#   	$Release Version: 0.9$
+#   	$Release Version: 0.9.5$
 #   	$Revision$
 #   	$Date$
-#   	by Keiju ISHITSUKA(keiju@ishitsuka.com)
+#   	by Keiju ISHITSUKA(keiju@ruby-lang.org)
 #
 # --
 #

lib/irb/lc/ja/error.rb

@@ -1,9 +1,9 @@
 #
 #   irb/lc/ja/error.rb - 
-#   	$Release Version: 0.9$
+#   	$Release Version: 0.9.5$
 #   	$Revision$
 #   	$Date$
-#   	by Keiju ISHITSUKA(keiju@ishitsuka.com)
+#   	by Keiju ISHITSUKA(keiju@ruby-lang.org)
 #
 # --
 #
@@ -25,5 +25,3 @@ module IRB
   def_exception :CantChangeBinding, '$B%P%$%s%G%#%s%0(B(%s)$B$KJQ99$G$-$^$;$s(B.'
   def_exception :UndefinedPromptMode, '$B%W%m%s%W%H%b!<%I(B(%s)$B$ODj5A$5$l$F$$$^$;$s(B.'
 end
-
-

lib/irb/lc/ja/help-message

@@ -1,9 +1,9 @@
 #
 #   irb/lc/ja/help-message.rb - 
-#   	$Release Version: 0.9$
+#   	$Release Version: 0.9.5$
 #   	$Revision$
 #   	$Date$
-#   	by Keiju ISHITSUKA(keiju@ishitsuka.com)
+#   	by Keiju ISHITSUKA(keiju@ruby-lang.org)
 #
 # --
 #

lib/irb/locale.rb

@@ -1,9 +1,9 @@
 #
 #   irb/locale.rb - internationalization module
-#   	$Release Version: 0.9$
+#   	$Release Version: 0.9.5$
 #   	$Revision$
 #   	$Date$
-#   	by Keiju ISHITSUKA(keiju@ishitsuka.com)
+#   	by Keiju ISHITSUKA(keiju@ruby-lang.org)
 #
 # --
 #

lib/irb/ruby-lex.rb

@@ -1,9 +1,9 @@
 #
 #   irb/ruby-lex.rb - ruby lexcal analizer
-#   	$Release Version: 0.9$
+#   	$Release Version: 0.9.5$
 #   	$Revision$
 #   	$Date$
-#   	by Keiju ISHITSUKA(keiju@ishitsuka.com)
+#   	by Keiju ISHITSUKA(keiju@ruby-lang.org)
 #
 # --
 #
@@ -51,13 +51,18 @@ class RubyLex
 
     @indent = 0
     @indent_stack = []
+    @lex_state = EXPR_BEG
+    @space_seen = false
+    @here_header = false
+    
+    @continue = false
+    @line = ""
 
     @skip_space = false
     @readed_auto_clean_up = false
     @exception_on_syntax_error = true
+
     @prompt = nil
-    @here_header = nil
-    @lex_state = nil
   end
 
   attr_accessor :skip_space
@@ -119,6 +124,7 @@ class RubyLex
       l.concat c
       break if c == "\n"
     end
+    return nil if l == "" and c.nil?
     l
   end
 
@@ -186,7 +192,7 @@ class RubyLex
   end
   private :buf_input
 
-  def set_prompt(p=nil, &block)
+  def set_prompt(p = nil, &block)
     p = block if block_given?
     if p.respond_to?(:call)
       @prompt = p
@@ -280,7 +286,7 @@ class RubyLex
 	tk = @OP.match(self)
 	@space_seen = tk.kind_of?(TkSPACE)
       rescue SyntaxError
-	abort if @exception_on_syntax_error
+	raise if @exception_on_syntax_error
 	tk = TkError.new(@seek, @line_no, @char_no)
       end
     end while @skip_space and tk.kind_of?(TkSPACE)
@@ -330,7 +336,7 @@ class RubyLex
   }
 
   def lex_init()
-    @OP = SLex.new
+    @OP = IRB::SLex.new
     @OP.def_rules("\0", "\004", "\032") do
       Token(TkEND_OF_SCRIPT)
     end
@@ -429,6 +435,7 @@ class RubyLex
     @OP.def_rules("`") do
       |op, io|
       if @lex_state == EXPR_FNAME
+	@lex_state = EXPR_END
 	Token(op)
       else
 	identify_string(op)
@@ -472,11 +479,13 @@ class RubyLex
 
     @OP.def_rule("+@", proc{@lex_state == EXPR_FNAME}) do
       |op, io|
+      @lex_state = EXPR_ARG
       Token(op)
     end
 
     @OP.def_rule("-@", proc{@lex_state == EXPR_FNAME}) do
       |op, io|
+      @lex_state = EXPR_ARG
       Token(op)
     end
 
@@ -616,10 +625,12 @@ class RubyLex
     end
 
     @OP.def_rule("[]", proc{@lex_state == EXPR_FNAME}) do
+      @lex_state = EXPR_ARG
       Token("[]")
     end
 
     @OP.def_rule("[]=", proc{@lex_state == EXPR_FNAME}) do
+      @lex_state = EXPR_ARG
       Token("[]=")
     end
 
@@ -790,14 +801,13 @@ class RubyLex
 	else
 	  if @lex_state != EXPR_FNAME
 	    if ENINDENT_CLAUSE.include?(token)
-	      # check for ``class = val''.
+	      # check for ``class = val'' etc.
 	      valid = true
 	      case token
 	      when "class"
 		valid = false unless peek_match?(/^\s*(<<|\w|::)/)
 	      when "def"
 		valid = false if peek_match?(/^\s*(([+-\/*&\|^]|<<|>>|\|\||\&\&)=|\&\&|\|\|)/)
-#		valid = false if peek_match?(/^\s*(([+-\/*&\|^]|<<|>>|\|\||\&\&)?=|\&\&|\|\|)/)
 	      when "do"
 		valid = false if peek_match?(/^\s*([+-\/*]?=|\*|<|>|\&)/)
 	      when *ENINDENT_CLAUSE
@@ -885,7 +895,11 @@ class RubyLex
     end
 
     @here_header = false
-    while (l = gets.chomp) && (indent ? l.strip : l) != quoted
+    while l = gets
+      l = l.sub(/(:?\r)?\n\z/, '')
+      if (indent ? l.strip : l) == quoted
+ 	break
+      end
     end
 
     @here_header = true
@@ -920,19 +934,43 @@ class RubyLex
   def identify_number
     @lex_state = EXPR_END
 
-    if ch = getc
+    if peek(0) == "0" && peek(1) !~ /[.eE]/
+      getc
       if /[xX]/ =~ peek(0)
 	ch = getc
 	match = /[0-9a-fA-F_]/
       elsif /[bB]/ =~ peek(0)
 	ch = getc
 	match = /[01_]/
+      elsif /[oO]/ =~ peek(0)
+	ch = getc
+	match = /[0-7_]/
       else
 	match = /[0-7_]/
       end
+
+      len0 = true
+      non_digit = false
       while ch = getc
-	if ch !~ match
+	if match =~ ch
+	  if ch == "_"
+	    if non_digit
+	      RubyLex.fail SyntaxError, "trailing `#{ch}' in number"
+	    else
+	      non_digit = ch
+	    end
+	  else
+	    non_digit = false
+	    len0 = false
+	  end
+	else
 	  ungetc
+	  if len0
+	    RubyLex.fail SyntaxError, "numeric literal without digits"
+	  end
+	  if non_digit
+	    RubyLex.fail SyntaxError, "trailing `#{non_digit}' in number"
+	  end
 	  break
 	end
       end
@@ -942,24 +980,39 @@ class RubyLex
     type = TkINTEGER
     allow_point = true
     allow_e = true
+    non_digit = false
     while ch = getc
       case ch
-      when /[0-9_]/
+      when /[0-9]/
+	non_digit = false
+      when "_"
+	non_digit = ch
       when allow_point && "."
+	if non_digit
+	  RubyLex.fail SyntaxError, "trailing `#{non_digit}' in number"
+	end
 	type = TkFLOAT
 	if peek(0) !~ /[0-9]/
+	  type = TkINTEGER
 	  ungetc
 	  break
 	end
 	allow_point = false
       when allow_e && "e", allow_e && "E"
+	if non_digit
+	  RubyLex.fail SyntaxError, "trailing `#{non_digit}' in number"
+	end
 	type = TkFLOAT
 	if peek(0) =~ /[+-]/
 	  getc
 	end
 	allow_e = false
 	allow_point = false
+	non_digit = ch
       else
+	if non_digit
+	  RubyLex.fail SyntaxError, "trailing `#{non_digit}' in number"
+	end
 	ungetc
 	break
       end

lib/irb/ruby-token.rb

@@ -1,9 +1,9 @@
 #
 #   irb/ruby-token.rb - ruby tokens 
-#   	$Release Version: 0.9$
+#   	$Release Version: 0.9.5$
 #   	$Revision$
 #   	$Date$
-#   	by Keiju ISHITSUKA(keiju@ishitsuka.com)
+#   	by Keiju ISHITSUKA(keiju@ruby-lang.org)
 #
 # --
 #
@@ -64,7 +64,7 @@ module RubyToken
   class TkOPASGN < TkOp
     def initialize(seek, line_no, char_no, op)
       super(seek, line_no, char_no)
-      op = TkReading2Token[op] unless op.kind_of?(Symbol)
+      op = TkReading2Token[op][0] unless op.kind_of?(Symbol)
       @op = op
     end
     attr :op

lib/irb/slex.rb

@@ -1,9 +1,9 @@
 #
 #   irb/slex.rb - symple lex analizer
-#   	$Release Version: 0.9$
+#   	$Release Version: 0.9.5$
 #   	$Revision$
 #   	$Date$
-#   	by Keiju ISHITSUKA(keiju@ishituska.com)
+#   	by Keiju ISHITSUKA(keiju@ruby-lang.org)
 #
 # --
 #
@@ -11,28 +11,30 @@
 #
 
 require "e2mmap"
+require "irb/notifier"
 
-class SLex
+module IRB
+  class SLex
     @RCS_ID='-$Id$-'
 
     extend Exception2MessageMapper
     def_exception :ErrNodeNothing, "node nothing"
     def_exception :ErrNodeAlreadyExists, "node already exists"
 
-  class << self
+    DOUT = Notifier::def_notifier("SLex::")
-    attr_accessor :debug_level
+    D_WARN = DOUT::def_notifier(1, "Warn: ")
-    def debug?
+    D_DEBUG = DOUT::def_notifier(2, "Debug: ")
-      debug_level > 0
+    D_DETAIL = DOUT::def_notifier(4, "Detail: ")
-    end
+    
-  end
+    DOUT.level = Notifier::D_NOMSG
-  @debug_level = 0
 
     def initialize
       @head = Node.new("")
     end
     
     def def_rule(token, preproc = nil, postproc = nil, &block)
-    #      print node.inspect, "\n" if SLex.debug?
+      D_DETAIL.pp token
+
       postproc = block if block_given?
       node = create(token, preproc, postproc)
     end
@@ -51,6 +53,7 @@ class SLex
       node.preproc=proc
     end
     
+    #$BMW%A%'%C%/(B? 
     def postproc(token)
       node = search(token, proc)
       node.postproc=proc
@@ -73,7 +76,7 @@ class SLex
 	return @head.match_io(token)
       end
       ret = @head.match(token)
-    printf "match end: %s:%s", ret, token.inspect if SLex.debug?
+      D_DETAIL.exec_if{D_DEATIL.printf "match end: %s:%s\n", ret, token.inspect}
       ret
     end
     
@@ -116,9 +119,10 @@ class SLex
       def create_subnode(chrs, preproc = nil, postproc = nil)
 	if chrs.empty?
 	  if @postproc
+	    D_DETAIL.pp node
 	    SLex.fail ErrNodeAlreadyExists
 	  else
-	  print "Warn: change abstract node to real node\n" if SLex.debug?
+	    D_DEBUG.puts "change abstract node to real node."
 	    @preproc = preproc
 	    @postproc = postproc
 	  end
@@ -129,13 +133,13 @@ class SLex
 	if node = @Tree[ch]
 	  if chrs.empty?
 	    if node.postproc
-	    p node
+	      DebugLogger.pp node
-	    p self
+	      DebugLogger.pp self
-	    p ch
+	      DebugLogger.pp ch
-	    p chrs
+	      DebugLogger.pp chrs
 	      SLex.fail ErrNodeAlreadyExists
 	    else
-	    print "Warn: change abstract node to real node\n" if SLex.debug?
+	      D_WARN.puts "change abstract node to real node"
 	      node.preproc = preproc
 	      node.postproc = postproc
 	    end
@@ -161,10 +165,10 @@ class SLex
       #       able to be called arbitrary number of times. 
       #
       def match(chrs, op = "")
-      print "match>: ", chrs, "op:", op, "\n" if SLex.debug?
+	D_DETAIL.print "match>: ", chrs, "op:", op, "\n"
 	if chrs.empty?
 	  if @preproc.nil? || @preproc.call(op, chrs)
-	  printf "op1: %s\n", op if SLex.debug?
+	    DOUT.printf(D_DETAIL, "op1: %s\n", op)
 	    @postproc.call(op, chrs)
 	  else
 	    nil
@@ -177,7 +181,7 @@ class SLex
 	    else
 	      chrs.unshift ch
 	      if @postproc and @preproc.nil? || @preproc.call(op, chrs)
-	      printf "op2: %s\n", op.inspect if SLex.debug?
+		DOUT.printf(D_DETAIL, "op2: %s\n", op.inspect)
 		ret = @postproc.call(op, chrs)
 		return ret
 	      else
@@ -187,7 +191,7 @@ class SLex
 	  else
 	    chrs.unshift ch
 	    if @postproc and @preproc.nil? || @preproc.call(op, chrs)
-	    printf "op3: %s\n", op if SLex.debug?
+	      DOUT.printf(D_DETAIL, "op3: %s\n", op)
 	      @postproc.call(op, chrs)
 	      return ""
 	    else
@@ -208,7 +212,7 @@ class SLex
 	end
 	if ch.nil?
 	  if @preproc.nil? || @preproc.call(op, io)
-	  printf "op1: %s\n", op if SLex.debug?
+	    D_DETAIL.printf("op1: %s\n", op)
 	    @postproc.call(op, io)
 	  else
 	    nil
@@ -220,7 +224,7 @@ class SLex
 	    else
 	      io.ungetc ch
 	      if @postproc and @preproc.nil? || @preproc.call(op, io)
-	      printf "op2: %s\n", op.inspect if SLex.debug?
+		DOUT.exec_if(D_DETAIL) {printf "op2: %s\n", op.inspect}
 		@postproc.call(op, io)
 	      else
 		nil
@@ -229,7 +233,7 @@ class SLex
 	  else
 	    io.ungetc ch
 	    if @postproc and @preproc.nil? || @preproc.call(op, io)
-	    printf "op3: %s\n", op if SLex.debug?
+	      D_DETAIL.printf("op3: %s\n", op)
 	      @postproc.call(op, io)
 	    else
 	      nil
@@ -238,6 +242,7 @@ class SLex
 	end
       end
     end
+  end
 end
 
 if $0 == __FILE__
@@ -275,3 +280,4 @@ if $0 == __FILE__
   end
   exit
 end
+

lib/irb/version.rb

@@ -1,6 +1,6 @@
 #
 #   irb/version.rb - irb version definition file
-#   	$Release Version: 0.9$
+#   	$Release Version: 0.9.5$
 #   	$Revision$
 #   	$Date$
 #   	by Keiju ISHITSUKA(keiju@ishitsuka.com)
@@ -11,6 +11,6 @@
 #
 
 module IRB
-  @RELEASE_VERSION = "0.9"
+  @RELEASE_VERSION = "0.9.5"
-  @LAST_UPDATE_DATE = "02/07/03"
+  @LAST_UPDATE_DATE = "05/04/13"
 end

lib/irb/workspace.rb

@@ -1,9 +1,9 @@
 #
 #   irb/workspace-binding.rb - 
-#   	$Release Version: 0.9$
+#   	$Release Version: 0.9.5$
 #   	$Revision$
 #   	$Date$
-#   	by Keiju ISHITSUKA(keiju@ishitsuka.com)
+#   	by Keiju ISHITSUKA(keiju@ruby-lang.org)
 #
 # --
 #

lib/irb/ws-for-case-2.rb

@@ -1,9 +1,9 @@
 #
 #   irb/ws-for-case-2.rb - 
-#   	$Release Version: 0.9$
+#   	$Release Version: 0.9.5$
 #   	$Revision$
 #   	$Date$
-#   	by Keiju ISHITSUKA(keiju@ishitsuka.com)
+#   	by Keiju ISHITSUKA(keiju@ruby-lang.org)
 #
 # --
 #