4.4BSD snapshot (revision 8.1); add 1993 to copyright

[unix-history] / usr / src / old / awk / parse.c

/*-
* Copyright (c) 1991 The Regents of the University of California.
* All rights reserved.
*
* %sccs.include.proprietary.c%
*/

#ifndef lint
static char sccsid[] = "@(#)parse.c     4.3 (Berkeley) %G%";
#endif /* not lint */

#include "awk.def"
#include "awk.h"
#include "stdio.h"
node *ALLOC(n)
{
       register node *x;
       x = (node *) malloc(sizeof(node) + (n-1)*sizeof(node *));
       if (x == NULL)
               error(FATAL, "out of space in ALLOC");
       return(x);
}
node *exptostat(a) node *a;
{
       a->ntype = NSTAT;
       return(a);
}
node    *nullstat;
node *node0(a)
{
       register node *x;
       x=ALLOC(0);
       x->nnext = NULL;
       x->nobj=a;
       return(x);
}
node *node1(a,b) node *b;
{
       register node *x;
       x=ALLOC(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 = ALLOC(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 = ALLOC(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 = ALLOC(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 = node3(paircnt++, a, b, c);
       x->ntype = NPA2;
       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), nullstat);
       return(x);
}