/*
 * Copyright (c) 2013 Hugh Bailey <obs.jim@gmail.com>
 *
 * Permission to use, copy, modify, and distribute this software for any
 * purpose with or without fee is hereby granted, provided that the above
 * copyright notice and this permission notice appear in all copies.
 *
 * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
 * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
 * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
 * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
 * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
 * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
 * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 */

#include <stdio.h>
#include <stdlib.h>
#include <stdio.h>

#include "c99defs.h"
#include "base.h"

static enum log_type log_output_level = LOG_WARNING;
static int  crashing = 0;

static void def_log_handler(enum log_type type, const char *format,
		va_list args)
{
	char out[4096];
	vsnprintf(out, sizeof(out), format, args);

	if (type >= log_output_level) {
		switch (type) {
		case LOG_DEBUG:
			printf("debug: %s\n", out);
			break;

		case LOG_INFO:
			printf("info: %s\n", out);
			break;

		case LOG_WARNING:
			fprintf(stderr, "warning: %s\n", out);
			break;

		case LOG_ERROR:
			fprintf(stderr, "error: %s\n", out);
		}
	}
}

#ifdef _MSC_VER
#define NORETURN __declspec(noreturn)
#else
#define NORETURN __attribute__((noreturn))
#endif

NORETURN static void def_crash_handler(const char *format, va_list args)
{
	vfprintf(stderr, format, args);
	exit(0);
}

static void (*log_handler)(enum log_type, const char *, va_list) =
		def_log_handler;
static void (*crash_handler)(const char *, va_list) = def_crash_handler;

void base_set_log_handler(
	void (*handler)(enum log_type, const char *, va_list))
{
	log_handler = handler;
}

void base_set_crash_handler(void (*handler)(const char *, va_list))
{
	crash_handler = handler;
}

void bcrash(const char *format, ...)
{
	va_list args;

	if (crashing) {
		fputs("Crashed in the crash handler", stderr);
		exit(2);
	}

	crashing = 1;
	va_start(args, format);
	crash_handler(format, args);
	va_end(args);
}

void blogva(enum log_type type, const char *format, va_list args)
{
	log_handler(type, format, args);
}

void blog(enum log_type type, const char *format, ...)
{
	va_list args;

	va_start(args, format);
	log_handler(type, format, args);
	va_end(args);
}