From 0c90036fd14fd5aef136afccfb38e42c4d3c01e3 Mon Sep 17 00:00:00 2001 From: matz Date: Mon, 3 Feb 2003 05:34:16 +0000 Subject: * re.c (rb_memsearch): algolithm body of String#index. * error.c (Init_Exception): "to_str" removed. * eval.c (eval): should not rely on Exception#to_str * eval.c (compile_error): ditto. * error.c (err_append): ditto. * hash.c (rb_hash_merge): Hash#merge, non destructive "update". now there's also Hash#merge! which is an alias to "update". git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@3431 b2dd03c8-39d4-4d8f-98ff-823fe69b080e --- string.c | 40 +++------------------------------------- 1 file changed, 3 insertions(+), 37 deletions(-) (limited to 'string.c') diff --git a/string.c b/string.c index c864f1fc11..90449023c6 100644 --- a/string.c +++ b/string.c @@ -838,48 +838,14 @@ rb_str_index(str, sub, offset) VALUE str, sub; long offset; { - char *s, *e, *p; - long len; - int d, hx, hy, i; - if (offset < 0) { offset += RSTRING(str)->len; if (offset < 0) return -1; } if (RSTRING(str)->len - offset < RSTRING(sub)->len) return -1; - s = RSTRING(str)->ptr+offset; - p = RSTRING(sub)->ptr; - len = RSTRING(sub)->len; - if (len == 0) return offset; - e = RSTRING(str)->ptr + RSTRING(str)->len - len + 1; - - /* seach using Karp-Rabin algolithm described in: - - EXACT STRING MATCHING ALGORITHMS - http://www-igm.univ-mlv.fr/~lecroq/string/index.html - */ - -#define KR_REHASH(a, b, h) ((((h) - (a)*d) << 1) + (b)) - - /* Preprocessing */ - /* computes d = 2^(m-1) with - the left-shift operator */ - for (d = i = 1; i < len; ++i) - d = (d<<1); - - for (hy = hx = i = 0; i < len; ++i) { - hx = ((hx<<1) + p[i]); - hy = ((hy<<1) + s[i]); - } - - /* Searching */ - while (s < e) { - if (hx == hy && rb_memcmp(p, s, len) == 0) - return (s-(RSTRING(str)->ptr)); - hy = KR_REHASH(*s, *(s+len), hy); - s++; - } - return -1; + if (RSTRING(sub)->len == 0) return offset; + return rb_memsearch(RSTRING(sub)->ptr, RSTRING(sub)->len, + RSTRING(str)->ptr+offset, RSTRING(str)->len-offset); } static VALUE -- cgit v1.2.3