LWTools: lwcc/tree.c annotate

annotate lwcc/tree.c @ 314:a3e277c58df9 ccdev

Checkpoint parser development for lwcc Beginning of lemon based parser for C including all the infrastructure for calling the lemon generated parser. This requires a translation layer from the preprocessor token numbers to the lemon parser token numbers due to the fact that lemon wants to control the token numbers. Eventually when the lemon parser gets replaced with a hand crafted recursive descent parser, this translation will no longer be required. However, in the interest of getting things working sooner rather than later, using something like lemon is beneficial.

author	William Astle <lost@l-w.ca>
date	Sun, 17 Nov 2013 11:59:36 -0700
parents	41118fb0a8f2
children	1bd2d590d734

rev	line source
312 41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	1 /*
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	2 lwcc/tree.c
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	3
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	4 Copyright © 2013 William Astle
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	5
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	6 This file is part of LWTOOLS.
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	7
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	8 LWTOOLS is free software: you can redistribute it and/or modify it under the
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	9 terms of the GNU General Public License as published by the Free Software
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	10 Foundation, either version 3 of the License, or (at your option) any later
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	11 version.
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	12
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	13 This program is distributed in the hope that it will be useful, but WITHOUT
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	14 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	15 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	16 more details.
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	17
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	18 You should have received a copy of the GNU General Public License along with
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	19 this program. If not, see <http://www.gnu.org/licenses/>.
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	20 */
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	21
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	22 #include <stdarg.h>
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	23 #include <string.h>
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	24 #include <lw_alloc.h>
314 a3e277c58df9 Checkpoint parser development for lwcc William Astle <lost@l-w.ca> parents: 312 diff changeset	25 #include <lw_string.h>
312 41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	26
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	27 #include "tree.h"
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	28
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	29 static char *node_names[] = {
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	30 "NONE",
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	31 "PROGRAM",
314 a3e277c58df9 Checkpoint parser development for lwcc William Astle <lost@l-w.ca> parents: 312 diff changeset	32 "DECL",
a3e277c58df9 Checkpoint parser development for lwcc William Astle <lost@l-w.ca> parents: 312 diff changeset	33 "TYPE_CHAR",
a3e277c58df9 Checkpoint parser development for lwcc William Astle <lost@l-w.ca> parents: 312 diff changeset	34 "TYPE_SHORT",
a3e277c58df9 Checkpoint parser development for lwcc William Astle <lost@l-w.ca> parents: 312 diff changeset	35 "TYPE_INT",
a3e277c58df9 Checkpoint parser development for lwcc William Astle <lost@l-w.ca> parents: 312 diff changeset	36 "TYPE_LONG",
a3e277c58df9 Checkpoint parser development for lwcc William Astle <lost@l-w.ca> parents: 312 diff changeset	37 "TYPE_LONGLONG",
a3e277c58df9 Checkpoint parser development for lwcc William Astle <lost@l-w.ca> parents: 312 diff changeset	38 "IDENT",
a3e277c58df9 Checkpoint parser development for lwcc William Astle <lost@l-w.ca> parents: 312 diff changeset	39 "TYPE_PTR",
a3e277c58df9 Checkpoint parser development for lwcc William Astle <lost@l-w.ca> parents: 312 diff changeset	40 "TYPE_SCHAR",
a3e277c58df9 Checkpoint parser development for lwcc William Astle <lost@l-w.ca> parents: 312 diff changeset	41 "TYPE_UCHAR",
a3e277c58df9 Checkpoint parser development for lwcc William Astle <lost@l-w.ca> parents: 312 diff changeset	42 "TYPE_USHORT",
a3e277c58df9 Checkpoint parser development for lwcc William Astle <lost@l-w.ca> parents: 312 diff changeset	43 "TYPE_UINT",
a3e277c58df9 Checkpoint parser development for lwcc William Astle <lost@l-w.ca> parents: 312 diff changeset	44 "TYPE_ULONG",
a3e277c58df9 Checkpoint parser development for lwcc William Astle <lost@l-w.ca> parents: 312 diff changeset	45 "TYPE_ULONGLONG",
a3e277c58df9 Checkpoint parser development for lwcc William Astle <lost@l-w.ca> parents: 312 diff changeset	46 "TYPE_VOID",
a3e277c58df9 Checkpoint parser development for lwcc William Astle <lost@l-w.ca> parents: 312 diff changeset	47 "TYPE_FLOAT",
a3e277c58df9 Checkpoint parser development for lwcc William Astle <lost@l-w.ca> parents: 312 diff changeset	48 "TYPE_DOUBLE",
a3e277c58df9 Checkpoint parser development for lwcc William Astle <lost@l-w.ca> parents: 312 diff changeset	49 "TYPE_LDOUBLE",
a3e277c58df9 Checkpoint parser development for lwcc William Astle <lost@l-w.ca> parents: 312 diff changeset	50 "FUNDEF",
a3e277c58df9 Checkpoint parser development for lwcc William Astle <lost@l-w.ca> parents: 312 diff changeset	51 "FUNDECL",
a3e277c58df9 Checkpoint parser development for lwcc William Astle <lost@l-w.ca> parents: 312 diff changeset	52 "FUNARGS",
a3e277c58df9 Checkpoint parser development for lwcc William Astle <lost@l-w.ca> parents: 312 diff changeset	53 "BLOCK",
312 41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	54 };
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	55
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	56
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	57
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	58 node_t *node_create(int type, ...)
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	59 {
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	60 node_t *r;
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	61 int nargs = 0;
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	62 va_list args;
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	63
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	64 va_start(args, type);
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	65 r = lw_alloc(sizeof(node_t));
314 a3e277c58df9 Checkpoint parser development for lwcc William Astle <lost@l-w.ca> parents: 312 diff changeset	66 memset(r, 0, sizeof(node_t));
312 41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	67 r -> type = type;
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	68
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	69 switch (type)
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	70 {
314 a3e277c58df9 Checkpoint parser development for lwcc William Astle <lost@l-w.ca> parents: 312 diff changeset	71 case NODE_DECL:
a3e277c58df9 Checkpoint parser development for lwcc William Astle <lost@l-w.ca> parents: 312 diff changeset	72 nargs = 2;
a3e277c58df9 Checkpoint parser development for lwcc William Astle <lost@l-w.ca> parents: 312 diff changeset	73 break;
a3e277c58df9 Checkpoint parser development for lwcc William Astle <lost@l-w.ca> parents: 312 diff changeset	74
a3e277c58df9 Checkpoint parser development for lwcc William Astle <lost@l-w.ca> parents: 312 diff changeset	75 case NODE_TYPE_PTR:
a3e277c58df9 Checkpoint parser development for lwcc William Astle <lost@l-w.ca> parents: 312 diff changeset	76 nargs = 1;
a3e277c58df9 Checkpoint parser development for lwcc William Astle <lost@l-w.ca> parents: 312 diff changeset	77 break;
a3e277c58df9 Checkpoint parser development for lwcc William Astle <lost@l-w.ca> parents: 312 diff changeset	78
a3e277c58df9 Checkpoint parser development for lwcc William Astle <lost@l-w.ca> parents: 312 diff changeset	79 case NODE_IDENT:
a3e277c58df9 Checkpoint parser development for lwcc William Astle <lost@l-w.ca> parents: 312 diff changeset	80 r -> strval = lw_strdup(va_arg(args, char *));
a3e277c58df9 Checkpoint parser development for lwcc William Astle <lost@l-w.ca> parents: 312 diff changeset	81 break;
a3e277c58df9 Checkpoint parser development for lwcc William Astle <lost@l-w.ca> parents: 312 diff changeset	82
a3e277c58df9 Checkpoint parser development for lwcc William Astle <lost@l-w.ca> parents: 312 diff changeset	83 case NODE_FUNDEF:
a3e277c58df9 Checkpoint parser development for lwcc William Astle <lost@l-w.ca> parents: 312 diff changeset	84 nargs = 4;
a3e277c58df9 Checkpoint parser development for lwcc William Astle <lost@l-w.ca> parents: 312 diff changeset	85 break;
a3e277c58df9 Checkpoint parser development for lwcc William Astle <lost@l-w.ca> parents: 312 diff changeset	86
a3e277c58df9 Checkpoint parser development for lwcc William Astle <lost@l-w.ca> parents: 312 diff changeset	87 case NODE_FUNDECL:
a3e277c58df9 Checkpoint parser development for lwcc William Astle <lost@l-w.ca> parents: 312 diff changeset	88 nargs = 3;
a3e277c58df9 Checkpoint parser development for lwcc William Astle <lost@l-w.ca> parents: 312 diff changeset	89 break;
312 41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	90 }
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	91
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	92 while (nargs--)
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	93 {
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	94 node_addchild(r, va_arg(args, node_t *));
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	95 }
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	96 va_end(args);
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	97 return r;
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	98 }
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	99
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	100 void node_destroy(node_t *node)
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	101 {
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	102 node_t *n;
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	103
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	104 while (node -> children)
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	105 {
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	106 n = node -> children -> next_child;
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	107 node_destroy(node -> children);
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	108 node -> children = n;
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	109 }
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	110 lw_free(node -> strval);
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	111 lw_free(node);
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	112 }
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	113
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	114 void node_addchild(node_t node, node_t nn)
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	115 {
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	116 node_t *tmp;
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	117
314 a3e277c58df9 Checkpoint parser development for lwcc William Astle <lost@l-w.ca> parents: 312 diff changeset	118 if (!nn)
a3e277c58df9 Checkpoint parser development for lwcc William Astle <lost@l-w.ca> parents: 312 diff changeset	119 return;
a3e277c58df9 Checkpoint parser development for lwcc William Astle <lost@l-w.ca> parents: 312 diff changeset	120
312 41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	121 nn -> parent = node;
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	122 nn -> next_child = NULL;
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	123 if (node -> children)
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	124 {
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	125 for (tmp = node -> children; tmp -> next_child; tmp = tmp -> next_child)
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	126 /* do nothing */ ;
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	127 tmp -> next_child = nn;
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	128 }
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	129 else
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	130 {
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	131 node -> children = nn;
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	132 }
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	133 }
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	134
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	135 void node_removechild(node_t node, node_t nn)
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	136 {
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	137 node_t **pp;
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	138 node_t *np;
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	139
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	140 if (!node)
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	141 node = nn -> parent;
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	142
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	143 pp = &(node -> children);
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	144 for (np = node -> children; np; np = np -> next_child)
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	145 {
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	146 if (np -> next_child == nn)
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	147 break;
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	148 pp = &((*pp) -> next_child);
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	149 }
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	150 if (!np)
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	151 return;
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	152
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	153 *pp = nn -> next_child;
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	154 nn -> parent = NULL;
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	155 nn -> next_child = NULL;
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	156 }
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	157
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	158 void node_removechild_destroy(node_t node, node_t nn)
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	159 {
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	160 node_removechild(node, nn);
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	161 node_destroy(nn);
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	162 }
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	163
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	164 static void node_display_aux(node_t node, FILE f, int level)
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	165 {
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	166 node_t *nn;
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	167 int i;
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	168
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	169 for (i = 0; i < level * 4; i++)
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	170 fputc(' ', f);
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	171 fprintf(f, "(%s ", node_names[node -> type]);
314 a3e277c58df9 Checkpoint parser development for lwcc William Astle <lost@l-w.ca> parents: 312 diff changeset	172 if (node -> strval)
a3e277c58df9 Checkpoint parser development for lwcc William Astle <lost@l-w.ca> parents: 312 diff changeset	173 fprintf(f, "\"%s\" ", node -> strval);
312 41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	174 fputc('\n', f);
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	175 for (nn = node -> children; nn; nn = nn -> next_child)
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	176 node_display_aux(nn, f, level + 1);
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	177 for (i = 0; i < level * 4; i++)
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	178 fputc(' ', f);
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	179 fputc(')', f);
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	180 fputc('\n', f);
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	181 }
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	182
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	183 void node_display(node_t node, FILE f)
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	184 {
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	185 node_display_aux(node, f, 0);
41118fb0a8f2 Add no-op parser and parse tree infrastructure William Astle <lost@l-w.ca> parents: diff changeset	186 }

Mercurial > hg > index.cgi

annotate lwcc/tree.c @ 314:a3e277c58df9 ccdev