/*      $NetBSD: autoconf.c,v 1.28 2023/02/03 23:13:01 tsutsui Exp $    */

/*
 * Copyright (c) 1988 University of Utah.
 * Copyright (c) 1982, 1986, 1990, 1993
 *      The Regents of the University of California. All rights reserved.
 *
 * This code is derived from software contributed to Berkeley by
 * the Systems Programming Group of the University of Utah Computer
 * Science Department.
 *
 * 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.
 * 3. Neither the name of the University nor the names of its contributors
 *    may be used to endorse or promote products derived from this software
 *    without specific prior written permission.
 *
 * THIS SOFTWARE IS PROVIDED BY THE REGENTS 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 REGENTS 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.
 *
 * from: Utah $Hdr: autoconf.c 1.36 92/12/20$
 *
 *      @(#)autoconf.c  8.2 (Berkeley) 1/12/94
 */

/*
 * Setup the system to run on the current machine.
 *
 * Configure() is called at boot time.  Available
 * devices are determined (from possibilities mentioned in ioconf.c),
 * and the drivers are initialized.
 */

#include <sys/cdefs.h>
__KERNEL_RCSID(0, "$NetBSD: autoconf.c,v 1.28 2023/02/03 23:13:01 tsutsui Exp $");

#include <sys/param.h>
#include <sys/systm.h>
#include <sys/buf.h>
#include <sys/conf.h>
#include <sys/reboot.h>
#include <sys/device.h>

#include <machine/vmparam.h>
#include <machine/autoconf.h>
#include <machine/disklabel.h>
#include <machine/cpu.h>
#include <machine/pte.h>

#include <next68k/next68k/isr.h>
#include <next68k/next68k/nextrom.h>

#include <next68k/dev/intiovar.h>

volatile u_long *intrstat;
volatile u_long *intrmask;

static device_t getdevunit(const char *, int);
static int devidentparse(const char *, int *, int *, int *);
static int atoi(const char *);

struct device_equiv {
        const char *alias;
        const char *real;
};
static struct device_equiv device_equiv[] = {
        { "en", "xe" },
        { "tp", "xe" },
};
static int ndevice_equivs = (sizeof(device_equiv)/sizeof(device_equiv[0]));

/*
 * Determine mass storage and memory configuration for a machine.
 */
void
cpu_configure(void)
{
/*      int dma_rev; */
        extern u_int rom_intrmask;
        extern u_int rom_intrstat;

        booted_device = NULL;   /* set by device drivers (if found) */

        /* Initialize the interrupt handlers. */
        isrinit();

#if 0
        dma_rev = ((volatile u_char *)IIOV(NEXT_P_SCR1))[1];
        switch (dma_rev) {
        case 0:
                intrmask = (volatile u_long *)IIOV(NEXT_P_INTRMASK_0);
                intrstat = (volatile u_long *)IIOV(NEXT_P_INTRSTAT_0);
                /* dspreg = (volatile u_long *)IIOV(0x2007000); */
                break;
        case 1:
                intrmask = (volatile u_long *)IIOV(NEXT_P_INTRMASK);
                intrstat = (volatile u_long *)IIOV(NEXT_P_INTRSTAT);
                /* dspreg = (volatile u_long *)IIOV(0x2108000); */
                break;
        default:
                panic("unknown DMA chip revision");
        }
#else
        intrmask = (volatile u_long *)IIOV(rom_intrmask);
        intrstat = (volatile u_long *)IIOV(rom_intrstat);
        printf ("intrmask: %p\n", intrmask);
        printf ("intrstat: %p\n", intrstat);
#endif

        INTR_SETMASK(0);

        if (config_rootfound("mainbus", NULL) == NULL)
                panic("autoconfig failed, no root");

        /* Turn on interrupts */
        spl0();
}

void
cpu_rootconf(void)
{
        int count, lun, part;

        count = lun = part = 0;

        devidentparse (rom_boot_info, &count, &lun, &part);
        booted_device = getdevunit (rom_boot_dev, count);

        printf("boot device: %s\n",
                (booted_device) ? device_xname(booted_device) : "<unknown>");

        rootconf();
}

/*
 * find a device matching "name" and unit number
 */
static device_t
getdevunit(const char *name, int unit)
{
        int i;

        for (i = 0; i < ndevice_equivs; i++)
                if (device_equiv->alias &&
                    strcmp(name, device_equiv->alias) == 0)
                        name = device_equiv->real;

        return device_find_by_driver_unit(name, unit);
}

/*
 * Parse a device ident.
 *
 * Format:
 *   (count, lun, part)
 */
static int
devidentparse(const char *spec, int *count, int *lun, int *part)
{
        int i;
        const char *args[3];

        if (*spec == '(') {
                /* tokenize device ident */
                args[0] = ++spec;
                for (i = 1; *spec && *spec != ')' && i < 3; spec++) {
                        if (*spec == ',')
                                args[i++] = ++spec;
                }
                if (*spec != ')')
                        goto baddev;

                switch(i) {
                case 3:
                        *count = atoi(args[0]);
                        *lun = atoi(args[1]);
                        *part = atoi(args[2]);
                        break;
                case 2:
                        *lun = atoi(args[0]);
                        *part = atoi(args[1]);
                        break;
                case 1:
                        *part = atoi(args[0]);
                        break;
                case 0:
                        break;
                }
        } else
                goto baddev;

        return 0;

 baddev:
        return ENXIO;
}

static int
atoi(const char *s)
{
        int val = 0;

        while (isdigit(*s))
                val = val * 10 + (*s++ - '0');
        return val;
}