/*
        BootMii - a Free Software replacement for the Nintendo/BroadOn bootloader.
        Requires mini.

Copyright (C) 2008, 2009        Haxx Enterprises <bushing@gmail.com>
Copyright (C) 2009              Andre Heider "dhewg" <dhewg@wiibrew.org>
Copyright (C) 2008, 2009        Hector Martin "marcan" <marcan@marcansoft.com>
Copyright (C) 2008, 2009        Sven Peter <svenpeter@gmail.com>
Copyright (C) 2009              John Kelley <wiidev@kelley.ca>

# This code is licensed to you under the terms of the GNU GPL, version 2;
# see file COPYING or http://www.gnu.org/licenses/old-licenses/gpl-2.0.txt
*/

#include "bootmii_ppc.h"
#include "string.h"
#include "ipc.h"
#include "mini_ipc.h"
#include "nandfs.h"
#include "fat.h"
#include "malloc.h"
#include "diskio.h"
#include "printf.h"
#include "video_low.h"
#include "input.h"
#include "console.h"
#include "irq.h"
#include "usb/core/core.h"
#include "usb/drivers/class/hid.h"
#include "sha1.h"
#include "hollywood.h"

#define MINIMUM_MINI_VERSION 0x00010001

otp_t otp;
seeprom_t seeprom;

static void dsp_reset(void)
{
	write16(0x0c00500a, read16(0x0c00500a) & ~0x01f8);
	write16(0x0c00500a, read16(0x0c00500a) | 0x0010);
	write16(0x0c005036, 0);
}

static char ascii(char s) {
  if(s < 0x20) return '.';
  if(s > 0x7E) return '.';
  return s;
}

void hexdump(void *d, int len) {
  u8 *data;
  int i, off;
  data = (u8*)d;
  for (off=0; off<len; off += 16) {
    printf("%08x  ",off);
    for(i=0; i<16; i++)
      if((i+off)>=len) printf("   ");
      else printf("%02x ",data[off+i]);

    printf(" ");
    for(i=0; i<16; i++)
      if((i+off)>=len) printf(" ");
      else printf("%c",ascii(data[off+i]));
    printf("\n");
  }
}
	
void testOTP(void)
{
	printf("reading OTP...\n");
	getotp(&otp);
	printf("read OTP!\n");
	printf("OTP:\n");
	hexdump(&otp, sizeof(otp));

	printf("reading SEEPROM...\n");
	getseeprom(&seeprom);
	printf("read SEEPROM!\n");
	printf("SEEPROM:\n");
	hexdump(&seeprom, sizeof(seeprom));
}

int main(void)
{
	int vmode = -1;
	exception_init();
	dsp_reset();

	irq_initialize();
	irq_bw_enable(BW_PI_IRQ_RESET);
	irq_bw_enable(BW_PI_IRQ_HW); //hollywood pic
	/* external ohci */
	irq_hw_enable(IRQ_OHCI0);
	/* internal ohci */
	//irq_hw_enable(IRQ_OHCI1);

	ipc_initialize();
	ipc_slowping();

	gecko_init();
    input_init();
	init_fb(vmode);

	VIDEO_Init(vmode);
	VIDEO_SetFrameBuffer(get_xfb());
	VISetupEncoder();

	u32 version = ipc_getvers();
	u16 mini_version_major = version >> 16 & 0xFFFF;
	u16 mini_version_minor = version & 0xFFFF;
	printf("Mini version: %d.%0d\n", mini_version_major, mini_version_minor);

	if (version < MINIMUM_MINI_VERSION) {
		printf("Sorry, this version of MINI (armboot.bin)\n"
			"is too old, please update to at least %d.%0d.\n", 
			(MINIMUM_MINI_VERSION >> 16), (MINIMUM_MINI_VERSION & 0xFFFF));
		for (;;) 
			; // better ideas welcome!
	}

	/* external ohci */
	usb_init(OHCI0_REG_BASE);

	/* internal ohci */
	//usb_init(OHCI1_REG_BASE);

	/* load HID keyboard driver */
	usb_hidkb_init();

wait_kb:
	/* wait for usb keyboard plugged in */
	if(!usb_hidkb_inuse()) {
		print_str("plug in an usb keyboard", 23);
	}
	while(!usb_hidkb_inuse());

	print_str("hello keyboard :)", 17);

#define FONT_WIDTH  13
#define FONT_HEIGHT 15
#define STDOUT_BORDER_LEFT 20
#define STDOUT_BORDER_RIGHT 650
#define STDOUT_BORDER_TOP 20
#define STDOUT_BORDER_BOTTOM 550
#define TABSIZE 4
	/* you are welcome to make this nice :) */
	char str[7];
	u16 i, j, ret=0, y=STDOUT_BORDER_TOP, x=STDOUT_BORDER_LEFT;
	u16 old_x, old_y;
	struct kbrep *k, *old=NULL;

	while(usb_hidkb_inuse()) {
		memset(str, '\0', 7);
		k = usb_hidkb_getChars();
		j=0;
		old_x = x; /* save actual x and y position for printing after the loop */
		old_y = y;
		for(i=0; k->keys[i]>0; i++) {

			/* dropping char's if necessary */
			if(old) {
				for(j=0; j < 6; j++) {
					if(old->keys[j] == k->keys[i]) {
						ret = 1;
						break;
					}
				}
			}
			if(ret) {
				ret = 0;
				continue;
			}
			j = 0;

			unsigned char key = usb_hidkb_get_char_from_keycode(k->keys[i],
					(k->mod & MOD_lshift) || (k->mod & MOD_rshift));
			/* no key or key not relevant? next, please. */
			if (key == 0)
				continue;

			/* RETURN pressed? */
			if (key == '\n') {
				x = STDOUT_BORDER_LEFT;
				y += FONT_HEIGHT;
				printf("\n");
			/* TAB pressed? */
			} else if (key == '\t') {
				x += (TABSIZE*FONT_WIDTH);
				printf("\t");

			/* BACKSPACE pressed? */
			} else if (key == '\r') {
				/* TODO */

			/* now we have only printable characters left */
			} else {
				x += FONT_WIDTH;
				str[j] = key;
				j++;
			}

			/* line full? break! */
			if(x > (STDOUT_BORDER_RIGHT-FONT_WIDTH)) {
				x = STDOUT_BORDER_LEFT;
				y += FONT_HEIGHT;
			}
			/* screen full? start again at top */
			if(y > (STDOUT_BORDER_BOTTOM-FONT_HEIGHT)) {
				y = STDOUT_BORDER_TOP;
			}
		}
		if(old) {
			free(old);
		}
		old = k;
		if(j > 0) { /* when there was any printable stuff, show it */
			print_str_noscroll(old_x, old_y, str);
			printf("%s", str);
		}
	}

	goto wait_kb;

#if 0
	printf("===============================\n");

	SHA1TestCases();

	printf("bye, world!\n");
#endif

	return 0;
}