/****************************************************************************
 * Common functions
 *
 * The contents of this file are subject to the Mozilla Public
 * License Version 1.1 (the "License"); you may not use this file
 * except in compliance with the License. You may obtain a copy of
 * the License at http://www.mozilla.org/MPL/
 *
 * Software distributed under the License is distributed on an "AS
 * IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
 * implied. See the License for the specific language governing
 * rights and limitations under the License.
 *
 * The Original Code is Ndless code.
 *
 * The Initial Developer of the Original Code is Olivier ARMAND
 * <olivier.calc@gmail.com>.
 * Portions created by the Initial Developer are Copyright (C) 2010
 * the Initial Developer. All Rights Reserved.
 *
 * Contributor(s): 
 *                 Geoffrey ANNEHEIM <geoffrey.anneheim@gmail.com>
 ****************************************************************************/

#include "ndless.h"

#ifndef STAGE1
struct next_descriptor ut_next_descriptor = {
	.next_version = 0x00010000,
	.ext_name = "NDLS",
	.ext_version = 0x00010003 // will be incremented only if new functionnalities exposed to third-party tools
};
#endif

unsigned ut_os_version_index;

// OS-specific
extern unsigned syscalls_light_ncas_1_3[];
extern unsigned syscalls_light_cas_1_3[];
extern unsigned syscalls_ncas_1_3[];
extern unsigned syscalls_cas_1_3[];

/* Writes to ut_os_version_index a zero-based index identifying the OS version and HW model.
 * Also sets up the syscalls table.
 * Should be called only once.
 * May be used for OS-specific arrays of constants (marked with "// OS-specific"). */
void ut_read_os_version_index(void) {
	/* The heuristic is based on the address of INT_Initialize - Thanks Goplat.
	 * The address is read from the RAM copy and not the real vector which is
	 * destroyed at installation time */
	switch (*(unsigned*)(OS_BASE_ADDRESS + 0x20)) {


		// OS-specific
		case 0x101a0c30:  // 1.3 non-CAS
			ut_os_version_index = 0;
#ifdef _NDLS_LIGHT
			sc_addrs_ptr = syscalls_light_ncas_1_3;
#else
			sc_addrs_ptr = syscalls_ncas_1_3;
#endif
			break;
		case 0x101a2760:  // 1.3 CAS
			ut_os_version_index = 1;
#ifdef _NDLS_LIGHT
			sc_addrs_ptr = syscalls_light_cas_1_3;
#else
			sc_addrs_ptr = syscalls_cas_1_3;
#endif
			break;


#ifndef STAGE1
		default:
			ut_panic("v?");
#endif
	}
}

/* OS-specific: addresses of the name of the directory containing the document being opened. */
unsigned const ut_currentdocdir_addr[] = {0x10529630, 0x10559250}; 

void __attribute__ ((noreturn)) ut_calc_reboot(void) {
	*(unsigned*)0x900A0008 = 2; //CPU reset
	while(1);//__builtin_unreachable();
}

#ifndef STAGE1
void __attribute__ ((noreturn)) ut_panic(const char *msg) {
	puts(msg);
	ut_calc_reboot();
}
#endif

/* draw a dotted line. Line 0 is at the bottom of the screen (to avoid overwriting the installer) */
void ut_debug_trace(unsigned line) {
	volatile unsigned *ptr = (unsigned*)((char*)SCREEN_BASE_ADDRESS + (SCREEN_WIDTH/2) * (SCREEN_HEIGHT - 1 - line));
	unsigned i;
	for (i = 0; i < (SCREEN_WIDTH/2) / 4; i++)
		*ptr++ = line & 1 ? 0xFFFF0000 : 0x0000FFFF;
}

#ifndef _NDLS_LIGHT
/* synchronous and doesn't require the IRQ to be enabled (actually the IRQ *must* be disabled) */
void ut_puts(const char *str) {
	volatile unsigned *line_status_reg = (unsigned*)0x90020014;
	volatile unsigned *xmit_holding_reg = (unsigned*)0x90020000;
	while(*str) {
		while(!(*line_status_reg & 0b100000)); // wait for empty xmit holding reg
		*xmit_holding_reg = *str++;
	}
}

/* synchronous and doesn't require the IRQ to be enabled (actually the IRQ *must* be disabled) */
void ut_printf(const char *fmt, ...) {
	char sbuf[200];
	va_list vl;
	va_start(vl, fmt);
	// TODO use vnsprintf?
	vsprintf(sbuf, fmt, vl);
  va_end(vl);
	ut_puts(sbuf);
}
#endif