raising the head after a three-weeks refactoring

[m6w6/ext-psi] / src / plist.c

diff --git a/src/plist.c b/src/plist.c
new file mode 100644 (file)
index 0000000..d759b84
--- /dev/null
+++ b/src/plist.c
@@ -0,0 +1,149 @@
+/*******************************************************************************
+ Copyright (c) 2016, Michael Wallner <mike@php.net>.
+ All rights reserved.
+
+ Redistribution and use in source and binary forms, with or without
+ modification, are permitted provided that the following conditions are met:
+
+     * Redistributions of source code must retain the above copyright notice,
+       this list of conditions and the following disclaimer.
+     * 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 OWNER 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.
+*******************************************************************************/
+
+#ifdef HAVE_CONFIG_H
+# include "config.h"
+#else
+# include "php_config.h"
+#endif
+
+#include "php_psi_stdinc.h"
+
+#include "plist.h"
+
+struct psi_plist {
+       size_t size;
+       size_t count;
+       void (*dtor)(void *);
+       void *list[1];
+};
+
+#define PLIST_ELE(l, i) (((char *)(l)->list) + (l)->size * (i))
+#define PLIST_CPY(list, dest, src) do { \
+       if (list->size == sizeof(void *)) { \
+               *(void **)dest = *(void **)src; \
+       } else { \
+               memcpy(dest, src, list->size); \
+       } \
+} while (0)
+#define PLIST_MOV(l, i) memmove(PLIST_ELE(l, i), PLIST_ELE(l, i + 1), (l)->size * ((l)->count - i))
+
+struct psi_plist *psi_plist_init(void (*dtor)(void *)) {
+       return psi_plist_init_ex(0, dtor);
+}
+struct psi_plist *psi_plist_init_ex(size_t size, void (*dtor)(void *)) {
+       struct psi_plist *list = calloc(1, sizeof(*list));
+
+       list->size = size ?: sizeof(void*);
+       list->dtor = dtor;
+
+       return list;
+}
+
+void psi_plist_free(struct psi_plist *list) {
+       size_t i;
+
+       if (list->dtor) for (i = 0; i < list->count; ++i) {
+               list->dtor(PLIST_ELE(list, i));
+       }
+       free(list);
+}
+
+size_t psi_plist_count(struct psi_plist *list) {
+       return list ? list->count : 0;
+}
+
+struct psi_plist *psi_plist_add(struct psi_plist *list, void *ptr) {
+       if (list->count) {
+               list = realloc(list, sizeof(*list) + list->count * list->size);
+       }
+       if (list) {
+               PLIST_CPY(list, PLIST_ELE(list, list->count++), ptr);
+       }
+       return list;
+}
+
+bool psi_plist_get(struct psi_plist *list, size_t index, void *ptr) {
+       if (list && list->count > index) {
+               PLIST_CPY(list, ptr, PLIST_ELE(list, index));
+               return true;
+       }
+       return false;
+}
+
+bool psi_plist_del(struct psi_plist *list, size_t index, void *ptr) {
+       if (list->count > index) {
+               if (ptr) {
+                       PLIST_CPY(list, ptr, PLIST_ELE(list, index));
+               }
+               if (--list->count > index) {
+                       PLIST_MOV(list, index);
+               }
+               return true;
+       }
+       return false;
+}
+
+bool psi_plist_shift(struct psi_plist *list, void *ptr) {
+       if (list->count) {
+               if (ptr) {
+                       PLIST_CPY(list, ptr, PLIST_ELE(list, 0));
+               }
+               if (--list->count) {
+                       PLIST_MOV(list, 0);
+               }
+               return true;
+       }
+       return false;
+}
+
+bool psi_plist_pop(struct psi_plist *list, void *ptr) {
+       if (list->count) {
+               --list->count;
+               if (ptr) {
+                       PLIST_CPY(list, ptr, PLIST_ELE(list, list->count));
+               }
+               return true;
+       }
+       return false;
+}
+
+
+static void swp_ptr(void *a, void *b) {
+       void **_a = a, **_b = b, *_c;
+
+       _c = *_b;
+       *_b = *_a;
+       *_a = _c;
+}
+
+void psi_plist_sort(struct psi_plist *list, compare_func_t cmp, swap_func_t swp) {
+       if (!swp && list->size == sizeof(void *)) {
+               swp = swp_ptr;
+       }
+       assert(swp);
+       zend_insert_sort((void *) list->list, list->count, list->size, cmp, swp);
+}
+