emileclarkb/hammer
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

organize definitions in glue.h a little

Browse source
This commit is contained in:
Sven M. Hallberg 2013-01-23 18:16:14 +01:00
parent 1b0c61fc15
commit dc037e6c28
1 changed files with 27 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

33
examples/glue.h
View file

@ -1,12 +1,17 @@
//
// API additions for writing grammar and semantic actions more concisely
//
#ifndef HAMMER_EXAMPLES_GLUE__H #ifndef HAMMER_EXAMPLES_GLUE__H
#define HAMMER_EXAMPLES_GLUE__H #define HAMMER_EXAMPLES_GLUE__H
#include <assert.h> #include <assert.h>
#include "../src/hammer.h" #include "../src/hammer.h"
///
// API Additions //
/// // Grammar specification
//
#define H_RULE(rule, def) const HParser *rule = def #define H_RULE(rule, def) const HParser *rule = def
#define H_ARULE(rule, def) const HParser *rule = h_action(def, act_ ## rule) #define H_ARULE(rule, def) const HParser *rule = h_action(def, act_ ## rule)
@ -17,6 +22,11 @@
#define H_AVRULE(rule, def) const HParser *rule = \ #define H_AVRULE(rule, def) const HParser *rule = \
h_action(h_attr_bool(def, validate_ ## rule), act_ ## rule) h_action(h_attr_bool(def, validate_ ## rule), act_ ## rule)
//
// Pre-fab semantic actions
//
const HParsedToken *h_act_ignore(const HParseResult *p); const HParsedToken *h_act_ignore(const HParseResult *p);
const HParsedToken *h_act_index(int i, const HParseResult *p); const HParsedToken *h_act_index(int i, const HParseResult *p);
const HParsedToken *h_act_flatten(const HParseResult *p); const HParsedToken *h_act_flatten(const HParseResult *p);
@ -28,10 +38,12 @@ const HParsedToken *h_act_flatten(const HParseResult *p);
return paction(__VA_ARGS__, p); \ return paction(__VA_ARGS__, p); \
} }
const HParsedToken *h_token_flatten(HArena *arena, const HParsedToken *p);
void h_seq_snoc(HParsedToken *xs, const HParsedToken *x); //
void h_seq_append(HParsedToken *xs, const HParsedToken *ys); // Working with HParsedTokens
//
// Token constructors...
HParsedToken *h_make_token(HArena *arena, HTokenType type, void *value); HParsedToken *h_make_token(HArena *arena, HTokenType type, void *value);
HParsedToken *h_make_token_seq(HArena *arena); HParsedToken *h_make_token_seq(HArena *arena);
@ -42,6 +54,14 @@ HParsedToken *h_make_token_seq(HArena *arena);
#define H_MAKE_TOKEN(TYP, VAL) \ #define H_MAKE_TOKEN(TYP, VAL) \
h_make_token(p->arena, TT_ ## TYP, VAL) h_make_token(p->arena, TT_ ## TYP, VAL)
// Sequences...
// Flatten nested sequences into one.
const HParsedToken *h_token_flatten(HArena *arena, const HParsedToken *p);
void h_seq_snoc(HParsedToken *xs, const HParsedToken *x);
void h_seq_append(HParsedToken *xs, const HParsedToken *ys);
HParsedToken *h_carray_index(const HCountedArray *a, size_t i); HParsedToken *h_carray_index(const HCountedArray *a, size_t i);
HParsedToken *h_seq_index(const HParsedToken *p, size_t i); HParsedToken *h_seq_index(const HParsedToken *p, size_t i);
void *h_seq_index_user(HTokenType type, const HParsedToken *p, size_t i); void *h_seq_index_user(HTokenType type, const HParsedToken *p, size_t i);
@ -52,4 +72,5 @@ void *h_seq_index_user(HTokenType type, const HParsedToken *p, size_t i);
#define H_FIELD(TYP, IDX) \ #define H_FIELD(TYP, IDX) \
H_SEQ_INDEX(TYP, p->ast, IDX) H_SEQ_INDEX(TYP, p->ast, IDX)
#endif #endif