/*
 * Copyright 2001 Silicon Graphics, Inc. All rights reserved.
 */
/*
	Set of functions to handle the case construct.
*/
#include "sial.h"

void
sial_freecaseval(caseval_t*cv)
{
	sial_free(cv);
}

node_t*
sial_caseval(int isdef, node_t*val)
{
caseval_t*cv=sial_alloc(sizeof(caseval_t));
node_t*n=sial_newnode();
value_t *v;

	cv->isdef=isdef;
	if(val) {

		v=NODE_EXE(val);
		cv->val=unival(v);
		sial_freeval(v);
		NODE_FREE(val);

	} else cv->val=0;

	sial_setpos(&cv->pos);

	cv->next=0;
	n->data=cv;
	return n;
}

node_t*
sial_addcaseval(node_t*n, node_t*n2)
{
caseval_t*cv=(caseval_t*)n->data;
caseval_t*ncv=(caseval_t*)n2->data;

	sial_free(n);
	ncv->next=cv;
	return n2;
}

void
sial_freecase(void *vcl)
{
caselist_t*cl=(caselist_t*)vcl;

	NODE_FREE(cl->stmt);
	sial_free(cl);
}

node_t*
sial_newcase(node_t*nc, node_t* n)
{
caseval_t*cv=(caseval_t*)nc->data;
caselist_t*cl=sial_alloc(sizeof(caselist_t));
node_t*nn=sial_newnode();


	nn->data=cl;
	nn->free=(ffct_t)sial_freecase;

	cl->vals=cv;
	sial_free(nc);

	cl->stmt=n;
	cl->next=0;

	sial_setpos(&cl->pos);

	return nn;
}

node_t*
sial_addcase(node_t*n, node_t*n2)
{
caselist_t*lcl;
caselist_t*ncl=(caselist_t*)n2->data;
caselist_t*cl=(caselist_t*)n->data;

	for(lcl=cl; lcl->next; lcl=lcl->next);

	/* we need to add case in the order they are listed */
	lcl->next=ncl;
	sial_free(n2);
	ncl->next=0;

	sial_setpos(&ncl->pos);

	return n;
}

int
sial_docase(ull val, caselist_t*cl)
{
caselist_t*defclp=0, *clp;


	for(clp=cl;clp;clp=clp->next) {

	caseval_t*cvp;

		for(cvp=clp->vals; cvp; cvp=cvp->next) {

			if(cvp->val==val) goto out;
			else if(cvp->isdef) defclp=clp;
		}
	}
out:
	if(clp || (clp=defclp)) {

		for(;clp;clp=clp->next) {

			if(clp->stmt) NODE_EXE(clp->stmt);
		}
	}
	return 1;
}