x
= (node
*)malloc(sizeof(node
)+n
*sizeof(node
*));
error(FATAL
, "out of space in ALLOC");
node
*exptostat(a
) node
*a
;
node
*node1(a
,b
) node
*b
;
node
*node2(a
,b
,c
) node
*b
, *c
;
node
*node3(a
,b
,c
,d
) node
*b
, *c
, *d
;
node
*node4(a
,b
,c
,d
,e
) node
*b
, *c
, *d
, *e
;
node
*stat3(a
,b
,c
,d
) node
*b
, *c
, *d
;
node
*op2(a
,b
,c
) node
*b
, *c
;
node
*stat1(a
,b
) node
*b
;
node
*op3(a
,b
,c
,d
) node
*b
, *c
, *d
;
node
*stat2(a
,b
,c
) node
*b
, *c
;
node
*stat4(a
,b
,c
,d
,e
) node
*b
, *c
, *d
, *e
;
node
*valtonode(a
, b
) cell
*a
;
node
*pa2stat(a
,b
,c
) node
*a
, *b
, *c
;
x
= node3(paircnt
++, a
, b
, c
);
node
*linkum(a
,b
) node
*a
, *b
;
else if(b
== NULL
) return(a
);
for(c
=a
; c
->nnext
!= NULL
; c
=c
->nnext
);
x
= stat2(PRINT
,valtonode(lookup("$record", symtab
), CFLD
), nullstat
);