Experiments/libabacus
1
0
Fork 0
Code Issues 4 Pull Requests Releases Wiki Activity

Add placeholder types.

Browse Source
This commit is contained in:
Danila Fedorin 2018-04-07 14:50:06 -07:00
parent 1960ded070
commit 0cfc1df02c
2 changed files with 31 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
include/parsetype.h
View File

@ -9,6 +9,7 @@
*/ */
enum libab_parsetype_variant_e { enum libab_parsetype_variant_e {
PT_STRING, PT_STRING,
PT_PLACEHOLDER,
PT_PARENT PT_PARENT
}; };

42
src/parser.c
View File

@ -172,23 +172,41 @@ libab_result _parse_type_list(struct parser_state* state, vec* into, char end_ch
} }
libab_result _parse_type_id(struct parser_state* state, libab_parsetype** into) { libab_result _parse_type_id(struct parser_state* state, libab_parsetype** into) {
libab_result result = _parser_allocate_type(into, state->string, libab_result result;
state->current_match->from, state->current_match->to); int placeholder_flag = 0;
*into = NULL;
if(_parser_is_char(state, '\'')) {
placeholder_flag = 1;
_parser_state_step(state);
}
if(_parser_is_type(state, TOKEN_ID)) {
result = _parser_allocate_type(into, state->string,
state->current_match->from, state->current_match->to);
} else {
result = _parser_consume_type(state, TOKEN_ID);
}
if(result == LIBAB_SUCCESS) { if(result == LIBAB_SUCCESS) {
(*into)->variant = PT_STRING; (*into)->variant = placeholder_flag ? PT_PLACEHOLDER : PT_STRING;
_parser_state_step(state); _parser_state_step(state);
} }
if(result == LIBAB_SUCCESS && _parser_is_char(state, '(')) { if(result == LIBAB_SUCCESS && _parser_is_char(state, '(')) {
result = libab_convert_ds_result(vec_init(&(*into)->children)); if(placeholder_flag) {
if(result != LIBAB_SUCCESS) { result = LIBAB_UNEXPECTED;
free((*into)->name);
free(*into);
*into = NULL;
} else { } else {
(*into)->variant = PT_PARENT; result = libab_convert_ds_result(vec_init(&(*into)->children));
_parser_state_step(state); if(result != LIBAB_SUCCESS) {
result = _parse_type_list(state, &(*into)->children, ')'); free((*into)->name);
free(*into);
*into = NULL;
} else {
(*into)->variant = PT_PARENT;
_parser_state_step(state);
result = _parse_type_list(state, &(*into)->children, ')');
}
} }
} }
@ -267,7 +285,7 @@ libab_result _parse_type_array(struct parser_state* state,
libab_result _parse_type(struct parser_state* state, libab_parsetype** into) { libab_result _parse_type(struct parser_state* state, libab_parsetype** into) {
libab_result result; libab_result result;
if(_parser_is_type(state, TOKEN_ID)) { if(_parser_is_type(state, TOKEN_ID) || _parser_is_char(state, '\'')) {
result = _parse_type_id(state, into); result = _parse_type_id(state, into);
} else if(_parser_is_char(state, '(')) { } else if(_parser_is_char(state, '(')) {
result = _parse_type_function(state, into); result = _parse_type_function(state, into);