[ruby-dev:16973] Re: Regexp#to_s

なかだです。

At Fri, 19 Apr 2002 15:09:35 +0900,
Yukihiro Matsumoto wrote:
> |もう[ruby-dev:16960]が入ってしまったようなので、こっちも当てと
> |きました。
> 
> あ...、ホントは手元で試してたのを間違えてコミットしちゃった
> んですが。^^;;;

あれま。

> 今さらですが、どうするのがよいと思いますか？
> to_sの度にコンパイルするのはなんとなく大げさスギのような印象
> もあるのですが。

カッコが問題になるのって、文字クラス以外はどんな場合でしょう。
それを検証するのがめんどくさかったのでコンパイルさせてしまった
んですが。

> あと /(?-i).../ には対応してないし。

あー、そんなのもありましたね。


Index: re.c
===================================================================
RCS file: /cvs/ruby/src/ruby/re.c,v
retrieving revision 1.65
diff -u -2 -p -r1.65 re.c
--- re.c	2002/04/19 05:59:45	1.65
+++ re.c	2002/04/19 06:32:20
@@ -368,8 +368,9 @@ rb_reg_to_s(re)
     ptr = RREGEXP(re)->str;
     len = RREGEXP(re)->len;
-    if (len >= 4 && ptr[0] == '(' && ptr[1] == '?' && ptr[len-1] == ')') {
+  again:
+    if (len >= 4 && ptr[0] == '(' && ptr[1] == '?') {
 	int err = 1;
 	ptr += 2;
-	if ((len -= 3) > 0) {
+	if ((len -= 2) > 0) {
 	    do {
 		if (*ptr == 'm') {
@@ -403,9 +404,15 @@ rb_reg_to_s(re)
 	    } while (--len > 0);
 	}
-	if (*ptr == ':') {
-	    Regexp *rp = ALLOC(Regexp);
-	    MEMZERO((char *)rp, Regexp, 1);
+	if (*ptr == ')') {
+	    --len;
+	    ++ptr;
+	    goto again;
+	}
+	if (*ptr == ':' && ptr[len-1] == ')') {
+	    Regexp *rp;
 	    kcode_set_option(re);
-	    err = re_compile_pattern(++ptr, --len, rp) != 0;
+	    rp = ALLOC(Regexp);
+	    MEMZERO((char *)rp, Regexp, 1);
+	    err = re_compile_pattern(++ptr, len -= 2, rp) != 0;
 	    kcode_reset_option();
 	    re_free_pattern(rp);


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