util/log.c

   1 /*
   2  * Copyright (c) 1995-1997, Index Data
   3  * See the file LICENSE for details.
   4  * Sebastian Hammer, Adam Dickmeiss
   5  *
   6  * $Log: log.c,v $
   7  * Revision 1.14  1997-09-18 08:48:09  adam
   8  * Fixed minor bug that caused log_init to ignore filename.
   9  *
  10  * Revision 1.13  1997/09/01 08:54:13  adam
  11  * New windows NT/95 port using MSV5.0. Made prefix query handling
  12  * thread safe. The function options ignores empty arguments when met.
  13  *
  14  * Revision 1.12  1997/05/01 15:08:14  adam
  15  * Added log_mask_str_x routine.
  16  *
  17  * Revision 1.11  1996/02/05 12:24:32  adam
  18  * Implemented log_event_{start,end}-functions.
  19  *
  20  * Revision 1.10  1995/12/06  09:51:27  quinn
  21  * Fixed the log-prefix buffer - it was too small and the setup code lacked
  22  * a bounds-check.
  23  *
  24  * Revision 1.9  1995/09/29  17:12:34  quinn
  25  * Smallish
  26  *
  27  * Revision 1.8  1995/09/27  15:03:02  quinn
  28  * Modified function heads & prototypes.
  29  *
  30  * Revision 1.7  1995/06/19  12:40:18  quinn
  31  * Added log_file()
  32  *
  33  * Revision 1.6  1995/06/15  15:45:03  quinn
  34  * Added date info.
  35  *
  36  * Revision 1.5  1995/05/16  08:51:11  quinn
  37  * License, documentation, and memory fixes
  38  *
  39  * Revision 1.4  1995/05/15  11:56:55  quinn
  40  * Debuggng & adjustments.
  41  *
  42  * Revision 1.3  1995/04/10  10:23:51  quinn
  43  * Fixes.
  44  *
  45  * Revision 1.2  1995/03/31  10:16:55  quinn
  46  * Fixed logging.
  47  *
  48  * Revision 1.1  1995/03/30  10:26:53  quinn
  49  * Logging system
  50  *
  51  * Revision 1.9  1994/12/12  12:09:02  quinn
  52  * Changes
  53  *
  54  * Revision 1.8  1994/11/22  13:15:38  quinn
  55  * Simple
  56  *
  57  * Revision 1.7  1994/10/05  10:16:11  quinn
  58  * Added xrealloc. Fixed bug in log.
  59  *
  60  * Revision 1.6  1994/10/04  14:02:19  quinn
  61  * Fixed log_init
  62  *
  63  * Revision 1.5  1994/09/28  13:07:41  adam
  64  * Implemented log_mask_str.
  65  *
  66  * Revision 1.4  1994/09/27  20:04:13  quinn
  67  * Added fflush.
  68  *
  69  * Revision 1.3  1994/08/18  08:18:48  quinn
  70  * Added prefix to log_init.
  71  *
  72  * Revision 1.2  1994/08/17  14:27:53  quinn
  73  * added LOG_ERRNO
  74  *
  75  * Revision 1.1  1994/08/17  13:23:15  quinn
  76  * First version
  77  * Added log.c
  78  *
  79  */
  80
  81 #include <stdio.h>
  82 #include <stdlib.h>
  83 #include <ctype.h>
  84 #include <string.h>
  85 #include <stdarg.h>
  86 #include <errno.h>
  87 #include <time.h>
  88 #include <log.h>
  89
  90 static int l_level = LOG_DEFAULT_LEVEL;
  91 static FILE *l_file = NULL;
  92 static char l_prefix[512] = "log";
  93
  94 static struct {
  95     int mask;
  96     char *name;
  97 } mask_names[] =
  98 {
  99     { LOG_FATAL, "fatal"},
 100     { LOG_DEBUG, "debug"},
 101     { LOG_WARN,  "warn" },
 102     { LOG_LOG,   "log"  },
 103     { LOG_ERRNO, ""},
 104     { LOG_ALL,   "all"  },
 105     { 0,         "none" },
 106     { 0, NULL }
 107 };
 108
 109
 110 #ifndef strerror
 111 #ifndef WINDOWS
 112 char *strerror(int n)
 113 {
 114         extern char *sys_errlist[];
 115         return sys_errlist[n];
 116 }
 117
 118 #endif
 119 #endif
 120
 121 FILE *log_file(void)
 122 {
 123     return l_file;
 124 }
 125
 126 void log_init(int level, const char *prefix, const char *name)
 127 {
 128     l_level = level;
 129     if (prefix && *prefix)
 130         sprintf(l_prefix, "%.512s", prefix);
 131     if (!name || !*name)
 132         return;
 133     if (l_file != stderr && l_file != 0)
 134         return;
 135     if (!(l_file = fopen(name, "a")))
 136         return;
 137     setvbuf(l_file, 0, _IONBF, 0);
 138 }
 139
 140 static void (*start_hook_func)(int, const char *, void *) = NULL;
 141 void *start_hook_info;
 142 static void (*end_hook_func)(int, const char *, void *) = NULL;
 143 void *end_hook_info;
 144
 145 void log_event_start (void (*func)(int, const char *, void *), void *info)
 146 {
 147     start_hook_func = func;
 148     start_hook_info = info;
 149 }
 150
 151 void log_event_end (void (*func)(int, const char *, void *), void *info)
 152 {
 153     end_hook_func = func;
 154     end_hook_info = info;
 155 }
 156
 157 void logf(int level, const char *fmt, ...)
 158 {
 159     va_list ap;
 160     char buf[4096], flags[1024];
 161     int i;
 162     time_t ti;
 163     struct tm *tim;
 164     char tbuf[50];
 165     int o_level = level;
 166
 167     if (!(level & l_level))
 168         return;
 169     if (!l_file)
 170         l_file = stderr;
 171     *flags = '\0';
 172     for (i = 0; level && mask_names[i].name; i++)
 173         if (mask_names[i].mask & level)
 174         {
 175             if (*mask_names[i].name)
 176                 sprintf(flags + strlen(flags), "[%s]", mask_names[i].name);
 177             level -= mask_names[i].mask;
 178         }
 179     va_start(ap, fmt);
 180     vsprintf(buf, fmt, ap);
 181     if (o_level & LOG_ERRNO)
 182         sprintf(buf + strlen(buf), " [%s]", strerror(errno));
 183     if (start_hook_func)
 184         (*start_hook_func)(o_level, buf, start_hook_info);
 185     ti = time(0);
 186     tim = localtime(&ti);
 187     strftime(tbuf, 50, "%H:%M:%S-%d/%m", tim);
 188     fprintf(l_file, "%s: %s: %s %s\n", tbuf, l_prefix, flags, buf);
 189     fflush(l_file);
 190     if (end_hook_func)
 191         (*end_hook_func)(o_level, buf, end_hook_info);
 192 }
 193
 194 int log_mask_str (const char *str)
 195 {
 196     return log_mask_str_x (str, LOG_DEFAULT_LEVEL);
 197 }
 198
 199 int log_mask_str_x (const char *str, int level)
 200 {
 201     const char *p;
 202     int i;
 203
 204     while (*str)
 205     {
 206         for (p = str; *p && *p != ','; p++)
 207             ;
 208         if (*str == '-' || isdigit(*str))
 209             level = atoi (str);
 210         else
 211             for (i = 0; mask_names[i].name; i++)
 212                 if (strlen (mask_names[i].name) == (size_t) (p-str) &&
 213                     memcmp (mask_names[i].name, str, p-str) == 0)
 214                 {
 215                     if (mask_names[i].mask)
 216                         level |= mask_names[i].mask;
 217                     else
 218                         level = 0;
 219                 }
 220         if (*p == ',')
 221             p++;
 222         str = p;
 223     }
 224     return level;
 225 }