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

Merge pull request #11 from kc1212/master

Browse Source 
Added function to print ast to user specified file pointer
This commit is contained in:
Daniel Holden
2014-07-15 22:34:15 +01:00
parent 6af8360517 5bd7aaf004
commit f65b32b842
2 changed files with 11 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
mpc.c
View File

@@ -2590,25 +2590,29 @@ mpc_ast_t *mpc_ast_state(mpc_ast_t *a, mpc_state_t s) {
return a; return a;
} }
static void mpc_ast_print_depth(mpc_ast_t *a, int d) { static void mpc_ast_print_depth(mpc_ast_t *a, int d, FILE *fp) {
int i; int i;
for (i = 0; i < d; i++) { printf(" "); } for (i = 0; i < d; i++) { fprintf(fp, " "); }
if (strlen(a->contents)) { if (strlen(a->contents)) {
printf("%s:%i:%i '%s'\n", a->tag, a->state.row+1, a->state.col+1, a->contents); fprintf(fp, "%s:%i:%i '%s'\n", a->tag, a->state.row+1, a->state.col+1, a->contents);
} else { } else {
printf("%s \n", a->tag); fprintf(fp, "%s \n", a->tag);
} }
for (i = 0; i < a->children_num; i++) { for (i = 0; i < a->children_num; i++) {
mpc_ast_print_depth(a->children[i], d+1); mpc_ast_print_depth(a->children[i], d+1, fp);
} }
} }
void mpc_ast_print(mpc_ast_t *a) { void mpc_ast_print(mpc_ast_t *a) {
mpc_ast_print_depth(a, 0); mpc_ast_print_depth(a, 0, stdout);
}
void mpc_ast_print_to(mpc_ast_t *a, FILE *fp) {
mpc_ast_print_depth(a, 0, fp);
} }
mpc_val_t *mpcf_fold_ast(int n, mpc_val_t **xs) { mpc_val_t *mpcf_fold_ast(int n, mpc_val_t **xs) {

1
mpc.h
View File

@@ -269,6 +269,7 @@ mpc_ast_t *mpc_ast_state(mpc_ast_t *a, mpc_state_t s);
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);
void mpc_ast_print_to(mpc_ast_t *a, FILE *fp);
/* /*
** Warning: This function currently doesn't test for equality of the `state` member! ** Warning: This function currently doesn't test for equality of the `state` member!