1 /* Copyright (c) 2012-2019. The SimGrid Team. All rights reserved. */
3 /* This program is free software; you can redistribute it and/or modify it
4 * under the terms of the license (GNU LGPL) which comes with this package. */
8 /* http://stackoverflow.com/a/3348142 */
9 /**************************************/
11 /* Allocates and initializes a new xbt_dynar iterator for list, using criteria_fn as iteration criteria
12 criteria_fn: given an array size, it must generate a list containing the indices of every item in some order */
13 xbt_dynar_iterator_t xbt_dynar_iterator_new(xbt_dynar_t list, xbt_dynar_t (*criteria_fn)(int))
15 xbt_dynar_iterator_t it = xbt_new(xbt_dynar_iterator_s, 1);
18 it->length = xbt_dynar_length(list);
19 it->indices_list = criteria_fn(it->length); // Creates and fills a dynar of int
20 it->criteria_fn = criteria_fn;
26 /* Returns the next element iterated by iterator it, NULL if there are no more elements */
27 void* xbt_dynar_iterator_next(xbt_dynar_iterator_t it)
29 if (it->current >= it->length) {
32 int* next = xbt_dynar_get_ptr(it->indices_list, it->current);
34 return xbt_dynar_get_ptr(it->list, *next);
38 void xbt_dynar_iterator_delete(xbt_dynar_iterator_t it)
40 xbt_dynar_free_container(&(it->indices_list));
44 xbt_dynar_t forward_indices_list(int size)
46 xbt_dynar_t indices_list = xbt_dynar_new(sizeof(int), NULL);
47 for (int i = 0; i < size; i++)
48 xbt_dynar_push_as(indices_list, int, i);