[ruby-dev:11758] [PATCH & Q] literal in condition

なかだです。

  ちょっと NODE 関連を調べてたんですが、条件式での文字列リテラルが正規表
現と見なされないようです。

  それと if /RE/ でだけ $_ が String でなくても例外にならないんですが、
これってそういうもん?

  ついでに、条件式が数値リテラルだったときに .. みたいに $. と比較するっ
てのはどうかなとか思ったんですが。


diff -pruPX ./.excludes current/eval.c devel/eval.c
--- current/eval.c	Tue Dec 12 16:42:21 2000
+++ devel/eval.c	Fri Dec 15 14:45:41 2000
@@ -1982,7 +1982,7 @@ rb_eval(self, n)
 
 	/* nodes for speed-up(default match) */
       case NODE_MATCH:
-	result = rb_reg_match2(node->nd_head->nd_lit);
+	result = rb_reg_match2(node->nd_lit);
 	break;
 
 	/* nodes for speed-up(literal match) */
diff -pruPX ./.excludes current/parse.y devel/parse.y
--- current/parse.y	Tue Dec 12 16:42:28 2000
+++ devel/parse.y	Fri Dec 15 15:01:08 2000
@@ -4413,6 +4416,9 @@ cond0(node)
 
     assign_in_cond(node);
     switch (type) {
+      case NODE_DSTR:
+	nd_set_type(node, NODE_DREGX);
+	/* fall through */
       case NODE_DREGX:
       case NODE_DREGX_ONCE:
 	local_cnt('_');
@@ -4428,16 +4434,17 @@ cond0(node)
 	node->nd_cnt = local_append(0);
 	return node;
 
+      case NODE_STR:
+	node->nd_lit = rb_reg_new(RSTRING(node->nd_lit)->ptr,RSTRING(node->nd_lit)->len,0);
+	goto regexp;
+
       case NODE_LIT:
 	if (TYPE(node->nd_lit) == T_REGEXP) {
+	  regexp:
+	    nd_set_type(node, NODE_MATCH);
 	    local_cnt('_');
 	    local_cnt('~');
-	    return NEW_MATCH(node);
-	}
-	if (TYPE(node->nd_lit) == T_STRING) {
-	    local_cnt('_');
-	    local_cnt('~');
-	    return NEW_MATCH(rb_reg_new(RSTRING(node)->ptr,RSTRING(node)->len,0));
+	    return node;
 	}
       default:
 	return node;
@@ -4464,7 +4471,10 @@ cond2(node)
 
     node = cond(node);
     type = nd_type(node);
-    if (type == NODE_NEWLINE) node = node->nd_next;
+    if (type == NODE_NEWLINE) {
+	node = node->nd_next;
+	type = nd_type(node);
+    }
     if (type == NODE_LIT && FIXNUM_P(node->nd_lit)) {
 	return call_op(node,tEQ,1,NEW_GVAR(rb_intern("$.")));
     }
diff -pruPX ./.excludes current/re.c devel/re.c
--- current/re.c	Mon Nov 20 16:31:45 2000
+++ devel/re.c	Fri Dec 15 11:28:26 2000
@@ -941,17 +941,7 @@ VALUE
 rb_reg_match2(re)
     VALUE re;
 {
-    int start;
-    VALUE line = rb_lastline_get();
-
-    if (TYPE(line) != T_STRING)
-	return Qnil;
-
-    start = rb_reg_search(re, line, 0, 0);
-    if (start < 0) {
-	return Qnil;
-    }
-    return INT2FIX(start);
+    return rb_reg_match(re, rb_lastline_get());
 }
 
 static VALUE


-- 
--- 僕の前にBugはない。
--- 僕の後ろにBugはできる。
    中田 伸悦