ch.c

#include "parser_internal.h"

static HParseResult* parse_ch(void* env, HParseState *state) {
  uint8_t c = (uint8_t)(unsigned long)(env);
  uint8_t r = (uint8_t)h_read_bits(&state->input_stream, 8, false);
  if (c == r) {
    HParsedToken *tok = a_new(HParsedToken, 1);    
    tok->token_type = TT_UINT; tok->uint = r;
    return make_result(state, tok);
  } else {
    return NULL;
  }
}

static bool ch_ctrvm(HRVMProg *prog, void* env) {
  uint8_t c = (uint8_t)(unsigned long)(env);
  h_rvm_insert_insn(prog, RVM_MATCH, c & c << 8);
  h_rvm_insert_insn(prog, RVM_STEP, 0);
  return true;
}

static const HParserVtable ch_vt = {
  .parse = parse_ch,
  .isValidRegular = h_true,
  .isValidCF = h_true,
  .compile_to_rvm = ch_ctrvm,
};

const HParser* h_ch(const uint8_t c) {
  return h_ch__m(&system_allocator, c);
}
const HParser* h_ch__m(HAllocator* mm__, const uint8_t c) {  
  HParser *ret = h_new(HParser, 1);
  ret->vtable = &ch_vt;
  ret->env = (void*)(unsigned long)(c);
  return (const HParser*)ret;
}