Logo AND Algorithmique Numérique Distribuée

Public GIT Repository
revalidate the simulator output after last change
[simgrid.git] / src / xbt / log.c
index baed936..390208d 100644 (file)
 #include "xbt/misc.h"
 #include "xbt/ex.h"
 #include "xbt/sysdep.h"
-#include <xbt/log.h>
+#include "xbt/log.h"
 #include "xbt/dynar.h"
 
+XBT_PUBLIC_DATA(int) (*xbt_pid)();
+
 /** \addtogroup XBT_log
  *
  *  This section describes the API to the log functions used 
@@ -155,6 +157,9 @@ library itself, or test programs doing strange things) do not display the
 process identity (thus, fmt is '[%r] %l: [%c/%p] %m%n' in that case, and '[%r]
 [%c/%p] %m%n' if they are at priority INFO).
 
+For now, there is only one format modifyier: the precision field. You can for
+example specify %.4r to get the application age with 4 numbers after the radix.
+
 \subsection log_hist 1.5 History of this module
 
 Historically, this module is an adaptation of the log4c project, which is dead
@@ -253,10 +258,10 @@ First of all, each module should register its own category into the categories
 tree using \ref XBT_LOG_NEW_DEFAULT_SUBCATEGORY.
 
 Then, logging should be done with the DEBUG<n>, VERB<n>, INFO<n>, WARN<n>,
-ERROR<n> or CRITICAL<n> macro families (such as #DEBUG10, #VERB6,
-#INFO8, #WARN6, #ERROR6 and #CRITICAL6). For each group, there is at
-least 6 different macros (like DEBUG0, DEBUG1, DEBUG2, DEBUG3, DEBUG4 and
-DEBUG5), only differing in the number of arguments passed along the format.
+ERROR<n> or CRITICAL<n> macro families (such as #DEBUG10, #VERB10,
+#INFO10, #WARN10, #ERROR10 and #CRITICAL10). For each group, there is at
+least 11 different macros (like DEBUG0, DEBUG1, DEBUG2, DEBUG3, DEBUG4 and
+DEBUG5, DEBUG6, DEBUG7, DEBUG8, DEBUG9, DEBUG10), only differing in the number of arguments passed along the format.
 This is because we want SimGrid itself to keep compilable on ancient
 compiler not supporting variable number of arguments to macros. But we
 should provide a macro simpler to use for the users not interested in SP3
@@ -268,8 +273,8 @@ if you compile with -Wall, the folliwing code will issue a warning:
 
 If you want to specify the category to log onto (for example because you
 have more than one category per file, add a C before the name of the log
-producing macro (ie, use #CDEBUG10, #CVERB6, #CINFO8, #CWARN6, #CERROR6 and
-#CCRITICAL6 and friends), and pass the category name as first argument.
+producing macro (ie, use #CDEBUG10, #CVERB10, #CINFO10, #CWARN10, #CERROR10 and
+#CCRITICAL10 and friends), and pass the category name as first argument.
   
 The TRACE priority is not used the same way than the other. You should use
 the #XBT_IN, XBT_IN<n> (up to #XBT_IN5), #XBT_OUT and #XBT_HERE macros
@@ -387,7 +392,7 @@ This is on our TODO list for quite a while now, but your help would be
 welcome here, too.
 
 
-*/
+*//*'*/
 
 \f
 xbt_log_appender_t xbt_log_default_appender = NULL; /* set in log_init */
@@ -412,6 +417,8 @@ static void _free_setting(void *s) {
     free(set);
   }
 }
+static void _xbt_log_cat_apply_set(xbt_log_category_t category,
+                                  xbt_log_setting_t setting);
 
 const char *xbt_log_priority_names[8] = {
   "NONE",
@@ -463,7 +470,7 @@ void xbt_log_init(int *argc,char **argv) {
                        
                  if (strncmp(argv[i],"--log=",strlen("--log=")))
                      WARN2("Option %.*s is deprecated and will disapear in the future. Use --log instead.",
-                           strchr(argv[i],'=')-argv[i],argv[i]);
+                           (int)(strchr(argv[i],'=')-argv[i]),argv[i]);
 
                  opt=strchr(argv[i],'=');
                  opt++;
@@ -535,6 +542,63 @@ void _xbt_log_event_log( xbt_log_event_t ev, const char *fmt, ...) {
   va_end(ev->ap);
 }
 
+static void _xbt_log_cat_apply_set(xbt_log_category_t category,
+                                  xbt_log_setting_t setting) { 
+
+  s_xbt_log_event_t _log_ev;
+
+  if (setting->thresh != xbt_log_priority_uninitialized) {
+    xbt_log_threshold_set(category, setting->thresh);
+    
+    if (category->threshold <= xbt_log_priority_debug) {
+      _log_ev.cat = category;
+      _log_ev.priority = xbt_log_priority_debug;
+      _log_ev.fileName = __FILE__ ;
+      _log_ev.functionName = _XBT_FUNCTION ;
+      _log_ev.lineNum = __LINE__ ;
+      
+      _xbt_log_event_log(&_log_ev,
+         "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 (category->threshold <= xbt_log_priority_debug) {
+      _log_ev.cat = category;
+      _log_ev.priority = xbt_log_priority_debug;
+      _log_ev.fileName = __FILE__ ;
+      _log_ev.functionName = _XBT_FUNCTION ;
+      _log_ev.lineNum = __LINE__ ;
+      
+      _xbt_log_event_log(&_log_ev,
+             "Apply settings for category '%s': set format to %s",
+                        category->name,
+                        setting->fmt);
+    }
+  }
+
+  if (setting->additivity != -1) {
+    xbt_log_additivity_set(category,setting->additivity);
+    
+    if (category->threshold <= xbt_log_priority_debug) {
+      _log_ev.cat = category;
+      _log_ev.priority = xbt_log_priority_debug;
+      _log_ev.fileName = __FILE__ ;
+      _log_ev.functionName = _XBT_FUNCTION ;
+      _log_ev.lineNum = __LINE__ ;
+      
+      _xbt_log_event_log(&_log_ev,
+                   "Apply settings for category '%s': set additivity to %s",
+                        category->name,
+                        (setting->additivity?"on":"off"));
+    }
+  }
+}
 /*
  * This gets called the first time a category is referenced and performs the
  * initialization. 
@@ -574,57 +638,7 @@ int _xbt_log_cat_init(xbt_log_category_t category,
       
       found = 1;
       
-      if (setting->thresh != xbt_log_priority_uninitialized) {
-       xbt_log_threshold_set(category, setting->thresh);
-
-       if (category->threshold <= xbt_log_priority_debug) {
-         _log_ev.cat = category;
-         _log_ev.priority = xbt_log_priority_debug;
-         _log_ev.fileName = __FILE__ ;
-         _log_ev.functionName = _XBT_FUNCTION ;
-         _log_ev.lineNum = __LINE__ ;
-         
-         _xbt_log_event_log(&_log_ev,
-               "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 (category->threshold <= xbt_log_priority_debug) {
-         _log_ev.cat = category;
-         _log_ev.priority = xbt_log_priority_debug;
-         _log_ev.fileName = __FILE__ ;
-         _log_ev.functionName = _XBT_FUNCTION ;
-         _log_ev.lineNum = __LINE__ ;
-         
-         _xbt_log_event_log(&_log_ev,
-                   "Apply settings for category '%s': set format to %s",
-                            category->name,
-                            setting->fmt);
-       }
-      }
-
-      if (setting->additivity != -1) {
-       xbt_log_additivity_set(category,setting->additivity);
-
-       if (category->threshold <= xbt_log_priority_debug) {
-         _log_ev.cat = category;
-         _log_ev.priority = xbt_log_priority_debug;
-         _log_ev.fileName = __FILE__ ;
-         _log_ev.functionName = _XBT_FUNCTION ;
-         _log_ev.lineNum = __LINE__ ;
-         
-         _xbt_log_event_log(&_log_ev,
-                   "Apply settings for category '%s': set additivity to %s",
-                            category->name,
-                            (setting->additivity?"on":"off"));
-       }
-      }
+      _xbt_log_cat_apply_set(category,setting);
 
       xbt_dynar_cursor_rm(xbt_log_settings,&cursor);
     }
@@ -641,7 +655,7 @@ int _xbt_log_cat_init(xbt_log_category_t category,
     _xbt_log_event_log(&_log_ev,
                       "Category '%s': inherited threshold = %s (=%d)",
                       category->name,
-                      xbt_log_priority_names[category->threshold], category->threshold);
+           xbt_log_priority_names[category->threshold], category->threshold);
   }
     
   return priority >= category->threshold;
@@ -688,7 +702,6 @@ void xbt_log_parent_set(xbt_log_category_t cat,xbt_log_category_t parent)
 
 static void _set_inherited_thresholds(xbt_log_category_t cat) {
        
-       
   xbt_log_category_t child = cat->firstChild;
   
   for( ; child != NULL; child = child->nextSibling) {
@@ -850,14 +863,6 @@ void xbt_log_control_set(const char* control_string) {
 
   /* split the string, and remove empty entries */
   set_strings=xbt_str_split_quoted(control_string);
-#ifdef FIXME
-  xbt_dynar_foreach(set_strings,cpt,str) {
-    xbt_str_trim(str,NULL);
-    if (str[0]=='\0') {
-      xbt_dynar_cursor_rm(set_strings,&cpt);
-    }
-  }
-#endif
 
   if (xbt_dynar_length(set_strings) == 0) { /* vicious user! */
     xbt_dynar_free(&set_strings);
@@ -885,7 +890,7 @@ void xbt_log_control_set(const char* control_string) {
 
     if (found) {
       DEBUG0("Apply directly");
-      xbt_log_threshold_set(cat,set->thresh);
+      _xbt_log_cat_apply_set(cat,set);
       _free_setting((void*)&set);
     } else {
 
@@ -911,7 +916,9 @@ void xbt_log_layout_set(xbt_log_category_t cat, xbt_log_layout_t lay) {
          cat->name);
     xbt_log_appender_set(cat,xbt_log_appender_file_new(NULL));
   }
-  if (cat->layout) {
+  if (cat->layout && cat != &_XBT_LOGV(root)) {
+    /* better leak the default layout than check every categories to 
+       change it */
     if (cat->layout->free_) {
       cat->layout->free_(cat->layout);
       free(cat->layout);