Mercurial > repo

comparison src/ploki/variable.c @ 4223:ac0403686959

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
<oerjan> rm -rf src/ploki; mv ploki src
author HackBot
date Fri, 20 Dec 2013 22:18:50 +0000
parents
children
comparison
equal deleted inserted replaced
4222:b0f3e267bb1e 4223:ac0403686959
1 #include "config.h"
2 #include "Str.h"
3 #include "strhash.h"
4 #include "variable.h"
5 #include "xmalloc.h"
6
7 #include <assert.h>
8
9 enum {MAGIC = 23};
10
11 static void delcookie(void *c) {
12 xfree(c);
13 }
14
15 t_vr_container *vr_new(void (*del)(void *)) {
16 t_vr_container *v = xmalloc(1, sizeof *v);
17 v->data = xmalloc(v->size = MAGIC, sizeof *v->data);
18 v->length = 0;
19 v->del = del;
20 v->hash = sh_new(delcookie);
21 return v;
22 }
23
24 void vr_delete(t_vr_container *v) {
25 assert(v != NULL);
26 if (v->hash) {
27 vr_freeze(v);
28 }
29 while (v->length) {
30 --v->length;
31 if (v->del) {
32 v->del(v->data[v->length]);
33 }
34 }
35 xfree(v->data);
36 xfree(v);
37 }
38
39 t_vr_cookie vr_exists(const t_vr_container *v, const char *key, size_t len) {
40 t_vr_cookie *c;
41 assert(v->hash != NULL);
42 return (c = sh_get(v->hash, key, len)) ? *c : VR_NO_COOKIE;
43 }
44
45 t_vr_cookie vr_register(t_vr_container *v, const char *key, size_t len, void *val) {
46 t_vr_cookie *cookie;
47
48 assert(v->hash != NULL);
49 assert(sh_get(v->hash, key, len) == NULL);
50
51 if (v->length >= v->size) {
52 v->data = xrealloc(v->data, v->size *= 2);
53 }
54
55 cookie = xmalloc(1, sizeof *cookie);
56 v->data[*cookie = v->length++] = val;
57 sh_put(v->hash, key, len, cookie);
58
59 return *cookie;
60 }
61
62 void vr_freeze(t_vr_container *v) {
63 assert(v->hash != NULL);
64 sh_delete(v->hash);
65 v->hash = NULL;
66 }
67
68 void *(vr_data)(const t_vr_container *v, t_vr_cookie c) {
69 assert(v->hash == NULL);
70 assert(c < v->length);
71 return v->data[c];
72 }