ilist.c

Go to the documentation of this file.

/*
 ****************************************************************************
 *
 * MODULE:       gis library
 *
 * AUTHOR(S):    Original author CERL, probably Dave Gerdes.
 *               Update to GRASS 5.7 Radim Blazek.
 *
 * PURPOSE:      Lower level functions for reading and manipulating integer list
 *
 * SPDX-FileCopyrightText: 2001 GRASS Development Team
 * SPDX-License-Identifier: GPL-2.0-or-later
 *
 *****************************************************************************/
#include <stdlib.h>
#include <grass/gis.h>
 
/**
 * \brief Free allocated memory of an integer list
 *
 * \param list The pointer to an integer list
 *
 * */
void G_free_ilist(struct ilist *list)
{
    if (list->value)
        G_free(list->value);
    G_free(list);
}
 
/**
 * \brief Return a new integer list.
 *
 * G_fatal_error() will be invoked by the
 * allocation function.
 *
 * \return list The pointer to a new allocated integer list
 *
 * */
struct ilist *G_new_ilist(void)
{
    struct ilist *l = G_malloc(sizeof(struct ilist));
 
    l->value = NULL;
    G_init_ilist(l);
    return l;
}
 
/**
 * \brief Init an integer list and free allocated memory
 *
 * \param list The pointer to an integer list
 *
 * */
void G_init_ilist(struct ilist *list)
{
    if (list->value)
        G_free(list->value);
    list->value = NULL;
    list->n_values = 0;
    list->alloc_values = 0;
}
 
/**
 * \brief Add item to ilist
 *
 *  This function adds an integer to the list but does not check for duplicates.
 *  In case reallocation fails, G_fatal_error() will be invoked by the
 *  allocation function.
 *
 * \param list The ilist pointer
 * \param val The value to attach
 *
 * */
void G_ilist_add(struct ilist *list, int val)
{
    if (list->n_values == list->alloc_values) {
        size_t size = (list->n_values + 1000) * sizeof(int);
        void *p = G_realloc((void *)list->value, size);
 
        list->value = (int *)p;
        list->alloc_values = list->n_values + 1000;
    }
 
    list->value[list->n_values] = val;
    list->n_values++;
}