1 /* dict_multi - dictionnaries of dictionnaries of ... of data */
3 /* Copyright (c) 2004, 2005, 2006, 2007, 2008, 2009, 2010. The SimGrid Team.
4 * All rights reserved. */
6 /* This program is free software; you can redistribute it and/or modify it
7 * under the terms of the license (GNU LGPL) which comes with this package. */
9 #ifdef XBT_USE_DEPRECATED
11 #include "dict_private.h"
13 XBT_LOG_NEW_DEFAULT_SUBCATEGORY(xbt_dict_multi, xbt_dict,
14 "Dictionaries of multiple keys");
16 static void _free_dict(void *d)
18 XBT_VERB("free dict %p", d);
19 xbt_dict_free((xbt_dict_t *) & d);
22 /** \brief Insert \e data under all the keys contained in \e keys, providing their sizes in \e lens.
24 * \arg mdict: the multi-dict
25 * \arg keys: dynar of (char *) containing all the keys
26 * \arg lens: length of each element of \e keys
27 * \arg data: what to store in the structure
28 * \arg free_ctn: function to use to free the pushed content on need
30 * Dynars are not modified during the operation.
34 xbt_multidict_set_ext(xbt_dict_t mdict,
35 xbt_dynar_t keys, xbt_dynar_t lens,
36 void *data, void_f_pvoid_t free_ctn)
39 xbt_dict_t thislevel, nextlevel = NULL;
42 unsigned long int thislen;
44 int keys_len = xbt_dynar_length(keys);
46 xbt_assert(xbt_dynar_length(keys) == xbt_dynar_length(lens));
47 xbt_assert(keys_len, "Can't set a zero-long key set in a multidict");
49 XBT_DEBUG("xbt_multidict_set(%p,%d)", mdict, keys_len);
51 for (i = 0, thislevel = mdict; i < keys_len - 1;
52 i++, thislevel = nextlevel) {
54 xbt_dynar_get_cpy(keys, i, &thiskey);
55 xbt_dynar_get_cpy(lens, i, &thislen);
57 XBT_DEBUG("multi_set: at level %d, len=%ld, key=%p |%*s|", i, thislen,
58 thiskey, (int) thislen, thiskey);
60 /* search the dict of next level */
61 nextlevel = xbt_dict_get_or_null_ext(thislevel, thiskey, thislen);
62 if (nextlevel == NULL) {
63 /* make sure the dict of next level exists */
64 nextlevel = xbt_dict_new();
65 XBT_VERB("Create a dict (%p)", nextlevel);
66 xbt_dict_set_ext(thislevel, thiskey, thislen, nextlevel,
71 xbt_dynar_get_cpy(keys, i, &thiskey);
72 xbt_dynar_get_cpy(lens, i, &thislen);
74 xbt_dict_set_ext(thislevel, thiskey, thislen, data, free_ctn);
77 /** \brief Insert \e data under all the keys contained in \e keys
79 * \arg head: the head of dict
80 * \arg keys: dynar of null-terminated strings containing all the keys
81 * \arg data: what to store in the structure
82 * \arg free_ctn: function to use to free the pushed content on need
85 xbt_multidict_set(xbt_dict_t mdict,
86 xbt_dynar_t keys, void *data, void_f_pvoid_t free_ctn)
88 xbt_dynar_t lens = xbt_dynar_new(sizeof(unsigned long int), NULL);
91 for (i = 0; i < xbt_dynar_length(keys); i++) {
92 char *thiskey = xbt_dynar_get_as(keys, i, char *);
93 unsigned long int thislen = (unsigned long int) strlen(thiskey);
94 XBT_DEBUG("Push %ld as level %lu length", thislen, i);
95 xbt_dynar_push(lens, &thislen);
99 xbt_multidict_set_ext(mdict, keys, lens, data, free_ctn);
102 xbt_dynar_free(&lens);
109 /** \brief Insert \e data under all the keys contained in \e keys, providing their sizes in \e lens.
111 * \arg mdict: the multi-dict
112 * \arg keys: dynar of (char *) containing all the keys
113 * \arg lens: length of each element of \e keys
114 * \arg data: where to put what was found in structure
115 * \arg free_ctn: function to use to free the pushed content on need
117 * Dynars are not modified during the operation.
119 void *xbt_multidict_get_ext(xbt_dict_t mdict,
120 xbt_dynar_t keys, xbt_dynar_t lens)
122 xbt_dict_t thislevel, nextlevel;
125 unsigned long int thislen;
127 int keys_len = xbt_dynar_length(keys);
129 xbt_assert(xbt_dynar_length(keys) == xbt_dynar_length(lens));
130 xbt_assert(!xbt_dynar_is_empty(keys),
131 "Can't get a zero-long key set in a multidict");
133 XBT_DEBUG("xbt_multidict_get(%p, %ld)", mdict, xbt_dynar_length(keys));
135 for (i = 0, thislevel = mdict; i < keys_len - 1;
136 i++, thislevel = nextlevel) {
138 xbt_dynar_get_cpy(keys, i, &thiskey);
139 xbt_dynar_get_cpy(lens, i, &thislen);
141 XBT_DEBUG("multi_get: at level %d (%p), len=%ld, key=%p |%*s|",
142 i, thislevel, thislen, thiskey, (int) thislen, thiskey);
144 /* search the dict of next level: let mismatch raise if not found */
145 nextlevel = xbt_dict_get_ext(thislevel, thiskey, thislen);
148 xbt_dynar_get_cpy(keys, i, &thiskey);
149 xbt_dynar_get_cpy(lens, i, &thislen);
151 return xbt_dict_get_ext(thislevel, thiskey, thislen);
154 void *xbt_multidict_get(xbt_dict_t mdict, xbt_dynar_t keys)
156 xbt_dynar_t lens = xbt_dynar_new(sizeof(unsigned long int), NULL);
160 for (i = 0; i < xbt_dynar_length(keys); i++) {
161 char *thiskey = xbt_dynar_get_as(keys, i, char *);
162 unsigned long int thislen = (unsigned long int) strlen(thiskey);
163 xbt_dynar_push(lens, &thislen);
166 res = xbt_multidict_get_ext(mdict, keys, lens), xbt_dynar_free(&lens);
171 /** \brief Remove the entry under all the keys contained in \e keys, providing their sizes in \e lens.
173 * \arg mdict: the multi-dict
174 * \arg keys: dynar of (char *) containing all the keys
175 * \arg lens: length of each element of \e keys
176 * \arg data: what to store in the structure
177 * \arg free_ctn: function to use to free the pushed content on need
179 * Dynars are not modified during the operation.
181 * Removing a non-existant key is ok.
185 xbt_multidict_remove_ext(xbt_dict_t mdict, xbt_dynar_t keys,
188 volatile xbt_dict_t thislevel;
189 volatile xbt_dict_t nextlevel = NULL;
193 unsigned long int thislen;
195 int keys_len = xbt_dynar_length(keys);
197 xbt_assert(xbt_dynar_length(keys) == xbt_dynar_length(lens));
198 xbt_assert(xbt_dynar_length(keys),
199 "Can't remove a zero-long key set in a multidict");
201 for (i = 0, thislevel = mdict; i < keys_len - 1;
202 i++, thislevel = nextlevel) {
204 xbt_dynar_get_cpy(keys, i, &thiskey);
205 xbt_dynar_get_cpy(lens, i, &thislen);
207 /* search the dict of next level */
209 nextlevel = xbt_dict_get_ext(thislevel, thiskey, thislen);
212 /* If non-existant entry, nothing to do */
213 if (e.category == arg_error)
220 xbt_dynar_get_cpy(keys, i, &thiskey);
221 xbt_dynar_get_cpy(lens, i, &thislen);
223 xbt_dict_remove_ext(thislevel, thiskey, thislen);
226 void xbt_multidict_remove(xbt_dict_t mdict, xbt_dynar_t keys)
228 xbt_dynar_t lens = xbt_dynar_new(sizeof(unsigned long int), NULL);
231 for (i = 0; i < xbt_dynar_length(keys); i++) {
232 char *thiskey = xbt_dynar_get_as(keys, i, char *);
233 unsigned long int thislen = strlen(thiskey);
234 xbt_dynar_push(lens, &thislen);
238 xbt_multidict_remove_ext(mdict, keys, lens);
241 xbt_dynar_free(&lens);