| Guido van Rossum | f70e43a | 1991-02-19 12:39:46 +0000 | [diff] [blame] | 1 | |
| Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 2 | /* List a node on a file */ |
| 3 | |
| Guido van Rossum | 3f5da24 | 1990-12-20 15:06:42 +0000 | [diff] [blame] | 4 | #include "pgenheaders.h" |
| Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 5 | #include "token.h" |
| 6 | #include "node.h" |
| 7 | |
| Guido van Rossum | 3f5da24 | 1990-12-20 15:06:42 +0000 | [diff] [blame] | 8 | /* Forward */ |
| Tim Peters | dbd9ba6 | 2000-07-09 03:09:57 +0000 | [diff] [blame] | 9 | static void list1node(FILE *, node *); |
| 10 | static void listnode(FILE *, node *); |
| Guido van Rossum | 3f5da24 | 1990-12-20 15:06:42 +0000 | [diff] [blame] | 11 | |
| 12 | void |
| Thomas Wouters | 23c9e00 | 2000-07-22 19:20:54 +0000 | [diff] [blame] | 13 | PyNode_ListTree(node *n) |
| Guido van Rossum | 3f5da24 | 1990-12-20 15:06:42 +0000 | [diff] [blame] | 14 | { |
| 15 | listnode(stdout, n); |
| 16 | } |
| 17 | |
| Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 18 | static int level, atbol; |
| 19 | |
| Guido van Rossum | 9e90a67 | 1993-06-24 11:10:19 +0000 | [diff] [blame] | 20 | static void |
| Thomas Wouters | 23c9e00 | 2000-07-22 19:20:54 +0000 | [diff] [blame] | 21 | listnode(FILE *fp, node *n) |
| Guido van Rossum | 3f5da24 | 1990-12-20 15:06:42 +0000 | [diff] [blame] | 22 | { |
| 23 | level = 0; |
| 24 | atbol = 1; |
| 25 | list1node(fp, n); |
| 26 | } |
| 27 | |
| Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 28 | static void |
| Thomas Wouters | 23c9e00 | 2000-07-22 19:20:54 +0000 | [diff] [blame] | 29 | list1node(FILE *fp, node *n) |
| Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 30 | { |
| 31 | if (n == 0) |
| 32 | return; |
| 33 | if (ISNONTERMINAL(TYPE(n))) { |
| 34 | int i; |
| 35 | for (i = 0; i < NCH(n); i++) |
| 36 | list1node(fp, CHILD(n, i)); |
| 37 | } |
| 38 | else if (ISTERMINAL(TYPE(n))) { |
| 39 | switch (TYPE(n)) { |
| 40 | case INDENT: |
| 41 | ++level; |
| 42 | break; |
| 43 | case DEDENT: |
| 44 | --level; |
| 45 | break; |
| 46 | default: |
| 47 | if (atbol) { |
| 48 | int i; |
| 49 | for (i = 0; i < level; ++i) |
| 50 | fprintf(fp, "\t"); |
| 51 | atbol = 0; |
| 52 | } |
| 53 | if (TYPE(n) == NEWLINE) { |
| 54 | if (STR(n) != NULL) |
| 55 | fprintf(fp, "%s", STR(n)); |
| 56 | fprintf(fp, "\n"); |
| 57 | atbol = 1; |
| 58 | } |
| 59 | else |
| 60 | fprintf(fp, "%s ", STR(n)); |
| 61 | break; |
| 62 | } |
| 63 | } |
| 64 | else |
| 65 | fprintf(fp, "? "); |
| 66 | } |