-
-static void xbt_log_layout_format_dynamic(xbt_log_layout_t l,
- xbt_log_event_t ev,
- const char*fmt,
- xbt_log_appender_t app) {
- xbt_strbuff_t buff = xbt_strbuff_new();
- int precision=-1;
- char *q = l->data;
- char *tmp;
- char *tmp2;
- int vres; /* shut gcc up, but ignored */
-
- while (*q != '\0') {
- if (*q == '%') {
- q++;
- handle_modifier:
- switch (*q) {
- case '\0':
- fprintf(stderr,"Layout format (%s) ending with %%\n",(char*)l->data);
- abort();
- case '%':
- xbt_strbuff_append(buff,"%");
- break;
- case 'n': /* platform-dependant line separator (LOG4J compliant) */
- xbt_strbuff_append(buff,"\n");
- break;
- case 'e': /* plain space (SimGrid extension) */
- xbt_strbuff_append(buff," ");
- break;
-
- case '.': /* precision specifyier */
- q++;
- q += sscanf(q,"%d",&precision);
- goto handle_modifier;
-
- case 'c': /* category name; LOG4J compliant
- should accept a precision postfix to show the hierarchy */
- append1("%s","%.*s",ev->cat->name);
- break;
- case 'p': /* priority name; LOG4J compliant */
- append1("%s","%.*s",xbt_log_priority_names[ev->priority]);
- break;
-
- case 'h': /* host name; SimGrid extension */
- append1("%s","%.*s",gras_os_myname());
- break;
- case 't': /* thread name; LOG4J compliant */
- append1("%s","%.*s",xbt_thread_self_name());
- break;
- case 'P': /* process name; SimGrid extension */
- append1("%s","%.*s",xbt_procname());
- break;
- case 'i': /* process PID name; SimGrid extension */
- append1("%d","%.*d",(*xbt_getpid)());
- break;
-
- case 'F': /* file name; LOG4J compliant */
- append1("%s","%.*s",ev->fileName);
- break;
- case 'l': /* location; LOG4J compliant */
- append2("%s:%d",ev->fileName,ev->lineNum);
- precision = -1; /* Ignored */
- break;
- case 'L': /* line number; LOG4J compliant */
- append1("%d","%.*d",ev->lineNum);
- break;
- case 'M': /* method (ie, function) name; LOG4J compliant */
- append1("%s","%.*s",ev->functionName);
- break;
- case 'b': /* backtrace; called %throwable in LOG4J */
- case 'B': /* short backtrace; called %throwable{short} in LOG4J */
-#if defined(HAVE_EXECINFO_H) && defined(HAVE_POPEN) && defined(ADDR2LINE)
- {
- xbt_ex_t e;
- int i;
-
- e.used = backtrace((void**)e.bt,XBT_BACKTRACE_SIZE);
- e.bt_strings = NULL;
- e.msg=NULL;
- e.remote=0;
- xbt_backtrace_current(&e);
- if (*q=='B') {
- append1("%s","%.*s",e.bt_strings[2]+8);
- } else {
- for (i=2; i<e.used; i++)
- append1("%s\n","%.*s\n",e.bt_strings[i]+8);
- }
-
- xbt_ex_free(e);
- }
-#else
- append1("%s","%.*s","(no backtrace on this arch)");
-#endif
- break;
-
- case 'd': /* date; LOG4J compliant */
- append1("%f","%.*f", gras_os_time());
- break;
- case 'r': /* application age; LOG4J compliant */
- append1("%f","%.*f", gras_os_time()-begin_of_time);
- break;
-
- case 'm': /* user-provided message; LOG4J compliant */
- vres = vasprintf(&tmp2, fmt, ev->ap_copy);
- append1("%s","%.*s",tmp2);
- free(tmp2);
- break;
-
- default:
- fprintf(stderr,ERRMSG, *q,(char*)l->data);
- abort();
- }
- q++;
- } else {
- char tmp2[2];
- tmp2[0] = *(q++);
- tmp2[1] = '\0';
- xbt_strbuff_append(buff,tmp2);
- }
- }
- app->do_append(app,buff->data);
- xbt_strbuff_free(buff);
-}
-
-#define check_overflow \
- if (p-ev->buffer > XBT_LOG_BUFF_SIZE) { /* buffer overflow */ \
- xbt_log_layout_format_dynamic(l,ev,msg_fmt,app); \
- return;\
- }
-static void xbt_log_layout_format_doit(xbt_log_layout_t l,
- xbt_log_event_t ev,
- const char *msg_fmt,
- xbt_log_appender_t app) {
- char *p,*q;
- int precision=-1;
-
- if (begin_of_time<0)
- begin_of_time=gras_os_time();
-
- p = ev->buffer;
- q = l->data;
-
- while (*q != '\0') {
+#define check_overflow(len) \
+ if ((rem_size -= (len)) > 0) { \
+ p += (len); \
+ } else \
+ return 0
+
+#define set_sz_from_precision() \
+ if (1) { \
+ sz = rem_size; \
+ if (precision != -1) { \
+ if (precision < sz) \
+ sz = precision + 1; /* +1 for the final '\0' */ \
+ precision = -1; \
+ } \
+ } else (void)0
+
+#define show_it(data, letter) \
+ if (1) { \
+ int len; \
+ int wd; \
+ if (length == -1) { \
+ wd = 0; \
+ } else { \
+ wd = length; \
+ length = -1; \
+ } \
+ if (precision == -1) { \
+ len = snprintf(p, rem_size, "%*" letter, wd, data); \
+ } else { \
+ len = snprintf(p, rem_size, "%*.*" letter, wd, precision, data); \
+ precision = -1; \
+ } \
+ check_overflow(len); \
+ } else (void)0
+
+#define show_string(data) \
+ if (1) { \
+ const char *show_string_data = (data); \
+ show_it(show_string_data ? show_string_data : "(null)", "s"); \
+ } else (void)0
+#define show_int(data) show_it(data, "d")
+#define show_double(data) show_it(data, "f")
+
+static int xbt_log_layout_format_doit(xbt_log_layout_t l, xbt_log_event_t ev, const char *msg_fmt)
+{
+ char *p = ev->buffer;
+ int rem_size = ev->buffer_size;
+ int precision = -1;
+ int length = -1;
+
+ for (char* q = l->data ; *q != '\0' ; q++) {