tepal/src/ident.c

#include <string.h>
#include <malloc.h>
#include <stdio.h>
#include <stdlib.h>

#include <expValue.h>
#include <identList.h>
#include <tepal.h>
#include <ident.h>


/*
 * Typdeklaration, etc
 */
union identTypes
{
	s_expVal    * base;
	s_identList * idl;
};

struct ident
{
	char * key;
	int    idx;

	int    queued;

	union identTypes val;
};


/*
 * statische Funktionen (interner gebrauch)
 */

/*
 * nicht statische Funktionen (Interface)
 */

/*
 * Contructors / Destructors for ident
 */
	s_ident *
identNew(int idx, const char * key)
{
	int       keyLen = (key == NULL) ? 2 : 2 + strlen(key);
	s_ident * ident  = (s_ident*)malloc(sizeof(s_ident));

	ident->idx = idx;
	ident->key = (char*)malloc(sizeof(char) * keyLen);

	ident->key[0] = ID_TYP_UNDEF;
	ident->key[1] = '\0';

	if (key != NULL) strcpy(ident->key + 1, key);

	ident->queued = 0;

	return ident;
}

	s_ident *
identUndefNew(int idx, const char * key)
{
#ifdef DEBUG2
	printf("[!DEBUG!] identUndefNew: %d/%s\n", idx, key);
#endif

	return identNew(idx, key);
}

	s_ident *
identExpNew(int idx, const char * key, s_expVal * val)
{
	s_ident * ident = identNew(idx, key);

#ifdef DEBUG2
	printf("[!DEBUG!] identExpNew: %d/%s\n", idx, key);
#endif

	ident->key[0]   = ID_TYP_EXP;
	ident->val.base = expValueClone(val);

	return ident;
}

	s_ident *
identIdlNew(int idx, const char * key, s_identList * val)
{
	s_ident * ident = identNew(idx, key);

#ifdef DEBUG2
	printf("[!DEBUG!] identIdlNew: %d/%s\n", idx, key);
#endif

	ident->key[0]  = ID_TYP_IDL;
	ident->val.idl = val;

	return ident;
}

	void
identFree(s_ident * id)
{
#ifdef DEBUG2
	printf("[!DEBUG!] identFree: %d/%s\n", id->idx, id->key);
#endif

	switch (identGetType(id)) {
		case ID_TYP_EXP: expValueFree (id->val.base); break;
		case ID_TYP_IDL: identListFree (id->val.idl); break;
	}

	free(id->key);
	free(id);
}

/*
 * analyse ident
 */
	int
identIsQueued(s_ident * id)
{
	return id->queued;
}

	void
identEnqueue(s_ident * id)
{
	id->queued++;
}

	void
identDequeue(s_ident * id)
{
	id->queued--;
}

	int
identGetType(s_ident * id)
{
	return id->key[0];
}

	char *
identGetKey(s_ident * id)
{
	return id->key + 1;
}

	int
identGetIdx(s_ident * id)
{
	return id->idx;
}

/* identifier to value */
	s_expVal *
identExp(s_ident * id)
{
	s_expVal * ret = NULL;

	if (id == NULL) exitError (ERR_UNDEF_VAR, identGetKey (id));

	if (identGetType (id) == ID_TYP_EXP) ret = expValueClone(id->val.base);

	return ret;
}

	s_identList *
identIdl(s_ident * id)
{
	s_identList * ret = NULL;

	if (identGetType(id) == ID_TYP_IDL) ret = id->val.idl;

	return ret;
}

	s_ident *
identSetExp(s_ident * id, s_expVal * val)
{
	switch (identGetType(id)) {
		case ID_TYP_EXP: expValueFree(id->val.base); break;
		case ID_TYP_IDL: identListFree(id->val.idl); break;
	}

	id->key[0]   = ID_TYP_EXP;
	id->val.base = expValueClone(val);

	return id;
}

	s_ident *
identSetIdl(s_ident * id, s_identList * val)
{
	switch (identGetType (id)) {
		case ID_TYP_EXP: expValueFree (id->val.base);
		case ID_TYP_IDL: identListFree (id->val.idl);
	}

	id->key[0]  = ID_TYP_IDL;
	id->val.idl = val;

	return id;
}