-/* $Id$ */
-
/* dict_cursor - iterators over dictionnaries */
-/* Copyright (c) 2003, 2004 Martin Quinson. All rights reserved. */
+/* Copyright (c) 2004, 2005, 2006, 2007, 2008, 2009, 2010. The SimGrid Team.
+ * All rights reserved. */
/* This program is free software; you can redistribute it and/or modify it
* under the terms of the license (GNU LGPL) which comes with this package. */
#include "xbt/ex.h"
#include "dict_private.h"
-#include <string.h> /* strlen() */
+#include <string.h> /* strlen() */
-XBT_LOG_EXTERNAL_CATEGORY(dict);
-XBT_LOG_NEW_DEFAULT_SUBCATEGORY(dict_cursor,dict,"To traverse dictionaries");
+XBT_LOG_EXTERNAL_CATEGORY(xbt_dict);
+XBT_LOG_NEW_DEFAULT_SUBCATEGORY(xbt_dict_cursor, xbt_dict,
+ "To traverse dictionaries");
/*####[ Dict cursor functions ]#############################################*/
/* Don't add or remove entries to the dict while traversing !!! */
/*###########################################################################*/
struct xbt_dict_cursor_ {
- /* we store all level encountered until here, to backtrack on next() */
- xbt_dynar_t keys;
- xbt_dynar_t key_lens;
- int pos;
- int pos_len;
- xbt_dictelm_t head;
+ xbt_dictelm_t current;
+ int line;
+ xbt_dict_t dict;
};
-static _XBT_INLINE void
-_cursor_push_keys(xbt_dict_cursor_t p_cursor,
- xbt_dictelm_t p_elm);
-
#undef xbt_dict_CURSOR_DEBUG
/*#define xbt_dict_CURSOR_DEBUG 1*/
-/** @brief Creator
- * @param head the dict
+/** @brief Creator
+ * @param dict the dict
*/
-xbt_dict_cursor_t
-xbt_dict_cursor_new(const xbt_dict_t head) {
+XBT_INLINE xbt_dict_cursor_t xbt_dict_cursor_new(const xbt_dict_t dict)
+{
xbt_dict_cursor_t res = NULL;
- res = xbt_new(s_xbt_dict_cursor_t,1);
- res->keys = xbt_dynar_new(sizeof(char **), NULL);
- res->key_lens = xbt_dynar_new(sizeof(int *), NULL);
- res->pos = 0;
- res->pos_len = 0;
- res->head = head ? head->head : NULL;
+ res = xbt_new(s_xbt_dict_cursor_t, 1);
+ res->dict = dict;
xbt_dict_cursor_rewind(res);
* @brief Destructor
* @param cursor poor victim
*/
-void
-xbt_dict_cursor_free(xbt_dict_cursor_t *cursor) {
+XBT_INLINE void xbt_dict_cursor_free(xbt_dict_cursor_t * cursor)
+{
if (*cursor) {
- xbt_dynar_free(&((*cursor)->keys));
- xbt_dynar_free(&((*cursor)->key_lens));
- free(*cursor);
+ xbt_free(*cursor);
*cursor = NULL;
}
}
/*
* Sanity check to see if the head contains something
*/
-static _XBT_INLINE
-void
-__cursor_not_null(xbt_dict_cursor_t cursor) {
-
- xbt_assert0(cursor, "Null cursor");
-
- if (!cursor->head)
- THROW0(arg_error,0,"Null headed cursor");
+static XBT_INLINE void __cursor_not_null(xbt_dict_cursor_t cursor)
+{
+ xbt_assert(cursor, "Null cursor");
}
-static _XBT_INLINE
-void
-_cursor_push_keys(xbt_dict_cursor_t cursor,
- xbt_dictelm_t elm) {
- xbt_dictelm_t child = NULL;
- int i = 0;
- static volatile int count = 0; /* ??? */
-
- CDEBUG3(dict_cursor, "Push childs of %p (%.*s) in the cursor", (void*)elm, elm->key_len, elm->key);
-
- if (!elm->internal) {
- xbt_dynar_push(cursor->keys, &elm->key );
- xbt_dynar_push(cursor->key_lens, &elm->key_len);
- count++;
- }
-
- xbt_dynar_foreach(elm->sub, i, child) {
- if (child)
- _cursor_push_keys(cursor, child);
- }
-
- CDEBUG1(dict_cursor, "Count = %d", count);
-}
-
/** @brief Reinitialize the cursor. Mandatory after removal or add in dict. */
-void
-xbt_dict_cursor_rewind(xbt_dict_cursor_t cursor) {
-
- CDEBUG0(dict_cursor, "xbt_dict_cursor_rewind");
+XBT_INLINE void xbt_dict_cursor_rewind(xbt_dict_cursor_t cursor)
+{
+ XBT_CDEBUG(xbt_dict_cursor, "xbt_dict_cursor_rewind");
xbt_assert(cursor);
- xbt_dynar_reset(cursor->keys);
- xbt_dynar_reset(cursor->key_lens);
-
- if (!cursor->head)
- return ;
-
- _cursor_push_keys(cursor, cursor->head);
-
- xbt_dynar_cursor_first(cursor->keys, &cursor->pos );
- xbt_dynar_cursor_first(cursor->key_lens, &cursor->pos_len);
-
+ cursor->line = 0;
+ if (cursor->dict != NULL) {
+ cursor->current = cursor->dict->table[0];
+ } else {
+ cursor->current = NULL;
+ }
}
/**
* @param dict on what to let the cursor iterate
* @param[out] cursor dest address
*/
-void xbt_dict_cursor_first (const xbt_dict_t dict,
- xbt_dict_cursor_t *cursor){
-
+XBT_INLINE void xbt_dict_cursor_first(const xbt_dict_t dict,
+ xbt_dict_cursor_t * cursor)
+{
+ XBT_DEBUG("xbt_dict_cursor_first");
if (!*cursor) {
- DEBUG0("Create the cursor on first use");
- *cursor=xbt_dict_cursor_new(dict);
+ XBT_DEBUG("Create the cursor on first use");
+ *cursor = xbt_dict_cursor_new(dict);
+ } else {
+ xbt_dict_cursor_rewind(*cursor);
+ }
+ if (dict != NULL && (*cursor)->current == NULL) {
+ xbt_dict_cursor_step(*cursor); /* find the first element */
}
-
- xbt_dict_cursor_rewind(*cursor);
}
/**
- * \brief Move to the next element.
+ * \brief Move to the next element.
*/
-void
-xbt_dict_cursor_step(xbt_dict_cursor_t cursor) {
+XBT_INLINE void xbt_dict_cursor_step(xbt_dict_cursor_t cursor)
+{
+ xbt_dictelm_t current;
+ int line;
+
+ XBT_DEBUG("xbt_dict_cursor_step");
xbt_assert(cursor);
- DEBUG2("step cursor. Current=%.*s",
- xbt_dynar_get_as(cursor->key_lens,cursor->pos_len,int),
- xbt_dynar_get_as(cursor->keys,cursor->pos,char *));
- xbt_dynar_cursor_step(cursor->keys, &cursor->pos);
- xbt_dynar_cursor_step(cursor->key_lens, &cursor->pos_len);
+ current = cursor->current;
+ line = cursor->line;
+
+ if (cursor->dict != NULL) {
+
+ if (current != NULL) {
+ XBT_DEBUG("current is not null, take the next element");
+ current = current->next;
+ XBT_DEBUG("next element: %p", current);
+ }
+
+ while (current == NULL && ++line <= cursor->dict->table_size) {
+ XBT_DEBUG("current is NULL, take the next line");
+ current = cursor->dict->table[line];
+ XBT_DEBUG("element in the next line: %p", current);
+ }
+ XBT_DEBUG("search finished, current = %p, line = %d", current, line);
+
+ cursor->current = current;
+ cursor->line = line;
+ }
}
/**
*
* @returns true if it's ok, false if there is no more data
*/
-int
-xbt_dict_cursor_get_or_free(xbt_dict_cursor_t *cursor,
- char **key,
- void **data) {
- int key_len = 0;
- xbt_ex_t e;
-
+XBT_INLINE int xbt_dict_cursor_get_or_free(xbt_dict_cursor_t * cursor,
+ char **key, void **data)
+{
+
+ xbt_dictelm_t current;
+
+ XBT_DEBUG("xbt_dict_get_or_free");
+
+
if (!cursor || !(*cursor))
return FALSE;
- if (xbt_dynar_length((*cursor)->keys) <= (*cursor)->pos) {
+ current = (*cursor)->current;
+ if (current == NULL) { /* no data left */
xbt_dict_cursor_free(cursor);
return FALSE;
}
-
- *key = xbt_dynar_get_as((*cursor)->keys, (*cursor)->pos, char*);
- key_len = xbt_dynar_get_as((*cursor)->key_lens, (*cursor)->pos_len, int);
-
- TRY {
- *data = xbt_dictelm_get_ext((*cursor)->head, *key, key_len);
- } CATCH(e) {
- if (e.category == mismatch_error) {
- xbt_dict_cursor_free(cursor);
- xbt_ex_free(e);
- return FALSE;
- }
- RETHROW;
- }
+
+ *key = current->key;
+ *data = current->content;
return TRUE;
}
/**
* @brief Get current key
* @param cursor: the cursor
- * @param key where to put the key
+ * @returns the current key
*/
-char *
-xbt_dict_cursor_get_key(xbt_dict_cursor_t cursor) {
+XBT_INLINE char *xbt_dict_cursor_get_key(xbt_dict_cursor_t cursor)
+{
__cursor_not_null(cursor);
- return xbt_dynar_get_as(cursor->keys, cursor->pos - 1, char*);
+ return cursor->current->key;
}
/**
* @brief Get current data
* @param cursor the cursor
- * @param data where to put the data
+ * @returns the current data
*/
-void *
-xbt_dict_cursor_get_data(xbt_dict_cursor_t cursor) {
- char *key = NULL;
- int key_len = 0;
-
+XBT_INLINE void *xbt_dict_cursor_get_data(xbt_dict_cursor_t cursor)
+{
__cursor_not_null(cursor);
- key = xbt_dynar_get_as(cursor->keys, cursor->pos-1, char *);
- key_len = xbt_dynar_get_as(cursor->key_lens, cursor->pos_len-1, int);
-
- return xbt_dictelm_get_ext(cursor->head, key, key_len);
+ return cursor->current->content;
}
+/**
+ * @brief Set current data
+ * @param cursor the cursor
+ * @param data the new data
+ * @param free_ctn the function to free the new data
+ */
+XBT_INLINE void xbt_dict_cursor_set_data(xbt_dict_cursor_t cursor,
+ void *data,
+ void_f_pvoid_t free_ctn)
+{
+ __cursor_not_null(cursor);
+ if (cursor->current->free_f)
+ cursor->current->free_f(cursor->current->content);
+ cursor->current->content = data;
+ cursor->current->free_f = free_ctn;
+ return;
+}