#include <stdio.h>
#include <stdarg.h>
#include <string.h>
#include <errno.h>
#include <stdbool.h>
#include <openssl/err.h>

#include "log.h"

static enum loglvl_t current_loglvl = LLVL_INFO;
static const char *loglvl_names[] = {
	[LLVL_FATAL] = "FATAL",
	[LLVL_ERROR] = "ERROR",
	[LLVL_WARNING] = "WARNING",
	[LLVL_INFO] = "INFO",
	[LLVL_DEBUG] = "DEBUG",
};

void log_setlvl(enum loglvl_t level) {
	current_loglvl = level;
}

static void log_prefix(enum loglvl_t level) {
	fprintf(stderr, "[%c]: ", loglvl_names[level][0]);
}

static void log_suffix(void) {
	fprintf(stderr, "\n");
}

static bool should_log(enum loglvl_t level) {
	return level <= current_loglvl;
}

void log_msg(enum loglvl_t level, const char *msg, ...) {
	if (!should_log(level)) {
		/* Suppress message */
		return;
	}

	log_prefix(level);
	va_list vargs;
	va_start(vargs, msg);
	vfprintf(stderr, msg, vargs);
	va_end(vargs);

	log_suffix();
}

void log_libc(enum loglvl_t level, const char *msg, ...) {
	if (!should_log(level)) {
		/* Suppress message */
		return;
	}

	int saved_errno = errno;
	log_prefix(level);
	va_list vargs;
	va_start(vargs, msg);
	vfprintf(stderr, msg, vargs);
	va_end(vargs);
	fprintf(stderr, ": %s (%d)", strerror(saved_errno), saved_errno);
	log_suffix();
}

static int log_openssl_error_callback(const char *msg, size_t len, void *vlvlptr) {
	enum loglvl_t* levelptr = (enum loglvl_t*)vlvlptr;
	log_msg(*levelptr, msg);
	return 0;
}

void log_openssl(enum loglvl_t level, const char *msg, ...) {
	if (!should_log(level)) {
		/* Suppress message */
		return;
	}

	log_prefix(level);
	fprintf(stderr, "OpenSSL error: ");
	va_list vargs;
	va_start(vargs, msg);
	vfprintf(stderr, msg, vargs);
	va_end(vargs);
	log_suffix();

	ERR_print_errors_cb(log_openssl_error_callback, &level);

#if 0
	log_msg(level, "");
	log_msg(level, "OpenSSL error message:");
	ERR_print_errors_fp(stderr);
	log_msg(level, "----------------------");
#endif
}