list.h

Go to the documentation of this file.

#ifndef CSNIP_LIST_H
#define CSNIP_LIST_H
 
#include <assert.h>
#include <stddef.h>
 
#include <csnip/preproc.h>
 
#define csnip_dlist_Init(head, tail, mprev, mnext) \
    do { \
        (head) = (tail) = NULL; \
    } while (0)
 
#define csnip_dlist_IsEmpty(head, tail, mprev, mnext) \
    ((head) == NULL)
 
#define csnip_dlist_PushHead(head, tail, mprev, mnext, el) \
    do { \
        assert((el) != NULL); \
        if ((head) != NULL) { \
            (head)->mprev = (el); \
        } else { \
            assert((tail) == NULL); \
            (tail) = (el); \
        } \
        (el)->mnext = (head); \
        (el)->mprev = NULL; \
        (head) = (el); \
    } while (0)
 
#define csnip_dlist_PopHead(head, tail, mprev, mnext) \
    do { \
        assert((head) != NULL); \
        (head) = (head)->mnext; \
        if ((head) != NULL) { \
            (head)->mprev = NULL; \
        } else { \
            (tail) = NULL; \
        } \
    } while (0)
 
#define csnip_dlist_PushTail(head, tail, mprev, mnext, el) \
    do { \
        if ((head) == NULL) { \
            assert((tail) == NULL); \
            (head) = (el); \
        } else { \
            (tail)->mnext = (el); \
        } \
        (el)->mprev = (tail); \
        (el)->mnext = NULL; \
        (tail) = el; \
    } while (0)
 
#define csnip_dlist_PopTail(head, tail, mprev, mnext) \
    do { \
        assert((tail) != NULL); \
        (tail) = (tail)->mprev; \
        if ((tail) != NULL) { \
            (tail)->mnext = NULL; \
        } else { \
            (head) = NULL; \
        } \
    } while (0)
 
#define csnip_dlist_InsertAfter(head, tail, mprev, mnext, loc, el) \
    do { \
        (el)->mprev = (loc); \
        (el)->mnext = (loc)->mnext; \
        if ((loc)->mnext != NULL) { \
            (loc)->mnext->mprev = (el); \
        } else { \
            assert((loc) == (tail)); \
            (tail) = (el); \
        } \
        (loc)->mnext = (el); \
    } while (0)
 
#define csnip_dlist_InsertBefore(head, tail, mprev, mnext, loc, el) \
    do { \
        (el)->mnext = (loc); \
        (el)->mprev = (loc)->mprev; \
        if ((loc)->mprev != NULL) { \
            (loc)->mprev->mnext = (el); \
        } else { \
            assert((loc) == (head)); \
            (head) = (el); \
        } \
        (loc)->mprev = (el); \
    } while (0)
 
#define csnip_dlist_Remove(head, tail, mprev, mnext, el) \
    do { \
        if ((el)->mprev != NULL) { \
            (el)->mprev->mnext = (el)->mnext; \
        } else { \
            assert((el) == (head)); \
            (head) = (el)->mnext; \
        } \
        if ((el)->mnext != NULL) { \
            (el)->mnext->mprev = (el)->mprev; \
        } else { \
            assert((el) == (tail)); \
            (tail) = (el)->mprev; \
        } \
    } while (0)
 
#define CSNIP_DLIST_DECL_FUNCS(scope, prefix, entry_ptr_type, gen_args) \
    scope void prefix ## init(csnip_pp_list_##gen_args); \
    scope char prefix ## is_empty(csnip_pp_list_##gen_args); \
    scope void prefix ## push_head(csnip_pp_prepend_##gen_args \
                    entry_ptr_type csnip_el); \
    scope void prefix ## pop_head(csnip_pp_list_##gen_args); \
    scope void prefix ## push_tail(csnip_pp_prepend_##gen_args \
                    entry_ptr_type csnip_el); \
    scope void prefix ## pop_tail(csnip_pp_list_##gen_args); \
    scope void prefix ## insert_after(csnip_pp_prepend_##gen_args \
                    entry_ptr_type csnip_loc, \
                    entry_ptr_type csnip_el); \
    scope void prefix ## insert_before(csnip_pp_prepend_##gen_args \
                    entry_ptr_type csnip_loc, \
                    entry_ptr_type csnip_el); \
    scope void prefix ## remove(csnip_pp_prepend_##gen_args \
                    entry_ptr_type csnip_el); \
    \
    /* functions without corresponding macros */ \
    scope entry_ptr_type prefix ## head(csnip_pp_list_##gen_args); \
    scope entry_ptr_type prefix ## tail(csnip_pp_list_##gen_args); \
    scope entry_ptr_type prefix ## prev(entry_ptr_type csnip_el); \
    scope entry_ptr_type prefix ## next(entry_ptr_type csnip_el); \
 
#define CSNIP_DLIST_DEF_FUNCS(scope, prefix, entry_ptr_type, gen_args, \
    phead, ptail, mprev, mnext) \
    scope void prefix ## init(csnip_pp_list_##gen_args) \
    { \
        csnip_dlist_Init(phead, ptail, mprev, mnext); \
    } \
    scope char prefix ## is_empty(csnip_pp_list_##gen_args) { \
        return csnip_dlist_IsEmpty(phead, ptail, mprev, mnext); \
    } \
    scope void prefix ## push_head(csnip_pp_prepend_##gen_args \
                    entry_ptr_type csnip_el) \
    { \
        csnip_dlist_PushHead(phead, ptail, mprev, mnext, csnip_el); \
    } \
    scope void prefix ## pop_head(csnip_pp_list_##gen_args) \
    { \
        csnip_dlist_PopHead(phead, ptail, mprev, mnext); \
    } \
    scope void prefix ## push_tail(csnip_pp_prepend_##gen_args \
                    entry_ptr_type csnip_el) \
    { \
        csnip_dlist_PushTail(phead, ptail, mprev, mnext, csnip_el); \
    } \
    scope void prefix ## pop_tail(csnip_pp_list_##gen_args) \
    { \
        csnip_dlist_PopTail(phead, ptail, mprev, mnext); \
    } \
    scope void prefix ## insert_after(csnip_pp_prepend_##gen_args \
                    entry_ptr_type csnip_loc, \
                    entry_ptr_type csnip_el) \
    { \
        csnip_dlist_InsertAfter(phead, ptail, mprev, mnext, \
          csnip_loc, csnip_el); \
    } \
    scope void prefix ## insert_before(csnip_pp_prepend_##gen_args \
                    entry_ptr_type csnip_loc, \
                    entry_ptr_type csnip_el) \
    { \
        csnip_dlist_InsertBefore(phead, ptail, mprev, mnext, \
          csnip_loc, csnip_el); \
    } \
    scope void prefix ## remove(csnip_pp_prepend_##gen_args \
                    entry_ptr_type csnip_el) \
    { \
        csnip_dlist_Remove(phead, ptail, mprev, mnext, csnip_el); \
    } \
    \
    /* functions without corresponding macros */ \
    scope entry_ptr_type prefix ## head(csnip_pp_list_##gen_args) { \
        return phead; \
    } \
    scope entry_ptr_type prefix ## tail(csnip_pp_list_##gen_args) { \
        return ptail; \
    } \
    scope entry_ptr_type prefix ## prev(entry_ptr_type csnip_el) { \
        return csnip_el->mprev; \
    } \
    scope entry_ptr_type prefix ## next(entry_ptr_type csnip_el) { \
        return csnip_el->mnext; \
    }
 
#define csnip_slist_Init(head, tail, mnext) \
    do { \
        (head) = (tail) = NULL; \
    } while (0)
 
#define csnip_slist_PushHead(head, tail, mnext, el) \
    do { \
        (el)->mnext = (head); \
        if ((tail) == NULL) { \
            assert((head) == NULL); \
            (tail) = (el); \
        } \
        (head) = (el); \
    } while (0)
 
#define csnip_slist_PopHead(head, tail, mnext) \
    do { \
        assert((head) != NULL); \
        if ((tail) == (head)) { \
            (head) = (tail) = NULL; \
        } else { \
            (head) = (head)->mnext; \
        } \
    } while (0)
 
#define csnip_slist_PushTail(head, tail, mnext, el) \
    do { \
        if ((head) == NULL) { \
            assert((tail) == NULL); \
            (head) = (tail) = (el); \
        } else { \
            (tail)->mnext = (el); \
            (tail) = (el); \
        } \
        (el)->mnext = NULL; \
    } while (0)
 
#define csnip_slist_InsertAfter(head, tail, mnext, loc, el) \
    do { \
        (el)->mnext = (loc)->mnext; \
        (loc)->mnext = (el); \
        if ((el)->mnext == NULL) { \
            (tail) = (el); \
        } \
    } while (0)
 
#define CSNIP_SLIST_DECL_FUNCS(scope, prefix, entry_ptr_type, gen_args) \
    scope void prefix ## init(csnip_pp_list_##gen_args); \
    scope void prefix ## push_head(csnip_pp_prepend_##gen_args \
                    entry_ptr_type csnip_el); \
    scope void prefix ## pop_head(csnip_pp_list_##gen_args); \
    scope void prefix ## push_tail(csnip_pp_prepend_##gen_args \
                    entry_ptr_type csnip_el); \
    scope void prefix ## insert_after(csnip_pp_prepend_##gen_args \
                    entry_ptr_type csnip_loc, \
                    entry_ptr_type csnip_el); \
    \
    /* functions without corresponding macros */ \
    scope entry_ptr_type prefix ## head(csnip_pp_list_##gen_args); \
    scope entry_ptr_type prefix ## tail(csnip_pp_list_##gen_args); \
    scope entry_ptr_type prefix ## next(entry_ptr_type csnip_el); \
    scope char prefix ## is_empty(csnip_pp_list_##gen_args); \
 
#define CSNIP_SLIST_DEF_FUNCS(scope, prefix, entry_ptr_type, gen_args, \
    phead, ptail, mnext) \
    scope void prefix ## init(csnip_pp_list_##gen_args) \
    { \
        csnip_slist_Init(phead, ptail, mnext); \
    } \
    scope void prefix ## push_head(csnip_pp_prepend_##gen_args \
                    entry_ptr_type csnip_el) \
    { \
        csnip_slist_PushHead(phead, ptail, mnext, csnip_el); \
    } \
    scope void prefix ## pop_head(csnip_pp_list_##gen_args) \
    { \
        csnip_slist_PopHead(phead, ptail, mnext); \
    } \
    scope void prefix ## push_tail(csnip_pp_prepend_##gen_args \
                    entry_ptr_type csnip_el) \
    { \
        csnip_slist_PushTail(phead, ptail, mnext, csnip_el); \
    } \
    scope void prefix ## insert_after(csnip_pp_prepend_##gen_args \
                    entry_ptr_type csnip_loc, \
                    entry_ptr_type csnip_el) \
    { \
        csnip_slist_InsertAfter(phead, ptail, mnext, \
          csnip_loc, csnip_el); \
    } \
    \
    /* functions without corresponding macros */ \
    scope entry_ptr_type prefix ## head(csnip_pp_list_##gen_args) { \
        return phead; \
    } \
    scope entry_ptr_type prefix ## tail(csnip_pp_list_##gen_args) { \
        return ptail; \
    } \
    scope entry_ptr_type prefix ## next(entry_ptr_type csnip_el) { \
        return csnip_el->mnext; \
    } \
    scope char prefix ## is_empty(csnip_pp_list_##gen_args) { \
        return phead == NULL; \
    }
 
#endif /* CSNIP_LIST_H */
 
#if defined(CSNIP_SHORT_NAMES) && !defined(CSNIP_LIST_HAVE_SHORT_NAMES)
#define dlist_Init      csnip_dlist_Init
#define dlist_IsEmpty       csnip_dlist_IsEmpty
#define dlist_PushHead      csnip_dlist_PushHead
#define dlist_PopHead       csnip_dlist_PopHead
#define dlist_PushTail      csnip_dlist_PushTail
#define dlist_PopTail       csnip_dlist_PopTail
#define dlist_InsertAfter   csnip_dlist_InsertAfter
#define dlist_InsertBefore  csnip_dlist_InsertBefore
#define dlist_Remove        csnip_dlist_Remove
#define slist_Init      csnip_slist_Init
#define slist_PushHead      csnip_slist_PushHead
#define slist_PopHead       csnip_slist_PopHead
#define slist_PushTail      csnip_slist_PushTail
#define slist_InsertAfter   csnip_slist_InsertAfter
#define CSNIP_LIST_HAVE_SHORT_NAMES
#endif /* CSNIP_SHORT_NAMES && !CSNIP_LIST_HAVE_SHORT_NAMES */