universe@816: /*
universe@816:  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS HEADER.
universe@816:  *
universe@816:  * Copyright 2024 Mike Becker, Olaf Wintermann All rights reserved.
universe@816:  *
universe@816:  * Redistribution and use in source and binary forms, with or without
universe@816:  * modification, are permitted provided that the following conditions are met:
universe@816:  *
universe@816:  *   1. Redistributions of source code must retain the above copyright
universe@816:  *      notice, this list of conditions and the following disclaimer.
universe@816:  *
universe@816:  *   2. Redistributions in binary form must reproduce the above copyright
universe@816:  *      notice, this list of conditions and the following disclaimer in the
universe@816:  *      documentation and/or other materials provided with the distribution.
universe@816:  *
universe@816:  * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
universe@816:  * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
universe@816:  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
universe@816:  * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE
universe@816:  * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
universe@816:  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
universe@816:  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
universe@816:  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
universe@816:  * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
universe@816:  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
universe@816:  * POSSIBILITY OF SUCH DAMAGE.
universe@816:  */
universe@816: 
universe@816: #include "cx/tree.h"
universe@816: 
universe@816: #include <assert.h>
universe@816: 
universe@816: #define CX_TREE_PTR(cur, off) (*(void**)(((char*)(cur))+(off)))
universe@816: #define CX_TREE_PTR(cur, off) (*(void**)(((char*)(cur))+(off)))
universe@816: #define tree_parent(node) CX_TREE_PTR(node, loc_parent)
universe@816: #define tree_children(node) CX_TREE_PTR(node, loc_children)
universe@816: #define tree_prev(node) CX_TREE_PTR(node, loc_prev)
universe@816: #define tree_next(node) CX_TREE_PTR(node, loc_next)
universe@816: 
universe@816: void cx_tree_link(
universe@816:         void *restrict parent,
universe@816:         void *restrict node,
universe@816:         ptrdiff_t loc_parent,
universe@816:         ptrdiff_t loc_children,
universe@816:         ptrdiff_t loc_prev,
universe@816:         ptrdiff_t loc_next
universe@816: ) {
universe@816:     void *current_parent = tree_parent(node);
universe@816:     if (current_parent == parent) return;
universe@816:     if (current_parent != NULL) {
universe@816:         cx_tree_unlink(node, loc_parent, loc_children,
universe@816:                        loc_prev, loc_next);
universe@816:     }
universe@816: 
universe@816:     if (tree_children(parent) == NULL) {
universe@816:         tree_children(parent) = node;
universe@816:     } else {
universe@816:         void *children = tree_children(parent);
universe@816:         tree_prev(children) = node;
universe@816:         tree_next(node) = children;
universe@816:         tree_children(parent) = node;
universe@816:     }
universe@816:     tree_parent(node) = parent;
universe@816: }
universe@816: 
universe@816: void cx_tree_unlink(
universe@816:         void *node,
universe@816:         ptrdiff_t loc_parent,
universe@816:         ptrdiff_t loc_children,
universe@816:         ptrdiff_t loc_prev,
universe@816:         ptrdiff_t loc_next
universe@816: ) {
universe@816:     if (tree_parent(node) == NULL) return;
universe@816: 
universe@816:     void *left = tree_prev(node);
universe@816:     void *right = tree_next(node);
universe@816:     assert(left == NULL || tree_children(tree_parent(node)) != node);
universe@816:     if (left == NULL) {
universe@816:         tree_children(tree_parent(node)) = right;
universe@816:     } else {
universe@816:         tree_next(left) = right;
universe@816:     }
universe@816:     if (right != NULL) tree_prev(right) = left;
universe@816:     tree_parent(node) = NULL;
universe@816:     tree_prev(node) = NULL;
universe@816:     tree_next(node) = NULL;
universe@816: }