294 lines
6.0 KiB
C
294 lines
6.0 KiB
C
/*
|
|
* This file is part of corelibs. (https://git.redxen.eu/corelibs)
|
|
* Copyright (c) 2021 Alex-David Denes
|
|
*
|
|
* corelibs 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 3 of the License, or
|
|
* any later version.
|
|
*
|
|
* corelibs 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.
|
|
*
|
|
* You should have received a copy of the GNU General Public License
|
|
* along with corelibs. If not, see <https://www.gnu.org/licenses/>.
|
|
*/
|
|
|
|
#include "llist.h"
|
|
|
|
#include <stdarg.h> // va_args
|
|
#include <stdint.h> // uintmax_t
|
|
#include <stdlib.h> // malloc() free()
|
|
|
|
static cl_llist_err corelibs_llist_create(void*, void (*)(void*), cl_llist_t**);
|
|
|
|
static cl_llist_err corelibs_llist_link(uintmax_t, ...);
|
|
static cl_llist_err corelibs_llist_rep(cl_llist_t*, cl_llist_t*);
|
|
|
|
static cl_llist_err corelibs_llist_free_list(cl_llist_t*);
|
|
static cl_llist_err corelibs_llist_free_elem(cl_llist_t*);
|
|
|
|
static cl_llist_err corelibs_llist_set_cont(cl_llist_t*, void*);
|
|
static cl_llist_err corelibs_llist_set_free(cl_llist_t*, void (*)(void*));
|
|
|
|
static cl_llist_err corelibs_llist_get_next(const cl_llist_t*, cl_llist_t**);
|
|
static cl_llist_err corelibs_llist_get_prev(const cl_llist_t*, cl_llist_t**);
|
|
static cl_llist_err corelibs_llist_get_cont(const cl_llist_t*, void**);
|
|
|
|
static void corelibs_llist_remove(cl_llist_t*);
|
|
|
|
struct cl_llist_t {
|
|
struct cl_llist_t *next, *prev;
|
|
void* cont;
|
|
void (*free)(void*);
|
|
};
|
|
|
|
enum { // Avoid collision in error numbers
|
|
CORELIBS_LLIST_ERR_ARGS_MIS = -4,
|
|
CORELIBS_LLIST_ERR_UNDEF,
|
|
CORELIBS_LLIST_ERR_MEM_NULL,
|
|
CORELIBS_LLIST_ERR_MEM_ALLOC,
|
|
CORELIBS_LLIST_ERR_UNK = 0,
|
|
CORELIBS_LLIST_ERR_OK = 1,
|
|
};
|
|
|
|
struct corelibs_llist_interface const cl_llist = {
|
|
.create = corelibs_llist_create,
|
|
.link = corelibs_llist_link,
|
|
.rep = corelibs_llist_rep,
|
|
.free = {
|
|
.list = corelibs_llist_free_list,
|
|
.elem = corelibs_llist_free_elem,
|
|
},
|
|
.set = {
|
|
.cont = corelibs_llist_set_cont,
|
|
.free = corelibs_llist_set_free,
|
|
},
|
|
.get = {
|
|
.prev = corelibs_llist_get_prev,
|
|
.cont = corelibs_llist_get_cont,
|
|
.next = corelibs_llist_get_next,
|
|
},
|
|
.err = {
|
|
.ok = CORELIBS_LLIST_ERR_OK,
|
|
.unknown = CORELIBS_LLIST_ERR_UNK,
|
|
.undef = CORELIBS_LLIST_ERR_UNDEF,
|
|
.mem = {
|
|
.null = CORELIBS_LLIST_ERR_MEM_NULL,
|
|
.alloc = CORELIBS_LLIST_ERR_MEM_ALLOC,
|
|
},
|
|
.args = {
|
|
.mis = CORELIBS_LLIST_ERR_ARGS_MIS,
|
|
},
|
|
},
|
|
};
|
|
|
|
static cl_llist_err
|
|
corelibs_llist_create(void* c, void (*const f)(void*), cl_llist_t** s)
|
|
{
|
|
cl_llist_err err = CORELIBS_LLIST_ERR_OK;
|
|
|
|
cl_llist_t* cur = malloc(sizeof(*cur));
|
|
if (cur == NULL) {
|
|
err = CORELIBS_LLIST_ERR_MEM_ALLOC;
|
|
goto ret;
|
|
}
|
|
|
|
cur->prev = NULL;
|
|
cur->next = NULL;
|
|
cur->cont = c;
|
|
cur->free = f;
|
|
|
|
*s = cur;
|
|
ret:
|
|
return err;
|
|
}
|
|
|
|
static cl_llist_err
|
|
corelibs_llist_free_list(cl_llist_t* l)
|
|
{
|
|
cl_llist_err err = CORELIBS_LLIST_ERR_OK;
|
|
|
|
if (l == NULL) {
|
|
err = CORELIBS_LLIST_ERR_MEM_NULL;
|
|
goto ret;
|
|
}
|
|
|
|
// Free previous elements if we have any
|
|
if (l->prev != NULL) {
|
|
for (cl_llist_t* p = l->prev; p != NULL;) {
|
|
cl_llist_t* c = p;
|
|
p = p->prev;
|
|
corelibs_llist_remove(c);
|
|
}
|
|
}
|
|
|
|
// Free current and next elements
|
|
for (cl_llist_t* p = l; p != NULL;) {
|
|
cl_llist_t* c = p;
|
|
p = p->next;
|
|
corelibs_llist_remove(c);
|
|
}
|
|
ret:
|
|
return err;
|
|
}
|
|
|
|
static cl_llist_err
|
|
corelibs_llist_free_elem(cl_llist_t* l)
|
|
{
|
|
cl_llist_err err = CORELIBS_LLIST_ERR_OK;
|
|
|
|
if (l == NULL) {
|
|
err = CORELIBS_LLIST_ERR_MEM_NULL;
|
|
goto ret;
|
|
}
|
|
corelibs_llist_remove(l);
|
|
|
|
ret:
|
|
return err;
|
|
}
|
|
|
|
static cl_llist_err
|
|
corelibs_llist_link(uintmax_t cnt, ...)
|
|
{
|
|
cl_llist_err err = CORELIBS_LLIST_ERR_OK;
|
|
|
|
if (cnt <= 1) {
|
|
err = CORELIBS_LLIST_ERR_ARGS_MIS;
|
|
goto ret;
|
|
}
|
|
|
|
va_list ap;
|
|
va_start(ap, cnt);
|
|
|
|
uintmax_t ccnt = 0;
|
|
cl_llist_t *a = NULL, *b = NULL;
|
|
while (ccnt < cnt) {
|
|
a = b;
|
|
b = va_arg(ap, cl_llist_t*);
|
|
if (ccnt < 1) continue; // Fill at least first 2 slots
|
|
|
|
if (a != NULL) a->next = b;
|
|
if (b != NULL) b->prev = a;
|
|
|
|
ccnt++;
|
|
}
|
|
|
|
va_end(ap);
|
|
ret:
|
|
return err;
|
|
}
|
|
|
|
static cl_llist_err
|
|
corelibs_llist_rep(cl_llist_t* dest, cl_llist_t* src)
|
|
{
|
|
cl_llist_err err = CORELIBS_LLIST_ERR_OK;
|
|
|
|
if (src == NULL || dest == NULL) {
|
|
err = CORELIBS_LLIST_ERR_MEM_NULL;
|
|
goto ret;
|
|
}
|
|
|
|
if (dest->prev != NULL) dest->prev->next = src;
|
|
if (dest->next != NULL) dest->next->prev = src;
|
|
|
|
corelibs_llist_free_elem(dest);
|
|
ret:
|
|
return err;
|
|
}
|
|
|
|
static cl_llist_err
|
|
corelibs_llist_get_next(const cl_llist_t* e, cl_llist_t** save)
|
|
{
|
|
cl_llist_err err = CORELIBS_LLIST_ERR_OK;
|
|
|
|
if (e == NULL || save == NULL) {
|
|
err = CORELIBS_LLIST_ERR_MEM_NULL;
|
|
goto ret;
|
|
}
|
|
|
|
if (e->next == NULL) {
|
|
err = CORELIBS_LLIST_ERR_UNDEF;
|
|
goto ret;
|
|
}
|
|
*save = e->next;
|
|
ret:
|
|
return err;
|
|
}
|
|
|
|
static cl_llist_err
|
|
corelibs_llist_get_prev(const cl_llist_t* e, cl_llist_t** save)
|
|
{
|
|
cl_llist_err err = CORELIBS_LLIST_ERR_OK;
|
|
|
|
if (e == NULL || save == NULL) {
|
|
err = CORELIBS_LLIST_ERR_MEM_NULL;
|
|
goto ret;
|
|
}
|
|
|
|
if (e->prev == NULL) {
|
|
err = CORELIBS_LLIST_ERR_UNDEF;
|
|
goto ret;
|
|
}
|
|
*save = e->prev;
|
|
ret:
|
|
return err;
|
|
}
|
|
|
|
static cl_llist_err
|
|
corelibs_llist_get_cont(const cl_llist_t* e, void** save)
|
|
{
|
|
cl_llist_err err = CORELIBS_LLIST_ERR_OK;
|
|
|
|
if (e == NULL || save == NULL) {
|
|
err = CORELIBS_LLIST_ERR_MEM_NULL;
|
|
goto ret;
|
|
}
|
|
|
|
*save = e->cont;
|
|
ret:
|
|
return err;
|
|
}
|
|
|
|
static cl_llist_err
|
|
corelibs_llist_set_cont(cl_llist_t* e, void* i)
|
|
{
|
|
cl_llist_err err = CORELIBS_LLIST_ERR_OK;
|
|
|
|
if (e == NULL) {
|
|
err = CORELIBS_LLIST_ERR_MEM_NULL;
|
|
goto ret;
|
|
}
|
|
|
|
e->cont = i;
|
|
ret:
|
|
return err;
|
|
}
|
|
|
|
static cl_llist_err
|
|
corelibs_llist_set_free(cl_llist_t* e, void (*const f)(void*))
|
|
{
|
|
cl_llist_err err = CORELIBS_LLIST_ERR_OK;
|
|
|
|
if (e == NULL) {
|
|
err = CORELIBS_LLIST_ERR_MEM_NULL;
|
|
goto ret;
|
|
}
|
|
|
|
e->free = f;
|
|
ret:
|
|
return err;
|
|
}
|
|
|
|
// Private function
|
|
static void
|
|
corelibs_llist_remove(cl_llist_t* e)
|
|
{
|
|
corelibs_llist_link(2, e->prev, e->next);
|
|
if (e->free != NULL) e->free(e->cont);
|
|
free(e);
|
|
}
|
|
|