- if (not options || not strlen(options)) { /* nothing to do */
- return;
- }
- char *optionlist_cpy = xbt_strdup(options);
-
- XBT_DEBUG("List to parse and set:'%s'", options);
- char *option = optionlist_cpy;
- while (1) { /* breaks in the code */
- if (not option)
- break;
- char *name = option;
- int len = strlen(name);
- XBT_DEBUG("Still to parse and set: '%s'. len=%d; option-name=%ld", name, len, (long) (option - name));
-
- /* Pass the value */
- while (option - name <= (len - 1) && *option != ' ' && *option != '\n' && *option != '\t' && *option != ',') {
- XBT_DEBUG("Take %c.", *option);
- option++;
- }
- if (option - name == len) {
- XBT_DEBUG("Boundary=EOL");
- option = nullptr; /* don't do next iteration */
- } else {
- XBT_DEBUG("Boundary on '%c'. len=%d;option-name=%ld", *option, len, (long) (option - name));
- /* Pass the following blank chars */
- *(option++) = '\0';
- while (option - name < (len - 1) && (*option == ' ' || *option == '\n' || *option == '\t')) {
- option++;
- }
- if (option - name == len - 1)
- option = nullptr; /* don't do next iteration */
- }
- XBT_DEBUG("parse now:'%s'; parse later:'%s'", name, option);
-
- if (name[0] == ' ' || name[0] == '\n' || name[0] == '\t')
- continue;
- if (not strlen(name))
- break;
-
- char *val = strchr(name, ':');
- xbt_assert(val, "Option '%s' badly formatted. Should be of the form 'name:value'", name);
- /* don't free(optionlist_cpy) if the assert fails, 'name' points inside it */
- *(val++) = '\0';
-
- if (strncmp(name, "path", strlen("path")))
- XBT_INFO("Configuration change: Set '%s' to '%s'", name, val);
-
- try {
- (*simgrid_config)[name].setStringValue(val);
- }
- catch (simgrid::config::missing_key_error& e) {
- goto on_missing_key;
- }
- catch (...) {
- goto on_exception;
- }
- }
-
- free(optionlist_cpy);
- return;
-
- /* Do not THROWF from a C++ exception catching context, or some cleanups will be missing */
-on_missing_key:
- free(optionlist_cpy);
- THROWF(not_found_error, 0, "Could not set variables %s", options);
- return;
-on_exception:
- free(optionlist_cpy);
- THROWF(unknown_error, 0, "Could not set variables %s", options);