+
+ /* initialize the host & process properties */
+ _host_properties = xbt_dict_new();
+ _process_properties = xbt_dict_new();
+ env_iter = environ;
+ while (*env_iter) {
+ char *equal, *buf = xbt_strdup(*env_iter);
+ equal = strchr(buf, '=');
+ if (!equal) {
+ WARN1
+ ("The environment contains an entry without '=' char: %s (ignore it)",
+ *env_iter);
+ continue;
+ }
+ *equal = '\0';
+ xbt_dict_set(_process_properties, buf, xbt_strdup(equal + 1), xbt_free_f);
+ free(buf);
+ env_iter++;
+ }