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

なかだです。

At Thu, 18 Apr 2002 17:05:28 +0900,
Tanaka Akira wrote:
> 実装しました。

余分な(?:)を付けないようにしてみましたが、ここまですることもな
い?


Index: re.c
===================================================================
RCS file: /cvs/ruby/src/ruby/re.c,v
retrieving revision 1.63
diff -u -2 -p -r1.63 re.c
--- re.c	2002/04/18 08:46:18	1.63
+++ re.c	2002/04/18 10:18:27
@@ -360,35 +360,92 @@ rb_reg_to_s(re)
     VALUE re;
 {
-    int all;
+    int options;
+    const int embeddable = RE_OPTION_MULTILINE|RE_OPTION_IGNORECASE|RE_OPTION_EXTENDED;
+    long len;
+    const char* ptr;
     VALUE str = rb_str_buf_new2("(?");
 
     rb_reg_check(re);
+
+    options = RREGEXP(re)->ptr->options;
+    ptr = RREGEXP(re)->str;
+    len = RREGEXP(re)->len;
+    if (len >= 4 && ptr[0] == '(' && ptr[1] == '?' && ptr[len-1] == ')') {
+	int nest = 0;
+	ptr += 2;
+	if ((len -= 3) > 0) {
+	    do {
+		if (*ptr == 'm') {
+		    options |= RE_OPTION_MULTILINE;
+		}
+		else if (*ptr == 'i') {
+		    options |= RE_OPTION_IGNORECASE;
+		}
+		else if (*ptr == 'x') {
+		    options |= RE_OPTION_EXTENDED;
+		}
+		else break;
+		++ptr;
+	    } while (--len > 0);
+	}
+	if (len > 1 && *ptr == '-') {
+	    ++ptr;
+	    --len;
+	    do {
+		if (*ptr == 'm') {
+		    options &= ~RE_OPTION_MULTILINE;
+		}
+		else if (*ptr == 'i') {
+		    options &= ~RE_OPTION_IGNORECASE;
+		}
+		else if (*ptr == 'x') {
+		    options &= ~RE_OPTION_EXTENDED;
+		}
+		else break;
+		++ptr;
+	    } while (--len > 0);
+	}
+	if (*ptr == ':') {
+	    const char* p = ++ptr;
+	    long l = --len;
+	    kcode_set_option(re);
+	    while (len > 0) {
+		int n;
+		if (*p == '(') {
+		    ++nest;
+		}
+		else if (*p == ')') {
+		    if (--nest < 0) break;
+		}
+		else if (*p == '\\') {
+		    --l;
+		    ++p;
+		}
+		n = mbclen(*p);
+		l -= n;
+		p += n;
+	    }
+	    kcode_reset_option();
+	}
+	if (nest) {
+	    options = RREGEXP(re)->ptr->options;
+	    ptr = RREGEXP(re)->str;
+	    len = RREGEXP(re)->len;
+	}
+    }
 
-    all = 1;
-    if (RREGEXP(re)->ptr->options & RE_OPTION_MULTILINE)
-	rb_str_buf_cat2(str, "m");
-    else
-	all = 0;
-    if (RREGEXP(re)->ptr->options & RE_OPTION_IGNORECASE)
-	rb_str_buf_cat2(str, "i");
-    else
-	all = 0;
-    if (RREGEXP(re)->ptr->options & RE_OPTION_EXTENDED)
-	rb_str_buf_cat2(str, "x");
-    else
-	all = 0;
+    if (options & RE_OPTION_MULTILINE) rb_str_buf_cat2(str, "m");
+    if (options & RE_OPTION_IGNORECASE) rb_str_buf_cat2(str, "i");
+    if (options & RE_OPTION_EXTENDED) rb_str_buf_cat2(str, "x");
 
-    if (!all) {
+    if ((options & embeddable) != embeddable) {
 	rb_str_buf_cat2(str, "-");
-	if (!(RREGEXP(re)->ptr->options & RE_OPTION_MULTILINE))
-	    rb_str_buf_cat2(str, "m");
-	if (!(RREGEXP(re)->ptr->options & RE_OPTION_IGNORECASE))
-	    rb_str_buf_cat2(str, "i");
-	if (!(RREGEXP(re)->ptr->options & RE_OPTION_EXTENDED))
-	    rb_str_buf_cat2(str, "x");
+	if (!(options & RE_OPTION_MULTILINE)) rb_str_buf_cat2(str, "m");
+	if (!(options & RE_OPTION_IGNORECASE)) rb_str_buf_cat2(str, "i");
+	if (!(options & RE_OPTION_EXTENDED)) rb_str_buf_cat2(str, "x");
     }
 
     rb_str_buf_cat2(str, ":");
-    rb_reg_expr_str(str, RREGEXP(re)->str, RREGEXP(re)->len);
+    rb_reg_expr_str(str, ptr, len);
     rb_str_buf_cat2(str, ")");
 


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