/*      $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();
        }
}