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;
}
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;
for (i = 0; i < d; i++) { printf(" "); }
for (i = 0; i < d; i++) { fprintf(fp, " "); }
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 {
printf("%s \n", a->tag);
fprintf(fp, "%s \n", a->tag);
}
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) {
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) {

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_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!