From 4703f3b61b5b80fc392e35c833e82b202c5c04d3 Mon Sep 17 00:00:00 2001
From: Martin Quinson <martin.quinson@loria.fr>
Date: Wed, 13 Jun 2012 19:05:11 +0200
Subject: [PATCH 1/1] New function: MSG_host_set_property_value()

---
 ChangeLog          |  1 +
 include/msg/msg.h  |  4 ++++
 src/msg/msg_host.c | 13 +++++++++++++
 3 files changed, 18 insertions(+)

diff --git a/ChangeLog b/ChangeLog
index 43a0b9a214..3998feb6e6 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -11,6 +11,7 @@ SimGrid (3.8) NOT RELEASED; urgency=low
  * Add an experimental interface to manipulate VMs. They are mainly
    process groups with very few intrinsic semantic, but they should
    allow you to build the semantic you want easily.
+ * New function: MSG_host_set_property_value()
 
  Simix:
  * Bug fixes around the resource failures: don't let the processes
diff --git a/include/msg/msg.h b/include/msg/msg.h
index dd7c38c4c9..4d92827f4b 100644
--- a/include/msg/msg.h
+++ b/include/msg/msg.h
@@ -78,6 +78,10 @@ XBT_PUBLIC(void) __MSG_host_destroy(m_host_t host);
 XBT_PUBLIC(xbt_dict_t) MSG_host_get_properties(m_host_t host);
 XBT_PUBLIC(const char *) MSG_host_get_property_value(m_host_t host,
                                                      const char *name);
+XBT_PUBLIC(void) MSG_host_set_property_value(m_host_t host,
+                                             const char *name, char *value,
+                                             void_f_pvoid_t free_ctn);
+
 
 XBT_PUBLIC(void) MSG_create_environment(const char *file);
 XBT_PUBLIC(void) MSG_load_platform_script(const char *script_file);
diff --git a/src/msg/msg_host.c b/src/msg/msg_host.c
index 086d9bf70f..37da29aabc 100644
--- a/src/msg/msg_host.c
+++ b/src/msg/msg_host.c
@@ -224,6 +224,19 @@ xbt_dict_t MSG_host_get_properties(m_host_t host)
   return (simcall_host_get_properties(host->smx_host));
 }
 
+/** \ingroup m_host_management
+ * \brief Change the value of a given host property
+ *
+ * \param host a host
+ * \param name a property name
+ * \param value what to change the property to
+ * \param free_ctn the freeing function to use to kill the value on need
+ */
+void MSG_host_set_property_value(m_host_t host, const char *name, char *value,void_f_pvoid_t free_ctn) {
+
+  xbt_dict_set(MSG_host_get_properties(host), name, value,free_ctn);
+}
+
 
 /** \ingroup msg_gos_functions
  * \brief Determine if a host is available.
-- 
2.20.1