Recorded merge of revisions 69159,69161,69240,69271-69273,69276 via svnmerge from svn+ssh://pythondev@svn.python.org/python/trunk ........ r69159 | gregory.p.smith | 2009-02-01 01:16:01 +0100 (So, 01 Feb 2009) | 2 lines Update doc wording as suggested in issue4903. ........ r69161 | gregory.p.smith | 2009-02-01 01:24:21 +0100 (So, 01 Feb 2009) | 2 lines wording for for issue4903. ........ r69240 | raymond.hettinger | 2009-02-03 04:18:14 +0100 (Di, 03 Feb 2009) | 1 line Record operator deprecations in docs. ........ r69271 | raymond.hettinger | 2009-02-04 11:52:32 +0100 (Mi, 04 Feb 2009) | 1 line Minor doc fixups. ........ r69272 | raymond.hettinger | 2009-02-04 12:14:18 +0100 (Mi, 04 Feb 2009) | 1 line Doc fixes. Remove overbroad, redundant warnings. Fixup example code. ........ r69273 | raymond.hettinger | 2009-02-04 12:31:30 +0100 (Mi, 04 Feb 2009) | 1 line Tweak the docs for Counter() objects. ........ r69276 | raymond.hettinger | 2009-02-04 20:25:17 +0100 (Mi, 04 Feb 2009) | 1 line Clarify that named tuples do not have to subclass tuple. ........

/* List a node on a file */

#include "pgenheaders.h"
#include "token.h"
#include "node.h"

/* Forward */
static void list1node(FILE *, node *);
static void listnode(FILE *, node *);

void
PyNode_ListTree(node *n)
{
	listnode(stdout, n);
}

static int level, atbol;

static void
listnode(FILE *fp, node *n)
{
	level = 0;
	atbol = 1;
	list1node(fp, n);
}

static void
list1node(FILE *fp, node *n)
{
	if (n == 0)
		return;
	if (ISNONTERMINAL(TYPE(n))) {
		int i;
		for (i = 0; i < NCH(n); i++)
			list1node(fp, CHILD(n, i));
	}
	else if (ISTERMINAL(TYPE(n))) {
		switch (TYPE(n)) {
		case INDENT:
			++level;
			break;
		case DEDENT:
			--level;
			break;
		default:
			if (atbol) {
				int i;
				for (i = 0; i < level; ++i)
					fprintf(fp, "\t");
				atbol = 0;
			}
			if (TYPE(n) == NEWLINE) {
				if (STR(n) != NULL)
					fprintf(fp, "%s", STR(n));
				fprintf(fp, "\n");
				atbol = 1;
			}
			else
				fprintf(fp, "%s ", STR(n));
			break;
		}
	}
	else
		fprintf(fp, "? ");
}