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;

}

/******************************************************************************/