/*	$NetBSD: console.c,v 1.4 2008/04/28 20:23:18 martin Exp $	*/

/*-
 * Copyright (c) 2004, 2005 The NetBSD Foundation, Inc.
 * All rights reserved.
 *
 * This code is derived from software contributed to The NetBSD Foundation
 * by UCHIYAMA Yasushi.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the distribution.
 *
 * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
 * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
 * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
 * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
 * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
 * POSSIBILITY OF SUCH DAMAGE.
 */

#include <sys/param.h>
#include <sys/systm.h>

#include <lib/libsa/stand.h>

#include "local.h"

void __putchar(int);

#define	PUTCHAR		__putchar	/* "boot" hooks log staff. */

#include <machine/sbd.h>

#include "console.h"

struct cons cons;
void nullcursor(int, int);
void nullscroll(void);


void
console_init(void)
{
	uint8_t nvsram_cons;

	cons.cursor = nullcursor;
	cons.scroll = nullscroll;
	cons.cursor_enable = false;
	cons.erace_previous_cursor = false;

	switch (SBD_INFO->machine) {
	case MACHINE_TR2:
		/* untested */
		nvsram_cons = *(volatile uint8_t *)0xbb023010;

		switch (nvsram_cons) {
		case 0x00:
			cons.type = CONS_FB_KSEG2;
			fb_set_addr(0xf0000000, 0x01000000, 0xbfc0ec00);
			zskbd_set_addr(0xbb010000, 0xbb010004);
			cons.init();
			break;
		case 0x01:
			/* sio 1 (zs channel A) */
			cons.type = CONS_SIO1;
			zs_set_addr(0xbb011008, 0xbb01100c, 4915200);
			cons.init();
			break;
		case 0x02:
			/* sio 2 (zs channel B) */
			cons.type = CONS_SIO2;
			zs_set_addr(0xbb011000, 0xbb011004, 4915200);
			cons.init();
			break;
		default:
			goto rom_cons;
		}
		break;
	case MACHINE_TR2A:
		nvsram_cons = *(volatile uint8_t *)0xbe4932a0;

		switch (nvsram_cons) {
		case 0x80:
			/* on-board FB on 360AD, 360ADII */
			cons.type = CONS_FB_KSEG2;
			fb_set_addr(0xf0000000, 0x01000000, 0xbfc0ec00);
			zskbd_set_addr(0xbe480000, 0xbe480004);
			cons.init();
			break;
		case 0x01:
			/* sio 1 (zs channel A) */
			cons.type = CONS_SIO1;
			zs_set_addr(0xbe440008, 0xbe44000c, 4915200);
			cons.init();
			break;
		case 0x02:
			/* sio 2 (zs channel B) */
			cons.type = CONS_SIO2;
			zs_set_addr(0xbe440000, 0xbe440004, 4915200);
			cons.init();
			break;
		default:
			goto rom_cons;
		}
		break;
	default:
 rom_cons:
		cons.getc = ROM_GETC;
		cons.scan = rom_scan;
		cons.putc = ROM_PUTC;
		cons.init = cons_rom_init;
		cons.scroll = cons_rom_scroll;
		cons.type = CONS_ROM;
		cons.init();

		break;
	}
}

void
console_cursor(bool on)
{

	cons.cursor_enable = on;
}

enum console_type
console_type(void)
{

	return cons.type;
}

void
PUTCHAR(int c)
{
	int i;

	if (cons.type == CONS_SIO1 || cons.type == CONS_SIO2) {
		if (c == '\n')
			cons.putc(0, 0, '\r');
		cons.putc(0, 0, c);
		return;
	}

	if (cons.cursor_enable && cons.erace_previous_cursor)
		cons.cursor(cons.x * ROM_FONT_WIDTH, cons.y * ROM_FONT_HEIGHT);

	switch (c) {
	default:
		cons.putc(cons.x * ROM_FONT_WIDTH, cons.y * ROM_FONT_HEIGHT, c);
		if (++cons.x == CONS_WIDTH) {
			cons.x = X_INIT;
			cons.y++;
		}
		break;
	case '\b':
		cons.putc(cons.x * ROM_FONT_WIDTH, cons.y * ROM_FONT_HEIGHT, c);
		cons.x = cons.x == X_INIT ? X_INIT : cons.x - 1;
		if (cons.cursor_enable)
			cons.putc(cons.x * ROM_FONT_WIDTH,
			    cons.y * ROM_FONT_HEIGHT, ' ');
		cons.putc(cons.x * ROM_FONT_WIDTH, cons.y * ROM_FONT_HEIGHT, c);
		break;
	case '\t':
		for (i = cons.x % 8; i < 8; i++) {
			cons.putc(cons.x * ROM_FONT_WIDTH,
			    cons.y * ROM_FONT_HEIGHT, ' ');
			if (++cons.x == CONS_WIDTH) {
				cons.x = X_INIT;
				if (++cons.y == CONS_HEIGHT)
					cons.scroll();
			}
		}
		break;
	case '\r':
		cons.putc(cons.x * ROM_FONT_WIDTH, cons.y * ROM_FONT_HEIGHT, c);
		cons.x = X_INIT;
		break;
	case '\n':
		cons.putc(cons.x * ROM_FONT_WIDTH, cons.y * ROM_FONT_HEIGHT,
		    '\r');
		cons.putc(cons.x * ROM_FONT_WIDTH, cons.y * ROM_FONT_HEIGHT, c);
		cons.x = X_INIT;
		cons.y++;
		break;
	case 2:	/* Ctrl-b */
		if (--cons.x < X_INIT)
			cons.x = X_INIT;
		break;
	case 6:	/* Ctrl-f */
		if (++cons.x >= CONS_WIDTH)
			cons.x = CONS_WIDTH;
		break;
	case 11:/* Ctrl-k */
		for (i = cons.x; i < CONS_WIDTH; i++)
			cons.putc(i * ROM_FONT_WIDTH, cons.y * ROM_FONT_HEIGHT,
			     ' ');
		break;
	}

	if (cons.y == CONS_HEIGHT)
		cons.scroll();

	if (cons.cursor_enable) {
		cons.cursor(cons.x * ROM_FONT_WIDTH, cons.y * ROM_FONT_HEIGHT);
		cons.erace_previous_cursor = true;
	} else {
		cons.erace_previous_cursor = false;
	}
}

int
getchar(void)
{

	return cons.getc();
}

int
cnscan(void)
{

	return cons.scan();
}

void
nullcursor(int x, int y)
{
	/* place holder */
}

void
nullscroll(void)
{
	/* place holder */
}