xref: /src/sys/arch/next68k/next68k/autoconf.c

/*	$NetBSD: autoconf.c,v 1.8 2002/07/11 16:03:14 christos 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. All advertising materials mentioning features or use of this software
 *    must display the following acknowledgement:
 *	This product includes software developed by the University of
 *	California, Berkeley and its contributors.
 * 4. 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/param.h>
#include <sys/systm.h>
#include <sys/map.h>
#include <sys/buf.h>
#include <sys/dkstat.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>

struct device *booted_device;	/* boot device */

void mainbus_attach __P((struct device *, struct device *, void *));
int  mainbus_match __P((struct device *, struct cfdata *, void *));
int  mainbus_print __P((void *, const char *));

static struct device *getdevunit __P((char *, int));
static int devidentparse __P((const char *, int *, int *, int *));
static int atoi __P((const char *));

struct mainbus_softc {
	struct device sc_dev;
};

struct cfattach mainbus_ca = {
	sizeof(struct mainbus_softc), mainbus_match, mainbus_attach
};

#if 0
struct cfdriver mainbus_cd = {
	NULL, "mainbus", DV_DULL, 0
};
#endif

static	char *mainbusdevs[] = {
        "intio",
        "nextdisplay",
	NULL
};

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

int
mainbus_match(parent, cf, args)
	struct device *parent;
	struct cfdata *cf;
	void *args;
{
	static int mainbus_matched;

	if (mainbus_matched)
		return (0);

	return ((mainbus_matched = 1));
}

void
mainbus_attach(parent, self, args)
	struct device *parent, *self;
	void *args;
{
	char **devices;
	int i;

	printf("\n");

	/*
	 * Attach children.
	 */
        devices = mainbusdevs;

	for (i = 0; devices[i] != NULL; ++i)
		(void)config_found(self, devices[i], mainbus_print);
}

int
mainbus_print(aux, cp)
	void *aux;
	const char *cp;
{
	char *devname = aux;

	if (cp)
		printf("%s at %s\n", devname, cp);

	return (UNCONF);
}

/*
 * Determine mass storage and memory configuration for a machine.
 */
void
cpu_configure()
{

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

	INTR_SETMASK(0);

	init_sir();

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

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

void
cpu_rootconf()
{
	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) ? booted_device->dv_xname : "<unknown>");

	setroot(booted_device, part);
}

/*
 * find a device matching "name" and unit number
 */
static struct device *
getdevunit(name, unit)
	char *name;
	int unit;
{
	struct device *dev = alldevs.tqh_first;
	char num[10], fullname[16];
	int lunit;
	int i;

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

	/* compute length of name and decimal expansion of unit number */
	sprintf(num, "%d", unit);
	lunit = strlen(num);
	if (strlen(name) + lunit >= sizeof(fullname) - 1)
		panic("config_attach: device name too long");

	strcpy(fullname, name);
	strcat(fullname, num);

	while (strcmp(dev->dv_xname, fullname) != 0) {
		if ((dev = dev->dv_list.tqe_next) == NULL)
			return NULL;
	}
	return dev;
}

/*
 * Parse a device ident.
 *
 * Format:
 *   (count, lun, part)
 */
static int
devidentparse(spec, count, lun, part)
	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(s)
	const char *s;
{
	int val = 0;

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