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 | |
Pablo Galindo | f2cf1e3 | 2019-04-13 17:05:14 +0100 | [diff] [blame] | 4 | #include "Python.h" |
Vinay Sajip | 9def81a | 2019-11-07 10:08:58 +0000 | [diff] [blame^] | 5 | #include "pycore_pystate.h" |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 6 | #include "token.h" |
| 7 | #include "node.h" |
| 8 | |
Guido van Rossum | 3f5da24 | 1990-12-20 15:06:42 +0000 | [diff] [blame] | 9 | /* Forward */ |
Tim Peters | dbd9ba6 | 2000-07-09 03:09:57 +0000 | [diff] [blame] | 10 | static void list1node(FILE *, node *); |
| 11 | static void listnode(FILE *, node *); |
Guido van Rossum | 3f5da24 | 1990-12-20 15:06:42 +0000 | [diff] [blame] | 12 | |
| 13 | void |
Thomas Wouters | 23c9e00 | 2000-07-22 19:20:54 +0000 | [diff] [blame] | 14 | PyNode_ListTree(node *n) |
Guido van Rossum | 3f5da24 | 1990-12-20 15:06:42 +0000 | [diff] [blame] | 15 | { |
Antoine Pitrou | f95a1b3 | 2010-05-09 15:52:27 +0000 | [diff] [blame] | 16 | listnode(stdout, n); |
Guido van Rossum | 3f5da24 | 1990-12-20 15:06:42 +0000 | [diff] [blame] | 17 | } |
| 18 | |
Guido van Rossum | 9e90a67 | 1993-06-24 11:10:19 +0000 | [diff] [blame] | 19 | static void |
Thomas Wouters | 23c9e00 | 2000-07-22 19:20:54 +0000 | [diff] [blame] | 20 | listnode(FILE *fp, node *n) |
Guido van Rossum | 3f5da24 | 1990-12-20 15:06:42 +0000 | [diff] [blame] | 21 | { |
Vinay Sajip | 9def81a | 2019-11-07 10:08:58 +0000 | [diff] [blame^] | 22 | PyInterpreterState *interp = _PyInterpreterState_GET_UNSAFE(); |
| 23 | |
| 24 | interp->parser.listnode.level = 0; |
| 25 | interp->parser.listnode.atbol = 1; |
Antoine Pitrou | f95a1b3 | 2010-05-09 15:52:27 +0000 | [diff] [blame] | 26 | list1node(fp, n); |
Guido van Rossum | 3f5da24 | 1990-12-20 15:06:42 +0000 | [diff] [blame] | 27 | } |
| 28 | |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 29 | static void |
Thomas Wouters | 23c9e00 | 2000-07-22 19:20:54 +0000 | [diff] [blame] | 30 | list1node(FILE *fp, node *n) |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 31 | { |
Vinay Sajip | 9def81a | 2019-11-07 10:08:58 +0000 | [diff] [blame^] | 32 | PyInterpreterState *interp; |
| 33 | |
Serhiy Storchaka | 0b3ec19 | 2017-03-23 17:53:47 +0200 | [diff] [blame] | 34 | if (n == NULL) |
Antoine Pitrou | f95a1b3 | 2010-05-09 15:52:27 +0000 | [diff] [blame] | 35 | return; |
| 36 | if (ISNONTERMINAL(TYPE(n))) { |
| 37 | int i; |
| 38 | for (i = 0; i < NCH(n); i++) |
| 39 | list1node(fp, CHILD(n, i)); |
| 40 | } |
| 41 | else if (ISTERMINAL(TYPE(n))) { |
Vinay Sajip | 9def81a | 2019-11-07 10:08:58 +0000 | [diff] [blame^] | 42 | interp = _PyInterpreterState_GET_UNSAFE(); |
Antoine Pitrou | f95a1b3 | 2010-05-09 15:52:27 +0000 | [diff] [blame] | 43 | switch (TYPE(n)) { |
| 44 | case INDENT: |
Vinay Sajip | 9def81a | 2019-11-07 10:08:58 +0000 | [diff] [blame^] | 45 | interp->parser.listnode.level++; |
Antoine Pitrou | f95a1b3 | 2010-05-09 15:52:27 +0000 | [diff] [blame] | 46 | break; |
| 47 | case DEDENT: |
Vinay Sajip | 9def81a | 2019-11-07 10:08:58 +0000 | [diff] [blame^] | 48 | interp->parser.listnode.level--; |
Antoine Pitrou | f95a1b3 | 2010-05-09 15:52:27 +0000 | [diff] [blame] | 49 | break; |
| 50 | default: |
Vinay Sajip | 9def81a | 2019-11-07 10:08:58 +0000 | [diff] [blame^] | 51 | if (interp->parser.listnode.atbol) { |
Antoine Pitrou | f95a1b3 | 2010-05-09 15:52:27 +0000 | [diff] [blame] | 52 | int i; |
Vinay Sajip | 9def81a | 2019-11-07 10:08:58 +0000 | [diff] [blame^] | 53 | for (i = 0; i < interp->parser.listnode.level; ++i) |
Antoine Pitrou | f95a1b3 | 2010-05-09 15:52:27 +0000 | [diff] [blame] | 54 | fprintf(fp, "\t"); |
Vinay Sajip | 9def81a | 2019-11-07 10:08:58 +0000 | [diff] [blame^] | 55 | interp->parser.listnode.atbol = 0; |
Antoine Pitrou | f95a1b3 | 2010-05-09 15:52:27 +0000 | [diff] [blame] | 56 | } |
| 57 | if (TYPE(n) == NEWLINE) { |
| 58 | if (STR(n) != NULL) |
| 59 | fprintf(fp, "%s", STR(n)); |
| 60 | fprintf(fp, "\n"); |
Vinay Sajip | 9def81a | 2019-11-07 10:08:58 +0000 | [diff] [blame^] | 61 | interp->parser.listnode.atbol = 1; |
Antoine Pitrou | f95a1b3 | 2010-05-09 15:52:27 +0000 | [diff] [blame] | 62 | } |
| 63 | else |
| 64 | fprintf(fp, "%s ", STR(n)); |
| 65 | break; |
| 66 | } |
| 67 | } |
| 68 | else |
| 69 | fprintf(fp, "? "); |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 70 | } |