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

let H_INDEX and H_FIELD accept varargs for nested sequence access

Browse source
This commit is contained in:
Sven M. Hallberg 2013-01-25 20:47:51 +01:00
parent 64c44522e9
commit 811c68fdf2
2 changed files with 28 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

21
examples/glue.c
View file

@ -135,6 +135,27 @@ HParsedToken *h_seq_index(const HParsedToken *p, size_t i)
return h_carray_index(p->seq, i);
}
HParsedToken *h_seq_index_path(HParsedToken *p, ...)
{
va_list va;
va_start(va, p);
p = h_seq_index_vpath(p, va);
va_end(va);
return p;
}
HParsedToken *h_seq_index_vpath(HParsedToken *p, va_list va)
{
int i;
while((i = va_arg(va, int)) >= 0)
p = h_seq_index(p, i);
return p;
}
HCountedArray *h_seq_index_seq(const HParsedToken *p, size_t i)
{
return h_cast_seq(h_seq_index(p, i));

10
examples/glue.h
View file

@ -83,6 +83,10 @@ HParsedToken **h_seq_elements(const HParsedToken *p);
// Access a sequence element by index.
HParsedToken *h_seq_index(const HParsedToken *p, size_t i);
// Access an element in a nested sequence by a path of indices.
HParsedToken *h_seq_index_path(HParsedToken *p, ...);
HParsedToken *h_seq_index_vpath(HParsedToken *p, va_list va);
// Convenience functions combining index access and h_cast_*.
HCountedArray *h_seq_index_seq (const HParsedToken *p, size_t i);
HBytes h_seq_index_bytes(const HParsedToken *p, size_t i);
@ -91,11 +95,11 @@ uint64_t h_seq_index_uint (const HParsedToken *p, size_t i);
void * h_seq_index_user (HTokenType type, const HParsedToken *p, size_t i);
// Standard short-hand to access and cast a user-type sequence element.
#define H_INDEX(TYP, SEQ, IDX) \
((TYP *) h_seq_index_user(TT_ ## TYP, SEQ, IDX))
#define H_INDEX(TYP, SEQ, ...) \
((TYP *) h_cast(TT_ ## TYP, h_seq_index_path(SEQ, __VA_ARGS__, -1)))
// Standard short-hand to access and cast elements on a sequence token.
#define H_FIELD(TYP, IDX) H_INDEX(TYP, p->ast, IDX)
#define H_FIELD(TYP, ...) H_INDEX(TYP, p->ast, __VA_ARGS__)
#define H_FIELD_SEQ(IDX) h_seq_index_seq(p->ast, IDX)
#define H_FIELD_BYTES(IDX) h_seq_index_bytes(p->ast, IDX)
#define H_FIELD_SINT(IDX) h_seq_index_sint(p->ast, IDX)