[ruby-dev:4701] Re: Ruby 1.3.1-990203

よしだです

正規表現にまだ問題が残ってました。

  ・UTF8 で /[A]/ がマルチバイト文字の後の "A" にマッチしな
    い
       "あA" =~ /[A]/ ==> nil
  ・/n など文字コードを指定すると，リセットされず以降のの文
    字列処理に影響を与える
  ・/[\W]+/ が マルチバイト文字の後の notwordchar にマッチし
     ない
        "あ-" =~ /[\W]+/ ==> nil
  ・/あ+/ が一文字にしかマッチしない
        "ああああ" =~ /あ+/; $& ==> "あ"

むりやり動くようにしてしまったので，妙なことをやっているよう
な気がします。ご確認ください。


diff -ur ruby-1.3.1-990203.org/re.c ruby-1.3.1-990203/re.c
--- ruby-1.3.1-990203.org/re.c	Sat Jan 30 13:01:28 1999
+++ ruby-1.3.1-990203/re.c	Wed Feb  3 23:02:12 1999
@@ -482,6 +482,9 @@
     result = re_search(RREGEXP(reg)->ptr,RSTRING(str)->ptr,RSTRING(str)->len,
 		       start, range, regs);
 
+    if (FL_TEST(reg, KCODE_FIXED))
+	kcode_reset_option();
+
     if (result == -2) {
 	rb_reg_raise(RREGEXP(reg)->str, RREGEXP(reg)->len,
 		  "Stack overfow in regexp matcher", reg);
diff -ur ruby-1.3.1-990203.org/regex.c ruby-1.3.1-990203/regex.c
--- ruby-1.3.1-990203.org/regex.c	Wed Feb  3 15:05:23 1999
+++ ruby-1.3.1-990203/regex.c	Thu Feb  4 23:10:12 1999
@@ -1025,6 +1025,7 @@
 {
     register char *b = bufp->buffer;
     register char *p = pattern;
+    char *nextp;
     char *pend = pattern + size;
     register unsigned c, c1;
     char *p0;
@@ -2018,15 +2019,16 @@
 	normal_char:		/* Expects the character in `c'.  */
 	  had_mbchar = 0;
 	  if (ismbchar(c)) {
-	    had_mbchar = 0;
+	    had_mbchar = 1;
 	    c1 = p - pattern;
 	  }
 	numeric_char:
+	  nextp = p + ismbchar(c);
 	  if (!pending_exact || pending_exact + *pending_exact + 1 != b
 	      || *pending_exact >= (c1 ? 0176 : 0177)
-	      || *p == '+' || *p == '?'
-	      || *p == '*' || *p == '^'
-	      || *p == '{') {
+	      || *nextp == '+' || *nextp == '?'
+	      || *nextp == '*' || *nextp == '^'
+	      || *nextp == '{') {
 	    laststart = b;
 	    BUFPUSH(exactn);
 	    pending_exact = b;
@@ -2637,7 +2639,7 @@
 	      {
 		if (TRANSLATE_P())
 		  j = translate[j];
-		fastmap[j] = (j>0x7f?2:1);
+		fastmap[j] = (j>0x7f?(ismbchar(j)?0:2):1);
 	      }
 	  {
 	    unsigned short size;
@@ -2846,15 +2848,17 @@
 		  int len = ismbchar(c);
 		  if (fastmap[c])
 		    break;
-		  c = *p++;
-		  range -= len;
+		  p += len;
+		  range -= len + 1;
+		  c = *p;
 		  if (fastmap[c] == 2)
 		    break;
 		}
-		else 
+		else {
 		  if (fastmap[MAY_TRANSLATE() ? translate[c] : c])
 		    break;
-		range--;
+		  range--;
+		}
 	      }
 	      startpos += irange - range;
 	    }

-- 
    吉田正人  INS エンジニアリング(株)
              都市情報システム事業部
    [e-mail]
    [e-mail]