* re.c (rb_reg_check_preprocess): new function for validating regexp

  fragment.

* parse.y (regexp): invoke reg_fragment_check.
  (reg_fragment_check): defined.
  (reg_fragment_check_gen): defined.


git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@14133 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

1 files changed, 23 insertions, 0 deletions

diff --git a/re.c b/re.c
index c30453591f..6187273661 100644
--- a/re.c
+++ b/re.c
@@ -1629,6 +1629,29 @@ rb_reg_preprocess(const char *p, const char *end, rb_encoding *enc,
     return buf;
 }
 
+VALUE
+rb_reg_check_preprocess(VALUE str)
+{
+    rb_encoding *fixed_enc = 0;
+    onig_errmsg_buffer err;
+    VALUE buf;
+    char *p, *end;
+    rb_encoding *enc;
+
+    StringValue(str);
+    p = RSTRING_PTR(str);
+    end = p + RSTRING_LEN(str);
+    enc = rb_enc_get(str);
+
+    buf = rb_reg_preprocess(p, end, enc, &fixed_enc, err);
+    RB_GC_GUARD(str);
+
+    if (buf == Qnil) {
+	return rb_reg_error_desc(str, 0, err);
+    }
+    return Qnil;
+}
+
 #if 0
 static VALUE
 rb_reg_preprocess_obj(VALUE str,