/*	$NetBSD: bi.c,v 1.25 2010/12/15 00:08:43 matt Exp $ */
/*
 * Copyright (c) 1996 Ludd, University of Lule}, Sweden.
 * All rights reserved.
 *
 * 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 at Ludd, University of
 *      Lule}, Sweden and its contributors.
 * 4. The name of the author may not be used to endorse or promote products
 *    derived from this software without specific prior written permission
 *
 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``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 AUTHOR 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.
 */



/*
 * VAXBI specific routines.
 */
/*
 * TODO
 *   handle BIbus errors more gracefully.
 */

#include <sys/cdefs.h>
__KERNEL_RCSID(0, "$NetBSD: bi.c,v 1.25 2010/12/15 00:08:43 matt Exp $");

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

#include <sys/bus.h>
#include <sys/cpu.h>
#include <sys/device.h>

#include <dev/bi/bireg.h>
#include <dev/bi/bivar.h>

static int bi_print(void *, const char *);

static const struct bi_list bi_list[] = {
	{BIDT_MS820, DT_HAVDRV, "ms820"},
	{BIDT_DRB32, DT_UNSUPP, "drb32"},
	{BIDT_DWBUA, DT_HAVDRV|DT_ADAPT, "dwbua"},
	{BIDT_KLESI, DT_HAVDRV|DT_ADAPT, "klesi"},
	{BIDT_KA820, DT_HAVDRV, "ka820"},
	{BIDT_DB88,  DT_HAVDRV|DT_QUIET, "db88"},
	{BIDT_CIBCA, DT_UNSUPP, "cibca"},
	{BIDT_DMB32, DT_UNSUPP, "dmb32"},
	{BIDT_CIBCI, DT_UNSUPP, "cibci"},
	{BIDT_KA800, DT_UNSUPP, "ka800"},
	{BIDT_KDB50, DT_HAVDRV|DT_VEC, "kdb50"},
	{BIDT_DWMBA, DT_HAVDRV|DT_QUIET, "dwmba"},
	{BIDT_KFBTA, DT_UNSUPP, "kfbta"},
	{BIDT_DEBNK, DT_HAVDRV|DT_VEC, "debnk"},
	{BIDT_DEBNA, DT_HAVDRV|DT_VEC, "debna"},
	{0,0,0}
};

int
bi_print(void *aux, const char *name)
{
	struct bi_attach_args *ba = aux;
	const struct bi_list *bl;
	u_int16_t nr;

	nr = bus_space_read_2(ba->ba_iot, ba->ba_ioh, 0);
	for (bl = &bi_list[0]; bl->bl_nr; bl++)
		if (bl->bl_nr == nr)
			break;

	if (name) {
		if (bl->bl_nr == 0)
			aprint_normal("unknown device 0x%x", nr);
		else
			aprint_normal(bl->bl_name);
		aprint_normal(" at %s", name);
	}
	aprint_normal(" node %d", ba->ba_nodenr);
	if (bl->bl_havedriver & DT_VEC)
		aprint_normal(" vec %o", ba->ba_ivec & 511);
#ifdef DEBUG
	if (bus_space_read_4(ba->ba_iot, ba->ba_ioh, BIREG_SADR) &&
	    bus_space_read_4(ba->ba_iot, ba->ba_ioh, BIREG_EADR))
		aprint_debug(" [sadr %x eadr %x]",
		    bus_space_read_4(ba->ba_iot, ba->ba_ioh, BIREG_SADR),
		    bus_space_read_4(ba->ba_iot, ba->ba_ioh, BIREG_EADR));
#endif
	if (bl->bl_havedriver & DT_QUIET)
		aprint_normal("\n");
	return bl->bl_havedriver & DT_QUIET ? QUIET :
	    bl->bl_havedriver & DT_HAVDRV ? UNCONF : UNSUPP;
}

void
bi_attach(struct bi_softc *sc)
{
	struct bi_attach_args ba;
	int nodenr;

	aprint_normal("\n");

	ba.ba_iot = sc->sc_iot;
	ba.ba_busnr = sc->sc_busnr;
	ba.ba_dmat = sc->sc_dmat;
	ba.ba_intcpu = sc->sc_intcpu;
	ba.ba_icookie = sc;
	/*
	 * Interrupt numbers. Assign them as described in
	 * VAX 8800 system maintenance manual; this means like nexus
	 * adapters have them assigned.
	 * XXX - must address Unibus adapters.
	 */
	for (nodenr = 0; nodenr < NNODEBI; nodenr++) {
		if (bus_space_map(sc->sc_iot, sc->sc_addr + BI_NODE(nodenr),
		    BI_NODESIZE, 0, &ba.ba_ioh)) {
			aprint_error_dev(sc->sc_dev,
			    "bus_space_map failed, node %d\n", nodenr);
			return;
		}
		if (badaddr((void *)ba.ba_ioh, 4) ||
		    (bus_space_read_2(ba.ba_iot, ba.ba_ioh, 0) == 0)) {
			bus_space_unmap(ba.ba_iot, ba.ba_ioh, BI_NODESIZE);
			continue;
		}
		ba.ba_nodenr = nodenr;
		ba.ba_ivec = sc->sc_lastiv + 64 + 4 * nodenr; /* all on spl5 */
		config_found(sc->sc_dev, &ba, bi_print);
	}
}