OpenCores
URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [newlib-1.18.0/] [newlib/] [libc/] [search/] [tdestroy.c] - Blame information for rev 262

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 207 jeremybenn
/*      $NetBSD: tdelete.c,v 1.2 1999/09/16 11:45:37 lukem Exp $        */
2
 
3
/*
4
 * Tree search generalized from Knuth (6.2.2) Algorithm T just like
5
 * the AT&T man page says.
6
 *
7
 * The node_t structure is for internal use only, lint doesn't grok it.
8
 *
9
 * Written by reading the System V Interface Definition, not the code.
10
 *
11
 * Totally public domain.
12
 */
13
 
14
#include <sys/cdefs.h>
15
#if 0
16
#if defined(LIBC_SCCS) && !defined(lint)
17
__RCSID("$NetBSD: tdelete.c,v 1.2 1999/09/16 11:45:37 lukem Exp $");
18
#endif /* LIBC_SCCS and not lint */
19
#endif
20
 
21
#include <assert.h>
22
#define _SEARCH_PRIVATE
23
#include <search.h>
24
#include <stdlib.h>
25
 
26
 
27
/* Walk the nodes of a tree */
28
static void
29
trecurse(root, free_action)
30
        node_t *root;   /* Root of the tree to be walked */
31
        void (*free_action)(void *);
32
{
33
  if (root->llink != NULL)
34
    trecurse(root->llink, free_action);
35
  if (root->rlink != NULL)
36
    trecurse(root->rlink, free_action);
37
 
38
  (*free_action) ((void *) root->key);
39
  free(root);
40
}
41
 
42
void
43
_DEFUN(tdestroy, (vrootp, freefct),
44
       void *vrootp _AND
45
       void (*freefct)(void *))
46
{
47
  node_t *root = (node_t *) vrootp;
48
 
49
  if (root != NULL)
50
    trecurse(root, freefct);
51
}

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.