Arquivotheca.SunOS-4.1.4/bin/awk/parse.c

#ifndef lint
static	char sccsid[] = "@(#)parse.c 1.1 94/10/31 SMI"; /* from S5R2 */
#endif

#include "awk.def"
#include "awk.h"
#include "stdio.h"
NODE *nodealloc(n)
{
	register NODE *x;
	x = (NODE *) malloc(sizeof(NODE) + (n-1)*sizeof(NODE *));
	if (x == NULL)
		error(FATAL, "out of space in nodealloc");
	return(x);
}

NODE *exptostat(a) NODE *a;
{
	a->ntype = NSTAT;
	return(a);
}

NODE *node0(a)
{
	register NODE *x;
	x = nodealloc(0);
	x->nnext = NULL;
	x->nobj = a;
	return(x);
}

NODE *node1(a,b) NODE *b;
{
	register NODE *x;
	x = nodealloc(1);
	x->nnext = NULL;
	x->nobj = a;
	x->narg[0]=b;
	return(x);
}

NODE *node2(a,b,c) NODE *b, *c;
{
	register NODE *x;
	x = nodealloc(2);
	x->nnext = NULL;
	x->nobj = a;
	x->narg[0] = b;
	x->narg[1] = c;
	return(x);
}

NODE *node3(a,b,c,d) NODE *b, *c, *d;
{
	register NODE *x;
	x = nodealloc(3);
	x->nnext = NULL;
	x->nobj = a;
	x->narg[0] = b;
	x->narg[1] = c;
	x->narg[2] = d;
	return(x);
}

NODE *node4(a,b,c,d,e) NODE *b, *c, *d, *e;
{
	register NODE *x;
	x = nodealloc(4);
	x->nnext = NULL;
	x->nobj = a;
	x->narg[0] = b;
	x->narg[1] = c;
	x->narg[2] = d;
	x->narg[3] = e;
	return(x);
}

NODE *stat3(a,b,c,d) NODE *b, *c, *d;
{
	register NODE *x;
	x = node3(a,b,c,d);
	x->ntype = NSTAT;
	return(x);
}

NODE *op2(a,b,c) NODE *b, *c;
{
	register NODE *x;
	x = node2(a,b,c);
	x->ntype = NEXPR;
	return(x);
}

NODE *op1(a,b) NODE *b;
{
	register NODE *x;
	x = node1(a,b);
	x->ntype = NEXPR;
	return(x);
}

NODE *stat1(a,b) NODE *b;
{
	register NODE *x;
	x = node1(a,b);
	x->ntype = NSTAT;
	return(x);
}

NODE *op3(a,b,c,d) NODE *b, *c, *d;
{
	register NODE *x;
	x = node3(a,b,c,d);
	x->ntype = NEXPR;
	return(x);
}

NODE *stat2(a,b,c) NODE *b, *c;
{
	register NODE *x;
	x = node2(a,b,c);
	x->ntype = NSTAT;
	return(x);
}

NODE *stat4(a,b,c,d,e) NODE *b, *c, *d, *e;
{
	register NODE *x;
	x = node4(a,b,c,d,e);
	x->ntype = NSTAT;
	return(x);
}

NODE *valtonode(a, b) CELL *a;
{
	register NODE *x;
	x = node0(a);
	x->ntype = NVALUE;
	x->subtype = b;
	return(x);
}

NODE *pa2stat(a,b,c) NODE *a, *b, *c;
{
	register NODE *x;
	x = node4(PASTAT2, a, b, c, (NODE *) paircnt);
	paircnt++;
	x->ntype = NSTAT;
	return(x);
}

NODE *linkum(a,b) NODE *a, *b;
{
	register NODE *c;
	if(a == NULL) return(b);
	else if(b == NULL) return(a);
	for (c = a; c->nnext != NULL; c=c->nnext)
		;
	c->nnext = b;
	return(a);
}

NODE *genprint()
{
	register NODE *x;
	x = stat2(PRINT,valtonode(lookup("$record", symtab, 0), CFLD), NULL);
	return(x);
}