49 lines
1.2 KiB
C
49 lines
1.2 KiB
C
#include "../mpc.h"
|
|
|
|
int main(int argc, char **argv) {
|
|
|
|
mpc_parser_t* Adjective = mpc_new("adjective");
|
|
mpc_parser_t* Noun = mpc_new("noun");
|
|
mpc_parser_t* Phrase = mpc_new("phrase");
|
|
mpc_parser_t* Doge = mpc_new("doge");
|
|
|
|
mpca_lang(MPC_LANG_DEFAULT,
|
|
" \
|
|
adjective : \"wow\" | \"many\" | \"so\" | \"such\"; \
|
|
noun : \"lisp\" | \"language\" | \"c\" | \"book\" | \"build\"; \
|
|
phrase : <adjective> <noun>; \
|
|
doge : /^/ <phrase>* /$/; \
|
|
",
|
|
Adjective, Noun, Phrase, Doge);
|
|
|
|
if (argc > 1) {
|
|
|
|
mpc_result_t r;
|
|
if (mpc_parse_contents(argv[1], Doge, &r)) {
|
|
mpc_ast_print(r.output);
|
|
mpc_ast_delete(r.output);
|
|
} else {
|
|
mpc_err_print(r.error);
|
|
mpc_err_delete(r.error);
|
|
}
|
|
|
|
} else {
|
|
|
|
mpc_result_t r;
|
|
if (mpc_parse_pipe("<stdin>", stdin, Doge, &r)) {
|
|
mpc_ast_print(r.output);
|
|
mpc_ast_delete(r.output);
|
|
} else {
|
|
mpc_err_print(r.error);
|
|
mpc_err_delete(r.error);
|
|
}
|
|
|
|
}
|
|
|
|
mpc_cleanup(4, Adjective, Noun, Phrase, Doge);
|
|
|
|
return 0;
|
|
|
|
}
|
|
|