Esempio n. 1
0
HParseResult* h_parse__m(HAllocator* mm__, const HParser* parser, const uint8_t* input, size_t length) {
    // Set up a parse state...
    HArena * arena = h_new_arena(mm__, 0);
    HParseState *parse_state = a_new_(arena, HParseState, 1);
    parse_state->cache = h_hashtable_new(arena, cache_key_equal, // key_equal_func
                                         cache_key_hash); // hash_func
    parse_state->input_stream.input = input;
    parse_state->input_stream.index = 0;
    parse_state->input_stream.bit_offset = 8; // bit big endian
    parse_state->input_stream.overrun = 0;
    parse_state->input_stream.endianness = BIT_BIG_ENDIAN | BYTE_BIG_ENDIAN;
    parse_state->input_stream.length = length;
    parse_state->lr_stack = h_slist_new(arena);
    parse_state->recursion_heads = h_hashtable_new(arena, cache_key_equal,
                                   cache_key_hash);
    parse_state->arena = arena;
    HParseResult *res = h_do_parse(parser, parse_state);
    h_slist_free(parse_state->lr_stack);
    h_hashtable_free(parse_state->recursion_heads);
    // tear down the parse state
    h_hashtable_free(parse_state->cache);
    if (!res)
        h_delete_arena(parse_state->arena);

    return res;
}
Esempio n. 2
0
HParsedToken *h_act_flatten(const HParseResult *p, void* user_data) {
  HCountedArray *seq = h_carray_new(p->arena);

  act_flatten_(seq, p->ast);

  HParsedToken *res = a_new_(p->arena, HParsedToken, 1);
  res->token_type = TT_SEQUENCE;
  res->seq = seq;
  res->index = p->ast->index;
  res->bit_offset = p->ast->bit_offset;
  return res;
}
Esempio n. 3
0
HParseResult *h_packrat_parse(HAllocator* mm__, const HParser* parser, HInputStream *input_stream) {
  HArena * arena = h_new_arena(mm__, 0);
  HParseState *parse_state = a_new_(arena, HParseState, 1);
  parse_state->cache = h_hashtable_new(arena, cache_key_equal, // key_equal_func
				       cache_key_hash); // hash_func
  parse_state->input_stream = *input_stream;
  parse_state->lr_stack = h_slist_new(arena);
  parse_state->recursion_heads = h_hashtable_new(arena, pos_equal, pos_hash);
  parse_state->arena = arena;
  HParseResult *res = h_do_parse(parser, parse_state);
  h_slist_free(parse_state->lr_stack);
  h_hashtable_free(parse_state->recursion_heads);
  // tear down the parse state
  h_hashtable_free(parse_state->cache);
  if (!res)
    h_delete_arena(parse_state->arena);

  return res;
}
Esempio n. 4
0
static HParsedToken *reshape_sequence(const HParseResult *p) {
  assert(p->ast);
  assert(p->ast->token_type == TT_SEQUENCE);

  HCountedArray *seq = h_carray_new(p->arena);

  // drop all elements that are NULL
  for(size_t i=0; i<p->ast->seq->used; i++) {
    if(p->ast->seq->elements[i] != NULL)
      h_carray_append(seq, p->ast->seq->elements[i]);
  }

  HParsedToken *res = a_new_(p->arena, HParsedToken, 1);
  res->token_type = TT_SEQUENCE;
  res->seq = seq;
  res->index = p->ast->index;
  res->bit_offset = p->ast->bit_offset;

  return res;
}