andy/mpc
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Changed pointer syntax

Browse Source
This commit is contained in:
Daniel Holden
2014-01-20 21:32:46 +00:00
parent 26b6216d7a
commit f518fb5a1d
2 changed files with 588 additions and 593 deletions
Download Patch File Download Diff File Expand all files Collapse all files

888
mpc.c
View File

File diff suppressed because it is too large Load Diff

293
mpc.h
View File

@@ -24,17 +24,17 @@
struct mpc_err_t; struct mpc_err_t;
typedef struct mpc_err_t mpc_err_t; typedef struct mpc_err_t mpc_err_t;
void mpc_err_delete(mpc_err_t* x); void mpc_err_delete(mpc_err_t *x);
void mpc_err_print(mpc_err_t* x); void mpc_err_print(mpc_err_t *x);
void mpc_err_print_to(mpc_err_t* x, FILE* f); void mpc_err_print_to(mpc_err_t *x, FILE *f);
void mpc_err_string(mpc_err_t* x, char** out); void mpc_err_string(mpc_err_t *x, char **out);
int mpc_err_line(mpc_err_t* x); int mpc_err_line(mpc_err_t *x);
int mpc_err_column(mpc_err_t* x); int mpc_err_column(mpc_err_t *x);
char mpc_err_unexpected(mpc_err_t* x); char mpc_err_unexpected(mpc_err_t *x);
void mpc_err_expected(mpc_err_t* x, char** out, int* out_num, int out_max); void mpc_err_expected(mpc_err_t *x, char **out, int *out_num, int out_max);
char* mpc_err_filename(mpc_err_t* x); char *mpc_err_filename(mpc_err_t *x);
char* mpc_err_failure(mpc_err_t* x); char *mpc_err_failure(mpc_err_t *x);
/* /*
** Parsing ** Parsing
@@ -43,16 +43,16 @@ char* mpc_err_failure(mpc_err_t* x);
typedef void mpc_val_t; typedef void mpc_val_t;
typedef union { typedef union {
mpc_err_t* error; mpc_err_t *error;
mpc_val_t* output; mpc_val_t *output;
} mpc_result_t; } mpc_result_t;
struct mpc_parser_t; struct mpc_parser_t;
typedef struct mpc_parser_t mpc_parser_t; typedef struct mpc_parser_t mpc_parser_t;
int mpc_parse(const char* filename, const char* string, mpc_parser_t* p, mpc_result_t* r); int mpc_parse(const char *filename, const char *string, mpc_parser_t *p, mpc_result_t *r);
int mpc_fparse(const char* filename, FILE* file, mpc_parser_t* p, mpc_result_t* r); int mpc_fparse(const char *filename, FILE* file, mpc_parser_t *p, mpc_result_t *r);
int mpc_fparse_contents(const char* filename, mpc_parser_t* p, mpc_result_t* r); int mpc_fparse_contents(const char *filename, mpc_parser_t *p, mpc_result_t *r);
/* /*
** Function Types ** Function Types
@@ -69,220 +69,221 @@ typedef mpc_val_t*(*mpc_fold_t)(int,mpc_val_t**);
** Building a Parser ** Building a Parser
*/ */
mpc_parser_t* mpc_new(const char* name); mpc_parser_t *mpc_new(const char *name);
mpc_parser_t* mpc_define(mpc_parser_t* p, mpc_parser_t* a); mpc_parser_t *mpc_define(mpc_parser_t *p, mpc_parser_t *a);
mpc_parser_t* mpc_undefine(mpc_parser_t* p); mpc_parser_t *mpc_undefine(mpc_parser_t *p);
void mpc_delete(mpc_parser_t* p); void mpc_delete(mpc_parser_t *p);
void mpc_cleanup(int n, ...); void mpc_cleanup(int n, ...);
/* /*
** Basic Parsers ** Basic Parsers
*/ */
mpc_parser_t* mpc_pass(void); mpc_parser_t *mpc_pass(void);
mpc_parser_t* mpc_fail(const char* m); mpc_parser_t *mpc_fail(const char *m);
mpc_parser_t* mpc_failf(const char* fmt, ...); mpc_parser_t *mpc_failf(const char *fmt, ...);
mpc_parser_t* mpc_lift(mpc_ctor_t f); mpc_parser_t *mpc_lift(mpc_ctor_t f);
mpc_parser_t* mpc_lift_val(mpc_val_t* x); mpc_parser_t *mpc_lift_val(mpc_val_t *x);
mpc_parser_t* mpc_any(void); mpc_parser_t *mpc_any(void);
mpc_parser_t* mpc_char(char c); mpc_parser_t *mpc_char(char c);
mpc_parser_t* mpc_range(char s, char e); mpc_parser_t *mpc_range(char s, char e);
mpc_parser_t* mpc_oneof(const char* s); mpc_parser_t *mpc_oneof(const char *s);
mpc_parser_t* mpc_noneof(const char* s); mpc_parser_t *mpc_noneof(const char *s);
mpc_parser_t* mpc_satisfy(int(*f)(char)); mpc_parser_t *mpc_satisfy(int(*f)(char));
mpc_parser_t* mpc_string(const char* s); mpc_parser_t *mpc_string(const char *s);
/* /*
** Combinator Parsers ** Combinator Parsers
*/ */
mpc_parser_t* mpc_expect(mpc_parser_t* a, const char* e); mpc_parser_t *mpc_expect(mpc_parser_t *a, const char *e);
mpc_parser_t* mpc_apply(mpc_parser_t* a, mpc_apply_t f); mpc_parser_t *mpc_expectf(mpc_parser_t *a, const char *fmt, ...);
mpc_parser_t* mpc_apply_to(mpc_parser_t* a, mpc_apply_to_t f, void* x); mpc_parser_t *mpc_apply(mpc_parser_t *a, mpc_apply_t f);
mpc_parser_t *mpc_apply_to(mpc_parser_t *a, mpc_apply_to_t f, void *x);
mpc_parser_t* mpc_not(mpc_parser_t* a, mpc_dtor_t da); mpc_parser_t *mpc_not(mpc_parser_t *a, mpc_dtor_t da);
mpc_parser_t* mpc_not_lift(mpc_parser_t* a, mpc_dtor_t da, mpc_ctor_t lf); mpc_parser_t *mpc_not_lift(mpc_parser_t *a, mpc_dtor_t da, mpc_ctor_t lf);
mpc_parser_t* mpc_maybe(mpc_parser_t* a); mpc_parser_t *mpc_maybe(mpc_parser_t *a);
mpc_parser_t* mpc_maybe_lift(mpc_parser_t* a, mpc_ctor_t lf); mpc_parser_t *mpc_maybe_lift(mpc_parser_t *a, mpc_ctor_t lf);
mpc_parser_t* mpc_many(mpc_fold_t f, mpc_parser_t* a); mpc_parser_t *mpc_many(mpc_fold_t f, mpc_parser_t *a);
mpc_parser_t* mpc_many1(mpc_fold_t f, mpc_parser_t* a); mpc_parser_t *mpc_many1(mpc_fold_t f, mpc_parser_t *a);
mpc_parser_t* mpc_count(int n, mpc_fold_t f, mpc_parser_t* a, mpc_dtor_t da); mpc_parser_t *mpc_count(int n, mpc_fold_t f, mpc_parser_t *a, mpc_dtor_t da);
mpc_parser_t* mpc_or(int n, ...); mpc_parser_t *mpc_or(int n, ...);
mpc_parser_t* mpc_and(int n, mpc_fold_t f, ...); mpc_parser_t *mpc_and(int n, mpc_fold_t f, ...);
mpc_parser_t* mpc_predictive(mpc_parser_t* a); mpc_parser_t *mpc_predictive(mpc_parser_t *a);
/* /*
** Common Parsers ** Common Parsers
*/ */
mpc_parser_t* mpc_eoi(void); mpc_parser_t *mpc_eoi(void);
mpc_parser_t* mpc_soi(void); mpc_parser_t *mpc_soi(void);
mpc_parser_t* mpc_space(void); mpc_parser_t *mpc_space(void);
mpc_parser_t* mpc_spaces(void); mpc_parser_t *mpc_spaces(void);
mpc_parser_t* mpc_whitespace(void); mpc_parser_t *mpc_whitespace(void);
mpc_parser_t* mpc_newline(void); mpc_parser_t *mpc_newline(void);
mpc_parser_t* mpc_tab(void); mpc_parser_t *mpc_tab(void);
mpc_parser_t* mpc_escape(void); mpc_parser_t *mpc_escape(void);
mpc_parser_t* mpc_digit(void); mpc_parser_t *mpc_digit(void);
mpc_parser_t* mpc_hexdigit(void); mpc_parser_t *mpc_hexdigit(void);
mpc_parser_t* mpc_octdigit(void); mpc_parser_t *mpc_octdigit(void);
mpc_parser_t* mpc_digits(void); mpc_parser_t *mpc_digits(void);
mpc_parser_t* mpc_hexdigits(void); mpc_parser_t *mpc_hexdigits(void);
mpc_parser_t* mpc_octdigits(void); mpc_parser_t *mpc_octdigits(void);
mpc_parser_t* mpc_lower(void); mpc_parser_t *mpc_lower(void);
mpc_parser_t* mpc_upper(void); mpc_parser_t *mpc_upper(void);
mpc_parser_t* mpc_alpha(void); mpc_parser_t *mpc_alpha(void);
mpc_parser_t* mpc_underscore(void); mpc_parser_t *mpc_underscore(void);
mpc_parser_t* mpc_alphanum(void); mpc_parser_t *mpc_alphanum(void);
mpc_parser_t* mpc_int(void); mpc_parser_t *mpc_int(void);
mpc_parser_t* mpc_hex(void); mpc_parser_t *mpc_hex(void);
mpc_parser_t* mpc_oct(void); mpc_parser_t *mpc_oct(void);
mpc_parser_t* mpc_number(void); mpc_parser_t *mpc_number(void);
mpc_parser_t* mpc_real(void); mpc_parser_t *mpc_real(void);
mpc_parser_t* mpc_float(void); mpc_parser_t *mpc_float(void);
mpc_parser_t* mpc_char_lit(void); mpc_parser_t *mpc_char_lit(void);
mpc_parser_t* mpc_string_lit(void); mpc_parser_t *mpc_string_lit(void);
mpc_parser_t* mpc_regex_lit(void); mpc_parser_t *mpc_regex_lit(void);
mpc_parser_t* mpc_ident(void); mpc_parser_t *mpc_ident(void);
/* /*
** Useful Parsers ** Useful Parsers
*/ */
mpc_parser_t* mpc_start(mpc_parser_t* a); mpc_parser_t *mpc_start(mpc_parser_t *a);
mpc_parser_t* mpc_end(mpc_parser_t* a, mpc_dtor_t da); mpc_parser_t *mpc_end(mpc_parser_t *a, mpc_dtor_t da);
mpc_parser_t* mpc_enclose(mpc_parser_t* a, mpc_dtor_t da); mpc_parser_t *mpc_enclose(mpc_parser_t *a, mpc_dtor_t da);
mpc_parser_t* mpc_strip(mpc_parser_t* a); mpc_parser_t *mpc_strip(mpc_parser_t *a);
mpc_parser_t* mpc_tok(mpc_parser_t* a); mpc_parser_t *mpc_tok(mpc_parser_t *a);
mpc_parser_t* mpc_sym(const char* s); mpc_parser_t *mpc_sym(const char *s);
mpc_parser_t* mpc_total(mpc_parser_t* a, mpc_dtor_t da); mpc_parser_t *mpc_total(mpc_parser_t *a, mpc_dtor_t da);
mpc_parser_t* mpc_between(mpc_parser_t* a, mpc_dtor_t ad, const char* o, const char* c); mpc_parser_t *mpc_between(mpc_parser_t *a, mpc_dtor_t ad, const char *o, const char *c);
mpc_parser_t* mpc_parens(mpc_parser_t* a, mpc_dtor_t ad); mpc_parser_t *mpc_parens(mpc_parser_t *a, mpc_dtor_t ad);
mpc_parser_t* mpc_braces(mpc_parser_t* a, mpc_dtor_t ad); mpc_parser_t *mpc_braces(mpc_parser_t *a, mpc_dtor_t ad);
mpc_parser_t* mpc_brackets(mpc_parser_t* a, mpc_dtor_t ad); mpc_parser_t *mpc_brackets(mpc_parser_t *a, mpc_dtor_t ad);
mpc_parser_t* mpc_squares(mpc_parser_t* a, mpc_dtor_t ad); mpc_parser_t *mpc_squares(mpc_parser_t *a, mpc_dtor_t ad);
mpc_parser_t* mpc_tok_between(mpc_parser_t* a, mpc_dtor_t ad, const char* o, const char* c); mpc_parser_t *mpc_tok_between(mpc_parser_t *a, mpc_dtor_t ad, const char *o, const char *c);
mpc_parser_t* mpc_tok_parens(mpc_parser_t* a, mpc_dtor_t ad); mpc_parser_t *mpc_tok_parens(mpc_parser_t *a, mpc_dtor_t ad);
mpc_parser_t* mpc_tok_braces(mpc_parser_t* a, mpc_dtor_t ad); mpc_parser_t *mpc_tok_braces(mpc_parser_t *a, mpc_dtor_t ad);
mpc_parser_t* mpc_tok_brackets(mpc_parser_t* a, mpc_dtor_t ad); mpc_parser_t *mpc_tok_brackets(mpc_parser_t *a, mpc_dtor_t ad);
mpc_parser_t* mpc_tok_squares(mpc_parser_t* a, mpc_dtor_t ad); mpc_parser_t *mpc_tok_squares(mpc_parser_t *a, mpc_dtor_t ad);
/* /*
** Common Function Parameters ** Common Function Parameters
*/ */
void mpcf_dtor_null(mpc_val_t* x); void mpcf_dtor_null(mpc_val_t *x);
mpc_val_t* mpcf_ctor_null(void); mpc_val_t *mpcf_ctor_null(void);
mpc_val_t* mpcf_ctor_str(void); mpc_val_t *mpcf_ctor_str(void);
mpc_val_t* mpcf_free(mpc_val_t* x); mpc_val_t *mpcf_free(mpc_val_t *x);
mpc_val_t* mpcf_int(mpc_val_t* x); mpc_val_t *mpcf_int(mpc_val_t *x);
mpc_val_t* mpcf_hex(mpc_val_t* x); mpc_val_t *mpcf_hex(mpc_val_t *x);
mpc_val_t* mpcf_oct(mpc_val_t* x); mpc_val_t *mpcf_oct(mpc_val_t *x);
mpc_val_t* mpcf_float(mpc_val_t* x); mpc_val_t *mpcf_float(mpc_val_t *x);
mpc_val_t* mpcf_escape(mpc_val_t* x); mpc_val_t *mpcf_escape(mpc_val_t *x);
mpc_val_t* mpcf_escape_regex(mpc_val_t* x); mpc_val_t *mpcf_escape_regex(mpc_val_t *x);
mpc_val_t* mpcf_escape_string_raw(mpc_val_t* x); mpc_val_t *mpcf_escape_string_raw(mpc_val_t *x);
mpc_val_t* mpcf_escape_char_raw(mpc_val_t* x); mpc_val_t *mpcf_escape_char_raw(mpc_val_t *x);
mpc_val_t* mpcf_unescape(mpc_val_t* x); mpc_val_t *mpcf_unescape(mpc_val_t *x);
mpc_val_t* mpcf_unescape_regex(mpc_val_t* x); mpc_val_t *mpcf_unescape_regex(mpc_val_t *x);
mpc_val_t* mpcf_unescape_string_raw(mpc_val_t* x); mpc_val_t *mpcf_unescape_string_raw(mpc_val_t *x);
mpc_val_t* mpcf_unescape_char_raw(mpc_val_t* x); mpc_val_t *mpcf_unescape_char_raw(mpc_val_t *x);
mpc_val_t* mpcf_fst(int n, mpc_val_t** xs); mpc_val_t *mpcf_fst(int n, mpc_val_t** xs);
mpc_val_t* mpcf_snd(int n, mpc_val_t** xs); mpc_val_t *mpcf_snd(int n, mpc_val_t** xs);
mpc_val_t* mpcf_trd(int n, mpc_val_t** xs); mpc_val_t *mpcf_trd(int n, mpc_val_t** xs);
mpc_val_t* mpcf_fst_free(int n, mpc_val_t** xs); mpc_val_t *mpcf_fst_free(int n, mpc_val_t** xs);
mpc_val_t* mpcf_snd_free(int n, mpc_val_t** xs); mpc_val_t *mpcf_snd_free(int n, mpc_val_t** xs);
mpc_val_t* mpcf_trd_free(int n, mpc_val_t** xs); mpc_val_t *mpcf_trd_free(int n, mpc_val_t** xs);
mpc_val_t* mpcf_strfold(int n, mpc_val_t** xs); mpc_val_t *mpcf_strfold(int n, mpc_val_t** xs);
mpc_val_t* mpcf_maths(int n, mpc_val_t** xs); mpc_val_t *mpcf_maths(int n, mpc_val_t** xs);
/* /*
** Regular Expression Parsers ** Regular Expression Parsers
*/ */
mpc_parser_t* mpc_re(const char* re); mpc_parser_t *mpc_re(const char *re);
/* /*
** AST ** AST
*/ */
typedef struct mpc_ast_t { typedef struct mpc_ast_t {
char* tag; char *tag;
char* contents; char *contents;
int children_num; int children_num;
struct mpc_ast_t** children; struct mpc_ast_t** children;
} mpc_ast_t; } mpc_ast_t;
mpc_ast_t* mpc_ast_new(const char* tag, const char* contents); mpc_ast_t *mpc_ast_new(const char *tag, const char *contents);
mpc_ast_t* mpc_ast_build(int n, const char* tag, ...); mpc_ast_t *mpc_ast_build(int n, const char *tag, ...);
mpc_ast_t* mpc_ast_add_root(mpc_ast_t* a); mpc_ast_t *mpc_ast_add_root(mpc_ast_t *a);
mpc_ast_t* mpc_ast_add_child(mpc_ast_t* r, mpc_ast_t* a); mpc_ast_t *mpc_ast_add_child(mpc_ast_t *r, mpc_ast_t *a);
mpc_ast_t* mpc_ast_add_tag(mpc_ast_t* a, const char* t); mpc_ast_t *mpc_ast_add_tag(mpc_ast_t *a, const char *t);
mpc_ast_t* mpc_ast_tag(mpc_ast_t* a, const char* t); mpc_ast_t *mpc_ast_tag(mpc_ast_t *a, const char *t);
void mpc_ast_delete(mpc_ast_t* a); void mpc_ast_delete(mpc_ast_t *a);
void mpc_ast_print(mpc_ast_t* a); void mpc_ast_print(mpc_ast_t *a);
int mpc_ast_eq(mpc_ast_t* a, mpc_ast_t* b); int mpc_ast_eq(mpc_ast_t *a, mpc_ast_t *b);
mpc_val_t* mpcf_fold_ast(int n, mpc_val_t** as); mpc_val_t *mpcf_fold_ast(int n, mpc_val_t **as);
mpc_val_t* mpcf_str_ast(mpc_val_t* c); mpc_val_t *mpcf_str_ast(mpc_val_t *c);
mpc_parser_t* mpca_tag(mpc_parser_t* a, const char* t); mpc_parser_t *mpca_tag(mpc_parser_t *a, const char *t);
mpc_parser_t* mpca_add_tag(mpc_parser_t* a, const char* t); mpc_parser_t *mpca_add_tag(mpc_parser_t *a, const char *t);
mpc_parser_t* mpca_root(mpc_parser_t* a); mpc_parser_t *mpca_root(mpc_parser_t *a);
mpc_parser_t* mpca_total(mpc_parser_t* a); mpc_parser_t *mpca_total(mpc_parser_t *a);
mpc_parser_t* mpca_not(mpc_parser_t* a); mpc_parser_t *mpca_not(mpc_parser_t *a);
mpc_parser_t* mpca_maybe(mpc_parser_t* a); mpc_parser_t *mpca_maybe(mpc_parser_t *a);
mpc_parser_t* mpca_many(mpc_parser_t* a); mpc_parser_t *mpca_many(mpc_parser_t *a);
mpc_parser_t* mpca_many1(mpc_parser_t* a); mpc_parser_t *mpca_many1(mpc_parser_t *a);
mpc_parser_t* mpca_count(int n, mpc_parser_t* a); mpc_parser_t *mpca_count(int n, mpc_parser_t *a);
mpc_parser_t* mpca_or(int n, ...); mpc_parser_t *mpca_or(int n, ...);
mpc_parser_t* mpca_and(int n, ...); mpc_parser_t *mpca_and(int n, ...);
mpc_parser_t* mpca_grammar(const char* grammar, ...); mpc_parser_t *mpca_grammar(const char *grammar, ...);
mpc_err_t* mpca_lang(const char* language, ...); mpc_err_t *mpca_lang(const char *language, ...);
mpc_err_t* mpca_lang_file(FILE* f, ...); mpc_err_t *mpca_lang_file(FILE *f, ...);
mpc_err_t* mpca_lang_filename(const char* filename, ...); mpc_err_t *mpca_lang_filename(const char *filename, ...);
/* /*
** Debug & Testing ** Debug & Testing
*/ */
void mpc_print(mpc_parser_t* p); void mpc_print(mpc_parser_t *p);
int mpc_unmatch(mpc_parser_t* p, const char* s, void* d, int mpc_unmatch(mpc_parser_t *p, const char *s, void *d,
int(*tester)(void*, void*), int(*tester)(void*, void*),
mpc_dtor_t destructor, mpc_dtor_t destructor,
void(*printer)(void*)); void(*printer)(void*));
int mpc_match(mpc_parser_t* p, const char* s, void* d, int mpc_match(mpc_parser_t *p, const char *s, void *d,
int(*tester)(void*, void*), int(*tester)(void*, void*),
mpc_dtor_t destructor, mpc_dtor_t destructor,
void(*printer)(void*)); void(*printer)(void*));