New function: MSG_host_set_property_value()

diff --git a/ChangeLog b/ChangeLog
index 43a0b9a..3998feb 100644 (file)
--- 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.
  * 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
 
  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 dd7c38c..4d92827 100644 (file)
--- 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(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);
 
 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 086d9bf..37da29a 100644 (file)
--- 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));
 }
 
   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.
 
 /** \ingroup msg_gos_functions
  * \brief Determine if a host is available.