/*
 * Hedgewars, a free turn based strategy game
 * Copyright (C) 2012 Simeon Maxein <smaxein@googlemail.com>
 *
 * This program is free software; you can redistribute it and/or
 * modify it under the terms of the GNU General Public License
 * as published by the Free Software Foundation; either version 2
 * of the License, or (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.
 */

#include "logging.h"

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

static int flib_loglevel = FLIB_LOGLEVEL_INFO;
static FILE *flib_logfile = NULL;
void (*flib_logCallback)(int level, const char *msg) = NULL;

char* flib_format_ip(uint32_t numip) {
    static char ip[16];
    snprintf(ip, 16, "%u.%u.%u.%u", (unsigned)(numip>>24), (unsigned)((numip>>16)&0xff), (unsigned)((numip>>8)&0xff), (unsigned)(numip&0xff));
    return ip;
}

static inline FILE *flib_log_getfile() {
    if(flib_logfile==NULL) {
        return stdout;
    } else {
        return flib_logfile;
    }
}

static int log_time(char *buffer) {
    time_t timer;
    struct tm* tm_info;

    time(&timer);
    tm_info = localtime(&timer);

    return strftime(buffer, 25, "%Y-%m-%d %H:%M:%S", tm_info);
}

static char getPrefix(int level) {
    switch(level) {
    case FLIB_LOGLEVEL_ERROR: return 'E';
    case FLIB_LOGLEVEL_WARNING: return 'W';
    case FLIB_LOGLEVEL_INFO: return 'I';
    case FLIB_LOGLEVEL_DEBUG: return 'D';
    default: return '?';
    }
}

static void _flib_vflog(const char *func, int level, const char *fmt, va_list args) {
    if(level >= flib_loglevel) {
        char logbuffer[1024];
        logbuffer[0] = getPrefix(level);
        logbuffer[1] = ' ';

        int pos = 2;

        int len = log_time(logbuffer+pos);
        if(len>=0) {
            pos += len;
            if(pos>sizeof(logbuffer)-1) pos = sizeof(logbuffer)-1;
        } else {
            return;
        }

        len = snprintf(logbuffer+pos, sizeof(logbuffer)-pos, " [%-30s] ", func);
        if(len>=0) {
            pos += len;
            if(pos>sizeof(logbuffer)-1) pos = sizeof(logbuffer)-1;
        } else {
            return;
        }

        len = vsnprintf(logbuffer+pos, sizeof(logbuffer)-pos, fmt, args);
        if(len>=0) {
            pos += len;
            if(pos>sizeof(logbuffer)-1) pos = sizeof(logbuffer)-1;
        } else {
            return;
        }

        if(flib_logCallback != NULL) {
            flib_logCallback(level, logbuffer);
        } else {
            FILE *logfile = flib_log_getfile();
            fputs(logbuffer, logfile);
            fputc('\n', logfile);
            fflush(logfile);
        }
    }
}

void _flib_flog(const char *func, int level, const char *fmt, ...) {
    va_list argp;
    va_start(argp, fmt);
    _flib_vflog(func, level, fmt, argp);
    va_end(argp);
}

bool _flib_fassert(const char *func, int level, bool cond, const char *fmt, ...) {
    if(!cond) {
        va_list argp;
        va_start(argp, fmt);
        _flib_vflog(func, level, fmt, argp);
        va_end(argp);
    }
    return !cond;
}

int flib_log_getLevel() {
    return flib_loglevel;
}

void flib_log_setLevel(int level) {
    flib_loglevel = level;
}

void flib_log_setFile(FILE *file) {
    flib_logfile = file;
    flib_logCallback = NULL;
}

bool flib_log_isActive(int level) {
    return level >= flib_log_getLevel();
}

void flib_log_setCallback(void (*logCallback)(int level, const char *msg)) {
    flib_logCallback = logCallback;
    flib_logfile = NULL;
}