/* $Id: log.c 254 2024-10-04 04:08:33Z nishi $ */

#include "cm_log.h"

#include "../config.h"
#include "cm_string.h"

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

#ifdef _PSP
#include <pspdebug.h>
#endif

#ifdef __PPU__
extern void tt_printf(const char* tmpl, ...);
#endif

FILE* logfile;

bool cm_do_log = false;

#define LOGNAME_LENGTH 12

#ifdef BUILD_GUI_VALID
void AddLog(const char* str);
#endif

void cm_force_log(const char* log) {
	time_t t = time(NULL);
	struct tm* tm = localtime(&t);
	char date[513];
	char* str;
	strftime(date, 512, "%a %b %d %H:%M:%S %Z %Y", tm);
#ifdef _PSP
	pspDebugScreenPrintf("[%s] %s\n", date, log);
#elif defined(__PPU__)
	tt_printf("[%s] %s\n", date, log);
#elif defined(BUILD_GUI_VALID)
	str = malloc(strlen(date) + strlen(log) + 3 + 1);
	str[strlen(date) + strlen(log) + 3] = 0;
	sprintf(str, "[%s] %s", date, log);
	AddLog(str);
	free(str);
#else
	fprintf(logfile, "[%s] %s\n", date, log);
	fflush(logfile);
#endif
}

void cm_log(const char* name, const char* log, ...) {
	va_list args;
	char namebuf[LOGNAME_LENGTH + 1];
	int i;
	char* result;
	char cbuf[2];
	if(!cm_do_log) return;
	va_start(args, log);
	memset(namebuf, '.', LOGNAME_LENGTH);
	namebuf[LOGNAME_LENGTH] = 0;
	for(i = 0; name[i] != 0 && i < LOGNAME_LENGTH; i++) {
		namebuf[i] = name[i];
	}

	result = malloc(1);
	result[0] = 0;

	cbuf[1] = 0;

	for(i = 0; log[i] != 0; i++) {
		if(log[i] == '%') {
			i++;
			if(log[i] == 's') {
				char* tmp = result;
				char* c = va_arg(args, char*);
				result = cm_strcat(tmp, c == NULL ? "(null)" : c);
				free(tmp);
			} else if(log[i] == 'd') {
				int a = va_arg(args, int);
				char buf[128];
				char* tmp = result;
				sprintf(buf, "%d", a);
				result = cm_strcat(tmp, buf);
				free(tmp);
			}
		} else {
			char* tmp = result;
			cbuf[0] = log[i];
			result = cm_strcat(tmp, cbuf);
			free(tmp);
		}
	}

#ifdef _PSP
	pspDebugScreenPrintf("%s %s\n", namebuf, result);
#elif defined(__PPU__)
	tt_printf("%s %s\n", namebuf, result);
#else
	fprintf(logfile, "%s %s\n", namebuf, result);
#endif
	va_end(args);

	free(result);
}