Merge pull request #850 from mattn/pluggable_regexp

Pluggable regexp

1 files changed, 20 insertions, 0 deletions

diff --git a/src/codegen.c b/src/codegen.c
index 1f6d16477..86cb5eb87 100644
--- a/src/codegen.c
+++ b/src/codegen.c
@@ -16,6 +16,7 @@
 #include <string.h>
 #include <stdlib.h>
 #include <ctype.h>
+#include "re.h"
 
 typedef mrb_ast_node node;
 typedef struct mrb_parser_state parser_state;
@@ -1910,6 +1911,25 @@ codegen(codegen_scope *s, node *tree, int val)
     }
     break;
 
+  case NODE_REGX:
+    if (val) {
+      char *p1 = (char*)tree->car;
+      //char *p2 = (char*)tree->cdr;
+      int ai = mrb_gc_arena_save(s->mrb);
+      struct RClass* c = mrb_class_get(s->mrb, REGEXP_CLASS);
+      mrb_value args[2];
+      args[0] = mrb_str_new(s->mrb, p1, strlen(p1));
+      // TODO: Some regexp implementation does not have second argument
+      //args[1] = mrb_str_new(s->mrb, p2, strlen(p2));
+      int off = new_lit(s,
+          mrb_class_new_instance(s->mrb, 1, args, c));
+
+      mrb_gc_arena_restore(s->mrb, ai);
+      genop(s, MKOP_ABx(OP_LOADL, cursp(), off));
+      push();
+    }
+    break;
+
   case NODE_SYM:
     if (val) {
       int sym = new_sym(s, sym(tree));