tree.c

Go to the documentation of this file.

/* LIBDGL -- a Directed Graph Library implementation
 * SPDX-FileCopyrightText: 2002 Roberto Micarelli
 * SPDX-FileCopyrightText: GRASS Development Team
 * SPDX-License-Identifier: GPL-2.0-or-later
 */
 
/* best view tabstop=4
 */
#include <stdio.h>
#include <string.h>
#include <stdlib.h>
 
#include <grass/gis.h>
#include "type.h"
#include "tree.h"
 
/*
 * AVL Support for data type dglTreeNode_s
 * alloc
 * cancel
 * compare
 * add
 */
dglTreeNode_s *dglTreeNodeAlloc(void)
{
    dglTreeNode_s *pNode = (dglTreeNode_s *)malloc(sizeof(dglTreeNode_s));
 
    if (pNode)
        memset(pNode, 0, sizeof(dglTreeNode_s));
    return pNode;
}
 
void dglTreeNodeCancel(void *pvNode, void *pvParam G_UNUSED)
{
    if (((dglTreeNode_s *)pvNode)->pv)
        free(((dglTreeNode_s *)pvNode)->pv);
    if (((dglTreeNode_s *)pvNode)->pv2)
        free(((dglTreeNode_s *)pvNode)->pv2);
    free(pvNode);
}
 
int dglTreeNodeCompare(const void *pvNodeA, const void *pvNodeB,
                       void *pvParam G_UNUSED)
{
    if (((dglTreeNode_s *)pvNodeA)->nKey < ((dglTreeNode_s *)pvNodeB)->nKey)
        return -1;
    else if (((dglTreeNode_s *)pvNodeA)->nKey >
             ((dglTreeNode_s *)pvNodeB)->nKey)
        return 1;
    else
        return 0;
}
 
dglTreeNode_s *dglTreeNodeAdd(void *pavl, dglInt32_t nKey)
{
    dglTreeNode_s *pnode;
    void **ppvret;
 
    if ((pnode = dglTreeNodeAlloc()) == NULL)
        return NULL;
    pnode->nKey = nKey;
    ppvret = avl_probe(pavl, pnode);
    if (*ppvret != pnode) {
        free(pnode);
        pnode = *ppvret;
    }
    return pnode;
}
 
/*
 * AVL Support for data type dglTreeNode2_s
 * alloc
 * cancel
 * compare
 * add
 */
dglTreeNode2_s *dglTreeNode2Alloc(void)
{
    dglTreeNode2_s *pNode2 = (dglTreeNode2_s *)malloc(sizeof(dglTreeNode2_s));
    if (pNode2)
        memset(pNode2, 0, sizeof(dglTreeNode2_s));
    return pNode2;
}
 
void dglTreeNode2Cancel(void *pvNode2, void *pvParam G_UNUSED)
{
    if (((dglTreeNode2_s *)pvNode2)->pv)
        free(((dglTreeNode2_s *)pvNode2)->pv);
    if (((dglTreeNode2_s *)pvNode2)->pv2)
        free(((dglTreeNode2_s *)pvNode2)->pv2);
    if (((dglTreeNode2_s *)pvNode2)->pv3)
        free(((dglTreeNode2_s *)pvNode2)->pv3);
    free(pvNode2);
}
 
int dglTreeNode2Compare(const void *pvNode2A, const void *pvNode2B,
                        void *pvParam G_UNUSED)
{
    if (((dglTreeNode2_s *)pvNode2A)->nKey < ((dglTreeNode2_s *)pvNode2B)->nKey)
        return -1;
    else if (((dglTreeNode2_s *)pvNode2A)->nKey >
             ((dglTreeNode2_s *)pvNode2B)->nKey)
        return 1;
    else
        return 0;
}
 
dglTreeNode2_s *dglTreeNode2Add(void *pavl, dglInt32_t nKey)
{
    dglTreeNode2_s *pnode;
    void **ppvret;
 
    if ((pnode = dglTreeNode2Alloc()) == NULL)
        return NULL;
    pnode->nKey = nKey;
    ppvret = avl_probe(pavl, pnode);
    if (*ppvret != pnode) {
        free(pnode);
        pnode = *ppvret;
    }
    return pnode;
}
 
/*
 * AVL Support for data type dglTreeEdge_s
 * alloc
 * cancel
 * compare
 * add
 */
dglTreeEdge_s *dglTreeEdgeAlloc(void)
{
    dglTreeEdge_s *pEdge = (dglTreeEdge_s *)malloc(sizeof(dglTreeEdge_s));
 
    if (pEdge)
        memset(pEdge, 0, sizeof(dglTreeEdge_s));
    return pEdge;
}
 
void dglTreeEdgeCancel(void *pvEdge, void *pvParam G_UNUSED)
{
    if (((dglTreeEdge_s *)pvEdge)->pv)
        free(((dglTreeEdge_s *)pvEdge)->pv);
    free(pvEdge);
}
 
int dglTreeEdgeCompare(const void *pvEdgeA, const void *pvEdgeB,
                       void *pvParam G_UNUSED)
{
    if (((dglTreeEdge_s *)pvEdgeA)->nKey < ((dglTreeEdge_s *)pvEdgeB)->nKey)
        return -1;
    else if (((dglTreeEdge_s *)pvEdgeA)->nKey >
             ((dglTreeEdge_s *)pvEdgeB)->nKey)
        return 1;
    else
        return 0;
}
 
dglTreeEdge_s *dglTreeEdgeAdd(void *pavl, dglInt32_t nKey)
{
    dglTreeEdge_s *pedge;
    void **ppvret;
 
    if ((pedge = dglTreeEdgeAlloc()) == NULL)
        return NULL;
    pedge->nKey = nKey;
    ppvret = avl_probe(pavl, pedge);
    if (*ppvret != pedge) {
        free(pedge);
        pedge = *ppvret;
    }
    return pedge;
}
 
/*
 * AVL Support for data type dglTreeTouchI32_s
 * alloc
 * cancel
 * compare
 * add
 */
dglTreeTouchI32_s *dglTreeTouchI32Alloc(void)
{
    dglTreeTouchI32_s *pTouchI32 =
        (dglTreeTouchI32_s *)malloc(sizeof(dglTreeTouchI32_s));
    pTouchI32->nKey = 0;
    return pTouchI32;
}
 
void dglTreeTouchI32Cancel(void *pvTouchI32, void *pvParam G_UNUSED)
{
    free(pvTouchI32);
}
 
int dglTreeTouchI32Compare(const void *pvTouchI32A, const void *pvTouchI32B,
                           void *pvParam G_UNUSED)
{
    if (((dglTreeTouchI32_s *)pvTouchI32A)->nKey <
        ((dglTreeTouchI32_s *)pvTouchI32B)->nKey)
        return -1;
    else if (((dglTreeTouchI32_s *)pvTouchI32A)->nKey >
             ((dglTreeTouchI32_s *)pvTouchI32B)->nKey)
        return 1;
    else
        return 0;
}
 
dglTreeTouchI32_s *dglTreeTouchI32Add(void *pavl, dglInt32_t nKey)
{
    dglTreeTouchI32_s *pnode;
    void **ppvret;
 
    if ((pnode = dglTreeTouchI32Alloc()) == NULL)
        return NULL;
    pnode->nKey = nKey;
    ppvret = avl_probe(pavl, pnode);
    if (*ppvret != pnode) {
        free(pnode);
        pnode = *ppvret;
    }
    return pnode;
}
 
/*
 * AVL Support for data type dglTreePredist_s
 * alloc
 * cancel
 * compare
 * add
 */
dglTreePredist_s *dglTreePredistAlloc(void)
{
    dglTreePredist_s *pPredist =
        (dglTreePredist_s *)malloc(sizeof(dglTreePredist_s));
    if (pPredist)
        memset(pPredist, 0, sizeof(dglTreePredist_s));
    return pPredist;
}
 
void dglTreePredistCancel(void *pvPredist, void *pvParam G_UNUSED)
{
    free(pvPredist);
}
 
int dglTreePredistCompare(const void *pvPredistA, const void *pvPredistB,
                          void *pvParam G_UNUSED)
{
    if (((dglTreePredist_s *)pvPredistA)->nKey <
        ((dglTreePredist_s *)pvPredistB)->nKey)
        return -1;
    else if (((dglTreePredist_s *)pvPredistA)->nKey >
             ((dglTreePredist_s *)pvPredistB)->nKey)
        return 1;
    else
        return 0;
}
 
dglTreePredist_s *dglTreePredistAdd(void *pavl, dglInt32_t nKey)
{
    dglTreePredist_s *pnode;
    void **ppvret;
 
    if ((pnode = dglTreePredistAlloc()) == NULL)
        return NULL;
    pnode->nKey = nKey;
    ppvret = avl_probe(pavl, pnode);
    if (*ppvret != pnode) {
        free(pnode);
        pnode = *ppvret;
    }
    return pnode;
}
 
/*
 * AVL Support for data type dglTreeNodePri32_s
 * alloc
 * cancel
 * compare
 * add
 */
dglTreeNodePri32_s *dglTreeNodePri32Alloc(void)
{
    dglTreeNodePri32_s *pNodePri32 =
        (dglTreeNodePri32_s *)malloc(sizeof(dglTreeNodePri32_s));
    if (pNodePri32)
        memset(pNodePri32, 0, sizeof(dglTreeNodePri32_s));
    return pNodePri32;
}
 
void dglTreeNodePri32Cancel(void *pvNodePri32, void *pvParam G_UNUSED)
{
    free(pvNodePri32);
}
 
int dglTreeNodePri32Compare(const void *pvNodePri32A, const void *pvNodePri32B,
                            void *pvParam G_UNUSED)
{
    if (((dglTreeNodePri32_s *)pvNodePri32A)->nKey <
        ((dglTreeNodePri32_s *)pvNodePri32B)->nKey)
        return -1;
    else if (((dglTreeNodePri32_s *)pvNodePri32A)->nKey >
             ((dglTreeNodePri32_s *)pvNodePri32B)->nKey)
        return 1;
    else
        return 0;
}
 
dglTreeNodePri32_s *dglTreeNodePri32Add(void *pavl, dglInt32_t nKey)
{
    dglTreeNodePri32_s *pnode;
    void **ppvret;
 
    if ((pnode = dglTreeNodePri32Alloc()) == NULL)
        return NULL;
    pnode->nKey = nKey;
    ppvret = avl_probe(pavl, pnode);
    if (*ppvret != pnode) {
        free(pnode);
        pnode = *ppvret;
    }
    return pnode;
}
 
/*
 * AVL Support for data type dglTreeEdgePri32_s
 * alloc
 * cancel
 * compare
 * add
 */
dglTreeEdgePri32_s *dglTreeEdgePri32Alloc(void)
{
    dglTreeEdgePri32_s *pEdgePri32 =
        (dglTreeEdgePri32_s *)malloc(sizeof(dglTreeEdgePri32_s));
    if (pEdgePri32)
        memset(pEdgePri32, 0, sizeof(dglTreeEdgePri32_s));
    return pEdgePri32;
}
 
void dglTreeEdgePri32Cancel(void *pvEdgePri32, void *pvParam G_UNUSED)
{
    if (((dglTreeEdgePri32_s *)pvEdgePri32)->pnData) {
        free(((dglTreeEdgePri32_s *)pvEdgePri32)->pnData);
    }
    free(pvEdgePri32);
}
 
int dglTreeEdgePri32Compare(const void *pvEdgePri32A, const void *pvEdgePri32B,
                            void *pvParam G_UNUSED)
{
    if (((dglTreeEdgePri32_s *)pvEdgePri32A)->nKey <
        ((dglTreeEdgePri32_s *)pvEdgePri32B)->nKey)
        return -1;
    else if (((dglTreeEdgePri32_s *)pvEdgePri32A)->nKey >
             ((dglTreeEdgePri32_s *)pvEdgePri32B)->nKey)
        return 1;
    else
        return 0;
}
 
dglTreeEdgePri32_s *dglTreeEdgePri32Add(void *pavl, dglInt32_t nKey)
{
    dglTreeEdgePri32_s *pnode;
    void **ppvret;
 
    if ((pnode = dglTreeEdgePri32Alloc()) == NULL)
        return NULL;
    pnode->nKey = nKey;
    ppvret = avl_probe(pavl, pnode);
    if (*ppvret != pnode) {
        free(pnode);
        pnode = *ppvret;
    }
    return pnode;
}
 
/*
 * Our AVL allocator
 */
static void *_tree_malloc(struct libavl_allocator *allocator G_UNUSED,
                          size_t libavl_size)
{
    return malloc(libavl_size);
}
 
static void _tree_free(struct libavl_allocator *allocator G_UNUSED,
                       void *libavl_block)
{
    free(libavl_block);
}
 
static struct libavl_allocator _tree_allocator = {_tree_malloc, _tree_free};
 
void *dglTreeGetAllocator(void)
{
    return &_tree_allocator;
}