/* vim: tabstop=4 shiftwidth=4 noexpandtab
 *
 * Kernel printf implementation
 *
 * Simple, painfully lacking, implementation of printf(),
 * for the kernel of all things.
 */
#include <system.h>
#include <process.h>
#include <va_list.h>
#include <fs.h>

/*
 * Integer to string
 */
static void
parse_num(
		unsigned int value,
		unsigned int base,
		char * buf,
		int * ptr
		) {
	unsigned int n = value / base;
	int r = value % base;
	if (r < 0) {
		r += base;
		--n;
	}
	if (value >= base) {
		parse_num(n, base, buf, ptr);
	}
	buf[*ptr] = (r+'0');
	*ptr = *ptr + 1;
}

/*
 * Hexadecimal to string
 */
static void
parse_hex(
		unsigned int value,
		char * buf,
		int * ptr
		) {
	int i = 8;
	while (i-- > 0) {
		buf[*ptr] = "0123456789abcdef"[(value>>(i*4))&0xF];
		*ptr = *ptr + 1;
	}
}

/*
 * vasprintf()
 */
size_t
vasprintf(char * buf, const char *fmt, va_list args) {
	int i = 0;
	char *s;
	int ptr = 0;
	int len = strlen(fmt);
	for ( ; i < len && fmt[i]; ++i) {
		if (fmt[i] != '%') {
			buf[ptr++] = fmt[i];
			continue;
		}
		/* fmt[i] == '%' */
		switch (fmt[++i]) {
			case 's': /* String pointer -> String */
				s = (char *)va_arg(args, char *);
				while (*s) {
					buf[ptr++] = *s++;
				}
				break;
			case 'c': /* Single character */
				buf[ptr++] = (char)va_arg(args, int);
				break;
			case 'x': /* Hexadecimal number */
				parse_hex((unsigned long)va_arg(args, unsigned long), buf, &ptr);
				break;
			case 'd': /* Decimal number */
				parse_num((unsigned long)va_arg(args, unsigned long), 10, buf, &ptr);
				break;
			case '%': /* Escape */
				buf[ptr++] = '%';
				break;
			default: /* Nothing at all, just dump it */
				buf[ptr++] = fmt[i];
				break;
		}
	}
	/* Ensure the buffer ends in a null */
	buf[ptr] = '\0';
	return ptr;

}

short  kprint_to_serial = 0;
short  kprint_to_screen = 0;
void * kprint_to_file   = NULL;

unsigned short * textmemptr = (unsigned short *)0xB8000;
void placech(unsigned char c, int x, int y, int attr) {
	unsigned short *where;
	unsigned att = attr << 8;
	where = textmemptr + (y * 80 + x);
	*where = c | att;
}

int x = 0, y = 0;
int _not_ready = 1;
int _off = 0;

/**
 * (Kernel) Print a formatted string.
 * %s, %c, %x, %d, %%
 *
 * @param fmt Formatted string to print
 * @param ... Additional arguments to format
 */
#ifndef EXTREME_KPRINTF_DEBUGGING
int
kprintf(
		const char *fmt,
		...
	   ) {
	char buf[1024] = {-1};
	va_list args;
	va_start(args, fmt);
	int out = vasprintf(buf, fmt, args);
	/* We're done with our arguments */
	va_end(args);
	/* Print that sucker */
	if (kprint_to_serial) {
		serial_string(SERIAL_PORT_A,buf);
	}
	if (kprint_to_screen) {
		/*
		 * VGA output for debugging. This is not nearly as feature-complete as the old
		 * kernel terminal; it is here to provide acceptable parsing of the debug messages
		 * and print them to the screen while in early boot on real hardware without a
		 * serial line and should not be used otherwise.
		 */
		if (_not_ready) {
			int temp = 0xFFFF;
			outportb(0x3D4, 14);
			outportb(0x3D5, temp >> 8);
			outportb(0x3d4, 15);
			outportb(0x3d5, temp);
			for (int y = 0; y < 80; ++y) {
				for (int x = 0; x < 24; ++x) {
					placech(' ', x, y, 0x00);
				}
			}
			_not_ready = 0;
		}
		unsigned char *c = (uint8_t *)buf;
		while (*c) {
			if (_off) {
				if (*c > 'a' && *c < 'z') {
					_off = 0;
				} else {
					c++;
					continue;
				}
			} else if (*c == '\033') {
				c++;
				if (*c == '[') {
					_off = 1;
				}
			} else if (*c == '\n') {
				y += 1;
				x = 0;
			} else {
				placech(*c, x, y, 0x07);
				x++;
			}
			if (x == 80) {
				x = 0;
				y++;
			}
			if (y == 24) {
				y = 0;
				x = 0;
			}
			c++;
		}
	}
	/* Registered output file */
	if (kprint_to_file) {
		fs_node_t * node = (fs_node_t *)kprint_to_file;
		uint32_t out = write_fs(node, node->offset, strlen(buf), (uint8_t *)buf);
		node->offset += out;
	}
	return out;
}
#else
int
_kprintf(
		char * file,
		int line,
		const char *fmt,
		...
	   ) {
	char buf[1024] = {-1};
	va_list args;
	va_start(args, fmt);
	int out = vasprintf(buf, fmt, args);
	/* We're done with our arguments */
	va_end(args);
	/* Print that sucker */
	if (buf[strlen(buf)-1] == '\n') {
		buf[strlen(buf)-1] = '\0';
		serial_string(buf);
		char buf2[1024];
		sprintf(buf2, " %s:%d\n", file, line);
		serial_string(buf2);
	} else {
		serial_string(buf);
	}
	return out;
}
#endif

int
sprintf(
		char * buf,
		const char *fmt,
		...
	   ) {
	va_list args;
	va_start(args, fmt);
	int out = vasprintf(buf, fmt, args);
	va_end(args);
	return out;
}