util/log.c

   1 /*
   2  * Copyright (c) 1995, Index Data
   3  * See the file LICENSE for details.
   4  * Sebastian Hammer, Adam Dickmeiss
   5  *
   6  * $Log: log.c,v $
   7  * Revision 1.9  1995-09-29 17:12:34  quinn
   8  * Smallish
   9  *
  10  * Revision 1.8  1995/09/27  15:03:02  quinn
  11  * Modified function heads & prototypes.
  12  *
  13  * Revision 1.7  1995/06/19  12:40:18  quinn
  14  * Added log_file()
  15  *
  16  * Revision 1.6  1995/06/15  15:45:03  quinn
  17  * Added date info.
  18  *
  19  * Revision 1.5  1995/05/16  08:51:11  quinn
  20  * License, documentation, and memory fixes
  21  *
  22  * Revision 1.4  1995/05/15  11:56:55  quinn
  23  * Debuggng & adjustments.
  24  *
  25  * Revision 1.3  1995/04/10  10:23:51  quinn
  26  * Fixes.
  27  *
  28  * Revision 1.2  1995/03/31  10:16:55  quinn
  29  * Fixed logging.
  30  *
  31  * Revision 1.1  1995/03/30  10:26:53  quinn
  32  * Logging system
  33  *
  34  * Revision 1.9  1994/12/12  12:09:02  quinn
  35  * Changes
  36  *
  37  * Revision 1.8  1994/11/22  13:15:38  quinn
  38  * Simple
  39  *
  40  * Revision 1.7  1994/10/05  10:16:11  quinn
  41  * Added xrealloc. Fixed bug in log.
  42  *
  43  * Revision 1.6  1994/10/04  14:02:19  quinn
  44  * Fixed log_init
  45  *
  46  * Revision 1.5  1994/09/28  13:07:41  adam
  47  * Implemented log_mask_str.
  48  *
  49  * Revision 1.4  1994/09/27  20:04:13  quinn
  50  * Added fflush.
  51  *
  52  * Revision 1.3  1994/08/18  08:18:48  quinn
  53  * Added prefix to log_init.
  54  *
  55  * Revision 1.2  1994/08/17  14:27:53  quinn
  56  * added LOG_ERRNO
  57  *
  58  * Revision 1.1  1994/08/17  13:23:15  quinn
  59  * First version
  60  * Added log.c
  61  *
  62  */
  63
  64 #include <stdio.h>
  65 #include <stdlib.h>
  66 #include <ctype.h>
  67 #include <stdarg.h>
  68 #include <errno.h>
  69 #include <time.h>
  70 #include <log.h>
  71
  72 static int l_level = LOG_DEFAULT_LEVEL;
  73 static FILE *l_file = stderr;
  74 static char l_prefix[30] = "log";
  75
  76 static struct {
  77     int mask;
  78     char *name;
  79 } mask_names[] =
  80 {
  81     { LOG_FATAL, "fatal"},
  82     { LOG_DEBUG, "debug"},
  83     { LOG_WARN,  "warn" },
  84     { LOG_LOG,   "log"  },
  85     { LOG_ERRNO, ""},
  86     { LOG_ALL,   "all"  },
  87     { 0,         "none" },
  88     { 0, NULL }
  89 };
  90
  91 #ifndef strerror
  92
  93 char *strerror(int n)
  94 {
  95         extern char *sys_errlist[];
  96         return sys_errlist[n];
  97 }
  98
  99 #endif
 100
 101 FILE *log_file(void)
 102 {
 103     return l_file;
 104 }
 105
 106 void log_init(int level, const char *prefix, const char *name)
 107 {
 108     l_level = level;
 109     if (prefix && *prefix)
 110         strcpy(l_prefix, prefix);
 111     if (!name || !*name || l_file != stderr)
 112         return;
 113     if (!(l_file = fopen(name, "a")))
 114         return;
 115     setvbuf(l_file, 0, _IONBF, 0);
 116 }
 117
 118 void logf(int level, const char *fmt, ...)
 119 {
 120     va_list ap;
 121     char buf[4096], flags[1024];
 122     int i, p_error = 0;
 123     time_t ti;
 124     struct tm *tim;
 125     char tbuf[50];
 126
 127     if (!(level & l_level))
 128         return;
 129     if (level & LOG_ERRNO)
 130         p_error = 1;
 131     *flags = '\0';
 132     for (i = 0; level && mask_names[i].name; i++)
 133         if (mask_names[i].mask & level)
 134         {
 135             if (*mask_names[i].name)
 136                 sprintf(flags + strlen(flags), "[%s]", mask_names[i].name);
 137             level -= mask_names[i].mask;
 138         }
 139     va_start(ap, fmt);
 140     vsprintf(buf, fmt, ap);
 141     if (p_error)
 142         sprintf(buf + strlen(buf), " [%s]", strerror(errno));
 143     ti = time(0);
 144     tim = localtime(&ti);
 145     strftime(tbuf, 50, "%H:%M:%S-%d/%m", tim);
 146     fprintf(l_file, "%s: %s: %s %s\n", tbuf, l_prefix, flags, buf);
 147     fflush(l_file);
 148 }
 149
 150 int log_mask_str (const char *str)
 151 {
 152     const char *p;
 153     int i, level = LOG_DEFAULT_LEVEL;
 154
 155     while (*str)
 156     {
 157         for (p = str; *p && *p != ','; p++)
 158             ;
 159         if (*str == '-' || isdigit(*str))
 160             level = atoi (str);
 161         else
 162             for (i = 0; mask_names[i].name; i++)
 163                 if (strlen (mask_names[i].name) == p-str &&
 164                     memcmp (mask_names[i].name, str, p-str) == 0)
 165                 {
 166                     if (mask_names[i].mask)
 167                         level |= mask_names[i].mask;
 168                     else
 169                         level = 0;
 170                 }
 171         if (*p == ',')
 172             p++;
 173         str = p;
 174     }
 175     return level;
 176 }