Bemanitools v5.26 release

src/main/util/log.c

@@ -0,0 +1,131 @@
+#include "util/log.h"
+#include "util/str.h"
+
+#include <windows.h>
+
+#include <stdarg.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+
+static log_writer_t log_writer;
+static void *log_writer_ctx;
+static unsigned int log_level;
+
+static void log_builtin_fatal(const char *module, const char *fmt, ...);
+static void log_builtin_info(const char *module, const char *fmt, ...);
+static void log_builtin_misc(const char *module, const char *fmt, ...);
+static void log_builtin_warning(const char *module, const char *fmt, ...);
+static void log_builtin_format(unsigned int msg_level, const char *module,
+        const char *fmt, va_list ap);
+
+#define IMPLEMENT_SINK(name, msg_level) \
+    static void name(const char *module, const char *fmt, ...) \
+    { \
+        va_list ap; \
+        \
+        va_start(ap, fmt); \
+        log_builtin_format(msg_level, module, fmt, ap); \
+        va_end(ap); \
+    }
+
+IMPLEMENT_SINK(log_builtin_info, 2)
+IMPLEMENT_SINK(log_builtin_misc, 3)
+IMPLEMENT_SINK(log_builtin_warning, 1)
+
+static void log_builtin_fatal(const char *module, const char *fmt, ...)
+{
+    va_list ap;
+
+    va_start(ap, fmt);
+    log_builtin_format(0, module, fmt, ap);
+    va_end(ap);
+
+    DebugBreak();
+    ExitProcess(EXIT_FAILURE);
+}
+
+static void log_builtin_format(unsigned int msg_level, const char *module,
+        const char *fmt, va_list ap)
+{
+    static const char chars[] = "FWIM";
+
+    /* 64k so we can log data dumps of rs232 without crashing */
+    char line[65536];
+    char msg[65536];
+    int result;
+
+    str_vformat(msg, sizeof(msg), fmt, ap);
+    result = str_format(line, sizeof(line), "%c:%s: %s\n", chars[msg_level],
+            module, msg);
+
+    if (msg_level <= log_level) {
+        log_writer(log_writer_ctx, line, result);
+    }
+}
+
+void log_assert_body(const char *file, int line, const char *function)
+{
+    log_impl_fatal("assert", "%s:%d: function `%s'", file, line, function);
+}
+
+void log_to_external(log_formatter_t misc, log_formatter_t info,
+        log_formatter_t warning, log_formatter_t fatal)
+{
+    log_impl_misc = misc;
+    log_impl_info = info;
+    log_impl_warning = warning;
+    log_impl_fatal = fatal;
+}
+
+void log_to_writer(log_writer_t writer, void *ctx)
+{
+    log_impl_misc = log_builtin_misc;
+    log_impl_info = log_builtin_info;
+    log_impl_warning = log_builtin_warning;
+    log_impl_fatal = log_builtin_fatal;
+
+    if (writer != NULL) {
+        log_writer = writer;
+        log_writer_ctx = ctx;
+    } else {
+        log_writer = log_writer_null;
+    }
+}
+
+void log_set_level(unsigned int new_level)
+{
+    log_level = new_level;
+}
+
+void log_writer_debug(void *ctx, const char *chars, size_t nchars)
+{
+    OutputDebugStringA(chars);
+}
+
+void log_writer_stdout(void *ctx, const char *chars, size_t nchars)
+{
+    printf("%s", chars);
+}
+
+void log_writer_stderr(void *ctx, const char *chars, size_t nchars)
+{
+    fprintf(stderr, "%s", chars);
+}
+
+void log_writer_file(void *ctx, const char *chars, size_t nchars)
+{
+    fwrite(chars, 1, nchars, (FILE *) ctx);
+    fflush((FILE*) ctx);
+}
+
+void log_writer_null(void *ctx, const char *chars, size_t nchars)
+{}
+
+log_formatter_t log_impl_misc = log_builtin_misc;
+log_formatter_t log_impl_info = log_builtin_info;
+log_formatter_t log_impl_warning = log_builtin_warning;
+log_formatter_t log_impl_fatal = log_builtin_fatal;
+static log_writer_t log_writer = log_writer_null;
+static unsigned int log_level = 4;
+