X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/c5bf8d0723c36491a1bf37a9f27858b43c4c6e2c..c172edc8c33824346518b6ee92b732324d05ffc0:/src/xbt/log.cpp diff --git a/src/xbt/log.cpp b/src/xbt/log.cpp index 9f7316c0e9..e17b30acae 100644 --- a/src/xbt/log.cpp +++ b/src/xbt/log.cpp @@ -5,24 +5,16 @@ /* This program is free software; you can redistribute it and/or modify it * under the terms of the license (GNU LGPL) which comes with this package. */ -#include -#include -#include -#include /* snprintf */ -#include -#include - -#include "src/internal_config.h" - #include "src/xbt_modinter.h" - #include "src/xbt/log_private.hpp" #include "xbt/asserts.h" #include "xbt/dynar.h" -#include "xbt/ex.h" -#include "xbt/misc.h" #include "xbt/str.h" -#include "xbt/sysdep.h" + +#include +#include +#include +#include int xbt_log_no_loc = 0; /* if set to true (with --log=no_loc), file localization will be omitted (for tesh tests) */ static std::recursive_mutex* log_cat_init_mutex = nullptr; @@ -35,29 +27,15 @@ static std::recursive_mutex* log_cat_init_mutex = nullptr; xbt_log_appender_t xbt_log_default_appender = nullptr; /* set in log_init */ xbt_log_layout_t xbt_log_default_layout = nullptr; /* set in log_init */ -typedef struct { - char *catname; - char *fmt; - e_xbt_log_priority_t thresh; - int additivity; - xbt_log_appender_t appender; -} s_xbt_log_setting_t; - -typedef s_xbt_log_setting_t* xbt_log_setting_t; - -static xbt_dynar_t xbt_log_settings = nullptr; - -static void _free_setting(void *s) -{ - xbt_log_setting_t set = *(xbt_log_setting_t *) s; - if (set) { - xbt_free(set->catname); - xbt_free(set->fmt); - xbt_free(set); - } -} +struct xbt_log_setting_t { + std::string catname; + std::string fmt; + e_xbt_log_priority_t thresh = xbt_log_priority_uninitialized; + int additivity = -1; + xbt_log_appender_t appender = nullptr; +}; -static void _xbt_log_cat_apply_set(xbt_log_category_t category, xbt_log_setting_t setting); +static std::vector xbt_log_settings; const char *xbt_log_priority_names[8] = { "NONE", @@ -112,17 +90,17 @@ void xbt_log_init(int *argc, char **argv) /* Set logs and init log submodule */ for (int i = 1; i < *argc; i++) { - if (!strcmp("--", argv[i])) { + if (strcmp("--", argv[i]) == 0) { parse_args = 0; argv[j++] = argv[i]; // Keep the '--' for sg_config - } else if (parse_args && !strncmp(argv[i], "--log=", strlen("--log="))) { + } else if (parse_args && strncmp(argv[i], "--log=", strlen("--log=")) == 0) { char* opt = strchr(argv[i], '='); opt++; xbt_log_control_set(opt); XBT_DEBUG("Did apply '%s' as log setting", opt); - } else if (parse_args && !strcmp(argv[i], "--help-logs")) { + } else if (parse_args && strcmp(argv[i], "--help-logs") == 0) { help_requested |= 1U; - } else if (parse_args && !strcmp(argv[i], "--help-log-categories")) { + } else if (parse_args && strcmp(argv[i], "--help-log-categories") == 0) { help_requested |= 2U; } else { argv[j++] = argv[i]; @@ -165,7 +143,6 @@ void xbt_log_postexit(void) { XBT_VERB("Exiting log"); delete log_cat_init_mutex; - xbt_dynar_free(&xbt_log_settings); log_cat_exit(&_XBT_LOGV(XBT_LOG_ROOT_CAT)); } @@ -240,34 +217,34 @@ static int fake_xbt_log_cat_init(xbt_log_category_t, e_xbt_log_priority_t) #define DISABLE_XBT_LOG_CAT_INIT() \ int (*_xbt_log_cat_init)(xbt_log_category_t, e_xbt_log_priority_t) XBT_ATTRIB_UNUSED = fake_xbt_log_cat_init; -static void _xbt_log_cat_apply_set(xbt_log_category_t category, xbt_log_setting_t setting) +static void _xbt_log_cat_apply_set(xbt_log_category_t category, const xbt_log_setting_t& setting) { DISABLE_XBT_LOG_CAT_INIT(); - if (setting->thresh != xbt_log_priority_uninitialized) { - xbt_log_threshold_set(category, setting->thresh); + if (setting.thresh != xbt_log_priority_uninitialized) { + xbt_log_threshold_set(category, setting.thresh); XBT_DEBUG("Apply settings for category '%s': set threshold to %s (=%d)", category->name, xbt_log_priority_names[category->threshold], category->threshold); } - if (setting->fmt) { - xbt_log_layout_set(category, xbt_log_layout_format_new(setting->fmt)); + if (not setting.fmt.empty()) { + xbt_log_layout_set(category, xbt_log_layout_format_new(setting.fmt.c_str())); - XBT_DEBUG("Apply settings for category '%s': set format to %s", category->name, setting->fmt); + XBT_DEBUG("Apply settings for category '%s': set format to %s", category->name, setting.fmt.c_str()); } - if (setting->additivity != -1) { - xbt_log_additivity_set(category, setting->additivity); + if (setting.additivity != -1) { + xbt_log_additivity_set(category, setting.additivity); - XBT_DEBUG("Apply settings for category '%s': set additivity to %s", - category->name, (setting->additivity ? "on" : "off")); + XBT_DEBUG("Apply settings for category '%s': set additivity to %s", category->name, + (setting.additivity ? "on" : "off")); } - if (setting->appender) { - xbt_log_appender_set(category, setting->appender); + if (setting.appender) { + xbt_log_appender_set(category, setting.appender); if (!category->layout) xbt_log_layout_set(category, xbt_log_layout_simple_new(nullptr)); category->additivity = 0; - XBT_DEBUG("Set %p as appender of category '%s'", setting->appender, category->name); + XBT_DEBUG("Set %p as appender of category '%s'", setting.appender, category->name); } } @@ -278,17 +255,11 @@ static void _xbt_log_cat_apply_set(xbt_log_category_t category, xbt_log_setting_ int _xbt_log_cat_init(xbt_log_category_t category, e_xbt_log_priority_t priority) { DISABLE_XBT_LOG_CAT_INIT(); - if (log_cat_init_mutex != nullptr) - log_cat_init_mutex->lock(); - - if (category->initialized) { - if (log_cat_init_mutex != nullptr) - log_cat_init_mutex->unlock(); + if (category->initialized) return priority >= category->threshold; - } - unsigned int cursor; - xbt_log_setting_t setting = nullptr; + if (log_cat_init_mutex != nullptr) + log_cat_init_mutex->lock(); XBT_DEBUG("Initializing category '%s' (firstChild=%s, nextSibling=%s)", category->name, (category->firstChild ? category->firstChild->name : "none"), @@ -308,47 +279,27 @@ int _xbt_log_cat_init(xbt_log_category_t category, e_xbt_log_priority_t priority xbt_log_parent_set(category, category->parent); if (XBT_LOG_ISENABLED(log, xbt_log_priority_debug)) { - char *buf; - char* res = nullptr; + std::string res; xbt_log_category_t cpp = category->parent->firstChild; while (cpp) { - if (res) { - buf = bprintf("%s %s", res, cpp->name); - xbt_free(res); - res = buf; - } else { - res = xbt_strdup(cpp->name); - } + res += std::string(" ") + cpp->name; cpp = cpp->nextSibling; } - XBT_DEBUG("Children of %s: %s; nextSibling: %s", category->parent->name, res, - (category->parent->nextSibling ? category->parent->nextSibling->name : "none")); - - xbt_free(res); + XBT_DEBUG("Children of %s:%s; nextSibling: %s", category->parent->name, res.c_str(), + (category->parent->nextSibling ? category->parent->nextSibling->name : "none")); } } /* Apply the control */ - if (xbt_log_settings) { - xbt_assert(category, "NULL category"); - xbt_assert(category->name); - int found = 0; - - xbt_dynar_foreach(xbt_log_settings, cursor, setting) { - xbt_assert(setting, "Damnit, NULL cat in the list"); - xbt_assert(setting->catname, "NULL setting(=%p)->catname", (void *) setting); - - if (!strcmp(setting->catname, category->name)) { - found = 1; - _xbt_log_cat_apply_set(category, setting); - xbt_dynar_cursor_rm(xbt_log_settings, &cursor); - } - } - - if (!found) - XBT_DEBUG("Category '%s': inherited threshold = %s (=%d)", - category->name, xbt_log_priority_names[category->threshold], category->threshold); + auto iset = std::find_if(begin(xbt_log_settings), end(xbt_log_settings), + [category](const xbt_log_setting_t& s) { return s.catname == category->name; }); + if (iset != xbt_log_settings.end()) { + _xbt_log_cat_apply_set(category, *iset); + xbt_log_settings.erase(iset); + } else { + XBT_DEBUG("Category '%s': inherited threshold = %s (=%d)", category->name, + xbt_log_priority_names[category->threshold], category->threshold); } category->initialized = 1; @@ -413,107 +364,77 @@ void xbt_log_threshold_set(xbt_log_category_t cat, e_xbt_log_priority_t threshol static xbt_log_setting_t _xbt_log_parse_setting(const char *control_string) { const char *orig_control_string = control_string; - xbt_log_setting_t set = xbt_new(s_xbt_log_setting_t, 1); - - set->catname = nullptr; - set->thresh = xbt_log_priority_uninitialized; - set->fmt = nullptr; - set->additivity = -1; - set->appender = nullptr; + xbt_log_setting_t set; if (!*control_string) return set; XBT_DEBUG("Parse log setting '%s'", control_string); control_string += strspn(control_string, " "); - const char *name = control_string; + const char* name = control_string; control_string += strcspn(control_string, ".:= "); - const char *dot = control_string; + const char* option = control_string; control_string += strcspn(control_string, ":= "); - const char *eq = control_string; + const char* value = control_string; - xbt_assert(*dot == '.' || (*eq != '=' && *eq != ':'), "Invalid control string '%s'", orig_control_string); + xbt_assert(*option == '.' && (*value == '=' || *value == ':'), "Invalid control string '%s'", orig_control_string); - if (!strncmp(dot + 1, "threshold", (size_t) (eq - dot - 1))) { - int i; - char *neweq = xbt_strdup(eq + 1); - char *p = neweq - 1; + size_t name_len = option - name; + ++option; + size_t option_len = value - option; + ++value; - while (*(++p) != '\0') { - if (*p >= 'a' && *p <= 'z') { - *p -= 'a' - 'A'; - } - } - - XBT_DEBUG("New priority name = %s", neweq); + if (strncmp(option, "threshold", option_len) == 0) { + XBT_DEBUG("New priority name = %s", value); + int i; for (i = 0; i < xbt_log_priority_infinite; i++) { - if (!strncmp(xbt_log_priority_names[i], neweq, p - eq)) { + if (strcasecmp(value, xbt_log_priority_names[i]) == 0) { XBT_DEBUG("This is priority %d", i); break; } } if(ithresh = (e_xbt_log_priority_t) i; + set.thresh = (e_xbt_log_priority_t)i; } else { THROWF(arg_error, 0, - "Unknown priority name: %s (must be one of: trace,debug,verbose,info,warning,error,critical)", eq + 1); + "Unknown priority name: %s (must be one of: trace,debug,verbose,info,warning,error,critical)", value); } - xbt_free(neweq); - } else if (!strncmp(dot + 1, "add", (size_t) (eq - dot - 1)) || - !strncmp(dot + 1, "additivity", (size_t) (eq - dot - 1))) { - char *neweq = xbt_strdup(eq + 1); - char *p = neweq - 1; - - while (*(++p) != '\0') { - if (*p >= 'a' && *p <= 'z') { - *p -= 'a' - 'A'; - } - } - if (!strcmp(neweq, "ON") || !strcmp(neweq, "YES") || !strcmp(neweq, "1")) { - set->additivity = 1; + } else if (strncmp(option, "additivity", option_len) == 0) { + if (strcasecmp(value, "ON") == 0 || strcasecmp(value, "YES") == 0 || strcmp(value, "1") == 0) { + set.additivity = 1; } else { - set->additivity = 0; + set.additivity = 0; } - xbt_free(neweq); - } else if (!strncmp(dot + 1, "app", (size_t) (eq - dot - 1)) || - !strncmp(dot + 1, "appender", (size_t) (eq - dot - 1))) { - char *neweq = xbt_strdup(eq + 1); - - if (!strncmp(neweq, "file:", 5)) { - set->appender = xbt_log_appender_file_new(neweq + 5); - }else if (!strncmp(neweq, "rollfile:", 9)) { - set->appender = xbt_log_appender2_file_new(neweq + 9,1); - }else if (!strncmp(neweq, "splitfile:", 10)) { - set->appender = xbt_log_appender2_file_new(neweq + 10,0); + } else if (strncmp(option, "appender", option_len) == 0) { + if (strncmp(value, "file:", 5) == 0) { + set.appender = xbt_log_appender_file_new(value + 5); + } else if (strncmp(value, "rollfile:", 9) == 0) { + set.appender = xbt_log_appender2_file_new(value + 9, 1); + } else if (strncmp(value, "splitfile:", 10) == 0) { + set.appender = xbt_log_appender2_file_new(value + 10, 0); } else { - THROWF(arg_error, 0, "Unknown appender log type: '%s'", neweq); + THROWF(arg_error, 0, "Unknown appender log type: '%s'", value); } - xbt_free(neweq); - } else if (!strncmp(dot + 1, "fmt", (size_t) (eq - dot - 1))) { - set->fmt = xbt_strdup(eq + 1); + } else if (strncmp(option, "fmt", option_len) == 0) { + set.fmt = std::string(value); } else { - char buff[512]; - snprintf(buff, std::min(512, eq - dot), "%s", dot + 1); - xbt_die("Unknown setting of the log category: '%s'", buff); + xbt_die("Unknown setting of the log category: '%.*s'", static_cast(option_len), option); } - set->catname = (char *) xbt_malloc(dot - name + 1); + set.catname = std::string(name, name_len); - memcpy(set->catname, name, dot - name); - set->catname[dot - name] = '\0'; /* Just in case */ - XBT_DEBUG("This is for cat '%s'", set->catname); + XBT_DEBUG("This is for cat '%s'", set.catname.c_str()); return set; } -static xbt_log_category_t _xbt_log_cat_searchsub(xbt_log_category_t cat, char *name) +static xbt_log_category_t _xbt_log_cat_searchsub(xbt_log_category_t cat, const char* name) { xbt_log_category_t child; xbt_log_category_t res; @@ -521,7 +442,7 @@ static xbt_log_category_t _xbt_log_cat_searchsub(xbt_log_category_t cat, char *n XBT_DEBUG("Search '%s' into '%s' (firstChild='%s'; nextSibling='%s')", name, cat->name, (cat->firstChild ? cat->firstChild->name : "none"), (cat->nextSibling ? cat->nextSibling->name : "none")); - if (!strcmp(cat->name, name)) + if (strcmp(cat->name, name) == 0) return cat; for (child = cat->firstChild; child != nullptr; child = child->nextSibling) { @@ -555,8 +476,6 @@ static xbt_log_category_t _xbt_log_cat_searchsub(xbt_log_category_t cat, char *n */ void xbt_log_control_set(const char *control_string) { - xbt_log_setting_t set; - /* To split the string in commands, and the cursors */ xbt_dynar_t set_strings; char *str; @@ -567,14 +486,10 @@ void xbt_log_control_set(const char *control_string) XBT_DEBUG("Parse log settings '%s'", control_string); /* Special handling of no_loc request, which asks for any file localization to be omitted (for tesh runs) */ - if (!strcmp(control_string, "no_loc")) { + if (strcmp(control_string, "no_loc") == 0) { xbt_log_no_loc = 1; return; } - /* some initialization if this is the first time that this get called */ - if (xbt_log_settings == nullptr) - xbt_log_settings = xbt_dynar_new(sizeof(xbt_log_setting_t), _free_setting); - /* split the string, and remove empty entries */ set_strings = xbt_str_split_quoted(control_string); @@ -585,17 +500,16 @@ void xbt_log_control_set(const char *control_string) /* Parse each entry and either use it right now (if the category was already created), or store it for further use */ xbt_dynar_foreach(set_strings, cpt, str) { - set = _xbt_log_parse_setting(str); - xbt_log_category_t cat = _xbt_log_cat_searchsub(&_XBT_LOGV(XBT_LOG_ROOT_CAT), set->catname); + xbt_log_setting_t set = _xbt_log_parse_setting(str); + xbt_log_category_t cat = _xbt_log_cat_searchsub(&_XBT_LOGV(XBT_LOG_ROOT_CAT), set.catname.c_str()); if (cat) { XBT_DEBUG("Apply directly"); _xbt_log_cat_apply_set(cat, set); - _free_setting((void *) &set); } else { XBT_DEBUG("Store for further application"); - XBT_DEBUG("push %p to the settings", (void *) set); - xbt_dynar_push(xbt_log_settings, &set); + XBT_DEBUG("push %p to the settings", &set); + xbt_log_settings.emplace_back(std::move(set)); } } xbt_dynar_free(&set_strings); @@ -688,47 +602,31 @@ static void xbt_log_help(void) "\n"); } -static int xbt_log_cat_cmp(const void *pa, const void *pb) +static void xbt_log_help_categories_rec(xbt_log_category_t category, const std::string& prefix) { - xbt_log_category_t a = *(xbt_log_category_t *)pa; - xbt_log_category_t b = *(xbt_log_category_t *)pb; - return strcmp(a->name, b->name); -} - -static void xbt_log_help_categories_rec(xbt_log_category_t category, const char *prefix) -{ - char *this_prefix; - char *child_prefix; - unsigned i; - xbt_log_category_t cat; - if (!category) return; + std::string this_prefix(prefix); + std::string child_prefix(prefix); if (category->parent) { - this_prefix = bprintf("%s \\_ ", prefix); - child_prefix = bprintf("%s | ", prefix); - } else { - this_prefix = xbt_strdup(prefix); - child_prefix = xbt_strdup(prefix); + this_prefix += " \\_ "; + child_prefix += " | "; } - xbt_dynar_t dynar = xbt_dynar_new(sizeof(xbt_log_category_t), nullptr); - for (cat = category; cat != nullptr; cat = cat->nextSibling) - xbt_dynar_push_as(dynar, xbt_log_category_t, cat); + std::vector cats; + for (xbt_log_category_t cat = category; cat != nullptr; cat = cat->nextSibling) + cats.push_back(cat); - xbt_dynar_sort(dynar, xbt_log_cat_cmp); + std::sort(begin(cats), end(cats), + [](xbt_log_category_t a, xbt_log_category_t b) { return strcmp(a->name, b->name) < 0; }); - xbt_dynar_foreach(dynar, i, cat){ - if (i == xbt_dynar_length(dynar) - 1 && category->parent) - *strrchr(child_prefix, '|') = ' '; - printf("%s%s: %s\n", this_prefix, cat->name, cat->description); + for (auto const& cat : cats) { + printf("%s%s: %s\n", this_prefix.c_str(), cat->name, cat->description); + if (cat == cats.back() && category->parent) + child_prefix[child_prefix.rfind('|')] = ' '; xbt_log_help_categories_rec(cat->firstChild, child_prefix); } - - xbt_dynar_free(&dynar); - xbt_free(this_prefix); - xbt_free(child_prefix); } static void xbt_log_help_categories(void)