[ruby-list:2383] Re: ruby 1.0-970318 released

まつもと ゆきひろです．

In message "[ruby-list:2382] Re: ruby 1.0-970318 released"
    on 97/03/18, Jun Kuroda <[e-mail]> writes:
|黒田です.

|ruby 1.0-970306 からですが,
|
|- --
|while gets
|  if (/Done/)
|    print $_
|  end
|end
|- --
|
|で "Done" がなくても TRUE になっているようです. 今ごろ言ってす
|みません. なぜだか忙しいんで...

括弧がついているとダメみたいですね．というわけでパッチです．

--- parse.y~	Fri Mar 14 14:30:43 1997
+++ parse.y	Tue Mar 18 16:17:55 1997
@@ -217,6 +217,10 @@
 		    }
 		  compexpr
 		    {
+			NODE *nl = NEW_NEWLINE();
+
+			fixpos(nl, $2);
+			$2 = block_append(nl, $2);
 			eval_tree = block_append(eval_tree, $2);
                         top_local_setup();
 			cur_cref = 0;
@@ -229,11 +233,6 @@
 			$$ = 0;
 		    }
 		| expr
-		    {
-		        NODE *nl = NEW_NEWLINE();
-		        fixpos(nl, $1);
-			$$ = block_append(nl, $1);
-		    }
 		| exprs terms expr
 		    {
 		        NODE *nl = NEW_NEWLINE();


|ruby 1.0-970305 では, '\'自身, '&'自身に置換できませんでした.
|最新 ver. では試していません.

直っているようです．と，思ったらバグが残っていました．

--- re.c~	Tue Mar 11 09:34:27 1997
+++ re.c	Tue Mar 18 16:49:43 1997
@@ -583 +583,3 @@
-	switch (c = *s++) {
+	c = *s++;
+	p = s;
+	switch (c) {
@@ -594 +595,0 @@
-	    p = s;
@@ -599 +599,0 @@
-	    p = s;
@@ -608,4 +608,3 @@
-	  case '/':
-	    no = -1;
-	    s--;
-	    break;
+	  case '\\':
+	    str_cat(val, s-1, 1);
+	    continue;
@@ -614,3 +613,2 @@
-	    no = -1;
-	    s -= 2;
-	    break;
+	    str_cat(val, s-2, 2);
+	    continue;
@@ -618 +615,0 @@
-	p = s;


これらのパッチが当たったものを再度putしておきます．もうすで
に持っていっちゃった人はもう一度取り直してね．ChangeLogをみ
て区別してください．ごめんね．

                                まつもと ゆきひろ /:|)