#include <stdio.h>
#include <stdarg.h>
#include "bsp/bsp.h"
#include "logger.h"
#include "os/co_task.h"
#include "os/queue.h"

static uint32_t level_data[2];
static char log_cache[128];
static co_queue_t log_queue = NULL;
int can_fputc(char c);

static void log_co_task(void *args) {
	log_chan_t log_v;
	while(1) {
		if (queue_get(log_queue, &log_v)){
			if (log_v.id != 1) {
				sys_debug("%d: %d\n", log_v.id, log_v.value);
			}else {
				extern void shark_uart_write_log(char *buffer);
				char buffer[128] = {0};
				sprintf(buffer, "$%d;", log_v.value);
				shark_uart_write_log(buffer);
			}
		}
		co_task_yield();
	}
}

void log_start_task(void) {
	log_queue = queue_create(5000, sizeof(log_chan_t));
	co_task_create(log_co_task, NULL, 512);
}

void log_chan_value(u16 id, s32 value) {
	log_chan_t log_v;
	log_v.id = id;
	log_v.value = value;
	queue_put(log_queue, &log_v);
}

static int _get_level(int mod){
	int index = mod_bit_start(mod)/(32+1);
	mod = mod_bit_start(mod) % 32;
	return (level_data[index] >> mod) & LEVEL_MASK;
}

void set_log_level(int mod, int l){
	int index = mod_bit_start(mod)/(32+1);
	mod = mod_bit_start(mod) % 32;
	level_data[index] = (level_data[index] & (~(LEVEL_MASK<<mod))) | ((l & LEVEL_MASK)<<mod);
}

static void log_out(char *fmt, va_list args){
	int len = vsnprintf(log_cache, sizeof(log_cache), fmt, args);
	for (int i = 0; i < len; i++) {
		can_fputc(log_cache[i]);
	}
}

void log_debug(int mod, char *fmt, ...){
	if (_get_level(mod) >= L_debug){
		va_list args;
		va_start(args, fmt);		
		log_out(fmt, args);
		va_end(args);
	}
}

void log_warning(int mod, char *fmt, ...){
	if (_get_level(mod) >= L_warning){
		va_list args;
		va_start(args, fmt);		
		log_out(fmt, args);
		va_end(args);
	}
}

void log_error(int mod, char *fmt, ...){
	if (_get_level(mod) >= L_error){
		va_list args;
		va_start(args, fmt);		
		log_out(fmt, args);
		va_end(args);
	}
}

static char log_buffer[8];
static int log_index = 0;
int can_fputc(char c){
	can_id_t frame_id;
	frame_id.id=0;
	frame_id.src 	= CAN_MY_ADDRESS;
	frame_id.type 		= ptype_indicater;

	if (c == '\n'){ //don't send '\n'
		if (log_index != 0){
			frame_id.dest 	= 0x72;
			shark_can0_send_message(frame_id.id, log_buffer, log_index);
		}
		log_index = 0;
	}else if (log_index == sizeof(log_buffer)){
		frame_id.dest 	= 0x70;
		shark_can0_send_message(frame_id.id, log_buffer, log_index);
		log_index = 0;
		log_buffer[log_index++] = c;
	}else{
		log_buffer[log_index++] = c;
	}
	return 1;
}