ucx: src/list.c@d402fead3386 (annotated)

src/list.c@d402fead3386 (annotated)

src/list.c

Thu, 26 Jan 2023 20:59:36 +0100

author: Mike Becker <universe@uap-core.de>
date: Thu, 26 Jan 2023 20:59:36 +0100
changeset 641: d402fead3386
parent 640: 55cc3b373c5e
child 647: 2e6e9d9f2159
permissions: -rw-r--r--

add new pointer list wrapper - resolves #234

since we need a thread local variable, this drops C99 support

 /*
  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS HEADER.
  *
  * Copyright 2021 Mike Becker, Olaf Wintermann All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
  * modification, are permitted provided that the following conditions are met:
  *
  *   1. Redistributions of source code must retain the above copyright
  *      notice, this list of conditions and the following disclaimer.
  *
  *   2. Redistributions in binary form must reproduce the above copyright
  *      notice, this list of conditions and the following disclaimer in the
  *      documentation and/or other materials provided with the distribution.
  *
  * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
  * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE
  * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
  * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
  * POSSIBILITY OF SUCH DAMAGE.
  */
 #include "cx/list.h"
 #include <string.h>
 // <editor-fold desc="Store Pointers Functionality">
 static _Thread_local CxListComparator cx_pl_cmpfunc_impl;
 static int cx_pl_cmpfunc(
         void const *l,
         void const *r
 ) {
     void *const *lptr = l;
     void *const *rptr = r;
     void const *left = lptr == NULL ? NULL : *lptr;
     void const *right = rptr == NULL ? NULL : *rptr;
     return cx_pl_cmpfunc_impl(left, right);
 }
 static void cx_pl_hack_cmpfunc(struct cx_list_s const *list) {
     // cast away const - this is the hacky thing
     struct cx_list_s *l = (struct cx_list_s *) list;
     cx_pl_cmpfunc_impl = l->cmpfunc;
     l->cmpfunc = cx_pl_cmpfunc;
 }
 static void cx_pl_unhack_cmpfunc(struct cx_list_s const *list) {
     // cast away const - this is the hacky thing
     struct cx_list_s *l = (struct cx_list_s *) list;
     l->cmpfunc = cx_pl_cmpfunc_impl;
 }
 static void cx_pl_destructor(struct cx_list_s *list) {
     list->climpl->destructor(list);
 }
 static int cx_pl_insert_element(
         struct cx_list_s *list,
         size_t index,
         void const *element
 ) {
     return list->climpl->insert_element(list, index, &element);
 }
 static size_t cx_pl_insert_array(
         struct cx_list_s *list,
         size_t index,
         void const *array,
         size_t n
 ) {
     return list->climpl->insert_array(list, index, array, n);
 }
 static int cx_pl_insert_iter(
         struct cx_mut_iterator_s *iter,
         void const *elem,
         int prepend
 ) {
     struct cx_list_s *list = iter->src_handle;
     return list->climpl->insert_iter(iter, &elem, prepend);
 }
 static int cx_pl_remove(
         struct cx_list_s *list,
         size_t index
 ) {
     return list->climpl->remove(list, index);
 }
 static void *cx_pl_at(
         struct cx_list_s const *list,
         size_t index
 ) {
     void **ptr = list->climpl->at(list, index);
     return ptr == NULL ? NULL : *ptr;
 }
 static size_t cx_pl_find(
         struct cx_list_s const *list,
         void const *elem
 ) {
     cx_pl_hack_cmpfunc(list);
     size_t ret = list->climpl->find(list, &elem);
     cx_pl_unhack_cmpfunc(list);
     return ret;
 }
 static void cx_pl_sort(struct cx_list_s *list) {
     cx_pl_hack_cmpfunc(list);
     list->climpl->sort(list);
     cx_pl_unhack_cmpfunc(list);
 }
 static int cx_pl_compare(
         struct cx_list_s const *list,
         struct cx_list_s const *other
 ) {
     cx_pl_hack_cmpfunc(list);
     int ret = list->climpl->compare(list, other);
     cx_pl_unhack_cmpfunc(list);
     return ret;
 }
 static void cx_pl_reverse(struct cx_list_s *list) {
     list->climpl->reverse(list);
 }
 static void *cx_pl_iter_current(void const *it) {
     struct cx_iterator_s const *iter = it;
     void **ptr = iter->base.current_impl(it);
     return ptr == NULL ? NULL : *ptr;
 }
 static struct cx_iterator_s cx_pl_iterator(
         struct cx_list_s const *list,
         size_t index
 ) {
     struct cx_iterator_s iter = list->climpl->iterator(list, index);
     iter.base.current_impl = iter.base.current;
     iter.base.current = cx_pl_iter_current;
     return iter;
 }
 static cx_list_class cx_pointer_list_class = {
         cx_pl_destructor,
         cx_pl_insert_element,
         cx_pl_insert_array,
         cx_pl_insert_iter,
         cx_pl_remove,
         cx_pl_at,
         cx_pl_find,
         cx_pl_sort,
         cx_pl_compare,
         cx_pl_reverse,
         cx_pl_iterator,
 };
 void cxListStoreObjects(CxList *list) {
     if (list->climpl != NULL) {
         list->cl = list->climpl;
         list->climpl = NULL;
     }
 }
 void cxListStorePointers(CxList *list) {
     list->itemsize = sizeof(void *);
     list->climpl = list->cl;
     list->cl = &cx_pointer_list_class;
 }
 bool cxListIsStoringPointers(CxList *list) {
     return list->climpl != NULL;
 }
 // </editor-fold>
 void cxListDestroy(CxList *list) {
     switch (list->content_destructor_type) {
         case CX_DESTRUCTOR_SIMPLE: {
             CxIterator iter = cxListBegin(list);
             cx_foreach(void*, elem, iter) {
                 list->simple_destructor(elem);
             }
             break;
         }
         case CX_DESTRUCTOR_ADVANCED: {
             CxIterator iter = cxListBegin(list);
             cx_foreach(void*, elem, iter) {
                 list->advanced_destructor.func(list->advanced_destructor.data, elem);
             }
             break;
         }
         case CX_DESTRUCTOR_NONE:
             break; // nothing
     }
     list->cl->destructor(list);
     cxFree(list->allocator, list);
 }
 int cxListCompare(
         CxList const *list,
         CxList const *other
 ) {
     if (list->cl->compare == other->cl->compare) {
         // same compare function, lists are compatible
         return list->cl->compare(list, other);
     } else {
         // different compare functions, use iterator
         if (list->size == other->size) {
             CxIterator left = cxListBegin(list);
             CxIterator right = cxListBegin(other);
             for (size_t i = 0; i < list->size; i++) {
                 void *leftValue = cxIteratorCurrent(left);
                 void *rightValue = cxIteratorCurrent(right);
                 int d = list->cmpfunc(leftValue, rightValue);
                 if (d != 0) {
                     return d;
                 }
                 cxIteratorNext(left);
                 cxIteratorNext(right);
             }
             return 0;
         } else {
             return list->size < other->size ? -1 : 1;
         }
     }
 }
 CxMutIterator cxListMutIterator(
         CxList *list,
         size_t index
 ) {
     CxIterator it = list->cl->iterator(list, index);
     it.base.mutating = true;
     // we know the iterators share the same memory layout
     CxMutIterator iter;
     memcpy(&iter, &it, sizeof(CxMutIterator));
     return iter;
 }

Mercurial > hg > ucx / annotate

src/list.c@d402fead3386 (annotated)

src/list.c