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

rewrite dns domain grammar using H_RULE

Browse source
This commit is contained in:
Sven M. Hallberg 2013-01-16 15:40:10 +01:00
parent a38d2e4ab0
commit aa295f1536
1 changed files with 16 additions and 42 deletions
Download patch file Download diff file Expand all files Collapse all files

58
examples/dns_common.c
View file

@ -15,50 +15,24 @@ bool validate_label(HParseResult *p) {
const HParser* init_domain() { const HParser* init_domain() {
static const HParser *domain = NULL; static const HParser *ret = NULL;
if (domain) if (ret)
return domain; return ret;
const HParser *letter = h_choice(h_ch_range('a', 'z'), H_RULE (letter, h_choice(h_ch_range('a','z'), h_ch_range('A','Z'), NULL));
h_ch_range('A', 'Z'), H_RULE (let_dig, h_choice(letter, h_ch_range('0','9'), NULL));
NULL); H_RULE (ldh_str, h_many1(h_choice(let_dig, h_ch('-'), NULL)));
H_RULE (label, h_attr_bool(h_sequence(letter,
h_optional(h_sequence(h_optional(ldh_str),
let_dig,
NULL)),
NULL),
validate_label));
H_RULE (subdomain, h_sepBy1(label, h_ch('.')));
H_RULE (domain, h_choice(subdomain, h_ch(' '), NULL));
const HParser *let_dig = h_choice(letter, ret = domain;
h_ch_range('0', '9'), return ret;
NULL);
const HParser *ldh_str = h_many1(h_choice(let_dig,
h_ch('-'),
NULL));
const HParser *label = h_attr_bool(h_sequence(letter,
h_optional(h_sequence(h_optional(ldh_str),
let_dig,
NULL)),
NULL),
validate_label);
/**
* You could write it like this ...
* HParser *indirect_subdomain = h_indirect();
* const HParser *subdomain = h_choice(label,
* h_sequence(indirect_subdomain,
* h_ch('.'),
* label,
* NULL),
* NULL);
* h_bind_indirect(indirect_subdomain, subdomain);
*
* ... but this is easier and equivalent
*/
const HParser *subdomain = h_sepBy1(label, h_ch('.'));
domain = h_choice(subdomain,
h_ch(' '),
NULL);
return domain;
} }
const HParser* init_character_string() { const HParser* init_character_string() {