/*	$NetBSD: promlib.c,v 1.3 2011/05/21 15:50:42 tsutsui Exp $ */

/*-
 * Copyright (c) 2005 The NetBSD Foundation, Inc.
 * All rights reserved.
 *
 * This code is derived from software contributed to The NetBSD Foundation
 * by Paul Kranenburg.
 *
 * 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.
 */

/*
 * OPENPROM functions.  These are here mainly to hide the OPENPROM interface
 * from the rest of the kernel.
 */

#include <sys/types.h>
#include <machine/promlib.h>

#include <lib/libsa/stand.h>
#include <lib/libkern/libkern.h>

#include "openfirm.h"


void *romp;
struct promops	promops;


static void
openfirmware_fatal(void)
{
	printf("Invalid Openfirmware environment\n");
	exit(0);
}

static int
openfirmware_chosen(void)
{
	static int phandle = -1;

	if (phandle == -1) {
		if ( (phandle = OF_finddevice("/chosen")) == -1) {
			exit(0);
		}
	}

	return (phandle);
}

static const char*
openfirmware_bootpath(void)
{
	static char bootpath[PROM_MAX_PATH];

	if (_prom_getprop(openfirmware_chosen(), "bootpath", bootpath,
				sizeof(bootpath)) < 0) {
		openfirmware_fatal();
	}

	return bootpath;
}

static const char*
openfirmware_bootfile(void)
{
	/* Default image name */
	return "netbsd";
}

static const char*
openfirmware_bootargs(void)
{
	static char bootargs[PROM_MAX_PATH * 2];

	if (_prom_getprop(openfirmware_chosen(), "bootargs", bootargs,
				sizeof(bootargs)) < 0) {
		openfirmware_fatal();
	}

	return bootargs;
}

static int
openfirmware_getchar(void)
{
	unsigned char ch = '\0';
	int l;

	while ((l = OF_read(prom_stdin(), &ch, 1)) != 1)
		if (l != -2 && l != 0)
			return -1;
	return ch;
}

static void
openfirmware_putchar(int c)
{
	char ch = c;

	if (c == '\n')
		putchar('\r');
	OF_write(prom_stdout(), &ch, 1);
}

void
prom_halt(void)
{
	_prom_halt();
}

int
prom_findroot(void)
{
	return OF_peer(0);
}

void
prom_init(void)
{
	int phandle, size;

	OF_initialize();

	memset(&promops, 0, sizeof(promops));

	/* Access to boot arguments */
	promops.po_bootpath = openfirmware_bootpath;
	promops.po_bootfile = openfirmware_bootfile;
	promops.po_bootargs = openfirmware_bootargs;

	/* I/O functions */
	promops.po_getchar = openfirmware_getchar;
	promops.po_putchar = openfirmware_putchar;
	promops.po_open  = OF_open;
	promops.po_close = OF_close;
	promops.po_read  = OF_read;
	promops.po_write = OF_write;
	promops.po_seek  = OF_seek;

	promops.po_instance_to_package = OF_instance_to_package;

	/* Program termination control */
	promops.po_halt  = OF_exit;
	promops.po_abort = OF_enter;
	promops.po_ticks = OF_milliseconds;

	/* Device node traversal */
	promops.po_firstchild  = OF_child;
	promops.po_nextsibling = OF_peer;

	/* Device node properties */
	promops.po_getprop = OF_getprop;

	/* Device discovery */
	promops.po_finddevice = OF_finddevice;

	/* Console I/O */
	phandle = openfirmware_chosen();
	size = _prom_getprop(phandle, "stdin", &promops.po_stdin,
			sizeof(promops.po_stdin));
	size += _prom_getprop(phandle, "stdout", &promops.po_stdout,
			sizeof(promops.po_stdout));
	if (size != (sizeof(promops.po_stdin) + sizeof(promops.po_stdout))) {
		prom_halt();
	}
}