/*	$NetBSD: scsiconf.c,v 1.15 1994/11/03 20:24:21 mycroft Exp $	*/

/*
 * Copyright (c) 1994 Charles Hannum.  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 by Charles Hannum.
 * 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.
 */

/*
 * Originally written by Julian Elischer (julian@tfs.com)
 * for TRW Financial Systems for use under the MACH(2.5) operating system.
 *
 * TRW Financial Systems, in accordance with their agreement with Carnegie
 * Mellon University, makes this software available to CMU to distribute
 * or use in any manner that they see fit as long as this message is kept with
 * the software. For this reason TFS also grants any other persons or
 * organisations permission to use or modify this software.
 *
 * TFS supplies this software to be publicly redistributed
 * on the understanding that TFS is not responsible for the correct
 * functioning of this software in any circumstances.
 *
 * Ported to run under 386BSD by Julian Elischer (julian@tfs.com) Sept 1992
 */

#include <sys/types.h>
#include <sys/param.h>
#include <sys/systm.h>
#include <sys/malloc.h>
#include <sys/device.h>

#include <scsi/scsi_all.h>
#include <scsi/scsiconf.h>

#include "st.h"
#include "sd.h"
#include "ch.h"
#include "cd.h"
#include "uk.h"
#include "su.h"

#ifdef TFS
#include "bll.h"
#include "cals.h"
#include "kil.h"
#include "scan.h"
#else /* TFS */
#define	NBLL 0
#define	NCALS 0
#define	NKIL 0
#define	NSCAN 0
#endif /* TFS */

/*
 * The structure of known drivers for autoconfiguration
 */
struct scsidevs {
	char *devname;
	u_int32 type;
	boolean removable;
	int flags;		/* 1 show my comparisons during boot(debug) */
#define SC_SHOWME	0x01
#define	SC_ONE_LU	0x00
#define	SC_MORE_LUS	0x02
	char *manufacturer;
	char *model;
	char *version;
};

#if	NUK > 0
static struct scsidevs unknowndev = {
	"uk", -1, 0, SC_MORE_LUS,
	"standard", "any", "any"
};
#endif 	/*NUK*/

static struct scsidevs knowndevs[] = {
#if NSD > 0
	{ "sd", T_DIRECT, T_FIXED, SC_ONE_LU,
	  "standard", "any", "any" },
	{ "sd", T_DIRECT, T_FIXED, SC_ONE_LU,
	  "MAXTOR  ", "XT-4170S        ", "B5A " },
#endif	/* NSD */
#if NST > 0
	{ "st", T_SEQUENTIAL, T_REMOV, SC_ONE_LU,
	  "standard", "any", "any" },
#endif	/* NST */
#if NCALS > 0
	{ "cals", T_PROCESSOR, T_FIXED, SC_MORE_LUS,
	  "standard", "any", "any" },
#endif	/* NCALS */
#if NCH > 0
	{ "ch", T_CHANGER, T_REMOV, SC_ONE_LU,
	  "standard", "any", "any" },
#endif	/* NCH */
#if NCD > 0
#ifndef UKTEST	/* make cdroms unrecognised to test the uk driver */
	{ "cd", T_READONLY, T_REMOV, SC_ONE_LU,
	  "SONY    ", "CD-ROM CDU-8012 ", "3.1a" },
	{ "cd", T_READONLY, T_REMOV, SC_MORE_LUS,
	  "PIONEER ", "CD-ROM DRM-600  ", "any" },
#endif
#endif	/* NCD */
#if NBLL > 0
	{ "bll", T_PROCESSOR, T_FIXED, SC_MORE_LUS,
	  "AEG     ", "READER          ", "V1.0" },
#endif	/* NBLL */
#if NKIL > 0
	{ "kil", T_SCANNER, T_FIXED, SC_ONE_LU,
	  "KODAK   ", "IL Scanner 900  ", "any" },
#endif	/* NKIL */
	{ 0 }
};

/*
 * Declarations
 */
struct scsidevs *scsi_probedev();
struct scsidevs *selectdev();
int scsi_probe_bus __P((int bus, int targ, int lun));

struct scsi_device probe_switch = {
	NULL,
	NULL,
	NULL,
	NULL,
	"probe",
	0,
};

int scsibusmatch __P((struct device *, struct cfdata *, void *));
void scsibusattach __P((struct device *, struct device *, void *));

struct cfdriver scsibuscd = {
	NULL, "scsibus", scsibusmatch, scsibusattach, DV_DULL,
	sizeof(struct scsibus_data)
};

int
scsibusmatch(parent, cf, aux)
        struct device *parent;
        struct cfdata *cf;
        void *aux;
{

	return 1;
}

/*
 * The routine called by the adapter boards to get all their
 * devices configured in.
 */
void
scsibusattach(parent, self, aux)
        struct device *parent, *self;
        void *aux;
{
	struct scsibus_data *sb = (struct scsibus_data *)self;
	struct scsi_link *sc_link_proto = aux;

	sc_link_proto->scsibus = sb->sc_dev.dv_unit;
	sb->adapter_link = sc_link_proto;
	printf("\n");

#if defined(SCSI_DELAY) && SCSI_DELAY > 2
	printf("%s: waiting for scsi devices to settle\n",
		sb->sc_dev.dv_xname);
#else	/* SCSI_DELAY > 2 */
#undef	SCSI_DELAY
#define SCSI_DELAY 2
#endif	/* SCSI_DELAY */
	delay(1000000 * SCSI_DELAY);

	scsi_probe_bus(sb->sc_dev.dv_unit, -1, -1);
}

/*
 * Probe the requested scsi bus. It must be already set up.
 * -1 requests all set up scsi busses.
 * targ and lun optionally narrow the search if not -1
 */
int
scsi_probe_busses(bus, targ, lun)
	int bus, targ, lun;
{

	if (bus == -1) {
		for (bus = 0; bus < scsibuscd.cd_ndevs; bus++)
			if (scsibuscd.cd_devs[bus])
				scsi_probe_bus(bus, targ, lun);
		return 0;
	} else {
		return scsi_probe_bus(bus, targ, lun);
	}
}

/*
 * Probe the requested scsi bus. It must be already set up.
 * targ and lun optionally narrow the search if not -1
 */
int
scsi_probe_bus(bus, targ, lun)
	int bus, targ, lun;
{
	struct scsibus_data *scsi;
	int	maxtarg, mintarg, maxlun, minlun;
	struct scsi_link *sc_link_proto;
	u_int8  scsi_addr ;
	struct scsidevs *bestmatch = NULL;
	struct scsi_link *sc_link = NULL;
	boolean maybe_more;

	if (bus < 0 || bus >= scsibuscd.cd_ndevs)
		return ENXIO;
	scsi = scsibuscd.cd_devs[bus];
	if (!scsi)
		return ENXIO;

	sc_link_proto = scsi->adapter_link;
	scsi_addr = sc_link_proto->adapter_targ;

	if (targ == -1) {
		maxtarg = 7;
		mintarg = 0;
	} else {
		if (targ < 0 || targ > 7)
			return EINVAL;
		maxtarg = mintarg = targ;
	}

	if (lun == -1) {
		maxlun = 7;
		minlun = 0;
	} else {
		if (lun < 0 || lun > 7)
			return EINVAL;
		maxlun = minlun = lun;
	}

	for (targ = mintarg; targ <= maxtarg; targ++) {
		maybe_more = 0;	/* by default only check 1 lun */
#if 0 /* XXXX */
		if (targ == scsi_addr)
			continue;
#endif
		for (lun = minlun; lun <= maxlun; lun++) {
			/*
			 * The spot appears to already have something
			 * linked in, skip past it. Must be doing a 'reprobe'
			 */
			if (scsi->sc_link[targ][lun]) {
				/* don't do this one, but check other luns */
				maybe_more = 1;
				continue;
			}
			/*
			 * If we presently don't have a link block
			 * then allocate one to use while probing
			 */
			if (!sc_link) {
				sc_link = malloc(sizeof(*sc_link), M_TEMP, M_NOWAIT);
				*sc_link = *sc_link_proto;	/* struct copy */
				sc_link->opennings = 1;
				sc_link->device = &probe_switch;
			}
			sc_link->target = targ;
			sc_link->lun = lun;
			bestmatch = scsi_probedev(sc_link, &maybe_more);
			/*
			 * We already know what the device is.  We use a
			 * special matching routine which insists that the
			 * cfdata is of the right type rather than putting
			 * more intelligence in individual match routines for
			 * each high-level driver.  We must have
			 * scsi_targmatch() do all of the comparisons, or we
			 * could get stuck in an infinite loop trying the same
			 * device repeatedly.  We use the `fordriver' field of
			 * the scsi_link for now, rather than inventing a new
			 * structure just for the config_search().
			 */
			if (bestmatch) {
				sc_link->fordriver = bestmatch->devname;
				if (config_found((struct device *)scsi,
						 sc_link, NULL)) {
					scsi->sc_link[targ][lun] = sc_link;
					sc_link = NULL;	/* it's been used */
				} else
					printf("No matching config entry.\n");
			}
			if (!maybe_more)/* nothing suggests we'll find more */
				break;	/* nothing here, skip to next targ */
			/* otherwise something says we should look further */
		}
	}
	if (sc_link)
		free(sc_link, M_TEMP);
	return 0;
}

int
#ifndef CONFIG_INDIRECT
scsi_targmatch(parent, cf, aux)
	struct device *parent;
	struct cfdata *cf;
	void *aux;
{
#else
scsi_targmatch(parent, self, aux)
	struct device *parent, *self;
	void *aux;
{
	struct cfdata *cf = self->dv_cfdata;
#endif
	struct scsi_link *sc_link = aux;
	char *devname = sc_link->fordriver;

	if (cf->cf_loc[0] != -1 && cf->cf_loc[0] != sc_link->target)
		return 0;
	if (cf->cf_loc[1] != -1 && cf->cf_loc[1] != sc_link->lun)
		return 0;
	if (strcmp(cf->cf_driver->cd_name, devname))
		return 0;

	return 1;
}

/*
 * given a target and lu, ask the device what
 * it is, and find the correct driver table
 * entry.
 */
struct scsidevs *
scsi_probedev(sc_link, maybe_more)
	boolean *maybe_more;
	struct scsi_link *sc_link;
{
	u_int8  target = sc_link->target;
	u_int8  lun = sc_link->lun;
	struct scsi_adapter *scsi_adapter = sc_link->adapter;
	struct scsidevs *bestmatch = NULL;
	char   *dtype = NULL, *desc;
	char   *qtype;
	static struct scsi_inquiry_data inqbuf;
	u_int32 len, qualifier, type;
	boolean remov;
	char    manu[32];
	char    model[32];
	char    version[32];

	bzero(&inqbuf, sizeof(inqbuf));
	/*
	 * Ask the device what it is
	 */
#ifdef	SCSIDEBUG
	if (target == DEBUGTARG && lun == DEBUGLUN)
		sc_link->flags |= DEBUGLEVEL;
	else
		sc_link->flags &= ~(SDEV_DB1 | SDEV_DB2 | SDEV_DB3 | SDEV_DB4);
#endif	/* SCSIDEBUG */
	/* catch unit attn */
	scsi_test_unit_ready(sc_link, SCSI_NOSLEEP | SCSI_NOMASK | SCSI_SILENT);
#ifdef	DOUBTFULL
	switch (scsi_test_unit_ready(sc_link, SCSI_NOSLEEP | SCSI_NOMASK | SCSI_SILENT)) {
	case 0:		/* said it WAS ready */
	case EBUSY:		/* replied 'NOT READY' but WAS present, continue */
	case ENXIO:
		break;
	case EIO:		/* device timed out */
	case EINVAL:		/* Lun not supported */
	default:
		return NULL;

	}
#endif	/*DOUBTFULL*/
#ifdef	SCSI_2_DEF
	/* some devices need to be told to go to SCSI2 */
	/* However some just explode if you tell them this.. leave it out */
	scsi_change_def(sc_link, SCSI_NOSLEEP | SCSI_NOMASK | SCSI_SILENT);
#endif /*SCSI_2_DEF */

	/* Now go ask the device all about itself */
	if (scsi_inquire(sc_link, &inqbuf, SCSI_NOSLEEP | SCSI_NOMASK) != 0)
		return NULL;

	/*
	 * note what BASIC type of device it is
	 */
	type = inqbuf.device & SID_TYPE;
	qualifier = inqbuf.device & SID_QUAL;
	remov = inqbuf.dev_qual2 & SID_REMOVABLE;

	/*
	 * Any device qualifier that has the top bit set (qualifier&4 != 0)
	 * is vendor specific and won't match in this switch.
	 */
	switch (qualifier) {
	case SID_QUAL_LU_OK:
		qtype = "";
		break;

	case SID_QUAL_LU_OFFLINE:
		qtype = ", Unit not Connected!";
		break;

	case SID_QUAL_RSVD:
		qtype = ", Reserved Peripheral Qualifier!";
		*maybe_more = 1;
		return NULL;
		break;

	case SID_QUAL_BAD_LU:
		/*
		 * Check for a non-existent unit.  If the device is returning
		 * this much, then we must set the flag that has
		 * the searchers keep looking on other luns.
		 */
		qtype = ", The Target can't support this Unit!";
		*maybe_more = 1;
		return NULL;

	default:
		dtype = "vendor specific";
		qtype = "";
		*maybe_more = 1;
		break;
	}
	if (dtype == 0) {
		switch (type) {
		case T_DIRECT:
			dtype = "direct";
			break;
		case T_SEQUENTIAL:
			dtype = "sequential";
			break;
		case T_PRINTER:
			dtype = "printer";
			break;
		case T_PROCESSOR:
			dtype = "processor";
			break;
		case T_READONLY:
			dtype = "readonly";
			break;
		case T_WORM:
			dtype = "worm";
			break;
		case T_SCANNER:
			dtype = "scanner";
			break;
		case T_OPTICAL:
			dtype = "optical";
			break;
		case T_CHANGER:
			dtype = "changer";
			break;
		case T_COMM:
			dtype = "communication";
			break;
		case T_NODEVICE:
			*maybe_more = 1;
			return NULL;
		default:
			dtype = NULL;
			break;
		}
	}

	/*
	 * Then if it's advanced enough, more detailed
	 * information
	 */
	if ((inqbuf.version & SID_ANSII) > 0) {
		if ((len = inqbuf.additional_length
			+ ((char *) inqbuf.unused
			    - (char *) &inqbuf))
		    > (sizeof(struct scsi_inquiry_data) - 1))
			        len = sizeof(struct scsi_inquiry_data) - 1;
		desc = inqbuf.vendor;
		desc[len - (desc - (char *) &inqbuf)] = 0;
		strncpy(manu, inqbuf.vendor, 8);
		manu[8] = 0;
		strncpy(model, inqbuf.product, 16);
		model[16] = 0;
		strncpy(version, inqbuf.revision, 4);
		version[4] = 0;
	} else
		/*
		 * If not advanced enough, use default values
		 */
	{
		desc = "early protocol device";
		strncpy(manu, "unknown", 8);
		strncpy(model, "unknown", 16);
		strncpy(version, "????", 4);
	}
	printf("%s targ %d lun %d: <%s%s%s> SCSI%d ",
		((struct device *)sc_link->adapter_softc)->dv_xname,
		target, lun, manu, model, version,
		inqbuf.version & SID_ANSII);
	if (dtype)
		printf("%s", dtype);
	else
		printf("type %d", type);
	printf(" %s\n", remov ? "removable" : "fixed");
	if (qtype[0])
		printf("%s targ %d lun %d: qualifier %d(%s)\n",
			((struct device *)sc_link->adapter_softc)->dv_xname,
			target, lun, qualifier, qtype);

	/*
	 * Try make as good a match as possible with
	 * available sub drivers       
	 */
	bestmatch = selectdev(qualifier, type, remov ? T_REMOV : T_FIXED,
			manu, model, version);
	if (bestmatch && bestmatch->flags & SC_MORE_LUS)
		*maybe_more = 1;
	return bestmatch;
}

/*
 * Try make as good a match as possible with
 * available sub drivers       
 */
struct scsidevs *
selectdev(qualifier, type, remov, manu, model, rev)
	u_int32 qualifier, type;
	boolean remov;
	char   *manu, *model, *rev;
{
	u_int32 numents = (sizeof(knowndevs) / sizeof(struct scsidevs)) - 1;
	u_int32 count = 0;
	u_int32 bestmatches = 0;
	struct scsidevs *bestmatch = (struct scsidevs *) 0;
	struct scsidevs *thisentry = knowndevs;

	type |= qualifier;	/* why? */

	thisentry--;
	while (count++ < numents) {
		thisentry++;
		if (type != thisentry->type)
			continue;
		if (bestmatches < 1) {
			bestmatches = 1;
			bestmatch = thisentry;
		}
		if (remov != thisentry->removable)
			continue;
		if (bestmatches < 2) {
			bestmatches = 2;
			bestmatch = thisentry;
		}
		if (thisentry->flags & SC_SHOWME)
			printf("\n%s-\n%s-", thisentry->manufacturer, manu);
		if (strcmp(thisentry->manufacturer, manu))
			continue;
		if (bestmatches < 3) {
			bestmatches = 3;
			bestmatch = thisentry;
		}
		if (thisentry->flags & SC_SHOWME)
			printf("\n%s-\n%s-", thisentry->model, model);
		if (strcmp(thisentry->model, model))
			continue;
		if (bestmatches < 4) {
			bestmatches = 4;
			bestmatch = thisentry;
		}
		if (thisentry->flags & SC_SHOWME)
			printf("\n%s-\n%s-", thisentry->version, rev);
		if (strcmp(thisentry->version, rev))
			continue;
		if (bestmatches < 5) {
			bestmatches = 5;
			bestmatch = thisentry;
			break;
		}
	}
#if NUK > 0
	if (!bestmatch)
		bestmatch = &unknowndev;
#endif
	if (!bestmatch)
		printf("No matching driver.\n");
	return bestmatch;
}