Logo AND Algorithmique Numérique Distribuée

Public GIT Repository
first try at killing GRAS -- does not compile yet
[simgrid.git] / examples / gras / properties / properties.c
diff --git a/examples/gras/properties/properties.c b/examples/gras/properties/properties.c
deleted file mode 100644 (file)
index 2315240..0000000
+++ /dev/null
@@ -1,76 +0,0 @@
-/*     $Id$     */
-
-#include "gras.h"
-
-XBT_LOG_NEW_DEFAULT_CATEGORY(test,"Simple Property example");
-
-int master(int argc, char *argv[]);
-int slave(int argc, char *argv[]);
-
-
-int slave(int argc, char *argv[]) {
-  gras_init(&argc,argv);
-
-  /* Get the properties */
-  xbt_dict_t props = gras_process_properties();
-  xbt_dict_cursor_t cursor = NULL;
-  char *key,*data;
-
-  /* Print the properties of the workstation 1 */
-  xbt_dict_foreach(props,cursor,key,data) {
-    INFO2("Process property: %s has value: %s",key,data);
-  }
-  /* Try to get a property that does not exist */
-  const char *noexist="Nonexisting";
-  const char *value = gras_process_property_value(noexist);
-  if ( value == NULL) 
-    INFO1("Process property: %s is undefined", noexist);
-  else
-    INFO2("Process property: %s has value: %s", noexist, value);
-   /* Modify an existing property. First check it exists */
-    INFO0("Trying to modify a process property");
-    const char *exist="otherprop";
-    value = gras_process_property_value(exist);
-    if (value == NULL) 
-      INFO1("\tProperty: %s is undefined", exist);
-    else {
-      INFO2("\tProperty: %s old value: %s", exist, value);
-      xbt_dict_set(props, exist, xbt_strdup("newValue"), free);  
-    }
-    /* Test if we have changed the value */
-    value = gras_process_property_value(exist);
-    if (value == NULL) 
-      INFO1("\tProperty: %s is undefined", exist);
-    else
-      INFO2("\tProperty: %s new value: %s", exist, value);
-
-  gras_os_sleep(1);
-  gras_exit();
-  return 0;
-}
-
-int master(int argc, char *argv[]) {
-  gras_init(&argc,argv);
-
-  /* Get the properties */
-  xbt_dict_t props = gras_os_host_properties();
-  xbt_dict_cursor_t cursor = NULL;
-  char *key,*data;
-
-  /* Print the properties of the workstation 1 */
-  xbt_dict_foreach(props,cursor,key,data) {
-    INFO2("Host property: %s has value: %s",key,data);
-  }
-  /* Try to get a property that does not exist */
-  const char *noexist="Nonexisting";
-  const char *value = gras_os_host_property_value(noexist);
-  xbt_assert2(value == NULL, "Host property: %s has value: %s", noexist, value);
-  
-  gras_os_sleep(1);
-  gras_exit();
-  return 0;
-}