19991012

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

ChangeLog

@@ -1,3 +1,17 @@
+Mon Oct 11 17:42:25 1999  Nobuyoshi Nakada  <nobu.nakada@nifty.ne.jp>
+
+	* parse.y (rb_intern): should generate distinct ID_ATTRSET symbols
+	  for the name with multiple `='s at the end.
+
+	* Makefile.in (CPPFLAGS): separate cpp flags from CFLAGS.
+
+Mon Oct 11 07:27:05 1999  Yukihiro Matsumoto  <matz@netlab.co.jp>
+
+	* eval.c (rb_eval): should not execute the `else' clause on the
+	  case the exceptions are handled by the `rescue' clause.
+
+	* signal.c (Init_signal): ignore SIGPIPE by default.
+
 Mon Oct  4 12:42:32 1999  Kazuhiko Izawa  <izawa@erec.che.tohoku.ac.jp>
 
 	* pack.c (pack_unpack): % in printf format should be %%.

Makefile.in

@@ -12,7 +12,8 @@ AUTOCONF = autoconf
 @SET_MAKE@
 
 prefix = @prefix@
-CFLAGS = @CFLAGS@ -I. -I@srcdir@ -I@includedir@
+CFLAGS = @CFLAGS@
+CPPFLAGS = -I. -I@srcdir@ -I@includedir@
 LDFLAGS = @STATIC@ $(CFLAGS) @LDFLAGS@
 XLDFLAGS = @XLDFLAGS@
 EXTLIBS = 
@@ -38,7 +39,7 @@ LIBRUBY_ALIASES= @LIBRUBY_ALIASES@
 LIBRUBY	      = @LIBRUBY@
 LIBRUBYARG    = @LIBRUBYARG@
 
-EXTOBJS	      = dmyext.@OBJEXT@
+EXTOBJS	      = 
 
 MAINOBJ	      = main.@OBJEXT@
 
@@ -83,20 +84,20 @@ OBJS	      = array.@OBJEXT@ \
 all:		miniruby$(EXEEXT) rbconfig.rb
 		@./miniruby$(EXEEXT) -Xext extmk.rb @EXTSTATIC@
 
-miniruby$(EXEEXT):	config.status $(LIBRUBY_A) $(MAINOBJ) $(EXTOBJS)
+miniruby$(EXEEXT):	config.status $(LIBRUBY_A) $(MAINOBJ) dmyext.@OBJEXT@
 		@rm -f $@
-		$(PURIFY) $(CC) $(LDFLAGS) $(MAINOBJ) $(EXTOBJS) $(LIBRUBY_A) $(LIBS) -o $@
+		$(PURIFY) $(CC) $(LDFLAGS) $(MAINOBJ) dmyext.@OBJEXT@ $(LIBRUBY_A) $(LIBS) -o $@
 
 $(PROGRAM):     $(LIBRUBY) $(MAINOBJ) $(EXTOBJS) 
 		@rm -f $@
 		$(PURIFY) $(CC) $(LDFLAGS) $(XLDFLAGS) $(MAINOBJ) $(EXTOBJS) $(LIBRUBYARG) $(LIBS) -o $@
 
-$(LIBRUBY_A):	$(OBJS)
+$(LIBRUBY_A):	$(OBJS) dmyext.@OBJEXT@
-		@AR@ rcu $@ $(OBJS)
+		@AR@ rcu $@ $(OBJS) dmyext.@OBJEXT@
 		@-@RANLIB@ $@ 2> /dev/null || true
 
-$(LIBRUBY_SO):	$(OBJS)
+$(LIBRUBY_SO):	$(OBJS) dmyext.@OBJEXT@
-		$(LDSHARED) $(DLDFLAGS) $(SOLIBS) $(OBJS) -o $@
+		$(LDSHARED) $(DLDFLAGS) $(SOLIBS) $(OBJS) dmyext.@OBJEXT@ -o $@
 		@-./miniruby -e 'ARGV.each{|link| File.delete link if File.exist? link; \
 						  File.symlink "$(LIBRUBY_SO)", link}' \
 				$(LIBRUBY_ALIASES) || true

README.EXT

@@ -874,6 +874,10 @@ Returns the name corresponding ID.
 
 Returns the name of the class.
 
+  int rb_respond_to(VALUE object, ID id)
+
+Returns true if the object reponds to the message specified by id.
+
 ** Instance Variables
 
  VALUE rb_iv_get(VALUE obj, char *name)

README.EXT.jp

@@ -1013,7 +1013,7 @@ VALUE rb_funcall2(VALUE recv, ID mid, int argc, VALUE *argv)
 
 VALUE rb_eval_string(char *str)
 
-  文字列をRubyとスクリプトしてコンパイル・実行する．
+  文字列をRubyスクリプトとしてコンパイル・実行する．
 
 ID rb_intern(char *name)
 
@@ -1028,6 +1028,10 @@ char *rb_class2name(VALUE class)
   classの名前を返す(デバッグ用)．classが名前を持たない時には, 
   祖先を遡って名前を持つクラスの名前を返す．
 
+int rb_respond_to(VALUE obj, ID id)
+
+  objがidで示されるメソッドを持つかどうかを返す。
+
 ** インスタンス変数
 
 VALUE rb_iv_get(VALUE obj, char *name)

ToDo

@@ -15,6 +15,7 @@ Language Spec.
 
 Hacking Interpreter
 
+* hash[key] = nil may not remove entry; hashes may have nil as the value.
 * RUBYOPT environment variable
 * non-blocking open (e.g. named pipe) for thread
 * avoid blocking with gethostbyname/gethostbyaddr
@@ -26,6 +27,7 @@ Hacking Interpreter
 
 Standard Libraries
 
+* Array#{first,last,at}
 * Struct::new([name,]member,...) ??
 * String#scanf(?)
 * Object#fmt(?)
@@ -44,7 +46,6 @@ Extension Libraries
 
 Ruby Libraries
 
-* net/pop.rb net/smtp.rb
 * httplib.rb, urllib.rb, nttplib.rb, etc.
 * format like perl's
 

defines.h

@@ -14,7 +14,7 @@
 
 /* define RUBY_USE_EUC/SJIS for default kanji-code */
 #ifndef DEFAULT_KCODE
-#if defined(MSDOS) || defined(__CYGWIN32__) || defined(__human68k__) || defined(__MACOS__) || defined(__EMX__) || defined(OS2)
+#if defined(MSDOS) || defined(__CYGWIN32__) || defined(__human68k__) || defined(__MACOS__) || defined(__EMX__) || defined(OS2) || defined(NT)
 #define DEFAULT_KCODE KCODE_SJIS
 #else
 #define DEFAULT_KCODE KCODE_EUC

error.c

@@ -330,7 +330,7 @@ exc_inspect(exc)
     str = rb_str_new2("#<");
     klass = rb_class_path(klass);
     rb_str_concat(str, klass);
-    rb_str_cat(str, ":", 1);
+    rb_str_cat(str, ": ", 2);
     rb_str_concat(str, exc);
     rb_str_cat(str, ">", 1);
 

eval.c

@@ -2084,10 +2084,12 @@ rb_eval(self, node)
 		    resq = resq->nd_head; /* next rescue */
 		}
 	    }
-	    if (state) JUMP_TAG(state);
+	    else if (node->nd_else) { /* else clause given */
-	    if (node->nd_else) { /* no exception raised, else clause given */
+		if (!state) {	/* no exception raised */
-		result = rb_eval(self, node->nd_else);
+		    result = rb_eval(self, node->nd_else);
+		}
 	    }
+	    if (state) JUMP_TAG(state);
 	}
         break;
 

ext/socket/extconf.rb

@@ -149,6 +149,8 @@ EOF
 end
 
 have_header("sys/sysctl.h")
+have_header("netinet/tcp.h")
+have_header("netinet/udp.h")
 
 $getaddr_info_ok = false
 if try_run(<<EOF)

ext/socket/socket.c

@@ -16,6 +16,12 @@
 #ifndef NT
 #include <sys/socket.h>
 #include <netinet/in.h>
+#ifdef NETINET_TCP
+# include <netinet/tcp.h>
+#endif
+#ifdef NETINET_UDP
+# include <netinet/udp.h>
+#endif
 #include <netdb.h>
 #endif
 #include <errno.h>

file.c

@@ -1521,20 +1521,20 @@ rb_f_test(argc, argv)
 	  case '-':
 	    if (st1.st_dev == st2.st_dev && st1.st_ino == st2.st_ino)
 		return Qtrue;
-	    break;
+            return Qfalse;
-
+                        
 	  case '=':
 	    if (st1.st_mtime == st2.st_mtime) return Qtrue;
-	    break;
+	    return Qfalse;
-
+                        
 	  case '>':
 	    if (st1.st_mtime > st2.st_mtime) return Qtrue;
-	    break;
+	    return Qfalse;
-
+            
 	  case '<':
 	    if (st1.st_mtime < st2.st_mtime) return Qtrue;
-	    break;
+	    return Qfalse;
-	}
+        }
     }
     /* unknown command */
     rb_raise(rb_eArgError, "unknown command ?%c", cmd);

gc.c

@@ -10,7 +10,6 @@
 
 ************************************************/
 
-#define RUBY_NO_INLINE
 #include "ruby.h"
 #include "rubysig.h"
 #include "st.h"

hash.c

@@ -264,6 +264,7 @@ rb_hash_s_create(argc, argv, klass)
     hash = rb_hash_new2(klass);
 
     for (i=0; i<argc; i+=2) {
+	if (NIL_P(argv[i+1])) continue;
 	st_insert(RHASH(hash)->tbl, argv[i], argv[i+1]);
     }
 

lib/cgi-lib.rb

@@ -117,6 +117,17 @@ class CGI < SimpleDelegator
   LF  = "\012"
   EOL = CR + LF
 
+  RFC822_DAYS = %w[ Sun Mon Tue Wed Thu Fri Sat ]
+  RFC822_MONTHS = %w[ Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec ]
+
+  # make rfc1123 date string
+  def rfc1123_date(time)
+    t = time.clone.gmtime
+    return format("%s, %.2d %s %d %.2d:%.2d:%.2d GMT",
+                RFC822_DAYS[t.wday], t.day, RFC822_MONTHS[t.month-1], t.year,
+                t.hour, t.min, t.sec)
+  end
+
   # escape url encode
   def escape(str)
     str.gsub(/[^a-zA-Z0-9_\-.]/n){ sprintf("%%%02X", $&.unpack("C")[0]) }
@@ -132,7 +143,7 @@ class CGI < SimpleDelegator
     str.gsub(/&/, "&amp;").gsub(/\"/, "&quot;").gsub(/>/, "&gt;").gsub(/</, "&lt;")
   end
 
-  module_function :escape, :unescape, :escapeHTML
+  module_function :escape, :unescape, :escapeHTML, :rfc1123_date
 
   # offline mode. read name=value pairs on standard input.
   def read_from_cmdline
@@ -160,7 +171,7 @@ class CGI < SimpleDelegator
       input.read(Integer(ENV['CONTENT_LENGTH'])) or ""
     else
       read_from_cmdline
-    end.split(/&/).each do |x|
+    end.split(/[&;]/).each do |x|
       key, val = x.split(/=/,2).collect{|x|unescape(x)}
       if @inputs.include?(key)
         @inputs[key] += "\0" + (val or "")
@@ -201,7 +212,7 @@ class CGI < SimpleDelegator
     "Set-Cookie: " + options['name'] + '=' + escape(options['value']) +
     (options['domain']  ? '; domain='  + options['domain'] : '') +
     (options['path']    ? '; path='    + options['path']   : '') +
-    (options['expires'] ? '; expires=' + options['expires'].strftime("%a, %d %b %Y %X %Z") : '') +
+    (options['expires'] ? '; expires=' + rfc1123_date(options['expires']) : '') +
     (options['secure']  ? '; secure' : '')
   end
 
@@ -218,7 +229,7 @@ class CGI < SimpleDelegator
     else
       if options.delete("nph") or (ENV['SERVER_SOFTWARE'] =~ /IIS/)
         [(ENV['SERVER_PROTOCOL'] or "HTTP/1.0") + " 200 OK",
-         "Date: " + Time.now.gmtime.strftime("%a, %d %b %Y %X %Z"),
+         "Date: " + rfc1123_date(Time.now),
          "Server: " + (ENV['SERVER_SOFTWARE'] or ""),
          "Connection: close"] +
         (options.empty? ? ["Content-Type: text/html"] : options)

lib/matrix.rb

@@ -1,8 +1,9 @@
+#!/usr/local/bin/ruby
 #
 #   matrix.rb - 
 #   	$Release Version: 1.0$
-#   	$Revision: 1.9 $
+#   	$Revision: 1.11 $
-#   	$Date: 1999/08/24 10:25:00 $
+#   	$Date: 1999/10/06 11:01:53 $
 #       Original Version from Smalltalk-80 version
 #	   on July 23, 1985 at 8:37:17 am
 #   	by Keiju ISHITSUKA
@@ -38,7 +39,7 @@
 #	    creates a matrix where `rows' indicates rows. 
 #	    `rows' is an array of arrays, 
 #	    e.g, Matrix[[11, 12], [21, 22]]
-#	Matrix.rows(rows, copy = true)
+#	Matrix.rows(rows, copy = TRUE)
 #	    creates a matrix where `rows' indicates rows. 
 #           if optional argument `copy' is false, use the array as
 #	    internal structure of the metrix without copying.
@@ -144,7 +145,7 @@
 #
 #   INSTANCE CREATION:
 #	Vector.[](*array)
-#	Vector.elements(array, copy = true)
+#	Vector.elements(array, copy = TRUE)
 #   ACCSESSING:
 #	[](i)
 #	size
@@ -185,7 +186,7 @@ module ExceptionForMatrix
 end
 
 class Matrix
-  @RCS_ID='-$Id: matrix.rb,v 1.8 1999/02/17 12:34:19 keiju Exp keiju $-'
+  @RCS_ID='-$Id: matrix.rb,v 1.11 1999/10/06 11:01:53 keiju Exp keiju $-'
   
 #  extend Exception2MessageMapper
   include ExceptionForMatrix
@@ -194,10 +195,10 @@ class Matrix
   private_class_method :new
   
   def Matrix.[](*rows)
-    new(:init_rows, rows, false)
+    new(:init_rows, rows, FALSE)
   end
   
-  def Matrix.rows(rows, copy = true)
+  def Matrix.rows(rows, copy = TRUE)
     new(:init_rows, rows, copy)
   end
   
@@ -209,7 +210,7 @@ class Matrix
 	columns[j][i]
       }
     }
-    Matrix.rows(rows, false)
+    Matrix.rows(rows, FALSE)
   end
   
   def Matrix.diagonal(*values)
@@ -220,7 +221,8 @@ class Matrix
       row[j] = values[j]
       row
     }
-    rows(rows, false)
+    self
+    rows(rows, FALSE)
   end
   
   def Matrix.scalar(n, value)
@@ -242,11 +244,11 @@ class Matrix
   def Matrix.row_vector(row)
     case row
     when Vector
-      Matrix.rows([row.to_a], false)
+      Matrix.rows([row.to_a], FALSE)
     when Array
-      Matrix.rows([row.dup], false)
+      Matrix.rows([row.dup], FALSE)
     else
-      Matrix.row([[row]], false)
+      Matrix.row([[row]], FALSE)
     end
   end
   
@@ -311,13 +313,13 @@ class Matrix
 	|i|
 	@rows[i][j]
       }
-      Vector.elements(col, false)
+      Vector.elements(col, FALSE)
     end
   end
   
   def collect
     rows = @rows.collect{|row| row.collect{|e| yield e}}
-    Matrix.rows(rows, false)
+    Matrix.rows(rows, FALSE)
   end
   alias map collect
   
@@ -345,7 +347,7 @@ class Matrix
       |row|
       row[from_col, size_col]
     }
-    Matrix.rows(rows, false)
+    Matrix.rows(rows, FALSE)
   end
   
   # TESTING
@@ -363,20 +365,20 @@ class Matrix
   
   # COMPARING
   def ==(other)
-    return false unless Matrix === other
+    return FALSE unless Matrix === other
     
     other.compare_by_row_vectors(@rows)
   end
   alias eql? ==
   
   def compare_by_row_vectors(rows)
-    return false unless @rows.size == rows.size
+    return FALSE unless @rows.size == rows.size
     
     0.upto(@rows.size - 1) do
       |i|
-      return false unless @rows[i] == rows[i]
+      return FALSE unless @rows[i] == rows[i]
     end
-    true
+    TRUE
   end
   
   def clone
@@ -405,7 +407,7 @@ class Matrix
 	  e * m
 	}
       }
-      return Matrix.rows(rows, false)
+      return Matrix.rows(rows, FALSE)
     when Vector
       m = Matrix.column_vector(m)
       r = self * m
@@ -425,7 +427,7 @@ class Matrix
 	  vij
 	}
       }
-      return Matrix.rows(rows, false)
+      return Matrix.rows(rows, FALSE)
     else
       x, y = m.coerce(self)
       return x * y
@@ -453,7 +455,7 @@ class Matrix
 	self[i, j] + m[i, j]
       }
     }
-    Matrix.rows(rows, false)
+    Matrix.rows(rows, FALSE)
   end
 
   def -(m)
@@ -477,7 +479,7 @@ class Matrix
 	self[i, j] - m[i, j]
       }
     }
-    Matrix.rows(rows, false)
+    Matrix.rows(rows, FALSE)
   end
   
   def /(other)
@@ -490,7 +492,7 @@ class Matrix
 	  e / other
 	}
       }
-      return Matrix.rows(rows, false)
+      return Matrix.rows(rows, FALSE)
     when Matrix
       return self * other.inverse
     else
@@ -619,17 +621,36 @@ class Matrix
     k = 0
     begin
       if (akk = a[k][k]) == 0
-	i = -1
+	i = k
-	nothing = false
+	exists = true
 	begin
 	  if (i += 1) > column_size - 1
-	    nothing = true
+	    exists = false
 	    break
 	  end
 	end while a[i][k] == 0
-	next if nothing
+	if exists
-	a[i], a[k] = a[k], a[i]
+	  a[i], a[k] = a[k], a[i]
-	akk = a[k][k]
+	  akk = a[k][k]
+	else
+	  i = k
+	  exists = true
+	  begin
+	    if (i += 1) > row_size - 1
+	      exists = false
+	      break
+	    end
+	  end while a[k][i] == 0
+	  if exists
+	    k.upto(column_size - 1) do
+	      |j|
+	      a[j][k], a[j][i] = a[j][i], a[j][k]
+	    end
+	    akk = a[k][k]
+	  else
+	    next
+	  end
+	end
       end
       (k + 1).upto(row_size - 1) do
 	|i|
@@ -806,10 +827,10 @@ class Vector
   
   private_class_method :new
   def Vector.[](*array)
-    new(:init_elements, array, copy = false)
+    new(:init_elements, array, copy = FALSE)
   end
   
-  def Vector.elements(array, copy = true)
+  def Vector.elements(array, copy = TRUE)
     new(:init_elements, array, copy)
   end
   
@@ -854,7 +875,7 @@ class Vector
 
   # COMPARING
   def ==(other)
-    return false unless Vector === other
+    return FALSE unless Vector === other
     
     other.compare_by(@elements)
   end
@@ -874,11 +895,11 @@ class Vector
   
   # ARITHMETIC
   
-  def *(x) # is matrix or number
+  def *(x) "is matrix or number"
     case x
     when Numeric
       els = @elements.collect{|e| e * x}
-      Vector.elements(els, false)
+      Vector.elements(els, FALSE)
     when Matrix
       self.covector * x
     else
@@ -895,7 +916,7 @@ class Vector
 	|v1, v2|
 	v1 + v2
       }
-      Vector.elements(els, false)
+      Vector.elements(els, FALSE)
     when Matrix
       Matrix.column_vector(self) + v
     else
@@ -912,7 +933,7 @@ class Vector
 	|v1, v2|
 	v1 - v2
       }
-      Vector.elements(els, false)
+      Vector.elements(els, FALSE)
     when Matrix
       Matrix.column_vector(self) - v
     else
@@ -939,7 +960,7 @@ class Vector
       |v|
       yield v
     }
-    Vector.elements(els, false)
+    Vector.elements(els, FALSE)
   end
   alias map collect
   
@@ -948,7 +969,7 @@ class Vector
       |v1, v2|
       yield v1, v2
     }
-    Vector.elements(els, false)
+    Vector.elements(els, FALSE)
   end
   
   def r
@@ -999,4 +1020,3 @@ class Vector
     str = "Vector"+@elements.inspect
   end
 end
-

lib/telnet.rb

@@ -1,11 +1,11 @@
 =begin
-$Date: 1999/09/21 21:24:07 $
+$Date: 1999/10/04 22:51:26 $
 
 == SIMPLE TELNET CLIANT LIBRARY
 
 telnet.rb
 
-Version 0.50
+Version 1.00
 
 Wakou Aoyama <wakou@fsinet.or.jp>
 
@@ -155,6 +155,15 @@ of cource, set sync=true or flush is necessary.
 
 == HISTORY
 
+=== Version 1.00
+
+1999/10/04 22:51:26
+
+- bug fix: waitfor(preprocess) method
+  thanks to Shin-ichiro Hara <sinara@blade.nagaokaut.ac.jp>
+- add simple support for AO, DM, IP, NOP, SB, SE
+- COUTION! TimeOut --> TimeoutError
+
 === Version 0.50
 
 1999/09/21 21:24:07
@@ -331,7 +340,6 @@ require "socket"
 require "delegate"
 require "thread"
 require "timeout"
-TimeOut = TimeoutError
 
 class Telnet < SimpleDelegator
 
@@ -405,8 +413,8 @@ class Telnet < SimpleDelegator
   EOL  = CR + LF
 v = $-v
 $-v = false
-  VERSION = "0.50"
+  VERSION = "1.00"
-  RELEASE_DATE = "$Date: 1999/09/21 21:24:07 $"
+  RELEASE_DATE = "$Date: 1999/10/04 22:51:26 $"
 $-v = v
 
   def initialize(options)
@@ -456,7 +464,7 @@ $-v = v
           }
         end
       rescue TimeoutError
-        raise TimeOut, "timed-out; opening of the host"
+        raise TimeoutError, "timed-out; opening of the host"
       rescue
         @log.write($!.to_s + "\n") if @options.key?("Output_log")
         @dumplog.write($!.to_s + "\n") if @options.key?("Dump_log")
@@ -502,10 +510,10 @@ $-v = v
     str.gsub!(/#{EOL}/no, "\n") unless @options["Binmode"]
 
     str.gsub!(/#{IAC}(
-                 #{IAC}|
+                 [#{IAC}#{AO}#{AYT}#{DM}#{IP}#{NOP}]|
-                 #{AYT}|
                  [#{DO}#{DONT}#{WILL}#{WONT}]
-                   [#{OPT_BINARY}-#{OPT_NEW_ENVIRON}#{OPT_EXOPL}]
+                   [#{OPT_BINARY}-#{OPT_NEW_ENVIRON}#{OPT_EXOPL}]|
+                 #{SB}[^#{IAC}]*#{IAC}#{SE}
                )/xno){
       if    IAC == $1         # handle escaped IAC characters
         IAC
@@ -539,6 +547,8 @@ $-v = v
           self.write(IAC + DONT + OPT_SGA)
         end
         ''
+      else
+        ''
       end
     }
 
@@ -551,7 +561,7 @@ $-v = v
 
     if options.kind_of?(Hash)
       prompt   = if options.key?("Match")
-                   options["Match"]   
+                   options["Match"]
                  elsif options.key?("Prompt")
                    options["Prompt"]
                  elsif options.key?("String")
@@ -569,24 +579,30 @@ $-v = v
 
     line = ''
     buf = ''
+    rest = ''
     until(prompt === line and not IO::select([@sock], nil, nil, waittime))
       unless IO::select([@sock], nil, nil, time_out)
-        raise TimeOut, "timed-out; wait for the next data"
+        raise TimeoutError, "timed-out; wait for the next data"
       end
       begin
         c = @sock.sysread(1024 * 1024)
         @dumplog.print(c) if @options.key?("Dump_log")
-        buf.concat c
         if @options["Telnetmode"]
-          buf = preprocess(buf) 
+          if Integer(c.rindex(/#{IAC}#{SE}/no)) <
-          if /#{IAC}.?\z/no === buf
+             Integer(c.rindex(/#{IAC}#{SB}/no))
-            next
+            buf = preprocess(rest + c[0 ... c.rindex(/#{IAC}#{SB}/no)])
-          end 
+            rest = c[c.rindex(/#{IAC}#{SB}/no) .. -1]
-        end 
+          elsif pt = c.rindex(/#{IAC}[^#{IAC}#{AO}#{AYT}#{DM}#{IP}#{NOP}]?\z/no)
+            buf = preprocess(rest + c[0 ... pt])
+            rest = c[pt .. -1]
+          else
+            buf = preprocess(c)
+            rest = ''
+          end
+        end
         @log.print(buf) if @options.key?("Output_log")
-        yield buf if iterator?
         line.concat(buf)
-        buf = ''
+        yield buf if iterator?
       rescue EOFError # End of file reached
         if line == ''
           line = nil

parse.y

@@ -4420,11 +4420,11 @@ rb_intern(name)
 	    strncpy(buf, name, last);
 	    buf[last] = '\0';
 	    id = rb_intern(buf);
-	    if (id > LAST_TOKEN) {
+	    if (id > LAST_TOKEN && !is_attrset_id(id)) {
 		id = rb_id_attrset(id);
 		goto id_regist;
 	    }
-	    id |= ID_ATTRSET;
+	    id = ID_ATTRSET;
 	}
 	else if (ISUPPER(name[0])) {
 	    id = ID_CONST;

sample/mine.rb

@@ -1,3 +1,5 @@
+#! /usr/bin/ruby -Ke
+
 class Board
   def clr
     print "\e[2J"

signal.c

@@ -294,6 +294,13 @@ posix_signal(signum, handler)
     sigact.sa_handler = handler;
     sigemptyset(&sigact.sa_mask);
     sigact.sa_flags = 0;
+#ifdef SA_RESTART
+    sigact.sa_flags |= SA_RESTART; /* SVR4, 4.3+BSD */
+#endif
+#ifdef SA_NOCLDWAIT
+    if (signum == SIGCHLD && handler == (RETSIGTYPE)SIG_IGN)
+	sigact.sa_flags |= SA_NOCLDWAIT;
+#endif
     sigaction(signum, &sigact, 0);
 }
 #define ruby_signal(sig,handle) posix_signal((sig),(handle))
@@ -313,9 +320,6 @@ signal_exec(sig)
 #ifndef NT
 	  case SIGHUP:
 #endif
-#ifdef SIGPIPE
-	  case SIGPIPE:
-#endif
 #ifdef SIGQUIT
 	  case SIGQUIT:
 #endif
@@ -345,7 +349,7 @@ sighandle(sig)
 	rb_bug("trap_handler: Bad signal %d", sig);
     }
 
-#if !defined(POSIX_SIGNAL) && !defined(BSD_SIGNAL)
+#if !defined(BSD_SIGNAL)
     ruby_signal(sig, sighandle);
 #endif
 
@@ -508,9 +512,6 @@ trap(arg)
 #endif
 #ifdef SIGUSR2
 	  case SIGUSR2:
-#endif
-#ifdef SIGPIPE
-	  case SIGPIPE:
 #endif
 	    func = sighandle;
 	    break;
@@ -523,6 +524,11 @@ trap(arg)
 	  case SIGSEGV:
 	    func = sigsegv;
 	    break;
+#endif
+#ifdef SIGPIPE
+	  case SIGPIPE:
+	    func = SIG_IGN;
+	    break;
 #endif
 	}
     }
@@ -614,9 +620,6 @@ Init_signal()
 #ifndef NT
     ruby_signal(SIGHUP, sighandle);
 #endif
-#ifdef SIGPIPE
-    ruby_signal(SIGPIPE, sighandle);
-#endif
 #ifdef SIGQUIT
     ruby_signal(SIGQUIT, sighandle);
 #endif
@@ -636,5 +639,8 @@ Init_signal()
 #ifdef SIGSEGV
     ruby_signal(SIGSEGV, sigsegv);
 #endif
+#ifdef SIGPIPE
+    ruby_signal(SIGPIPE, SIG_IGN);
+#endif
 #endif /* MACOS_UNUSE_SIGNAL */
 }