/*
 * Copyright 2001 Silicon Graphics, Inc. All rights reserved.
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 2 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 */
/*
	These function are use to allocate a new node.
	It's a layer between the type specific functions and the parser.
*/
#include "sial.h"
#include <setjmp.h>

/*
	Allocate a new node structure
*/
node_t*
sial_newnode()
{
node_t*n;

	n = (node_t*) sial_calloc(sizeof(node_t));
	TAG(n);
	return n;
}

void
sial_free_siblings(node_t*ni)
{
	while(ni) {

		node_t*next=ni->next;

		NODE_FREE(ni);

		ni=next;
	}
}

/*
	This function is called du ring compile time
	to exevaluate constant expression, like sizeof() and
	array sizes and enum constant.
*/
value_t *
sial_exenode(node_t*n)
{
value_t *v;
int *exval;
jmp_buf exitjmp;
void *sa;
srcpos_t p;

	sial_curpos(&n->pos, &p);
	sa=sial_setexcept();

	if(!setjmp(exitjmp)) {

		sial_pushjmp(J_EXIT, &exitjmp, &exval);
		v=NODE_EXE(n);
		sial_rmexcept(sa);
		sial_popjmp(J_EXIT);

	} else {

		sial_rmexcept(sa);
		return 0;

	}
	sial_curpos(&p, 0);
	return v;
}