Logo AND Algorithmique Numérique Distribuée

Public GIT Repository
codacy
[simgrid.git] / examples / simdag / properties / sd_properties.c
1 /* Copyright (c) 2007-2016. The SimGrid Team.
2  * All rights reserved.                                                     */
3
4 /* This program is free software; you can redistribute it and/or modify it
5  * under the terms of the license (GNU LGPL) which comes with this package. */
6
7 #include "simgrid/simdag.h"
8
9 XBT_LOG_NEW_DEFAULT_CATEGORY(test, "Property test");
10
11 int main(int argc, char **argv)
12 {
13   xbt_dict_cursor_t cursor = NULL;
14   char *key;
15   char *data;
16   char noexist[] = "NoProp";
17   const char *value;
18   char exist[] = "Hdd";
19
20   /* SD initialization */
21   SD_init(&argc, argv);
22   xbt_assert(argc > 1, "Usage: %s platform_file\n\tExample: %s ../../platforms/prop.xml", argv[0], argv[0]);
23
24   SD_create_environment(argv[1]);
25
26   /* init of platform elements */
27   sg_host_t h1 = sg_host_by_name("host1");
28   sg_host_t h2 = sg_host_by_name("host2");
29   const char *name1 = sg_host_get_name(h1);
30   const char *name2 = sg_host_get_name(h2);
31
32   /* Trying to set a new property */
33   sg_host_set_property_value(h1, "NewProp", "newValue");
34
35   /* Get the property list of 'host1'. This is only a copy of the internal data structure.*/
36   XBT_INFO("Property list for host %s", name1);
37   xbt_dict_t props = sg_host_get_properties(h1);
38
39
40   /* Print the properties of 'host1' */
41   xbt_dict_foreach(props, cursor, key, data) {
42     XBT_INFO("\tProperty: %s has value: %s", key, data);
43   }
44
45   /* Try to get a property that does not exist */
46   value = sg_host_get_property_value(h1, noexist);
47   XBT_INFO("\tProperty: %s has value: %s", noexist, value?value:"Undefined (NULL)");
48
49   /* Get the property list of 'host2' */
50   XBT_INFO("Property list for host %s", name2);
51   props = sg_host_get_properties(h2);
52
53   /* Print the properties of 'host2' */
54   xbt_dict_foreach(props, cursor, key, data) {
55     XBT_INFO("\tProperty: %s on host: %s", key, data);
56   }
57
58   /* Modify an existing property test. First check it exists */
59   XBT_INFO("Modify an existing property");
60
61   value = sg_host_get_property_value(h2, exist);
62   if (value == NULL)
63     XBT_INFO("\tProperty: %s is undefined", exist);
64   else {
65     XBT_INFO("\tProperty: %s old value: %s", exist, value);
66     sg_host_set_property_value(h2, exist, "250");
67   }
68
69   /* Test if we have changed the value */
70   value = sg_host_get_property_value(h2, exist);
71   XBT_INFO("\tProperty: %s new value: %s", exist, value?value:"Undefined (NULL)");
72
73   /* Test if properties are displayed by sg_host_dump */
74   sg_host_dump(h2);
75
76   return 0;
77 }