1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
|
#include "map.h"
#include <string.h>
#include <stdlib.h>
#include <stdio.h>
#include <assert.h>
struct map_node {
void *key, *val;
cmp_func cmp;
struct map_node *left, *right, *parent;
};
map* map_new(cmp)
cmp_func cmp;
{
map *tmp;
tmp = malloc(sizeof(map));
assert(tmp);
tmp->cmp = cmp;
tmp->key = tmp->val = tmp->left = tmp->right = tmp->parent = NULL;
return tmp;
}
map* map_new_from_parent(root)
map *root;
{
map *tmp;
tmp = map_new(root->cmp);
tmp->parent = root;
return tmp;
}
int map_size(root)
map *root;
{
if (!root || !root->key)
return 0;
return map_size(root->left) + map_size(root->right) + 1;
}
int map_insert(root, key, val)
map *root;
void *key, *val;
{
int cmp;
if (!root)
return -1;
if (!key) {
root->key = key;
root->val = val;
return 0;
}
cmp = root->cmp(root->key, key);
if (cmp == 0 && root->key == key) {
root->val = val;
} else if (cmp < 0) {
if (!root->left)
root->left = map_new_from_parent(root);
map_insert(root->left, key, val);
} else if (cmp > 0) {
if (!root->right)
root->right = map_new_from_parent(root);
map_insert(root->right, key, val);
} else {
return -1;
}
return 0;
}
void map_clear(root)
map *root;
{
map *l, *r;
l = root->left;
r = root->right;
if (!root)
return;
if (root->parent) {
free(root->key);
root->key = NULL;
free(root->val);
root->val = NULL;
root->parent = NULL;
free(root);
}
map_clear(l);
map_clear(r);
}
void map_free(root)
map *root;
{
if (!root)
return;
root->key = NULL;
map_free(root->left);
root->left = NULL;
map_free(root->right);
root->right = NULL;
free(root);
}
|