X-Git-Url: http://bilbo.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/95d328f9ca4dd6ccd2065c6c84aca83d43001804..dff9e15c44ab6340d27215957c56fa72fad246a2:/examples/gras/properties/properties.c diff --git a/examples/gras/properties/properties.c b/examples/gras/properties/properties.c index 732d0cc4c0..2d70f3387e 100644 --- a/examples/gras/properties/properties.c +++ b/examples/gras/properties/properties.c @@ -2,77 +2,84 @@ #include "gras.h" -XBT_LOG_NEW_DEFAULT_CATEGORY(test,"Simple Property example"); +XBT_LOG_NEW_DEFAULT_CATEGORY(test, "Simple Property example"); int alice(int argc, char *argv[]); int bob(int argc, char *argv[]); -int alice(int argc, char *argv[]) { - gras_init(&argc,argv); +int alice(int argc, char *argv[]) +{ + gras_init(&argc, argv); /* Get the properties */ xbt_dict_t process_props = gras_process_properties(); xbt_dict_t host_props = gras_os_host_properties(); xbt_dict_cursor_t cursor = NULL; - char *key,*data; + char *key, *data; const char *value; /* Let the other process change the host props */ - gras_os_sleep(1); - + gras_os_sleep(1); + INFO0("== Dump all the properties of current host"); - xbt_dict_foreach(host_props,cursor,key,data) - INFO2(" Host property: '%s' has value: '%s'",key,data); + xbt_dict_foreach(host_props, cursor, key, data) + INFO2(" Host property: '%s' has value: '%s'", key, data); INFO0("== Dump all the properties of alice"); - xbt_dict_foreach(process_props,cursor,key,data) - if (!strncmp(key,"SG_TEST_",8)) - INFO2(" Process property: '%s' has value: '%s'",key,data); - + xbt_dict_foreach(process_props, cursor, key, data) + if (!strncmp(key, "SG_TEST_", 8)) + INFO2(" Process property: '%s' has value: '%s'", key, data); + INFO0("== Try to get a process property that does not exist"); value = gras_process_property_value("Nonexisting"); xbt_assert0(!value, "nonexisting property exists!!"); - + /* Modify an existing property. First check it exists */ INFO0("== Trying to modify a process property"); value = gras_process_property_value("new prop"); - xbt_assert0(!value,"Property 'new prop' exists before I add it!"); - xbt_dict_set(process_props, "new prop", xbt_strdup("new value"), xbt_free_f); - + xbt_assert0(!value, "Property 'new prop' exists before I add it!"); + xbt_dict_set(process_props, "new prop", xbt_strdup("new value"), + xbt_free_f); + /* Test if we have changed the value */ value = gras_process_property_value("new prop"); - xbt_assert1(!strcmp(value,"new value"), "New property does have the value I've set ('%s' != 'new value')",value); + xbt_assert1(!strcmp(value, "new value"), + "New property does have the value I've set ('%s' != 'new value')", + value); gras_exit(); return 0; } -int bob(int argc, char *argv[]) { - gras_init(&argc,argv); +int bob(int argc, char *argv[]) +{ + gras_init(&argc, argv); /* Get the properties */ xbt_dict_t host_props = gras_os_host_properties(); xbt_dict_cursor_t cursor = NULL; - char *key,*data; + char *key, *data; const char *value; INFO0("== Dump all the properties of host1"); - xbt_dict_foreach(host_props,cursor,key,data) - INFO2(" Host property: '%s' has value: '%s'",key,data); - + xbt_dict_foreach(host_props, cursor, key, data) + INFO2(" Host property: '%s' has value: '%s'", key, data); + INFO0("== Try to get a property that does not exist"); value = gras_os_host_property_value("non existing key"); - xbt_assert1(value == NULL, "The key 'non existing key' exists (with value '%s')!!",value); + xbt_assert1(value == NULL, + "The key 'non existing key' exists (with value '%s')!!", value); - INFO0("== Set a host property that alice will try to retrieve in SG (from bob->hello)"); - xbt_dict_set(host_props,"from bob",xbt_strdup("hello"), xbt_free_f); + INFO0 + ("== Set a host property that alice will try to retrieve in SG (from bob->hello)"); + xbt_dict_set(host_props, "from bob", xbt_strdup("hello"), xbt_free_f); INFO0("== Dump all the properties of host1 again to check the addition"); - xbt_dict_foreach(host_props,cursor,key,data) - INFO2(" Host property: '%s' has value: '%s'",key,data); - - gras_os_sleep(1); /* KILLME once bug on empty main is solved */ + xbt_dict_foreach(host_props, cursor, key, data) + INFO2(" Host property: '%s' has value: '%s'", key, data); + + gras_os_sleep(1); /* KILLME once bug on empty main is solved */ gras_exit(); return 0; }