From 7dcc77d7a9bf7a4b8f667da338bbed3abd35be98 Mon Sep 17 00:00:00 2001
From: Pierre Veyre <pierre.veyre@cc.in2p3.fr>
Date: Wed, 14 Aug 2013 09:30:58 +0200
Subject: [PATCH] prepare MSG_storages_as_dynar function

---
 src/msg/msg_io.c | 18 +++++++++++++++++-
 1 file changed, 17 insertions(+), 1 deletion(-)

diff --git a/src/msg/msg_io.c b/src/msg/msg_io.c
index 331c3e3633..7bdabdf0ee 100644
--- a/src/msg/msg_io.c
+++ b/src/msg/msg_io.c
@@ -193,4 +193,20 @@ msg_storage_t MSG_storage_get_by_name(const char *name)
   return (msg_storage_t) xbt_lib_get_elm_or_null(host_lib,name);
 }
 
-
+/** \ingroup msg_storage_management
+ * \brief Return a dynar containing all the storages declared at a given point of time
+ */
+xbt_dynar_t MSG_storages_as_dynar(void) {
+  xbt_lib_cursor_t cursor;
+  char *key;
+  void **data;
+  xbt_dynar_t res = xbt_dynar_new(sizeof(msg_storage_t),NULL);
+
+  xbt_lib_foreach(host_lib, cursor, key, data) {
+    if(routing_get_network_element_type(key) == SURF_NETWORK_ELEMENT_HOST) {
+      xbt_dictelm_t elm = xbt_dict_cursor_get_elm(cursor);
+      xbt_dynar_push(res, &elm);
+    }
+  }
+  return res;
+}
-- 
2.20.1