beginnings of translating parser combinators to regex vm instructions

This commit is contained in:
Meredith L. Patterson 2013-03-18 01:02:59 -04:00
parent f5245eaa23
commit 8a5c4b6b67
2 changed files with 19 additions and 0 deletions

View file

@ -21,10 +21,19 @@ static bool opt_isValidCF(void *env) {
return p->vtable->isValidCF(p->env);
}
static bool opt_ctrvm(struct HRVMProg_ *prog, void* env) {
uint16_t insn = h_rvm_insert_insn(prog, RVM_FORK, 0);
if (!h_compile_regex(prog, (HParser*)env->env))
return false;
h_rvm_patch_arg(prog, insn, h_rvm_get_ip(prog));
return true;
}
static const HParserVtable optional_vt = {
.parse = parse_optional,
.isValidRegular = opt_isValidRegular,
.isValidCF = opt_isValidCF,
.compile_to_rvm = opt_ctvrm,
};
const HParser* h_optional(const HParser* p) {