afw_list.c

Go to the documentation of this file.

// See the 'COPYING' file in the project root for licensing information.
/*
 * Adaptive Framework afw_list interface helpers
 *
 * Copyright (c) 2010-2023 Clemson University
 *
 */
 
#include "afw_internal.h"
 
 
/* Get next value from list whose data type cType is afw_utf8_t. */
AFW_DEFINE(const afw_utf8_t *)
afw_list_of_utf8_get_next(
    const afw_list_t *instance,
    const afw_iterator_t * *iterator,
    afw_xctx_t *xctx)
{
    const void *internal;
    const afw_data_type_t *data_type;
 
    afw_list_get_next_internal(instance, iterator, &data_type, &internal, xctx);
    if (!internal) {
        return NULL;
    }
 
    if (!afw_utf8_equal(&data_type->cType, &afw_s_afw_utf8_t))
    {
        AFW_THROW_ERROR_Z(general,
            "cType of list data type is not afw_utf8_t", xctx);
    }
    return (const afw_utf8_t *)internal;
}
 
 
 
/* Set an list to immutable if it is not already. */
AFW_DEFINE(void)
afw_list_set_immutable(
    const afw_list_t *instance, afw_xctx_t *xctx)
{
    const afw_list_setter_t *setter;
 
    setter = afw_list_get_setter(instance, xctx);
 
    /* If already immutable, ignore, otherwise; set immutable. */
    if (setter) {
        afw_list_setter_set_immutable(setter, xctx);
    }
}
 
 
/* Set an list to immutable and determine data type. */
AFW_DEFINE(const afw_data_type_t *)
afw_list_determine_data_type_and_set_immutable(
    const afw_list_t *instance, afw_xctx_t *xctx)
{
    const afw_list_setter_t *setter;
 
    setter = afw_list_get_setter(instance, xctx);
 
    if (!setter) {
        AFW_LIST_ERROR_OBJECT_IMMUTABLE;
    }
 
    return afw_list_setter_determine_data_type_and_set_immutable(
        setter, xctx);
}
 
 
/* Call method add of interface afw_list_setter */
AFW_DEFINE(void)
afw_list_add_internal(
    const afw_list_t *instance,
    const afw_data_type_t *data_type,
    const void *internal,
    afw_xctx_t *xctx)
{
    const afw_list_setter_t *setter;
 
    setter = afw_list_get_setter(instance, xctx);
 
    if (!setter) {
        AFW_LIST_ERROR_OBJECT_IMMUTABLE;
    }
 
    afw_list_setter_add_internal(setter, data_type, internal, xctx);
}
 
 
 
AFW_DEFINE(void)
afw_list_add_value(
    const afw_list_t *instance,
    const afw_value_t *value,
    afw_xctx_t *xctx)
{
    const afw_list_setter_t *setter;
 
    setter = afw_list_get_setter(instance, xctx);
 
    if (!setter) {
        AFW_LIST_ERROR_OBJECT_IMMUTABLE;
    }
 
    afw_list_setter_add_value(setter, value, xctx);
}
 
 
 
AFW_DEFINE(void)
afw_list_remove_all_values(
    const afw_list_t *instance,
    afw_xctx_t *xctx)
{
    const afw_list_setter_t *setter;
 
    setter = afw_list_get_setter(instance, xctx);
 
    if (!setter) {
        AFW_LIST_ERROR_OBJECT_IMMUTABLE;
    }
 
    afw_list_setter_remove_all_values(setter, xctx);
}
 
 
 
/* Call method remove of interface afw_list_setter */
AFW_DEFINE(void)
afw_list_remove_internal(
    const afw_list_t *instance,
    const afw_data_type_t *data_type,
    const void *internal,
    afw_xctx_t *xctx)
{
    const afw_list_setter_t *setter;
 
    setter = afw_list_get_setter(instance, xctx);
 
    if (!setter) {
        AFW_LIST_ERROR_OBJECT_IMMUTABLE;
    }
 
    afw_list_setter_remove_internal(setter, data_type, internal, xctx);
}
 
 
 
/* Call method remove_value of interface afw_list_setter */
AFW_DEFINE(void)
afw_list_remove_value(
    const afw_list_t *instance,
    const afw_value_t *value,
    afw_xctx_t *xctx)
{
    const afw_list_setter_t *setter;
 
    setter = afw_list_get_setter(instance, xctx);
 
    if (!setter) {
        AFW_LIST_ERROR_OBJECT_IMMUTABLE;
    }
 
    afw_list_setter_remove_value(setter, value, xctx);
}
 
 
 
/* Call method set_value_by_index of interface afw_list_setter */
AFW_DEFINE(void)
afw_list_set_value_by_index(
    const afw_list_t *instance,
    afw_size_t index,
    const afw_value_t *value,
    afw_xctx_t *xctx)
{
    const afw_list_setter_t *setter;
 
    setter = afw_list_get_setter(instance, xctx);
 
    if (!setter) {
        AFW_LIST_ERROR_OBJECT_IMMUTABLE;
    }
 
    afw_list_setter_set_value_by_index(setter, index, value, xctx);
}