Logging system

diff --git a/util/log.c b/util/log.c
new file mode 100644 (file)
index 0000000..4793f61
--- /dev/null
+++ b/util/log.c
@@ -0,0 +1,127 @@
+/*
+ * Copyright (C) 1994, Index Data I/S 
+ * All rights reserved.
+ * Sebastian Hammer, Adam Dickmeiss
+ *
+ * $Log: log.c,v $
+ * Revision 1.1  1995-03-30 10:26:53  quinn
+ * Logging system
+ *
+ * Revision 1.9  1994/12/12  12:09:02  quinn
+ * Changes
+ *
+ * Revision 1.8  1994/11/22  13:15:38  quinn
+ * Simple
+ *
+ * Revision 1.7  1994/10/05  10:16:11  quinn
+ * Added xrealloc. Fixed bug in log.
+ *
+ * Revision 1.6  1994/10/04  14:02:19  quinn
+ * Fixed log_init
+ *
+ * Revision 1.5  1994/09/28  13:07:41  adam
+ * Implemented log_mask_str.
+ *
+ * Revision 1.4  1994/09/27  20:04:13  quinn
+ * Added fflush.
+ *
+ * Revision 1.3  1994/08/18  08:18:48  quinn
+ * Added prefix to log_init.
+ *
+ * Revision 1.2  1994/08/17  14:27:53  quinn
+ * added LOG_ERRNO
+ *
+ * Revision 1.1  1994/08/17  13:23:15  quinn
+ * First version
+ * Added log.c
+ *
+ */
+
+#include <log.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <ctype.h>
+#include <stdarg.h>
+#include <errno.h>
+
+static int l_level = LOG_DEFAULT_LEVEL;
+static FILE *l_file = stderr;
+static char l_prefix[30] = "log";
+
+static struct {
+    int mask;
+    char *name;
+} mask_names[] =
+{
+    { LOG_FATAL, "fatal"},
+    { LOG_DEBUG, "debug"},
+    { LOG_WARN,  "warn" },
+    { LOG_LOG,   "log"  },
+    { LOG_ERRNO, "errno"},
+    { LOG_ALL,   "all"  },
+    { 0,         "none" },
+    { 0, NULL }
+};  
+
+void log_init(int level, const char *prefix, const char *name)
+{
+    l_level = level;
+    if (prefix && *prefix)
+       strcpy(l_prefix, prefix);
+    if (!name || !*name || l_file != stderr)
+       return;
+    if (!(l_file = fopen(name, "a")))
+        return;
+    setbuffer(l_file, 0, 0);
+}
+
+void logf(int level, const char *fmt, ...)
+{
+    va_list ap;
+    char buf[4096], flags[1024];
+    int i;
+
+    if (!(level & l_level))
+       return;
+    *flags = '\0';
+    for (i = 0; level && mask_names[i].name; i++)
+       if (mask_names[i].mask & level)
+       {
+           sprintf(flags + strlen(flags), "[%s]", mask_names[i].name);
+           level -= mask_names[i].mask;
+       }
+    va_start(ap, fmt);
+    vsprintf(buf, fmt, ap);
+    if (level & LOG_ERRNO)
+       sprintf(buf + strlen(buf), " [%s]", strerror(errno));
+    fprintf(l_file, "%s: %s %s\n", l_prefix, flags, buf);
+    fflush(l_file);
+}
+
+int log_mask_str (const char *str)
+{
+    const char *p;
+    int i, level = LOG_DEFAULT_LEVEL;
+
+    while (*str)
+    {
+        for (p = str; *p && *p != ','; p++)
+            ;
+        if (*str == '-' || isdigit(*str))
+            level = atoi (str);
+        else
+            for (i = 0; mask_names[i].name; i++)
+                if (strlen (mask_names[i].name) == p-str &&
+                    memcmp (mask_names[i].name, str, p-str) == 0)
+                {
+                    if (mask_names[i].mask)
+                        level |= mask_names[i].mask;
+                    else
+                        level = 0;
+                }
+        if (*p == ',')
+            p++;
+        str = p;
+    }
+    return level;
+}