/*
 * Check: a unit test framework for C
 * Copyright (C) 2001, 2002 Arien Malec
 *
 * This library is free software; you can redistribute it and/or
 * modify it under the terms of the GNU Lesser General Public
 * License as published by the Free Software Foundation; either
 * version 2.1 of the License, or (at your option) any later version.
 *
 * This library is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 * Lesser General Public License for more details.
 *
 * You should have received a copy of the GNU Lesser General Public
 * License along with this library; if not, write to the
 * Free Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston,
 * MA 02110-1301, USA.
 */

#include "../lib/libcompat.h"

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

#include "check_list.h"
#include "check_error.h"


enum
{
    LINIT = 1,
    LGROW = 2
};

struct List
{
    unsigned int n_elts;
    unsigned int max_elts;
    int current;                /* pointer to the current node */
    int last;                   /* pointer to the node before END */
    void **data;
};

static void maybe_grow(List * lp)
{
    if(lp->n_elts >= lp->max_elts)
    {
        lp->max_elts *= LGROW;
        lp->data = (void **)erealloc(lp->data, lp->max_elts * sizeof(lp->data[0]));
    }
}

List *check_list_create(void)
{
    List *lp;

    lp = (List *)emalloc(sizeof(List));
    lp->n_elts = 0;
    lp->max_elts = LINIT;
    lp->data = (void **)emalloc(sizeof(lp->data[0]) * LINIT);
    lp->current = lp->last = -1;
    return lp;
}

void check_list_add_front(List * lp, void *val)
{
    if(lp == NULL)
        return;
    maybe_grow(lp);
    memmove(lp->data + 1, lp->data, lp->n_elts * sizeof lp->data[0]);
    lp->last++;
    lp->n_elts++;
    lp->current = 0;
    lp->data[lp->current] = val;
}

void check_list_add_end(List * lp, void *val)
{
    if(lp == NULL)
        return;
    maybe_grow(lp);
    lp->last++;
    lp->n_elts++;
    lp->current = lp->last;
    lp->data[lp->current] = val;
}

int check_list_at_end(List * lp)
{
    if(lp->current == -1)
        return 1;
    return (lp->current > lp->last);
}

void check_list_front(List * lp)
{
    if(lp->current == -1)
        return;
    lp->current = 0;
}


void check_list_free(List * lp)
{
    if(lp == NULL)
        return;

    free(lp->data);
    free(lp);
}

void *check_list_val(List * lp)
{
    if(lp == NULL)
        return NULL;
    if(lp->current == -1 || lp->current > lp->last)
        return NULL;

    return lp->data[lp->current];
}

void check_list_advance(List * lp)
{
    if(lp == NULL)
        return;
    if(check_list_at_end(lp))
        return;
    lp->current++;
}


void check_list_apply(List * lp, void (*fp) (void *))
{
    if(lp == NULL || fp == NULL)
        return;

    for(check_list_front(lp); !check_list_at_end(lp); check_list_advance(lp))
        fp(check_list_val(lp));

}

int check_list_contains(List * lp, void *val)
{
    for(check_list_front(lp); !check_list_at_end(lp); check_list_advance(lp))
    {
        if(check_list_val(lp) == val)
        {
            return 1;
        }
    }

    return 0;
}