Subversion Repositories openrisc

/*
 * value.c -- Generic type (holds all types)
 *
 * Copyright (c) Go Ahead Software, Inc., 1995-1999
 *
 * See the file "license.txt" for usage and redistribution license requirements
 */
 
/******************************** Description *********************************/
 
/*
 *	This module provides a generic type that can hold all possible types.
 *	It is designed to provide maximum effeciency. 
 */
 
/********************************* Includes ***********************************/
 
#include	"uemf.h"
 
/*********************************** Locals ***********************************/
 
 
/*********************************** Code *************************************/
/*
 *	Initialize a integer value.  
 */
 
value_t valueInteger(long value)
{
	value_t	v = VALUE_VALID;
 
	v.value.integer = value;
	return v;
}
 
/******************************************************************************/
/*
 *	Initialize a string value. Note: not allocation
 */
 
value_t valueString(char_t *value, int flags)
{
	value_t	v = VALUE_VALID;
 
	v.type = string;
	if (flags & VALUE_ALLOCATE) {
		v.allocated = 1;
		v.value.string = gstrdup(B_L, value);
	} else {
		v.allocated = 0;
		v.value.string = value;
	}
	return v;
}
 
/******************************************************************************/
/*
 *	Free any storage allocated for a value.  
 */
 
void valueFree(value_t *v)
{
	a_assert(v);
 
	if (v->valid && v->allocated && v->type == string && 
			v->value.string != NULL) {
		bfree(B_L, v->value.string);
	}
	v->type = undefined;
	v->valid = 0;
	v->allocated = 0;
}
 
/******************************************************************************/