/* vi: set expandtab sw=4 sts=4: */
/* void_list.c - the opkg package management system

   Carl D. Worth

   Copyright (C) 2001 University of Southern California

   This program is free software; you can redistribute it and/or
   modify it under the terms of the GNU General Public License as
   published by the Free Software Foundation; either version 2, or (at
   your option) any later version.

   This program 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
   General Public License for more details.
*/

#include "config.h"

#include <malloc.h>

#include "opkg_message.h"
#include "void_list.h"
#include "xfuncs.h"

void void_list_elt_init(void_list_elt_t * elt, void *data)
{
    INIT_LIST_HEAD(&elt->node);
    elt->data = data;
}

static void_list_elt_t *void_list_elt_new(void *data)
{
    void_list_elt_t *elt;
    /* freed in void_list_elt_deinit */
    elt = xcalloc(1, sizeof(void_list_elt_t));
    void_list_elt_init(elt, data);
    return elt;
}

void void_list_elt_deinit(void_list_elt_t * elt)
{
    list_del_init(&elt->node);
    void_list_elt_init(elt, NULL);
    free(elt);
}

void void_list_init(void_list_t * list)
{
    INIT_LIST_HEAD(&list->head);
}

void void_list_deinit(void_list_t * list)
{
    void_list_elt_t *elt;

    while (!void_list_empty(list)) {
        elt = void_list_pop(list);
        void_list_elt_deinit(elt);
    }
    INIT_LIST_HEAD(&list->head);
}

void void_list_append(void_list_t * list, void *data)
{
    void_list_elt_t *elt = void_list_elt_new(data);
    list_add_tail(&elt->node, &list->head);
}

void void_list_push(void_list_t * list, void *data)
{
    void_list_elt_t *elt = void_list_elt_new(data);
    list_add(&elt->node, &list->head);
}

void_list_elt_t *void_list_pop(void_list_t * list)
{
    struct list_head *node;

    if (void_list_empty(list))
        return NULL;
    node = list->head.next;
    list_del_init(node);
    return list_entry(node, void_list_elt_t, node);
}

void *void_list_remove(void_list_t * list, void_list_elt_t ** iter)
{
    void_list_elt_t *pos, *n;
    void_list_elt_t *old_elt;
    void *old_data = NULL;

    old_elt = *iter;
    if (!old_elt)
        return old_data;
    old_data = old_elt->data;

    list_for_each_entry_safe(pos, n, &list->head, node) {
        if (pos == old_elt)
            break;
    }
    if (pos != old_elt) {
        opkg_msg(ERROR, "Internal error: element not found in list.\n");
        return NULL;
    }

    *iter = list_entry(pos->node.prev, void_list_elt_t, node);
    void_list_elt_deinit(pos);

    return old_data;
}

/* remove element containing elt data, using cmp(elt->data, target_data) == 0. */
void *void_list_remove_elt(void_list_t * list, const void *target_data,
                           void_list_cmp_t cmp)
{
    void_list_elt_t *pos, *n;
    void *old_data = NULL;
    list_for_each_entry_safe(pos, n, &list->head, node) {
        if (pos->data && cmp(pos->data, target_data) == 0) {
            old_data = pos->data;
            void_list_elt_deinit(pos);
            break;
        }
    }
    return old_data;
}

void_list_elt_t *void_list_first(void_list_t * list)
{
    struct list_head *elt;
    if (!list)
        return NULL;
    elt = list->head.next;
    if (elt == &list->head) {
        return NULL;
    }
    return list_entry(elt, void_list_elt_t, node);
}

void_list_elt_t *void_list_prev(void_list_t * list, void_list_elt_t * node)
{
    struct list_head *elt;
    if (!list || !node)
        return NULL;
    elt = node->node.prev;
    if (elt == &list->head) {
        return NULL;
    }
    return list_entry(elt, void_list_elt_t, node);
}

void_list_elt_t *void_list_next(void_list_t * list, void_list_elt_t * node)
{
    struct list_head *elt;
    if (!list || !node)
        return NULL;
    elt = node->node.next;
    if (elt == &list->head) {
        return NULL;
    }
    return list_entry(elt, void_list_elt_t, node);
}

void_list_elt_t *void_list_last(void_list_t * list)
{
    struct list_head *elt;
    if (!list)
        return NULL;
    elt = list->head.prev;
    if (elt == &list->head) {
        return NULL;
    }
    return list_entry(elt, void_list_elt_t, node);
}
