admin/mruby-mruby
1
0
Fork 0
mirror of https://github.com/mruby/mruby synced 2026-06-08 16:11:16 +00:00
Code Issues Packages Projects Releases Wiki Activity

compile /a/ as ::Regexp.new("a")

Browse Source
This commit is contained in:
Yukihiro Matz Matsumoto
2013-02-21 16:01:09 +09:00
parent ffd7aeeb68
commit c15af5d562
1 changed files with 19 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/codegen.c
+19 -10
View File
@@ -1914,18 +1914,27 @@ codegen(codegen_scope *s, node *tree, int val)
case NODE_REGX:
if (val) {
char *p1 = (char*)tree->car;
//char *p2 = (char*)tree->cdr;
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];
int off;
int sym = new_sym(s, mrb_intern(s->mrb, REGEXP_CLASS));
int off = new_lit(s, mrb_str_new(s->mrb, p1, strlen(p1)));
int n = 1;
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))
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));
genop(s, MKOP_A(OP_OCLASS, cursp()));
genop(s, MKOP_ABx(OP_GETMCNST, cursp(), sym));
push();
genop(s, MKOP_ABx(OP_STRING, cursp(), off));
if (p2) {
push();
off = new_lit(s, mrb_str_new(s->mrb, p2, strlen(p2)));
genop(s, MKOP_ABx(OP_STRING, cursp(), off));
n++;
pop();
}
pop();
sym = new_sym(s, mrb_intern(s->mrb, "new"));
genop(s, MKOP_ABC(OP_SEND, cursp(), sym, n));
mrb_gc_arena_restore(s->mrb, ai);
push();
}
break;