Home | History | Annotate | Line # | Download | only in scsipi
ch.c revision 1.37.2.1
      1  1.37.2.1    bouyer /*	$NetBSD: ch.c,v 1.37.2.1 1999/04/05 16:39:32 bouyer Exp $	*/
      2       1.8       cgd 
      3       1.1       cgd /*
      4      1.35   thorpej  * Copyright (c) 1996, 1997, 1998 Jason R. Thorpe <thorpej (at) and.com>
      5      1.20   thorpej  * All rights reserved.
      6      1.20   thorpej  *
      7      1.20   thorpej  * Partially based on an autochanger driver written by Stefan Grefen
      8      1.20   thorpej  * and on an autochanger driver written by the Systems Programming Group
      9      1.20   thorpej  * at the University of Utah Computer Science Department.
     10       1.6   mycroft  *
     11       1.6   mycroft  * Redistribution and use in source and binary forms, with or without
     12       1.6   mycroft  * modification, are permitted provided that the following conditions
     13       1.6   mycroft  * are met:
     14       1.6   mycroft  * 1. Redistributions of source code must retain the above copyright
     15       1.6   mycroft  *    notice, this list of conditions and the following disclaimer.
     16       1.6   mycroft  * 2. Redistributions in binary form must reproduce the above copyright
     17       1.6   mycroft  *    notice, this list of conditions and the following disclaimer in the
     18       1.6   mycroft  *    documentation and/or other materials provided with the distribution.
     19       1.6   mycroft  * 3. All advertising materials mentioning features or use of this software
     20      1.20   thorpej  *    must display the following acknowledgements:
     21      1.20   thorpej  *	This product includes software developed by Jason R. Thorpe
     22      1.20   thorpej  *	for And Communications, http://www.and.com/
     23       1.6   mycroft  * 4. The name of the author may not be used to endorse or promote products
     24       1.6   mycroft  *    derived from this software without specific prior written permission.
     25       1.6   mycroft  *
     26       1.6   mycroft  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
     27       1.6   mycroft  * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
     28       1.6   mycroft  * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
     29       1.6   mycroft  * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
     30      1.20   thorpej  * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
     31      1.20   thorpej  * BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
     32      1.20   thorpej  * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED
     33      1.20   thorpej  * AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
     34      1.20   thorpej  * OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
     35      1.20   thorpej  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
     36      1.20   thorpej  * SUCH DAMAGE.
     37       1.6   mycroft  */
     38       1.1       cgd 
     39       1.1       cgd #include <sys/param.h>
     40       1.1       cgd #include <sys/systm.h>
     41       1.1       cgd #include <sys/errno.h>
     42       1.1       cgd #include <sys/ioctl.h>
     43       1.1       cgd #include <sys/buf.h>
     44       1.1       cgd #include <sys/proc.h>
     45       1.1       cgd #include <sys/user.h>
     46      1.20   thorpej #include <sys/chio.h>
     47       1.6   mycroft #include <sys/device.h>
     48      1.20   thorpej #include <sys/malloc.h>
     49      1.21  christos #include <sys/conf.h>
     50      1.22   thorpej #include <sys/fcntl.h>
     51       1.1       cgd 
     52      1.27    bouyer #include <dev/scsipi/scsipi_all.h>
     53      1.27    bouyer #include <dev/scsipi/scsi_all.h>
     54      1.27    bouyer #include <dev/scsipi/scsi_changer.h>
     55      1.27    bouyer #include <dev/scsipi/scsiconf.h>
     56       1.1       cgd 
     57      1.20   thorpej #define CHRETRIES	2
     58      1.20   thorpej #define CHUNIT(x)	(minor((x)))
     59      1.20   thorpej 
     60      1.20   thorpej struct ch_softc {
     61      1.20   thorpej 	struct device	sc_dev;		/* generic device info */
     62      1.27    bouyer 	struct scsipi_link *sc_link;	/* link in the SCSI bus */
     63      1.20   thorpej 
     64      1.20   thorpej 	int		sc_picker;	/* current picker */
     65       1.1       cgd 
     66      1.20   thorpej 	/*
     67      1.20   thorpej 	 * The following information is obtained from the
     68      1.20   thorpej 	 * element address assignment page.
     69      1.20   thorpej 	 */
     70      1.20   thorpej 	int		sc_firsts[4];	/* firsts, indexed by CHET_* */
     71      1.20   thorpej 	int		sc_counts[4];	/* counts, indexed by CHET_* */
     72       1.1       cgd 
     73      1.20   thorpej 	/*
     74      1.20   thorpej 	 * The following mask defines the legal combinations
     75      1.20   thorpej 	 * of elements for the MOVE MEDIUM command.
     76      1.20   thorpej 	 */
     77      1.20   thorpej 	u_int8_t	sc_movemask[4];
     78      1.20   thorpej 
     79      1.20   thorpej 	/*
     80      1.20   thorpej 	 * As above, but for EXCHANGE MEDIUM.
     81      1.20   thorpej 	 */
     82      1.20   thorpej 	u_int8_t	sc_exchangemask[4];
     83       1.1       cgd 
     84      1.20   thorpej 	int		flags;		/* misc. info */
     85      1.26   thorpej 
     86      1.26   thorpej 	/*
     87      1.26   thorpej 	 * Quirks; see below.
     88      1.26   thorpej 	 */
     89      1.26   thorpej 	int		sc_settledelay;	/* delay for settle */
     90      1.26   thorpej 
     91       1.6   mycroft };
     92       1.6   mycroft 
     93      1.20   thorpej /* sc_flags */
     94      1.20   thorpej #define CHF_ROTATE	0x01		/* picker can rotate */
     95      1.20   thorpej 
     96      1.20   thorpej /* Autoconfiguration glue */
     97      1.25       cgd int	chmatch __P((struct device *, struct cfdata *, void *));
     98      1.15  christos void	chattach __P((struct device *, struct device *, void *));
     99       1.6   mycroft 
    100      1.17   thorpej struct cfattach ch_ca = {
    101      1.17   thorpej 	sizeof(struct ch_softc), chmatch, chattach
    102      1.17   thorpej };
    103      1.17   thorpej 
    104      1.32   thorpej extern struct cfdriver ch_cd;
    105       1.1       cgd 
    106      1.27    bouyer struct scsipi_inquiry_pattern ch_patterns[] = {
    107      1.20   thorpej 	{T_CHANGER, T_REMOV,
    108      1.20   thorpej 	 "",		"",		""},
    109      1.20   thorpej };
    110      1.20   thorpej 
    111      1.20   thorpej /* SCSI glue */
    112      1.27    bouyer struct scsipi_device ch_switch = {
    113      1.20   thorpej 	NULL, NULL, NULL, NULL
    114       1.6   mycroft };
    115       1.6   mycroft 
    116      1.20   thorpej int	ch_move __P((struct ch_softc *, struct changer_move *));
    117      1.20   thorpej int	ch_exchange __P((struct ch_softc *, struct changer_exchange *));
    118      1.20   thorpej int	ch_position __P((struct ch_softc *, struct changer_position *));
    119      1.28    mjacob int	ch_ielem __P((struct ch_softc *));
    120      1.20   thorpej int	ch_usergetelemstatus __P((struct ch_softc *, int, u_int8_t *));
    121      1.20   thorpej int	ch_getelemstatus __P((struct ch_softc *, int, int, caddr_t, size_t));
    122      1.20   thorpej int	ch_get_params __P((struct ch_softc *, int));
    123      1.29     enami void	ch_get_quirks __P((struct ch_softc *,
    124      1.29     enami 	    struct scsipi_inquiry_pattern *));
    125      1.26   thorpej 
    126      1.26   thorpej /*
    127      1.26   thorpej  * SCSI changer quirks.
    128      1.26   thorpej  */
    129      1.26   thorpej struct chquirk {
    130      1.27    bouyer 	struct	scsipi_inquiry_pattern cq_match; /* device id pattern */
    131      1.26   thorpej 	int	cq_settledelay;	/* settle delay, in seconds */
    132      1.26   thorpej };
    133      1.26   thorpej 
    134      1.26   thorpej struct chquirk chquirks[] = {
    135      1.26   thorpej 	{{T_CHANGER, T_REMOV,
    136      1.26   thorpej 	  "SPECTRA",	"9000",		"0200"},
    137      1.26   thorpej 	 75},
    138      1.26   thorpej };
    139      1.13   mycroft 
    140      1.13   mycroft int
    141      1.13   mycroft chmatch(parent, match, aux)
    142      1.13   mycroft 	struct device *parent;
    143      1.25       cgd 	struct cfdata *match;
    144      1.25       cgd 	void *aux;
    145      1.13   mycroft {
    146      1.27    bouyer 	struct scsipibus_attach_args *sa = aux;
    147      1.13   mycroft 	int priority;
    148      1.13   mycroft 
    149      1.27    bouyer 	(void)scsipi_inqmatch(&sa->sa_inqbuf,
    150      1.29     enami 	    (caddr_t)ch_patterns, sizeof(ch_patterns) / sizeof(ch_patterns[0]),
    151      1.13   mycroft 	    sizeof(ch_patterns[0]), &priority);
    152      1.20   thorpej 
    153      1.13   mycroft 	return (priority);
    154      1.13   mycroft }
    155      1.13   mycroft 
    156      1.20   thorpej void
    157       1.6   mycroft chattach(parent, self, aux)
    158       1.6   mycroft 	struct device *parent, *self;
    159       1.6   mycroft 	void *aux;
    160       1.1       cgd {
    161      1.20   thorpej 	struct ch_softc *sc = (struct ch_softc *)self;
    162      1.27    bouyer 	struct scsipibus_attach_args *sa = aux;
    163      1.27    bouyer 	struct scsipi_link *link = sa->sa_sc_link;
    164      1.20   thorpej 
    165      1.20   thorpej 	/* Glue into the SCSI bus */
    166      1.20   thorpej 	sc->sc_link = link;
    167      1.20   thorpej 	link->device = &ch_switch;
    168      1.20   thorpej 	link->device_softc = sc;
    169      1.20   thorpej 	link->openings = 1;
    170       1.1       cgd 
    171      1.24  christos 	printf("\n");
    172       1.1       cgd 
    173       1.6   mycroft 	/*
    174      1.26   thorpej 	 * Find out our device's quirks.
    175      1.26   thorpej 	 */
    176      1.27    bouyer 	ch_get_quirks(sc, &sa->sa_inqbuf);
    177      1.26   thorpej 
    178      1.26   thorpej 	/*
    179      1.26   thorpej 	 * Some changers require a long time to settle out, to do
    180      1.26   thorpej 	 * tape inventory, for instance.
    181      1.26   thorpej 	 */
    182      1.26   thorpej 	if (sc->sc_settledelay) {
    183      1.26   thorpej 		printf("%s: waiting %d seconds for changer to settle...\n",
    184      1.26   thorpej 		    sc->sc_dev.dv_xname, sc->sc_settledelay);
    185      1.26   thorpej 		delay(1000000 * sc->sc_settledelay);
    186      1.26   thorpej 	}
    187      1.26   thorpej 
    188      1.26   thorpej 	/*
    189      1.20   thorpej 	 * Get information about the device.  Note we can't use
    190      1.20   thorpej 	 * interrupts yet.
    191       1.6   mycroft 	 */
    192      1.20   thorpej 	if (ch_get_params(sc, SCSI_AUTOCONF))
    193      1.24  christos 		printf("%s: offline\n", sc->sc_dev.dv_xname);
    194      1.20   thorpej 	else {
    195      1.26   thorpej #define PLURAL(c)	(c) == 1 ? "" : "s"
    196      1.26   thorpej 		printf("%s: %d slot%s, %d drive%s, %d picker%s, %d portal%s\n",
    197      1.20   thorpej 		    sc->sc_dev.dv_xname,
    198      1.26   thorpej 		    sc->sc_counts[CHET_ST], PLURAL(sc->sc_counts[CHET_ST]),
    199      1.26   thorpej 		    sc->sc_counts[CHET_DT], PLURAL(sc->sc_counts[CHET_DT]),
    200      1.26   thorpej 		    sc->sc_counts[CHET_MT], PLURAL(sc->sc_counts[CHET_MT]),
    201      1.26   thorpej 		    sc->sc_counts[CHET_IE], PLURAL(sc->sc_counts[CHET_IE]));
    202      1.26   thorpej #undef PLURAL
    203      1.20   thorpej #ifdef CHANGER_DEBUG
    204      1.24  christos 		printf("%s: move mask: 0x%x 0x%x 0x%x 0x%x\n",
    205      1.20   thorpej 		    sc->sc_dev.dv_xname,
    206      1.20   thorpej 		    sc->sc_movemask[CHET_MT], sc->sc_movemask[CHET_ST],
    207      1.20   thorpej 		    sc->sc_movemask[CHET_IE], sc->sc_movemask[CHET_DT]);
    208      1.24  christos 		printf("%s: exchange mask: 0x%x 0x%x 0x%x 0x%x\n",
    209      1.20   thorpej 		    sc->sc_dev.dv_xname,
    210      1.20   thorpej 		    sc->sc_exchangemask[CHET_MT], sc->sc_exchangemask[CHET_ST],
    211      1.20   thorpej 		    sc->sc_exchangemask[CHET_IE], sc->sc_exchangemask[CHET_DT]);
    212      1.20   thorpej #endif /* CHANGER_DEBUG */
    213      1.20   thorpej 	}
    214       1.6   mycroft 
    215      1.20   thorpej 	/* Default the current picker. */
    216      1.20   thorpej 	sc->sc_picker = sc->sc_firsts[CHET_MT];
    217       1.1       cgd }
    218       1.1       cgd 
    219      1.20   thorpej int
    220      1.20   thorpej chopen(dev, flags, fmt, p)
    221       1.6   mycroft 	dev_t dev;
    222      1.20   thorpej 	int flags, fmt;
    223      1.15  christos 	struct proc *p;
    224       1.1       cgd {
    225      1.20   thorpej 	struct ch_softc *sc;
    226      1.35   thorpej 	int unit, error;
    227       1.6   mycroft 
    228       1.6   mycroft 	unit = CHUNIT(dev);
    229      1.20   thorpej 	if ((unit >= ch_cd.cd_ndevs) ||
    230      1.20   thorpej 	    ((sc = ch_cd.cd_devs[unit]) == NULL))
    231      1.20   thorpej 		return (ENXIO);
    232      1.12   mycroft 
    233      1.12   mycroft 	/*
    234      1.20   thorpej 	 * Only allow one open at a time.
    235      1.12   mycroft 	 */
    236      1.20   thorpej 	if (sc->sc_link->flags & SDEV_OPEN)
    237      1.20   thorpej 		return (EBUSY);
    238      1.20   thorpej 
    239      1.35   thorpej 	if ((error = scsipi_adapter_addref(sc->sc_link)) != 0)
    240      1.35   thorpej 		return (error);
    241      1.35   thorpej 
    242      1.20   thorpej 	sc->sc_link->flags |= SDEV_OPEN;
    243       1.6   mycroft 
    244       1.6   mycroft 	/*
    245      1.20   thorpej 	 * Absorb any unit attention errors.  Ignore "not ready"
    246      1.20   thorpej 	 * since this might occur if e.g. a tape isn't actually
    247      1.20   thorpej 	 * loaded in the drive.
    248       1.6   mycroft 	 */
    249      1.27    bouyer 	error = scsipi_test_unit_ready(sc->sc_link,
    250      1.21  christos 	    SCSI_IGNORE_NOT_READY|SCSI_IGNORE_MEDIA_CHANGE);
    251      1.21  christos 	if (error)
    252      1.13   mycroft 		goto bad;
    253       1.6   mycroft 
    254       1.6   mycroft 	/*
    255      1.20   thorpej 	 * Make sure our parameters are up to date.
    256       1.6   mycroft 	 */
    257      1.21  christos 	if ((error = ch_get_params(sc, 0)) != 0)
    258      1.12   mycroft 		goto bad;
    259       1.6   mycroft 
    260      1.20   thorpej 	return (0);
    261      1.12   mycroft 
    262      1.20   thorpej  bad:
    263      1.35   thorpej 	scsipi_adapter_delref(sc->sc_link);
    264      1.20   thorpej 	sc->sc_link->flags &= ~SDEV_OPEN;
    265      1.20   thorpej 	return (error);
    266       1.6   mycroft }
    267       1.6   mycroft 
    268      1.20   thorpej int
    269      1.20   thorpej chclose(dev, flags, fmt, p)
    270       1.6   mycroft 	dev_t dev;
    271      1.20   thorpej 	int flags, fmt;
    272      1.15  christos 	struct proc *p;
    273       1.1       cgd {
    274      1.20   thorpej 	struct ch_softc *sc = ch_cd.cd_devs[CHUNIT(dev)];
    275      1.36   thorpej 
    276      1.36   thorpej 	scsipi_wait_drain(sc->sc_link);
    277       1.6   mycroft 
    278      1.35   thorpej 	scsipi_adapter_delref(sc->sc_link);
    279      1.20   thorpej 	sc->sc_link->flags &= ~SDEV_OPEN;
    280      1.20   thorpej 	return (0);
    281       1.6   mycroft }
    282       1.6   mycroft 
    283      1.20   thorpej int
    284      1.20   thorpej chioctl(dev, cmd, data, flags, p)
    285       1.6   mycroft 	dev_t dev;
    286      1.10       cgd 	u_long cmd;
    287      1.20   thorpej 	caddr_t data;
    288      1.20   thorpej 	int flags;
    289      1.13   mycroft 	struct proc *p;
    290       1.6   mycroft {
    291      1.20   thorpej 	struct ch_softc *sc = ch_cd.cd_devs[CHUNIT(dev)];
    292      1.20   thorpej 	int error = 0;
    293      1.22   thorpej 
    294      1.22   thorpej 	/*
    295      1.22   thorpej 	 * If this command can change the device's state, we must
    296      1.22   thorpej 	 * have the device open for writing.
    297      1.22   thorpej 	 */
    298      1.22   thorpej 	switch (cmd) {
    299      1.22   thorpej 	case CHIOGPICKER:
    300      1.22   thorpej 	case CHIOGPARAMS:
    301      1.22   thorpej 	case CHIOGSTATUS:
    302      1.22   thorpej 		break;
    303      1.22   thorpej 
    304      1.22   thorpej 	default:
    305      1.22   thorpej 		if ((flags & FWRITE) == 0)
    306      1.22   thorpej 			return (EBADF);
    307      1.22   thorpej 	}
    308      1.20   thorpej 
    309      1.20   thorpej 	switch (cmd) {
    310      1.20   thorpej 	case CHIOMOVE:
    311      1.20   thorpej 		error = ch_move(sc, (struct changer_move *)data);
    312      1.20   thorpej 		break;
    313      1.20   thorpej 
    314      1.20   thorpej 	case CHIOEXCHANGE:
    315      1.20   thorpej 		error = ch_exchange(sc, (struct changer_exchange *)data);
    316      1.20   thorpej 		break;
    317      1.20   thorpej 
    318      1.20   thorpej 	case CHIOPOSITION:
    319      1.20   thorpej 		error = ch_position(sc, (struct changer_position *)data);
    320      1.20   thorpej 		break;
    321      1.20   thorpej 
    322      1.20   thorpej 	case CHIOGPICKER:
    323      1.20   thorpej 		*(int *)data = sc->sc_picker - sc->sc_firsts[CHET_MT];
    324      1.20   thorpej 		break;
    325      1.20   thorpej 
    326      1.20   thorpej 	case CHIOSPICKER:	{
    327      1.20   thorpej 		int new_picker = *(int *)data;
    328      1.20   thorpej 
    329      1.20   thorpej 		if (new_picker > (sc->sc_counts[CHET_MT] - 1))
    330      1.20   thorpej 			return (EINVAL);
    331      1.20   thorpej 		sc->sc_picker = sc->sc_firsts[CHET_MT] + new_picker;
    332      1.20   thorpej 		break;		}
    333      1.20   thorpej 
    334      1.20   thorpej 	case CHIOGPARAMS:	{
    335      1.20   thorpej 		struct changer_params *cp = (struct changer_params *)data;
    336      1.20   thorpej 
    337      1.20   thorpej 		cp->cp_curpicker = sc->sc_picker - sc->sc_firsts[CHET_MT];
    338      1.20   thorpej 		cp->cp_npickers = sc->sc_counts[CHET_MT];
    339      1.20   thorpej 		cp->cp_nslots = sc->sc_counts[CHET_ST];
    340      1.20   thorpej 		cp->cp_nportals = sc->sc_counts[CHET_IE];
    341      1.20   thorpej 		cp->cp_ndrives = sc->sc_counts[CHET_DT];
    342      1.20   thorpej 		break;		}
    343      1.20   thorpej 
    344      1.28    mjacob 	case CHIOIELEM:
    345      1.28    mjacob 		error = ch_ielem(sc);
    346      1.28    mjacob 		break;
    347      1.28    mjacob 
    348      1.20   thorpej 	case CHIOGSTATUS:	{
    349      1.20   thorpej 		struct changer_element_status *ces =
    350      1.20   thorpej 		    (struct changer_element_status *)data;
    351      1.20   thorpej 
    352      1.20   thorpej 		error = ch_usergetelemstatus(sc, ces->ces_type, ces->ces_data);
    353      1.20   thorpej 		break;		}
    354       1.6   mycroft 
    355      1.20   thorpej 	/* Implement prevent/allow? */
    356       1.6   mycroft 
    357       1.1       cgd 	default:
    358      1.27    bouyer 		error = scsipi_do_ioctl(sc->sc_link, dev, cmd, data, flags, p);
    359      1.20   thorpej 		break;
    360       1.1       cgd 	}
    361      1.20   thorpej 
    362      1.20   thorpej 	return (error);
    363       1.1       cgd }
    364       1.1       cgd 
    365      1.20   thorpej int
    366      1.20   thorpej ch_move(sc, cm)
    367      1.20   thorpej 	struct ch_softc *sc;
    368      1.20   thorpej 	struct changer_move *cm;
    369       1.1       cgd {
    370      1.20   thorpej 	struct scsi_move_medium cmd;
    371      1.20   thorpej 	u_int16_t fromelem, toelem;
    372      1.20   thorpej 
    373      1.20   thorpej 	/*
    374      1.20   thorpej 	 * Check arguments.
    375      1.20   thorpej 	 */
    376      1.20   thorpej 	if ((cm->cm_fromtype > CHET_DT) || (cm->cm_totype > CHET_DT))
    377      1.20   thorpej 		return (EINVAL);
    378      1.20   thorpej 	if ((cm->cm_fromunit > (sc->sc_counts[cm->cm_fromtype] - 1)) ||
    379      1.20   thorpej 	    (cm->cm_tounit > (sc->sc_counts[cm->cm_totype] - 1)))
    380      1.20   thorpej 		return (ENODEV);
    381      1.20   thorpej 
    382      1.20   thorpej 	/*
    383      1.20   thorpej 	 * Check the request against the changer's capabilities.
    384      1.20   thorpej 	 */
    385      1.20   thorpej 	if ((sc->sc_movemask[cm->cm_fromtype] & (1 << cm->cm_totype)) == 0)
    386      1.37     gibbs 		return (ENODEV);
    387      1.20   thorpej 
    388      1.20   thorpej 	/*
    389      1.20   thorpej 	 * Calculate the source and destination elements.
    390      1.20   thorpej 	 */
    391      1.20   thorpej 	fromelem = sc->sc_firsts[cm->cm_fromtype] + cm->cm_fromunit;
    392      1.20   thorpej 	toelem = sc->sc_firsts[cm->cm_totype] + cm->cm_tounit;
    393      1.20   thorpej 
    394      1.20   thorpej 	/*
    395      1.20   thorpej 	 * Build the SCSI command.
    396      1.20   thorpej 	 */
    397      1.20   thorpej 	bzero(&cmd, sizeof(cmd));
    398      1.20   thorpej 	cmd.opcode = MOVE_MEDIUM;
    399      1.20   thorpej 	_lto2b(sc->sc_picker, cmd.tea);
    400      1.20   thorpej 	_lto2b(fromelem, cmd.src);
    401      1.20   thorpej 	_lto2b(toelem, cmd.dst);
    402      1.20   thorpej 	if (cm->cm_flags & CM_INVERT)
    403      1.20   thorpej 		cmd.flags |= MOVE_MEDIUM_INVERT;
    404      1.20   thorpej 
    405      1.20   thorpej 	/*
    406      1.20   thorpej 	 * Send command to changer.
    407      1.20   thorpej 	 */
    408      1.31   thorpej 	return (scsipi_command(sc->sc_link,
    409      1.29     enami 	    (struct scsipi_generic *)&cmd, sizeof(cmd), NULL, 0, CHRETRIES,
    410      1.29     enami 	    100000, NULL, 0));
    411       1.1       cgd }
    412       1.1       cgd 
    413      1.20   thorpej int
    414      1.20   thorpej ch_exchange(sc, ce)
    415      1.20   thorpej 	struct ch_softc *sc;
    416      1.20   thorpej 	struct changer_exchange *ce;
    417      1.20   thorpej {
    418      1.20   thorpej 	struct scsi_exchange_medium cmd;
    419      1.20   thorpej 	u_int16_t src, dst1, dst2;
    420      1.20   thorpej 
    421      1.20   thorpej 	/*
    422      1.20   thorpej 	 * Check arguments.
    423      1.20   thorpej 	 */
    424      1.20   thorpej 	if ((ce->ce_srctype > CHET_DT) || (ce->ce_fdsttype > CHET_DT) ||
    425      1.20   thorpej 	    (ce->ce_sdsttype > CHET_DT))
    426      1.20   thorpej 		return (EINVAL);
    427      1.20   thorpej 	if ((ce->ce_srcunit > (sc->sc_counts[ce->ce_srctype] - 1)) ||
    428      1.20   thorpej 	    (ce->ce_fdstunit > (sc->sc_counts[ce->ce_fdsttype] - 1)) ||
    429      1.20   thorpej 	    (ce->ce_sdstunit > (sc->sc_counts[ce->ce_sdsttype] - 1)))
    430      1.20   thorpej 		return (ENODEV);
    431      1.20   thorpej 
    432      1.20   thorpej 	/*
    433      1.20   thorpej 	 * Check the request against the changer's capabilities.
    434      1.20   thorpej 	 */
    435      1.20   thorpej 	if (((sc->sc_exchangemask[ce->ce_srctype] &
    436      1.20   thorpej 	     (1 << ce->ce_fdsttype)) == 0) ||
    437      1.20   thorpej 	    ((sc->sc_exchangemask[ce->ce_fdsttype] &
    438      1.20   thorpej 	     (1 << ce->ce_sdsttype)) == 0))
    439      1.37     gibbs 		return (ENODEV);
    440      1.20   thorpej 
    441      1.20   thorpej 	/*
    442      1.20   thorpej 	 * Calculate the source and destination elements.
    443      1.20   thorpej 	 */
    444      1.20   thorpej 	src = sc->sc_firsts[ce->ce_srctype] + ce->ce_srcunit;
    445      1.20   thorpej 	dst1 = sc->sc_firsts[ce->ce_fdsttype] + ce->ce_fdstunit;
    446      1.20   thorpej 	dst2 = sc->sc_firsts[ce->ce_sdsttype] + ce->ce_sdstunit;
    447      1.20   thorpej 
    448      1.20   thorpej 	/*
    449      1.20   thorpej 	 * Build the SCSI command.
    450      1.20   thorpej 	 */
    451      1.20   thorpej 	bzero(&cmd, sizeof(cmd));
    452      1.20   thorpej 	cmd.opcode = EXCHANGE_MEDIUM;
    453      1.20   thorpej 	_lto2b(sc->sc_picker, cmd.tea);
    454      1.20   thorpej 	_lto2b(src, cmd.src);
    455      1.20   thorpej 	_lto2b(dst1, cmd.fdst);
    456      1.20   thorpej 	_lto2b(dst2, cmd.sdst);
    457      1.20   thorpej 	if (ce->ce_flags & CE_INVERT1)
    458      1.20   thorpej 		cmd.flags |= EXCHANGE_MEDIUM_INV1;
    459      1.20   thorpej 	if (ce->ce_flags & CE_INVERT2)
    460      1.20   thorpej 		cmd.flags |= EXCHANGE_MEDIUM_INV2;
    461      1.20   thorpej 
    462      1.20   thorpej 	/*
    463      1.20   thorpej 	 * Send command to changer.
    464      1.20   thorpej 	 */
    465      1.31   thorpej 	return (scsipi_command(sc->sc_link,
    466      1.29     enami 	    (struct scsipi_generic *)&cmd, sizeof(cmd), NULL, 0, CHRETRIES,
    467      1.29     enami 	    100000, NULL, 0));
    468       1.1       cgd }
    469       1.1       cgd 
    470      1.20   thorpej int
    471      1.20   thorpej ch_position(sc, cp)
    472      1.20   thorpej 	struct ch_softc *sc;
    473      1.20   thorpej 	struct changer_position *cp;
    474      1.20   thorpej {
    475      1.20   thorpej 	struct scsi_position_to_element cmd;
    476      1.20   thorpej 	u_int16_t dst;
    477      1.20   thorpej 
    478      1.20   thorpej 	/*
    479      1.20   thorpej 	 * Check arguments.
    480      1.20   thorpej 	 */
    481      1.20   thorpej 	if (cp->cp_type > CHET_DT)
    482      1.20   thorpej 		return (EINVAL);
    483      1.20   thorpej 	if (cp->cp_unit > (sc->sc_counts[cp->cp_type] - 1))
    484      1.20   thorpej 		return (ENODEV);
    485      1.20   thorpej 
    486      1.20   thorpej 	/*
    487      1.20   thorpej 	 * Calculate the destination element.
    488      1.20   thorpej 	 */
    489      1.20   thorpej 	dst = sc->sc_firsts[cp->cp_type] + cp->cp_unit;
    490      1.20   thorpej 
    491      1.20   thorpej 	/*
    492      1.20   thorpej 	 * Build the SCSI command.
    493      1.20   thorpej 	 */
    494      1.20   thorpej 	bzero(&cmd, sizeof(cmd));
    495      1.20   thorpej 	cmd.opcode = POSITION_TO_ELEMENT;
    496      1.20   thorpej 	_lto2b(sc->sc_picker, cmd.tea);
    497      1.20   thorpej 	_lto2b(dst, cmd.dst);
    498      1.20   thorpej 	if (cp->cp_flags & CP_INVERT)
    499      1.20   thorpej 		cmd.flags |= POSITION_TO_ELEMENT_INVERT;
    500      1.20   thorpej 
    501      1.20   thorpej 	/*
    502      1.20   thorpej 	 * Send command to changer.
    503      1.20   thorpej 	 */
    504      1.31   thorpej 	return (scsipi_command(sc->sc_link,
    505      1.29     enami 	    (struct scsipi_generic *)&cmd, sizeof(cmd), NULL, 0, CHRETRIES,
    506      1.29     enami 	    100000, NULL, 0));
    507       1.1       cgd }
    508       1.1       cgd 
    509       1.6   mycroft /*
    510      1.20   thorpej  * Perform a READ ELEMENT STATUS on behalf of the user, and return to
    511      1.20   thorpej  * the user only the data the user is interested in (i.e. an array of
    512      1.20   thorpej  * flags bytes).
    513       1.6   mycroft  */
    514      1.20   thorpej int
    515      1.20   thorpej ch_usergetelemstatus(sc, chet, uptr)
    516      1.20   thorpej 	struct ch_softc *sc;
    517      1.20   thorpej 	int chet;
    518      1.20   thorpej 	u_int8_t *uptr;
    519      1.20   thorpej {
    520      1.20   thorpej 	struct read_element_status_header *st_hdr;
    521      1.20   thorpej 	struct read_element_status_page_header *pg_hdr;
    522      1.20   thorpej 	struct read_element_status_descriptor *desc;
    523      1.20   thorpej 	caddr_t data = NULL;
    524      1.20   thorpej 	size_t size, desclen;
    525      1.20   thorpej 	int avail, i, error = 0;
    526      1.20   thorpej 	u_int8_t *user_data = NULL;
    527      1.20   thorpej 
    528      1.20   thorpej 	/*
    529      1.20   thorpej 	 * If there are no elements of the requested type in the changer,
    530      1.20   thorpej 	 * the request is invalid.
    531      1.20   thorpej 	 */
    532      1.20   thorpej 	if (sc->sc_counts[chet] == 0)
    533      1.20   thorpej 		return (EINVAL);
    534      1.20   thorpej 
    535      1.20   thorpej 	/*
    536      1.20   thorpej 	 * Request one descriptor for the given element type.  This
    537      1.20   thorpej 	 * is used to determine the size of the descriptor so that
    538      1.20   thorpej 	 * we can allocate enough storage for all of them.  We assume
    539      1.20   thorpej 	 * that the first one can fit into 1k.
    540      1.20   thorpej 	 */
    541      1.20   thorpej 	data = (caddr_t)malloc(1024, M_DEVBUF, M_WAITOK);
    542      1.21  christos 	error = ch_getelemstatus(sc, sc->sc_firsts[chet], 1, data, 1024);
    543      1.21  christos 	if (error)
    544      1.20   thorpej 		goto done;
    545      1.20   thorpej 
    546      1.20   thorpej 	st_hdr = (struct read_element_status_header *)data;
    547      1.20   thorpej 	pg_hdr = (struct read_element_status_page_header *)((u_long)st_hdr +
    548      1.20   thorpej 	    sizeof(struct read_element_status_header));
    549      1.20   thorpej 	desclen = _2btol(pg_hdr->edl);
    550      1.20   thorpej 
    551      1.20   thorpej 	size = sizeof(struct read_element_status_header) +
    552      1.20   thorpej 	    sizeof(struct read_element_status_page_header) +
    553      1.20   thorpej 	    (desclen * sc->sc_counts[chet]);
    554      1.20   thorpej 
    555      1.20   thorpej 	/*
    556      1.20   thorpej 	 * Reallocate storage for descriptors and get them from the
    557      1.20   thorpej 	 * device.
    558      1.20   thorpej 	 */
    559      1.20   thorpej 	free(data, M_DEVBUF);
    560      1.20   thorpej 	data = (caddr_t)malloc(size, M_DEVBUF, M_WAITOK);
    561      1.21  christos 	error = ch_getelemstatus(sc, sc->sc_firsts[chet],
    562      1.21  christos 	    sc->sc_counts[chet], data, size);
    563      1.21  christos 	if (error)
    564      1.20   thorpej 		goto done;
    565      1.20   thorpej 
    566      1.20   thorpej 	/*
    567      1.20   thorpej 	 * Fill in the user status array.
    568      1.20   thorpej 	 */
    569      1.20   thorpej 	st_hdr = (struct read_element_status_header *)data;
    570      1.20   thorpej 	avail = _2btol(st_hdr->count);
    571      1.28    mjacob 
    572      1.20   thorpej 	if (avail != sc->sc_counts[chet])
    573      1.24  christos 		printf("%s: warning, READ ELEMENT STATUS avail != count\n",
    574      1.20   thorpej 		    sc->sc_dev.dv_xname);
    575      1.20   thorpej 
    576      1.20   thorpej 	user_data = (u_int8_t *)malloc(avail, M_DEVBUF, M_WAITOK);
    577      1.20   thorpej 
    578      1.20   thorpej 	desc = (struct read_element_status_descriptor *)((u_long)data +
    579      1.20   thorpej 	    sizeof(struct read_element_status_header) +
    580      1.20   thorpej 	    sizeof(struct read_element_status_page_header));
    581      1.20   thorpej 	for (i = 0; i < avail; ++i) {
    582      1.20   thorpej 		user_data[i] = desc->flags1;
    583      1.20   thorpej 		(u_long)desc += desclen;
    584      1.20   thorpej 	}
    585      1.20   thorpej 
    586      1.20   thorpej 	/* Copy flags array out to userspace. */
    587      1.20   thorpej 	error = copyout(user_data, uptr, avail);
    588      1.20   thorpej 
    589      1.20   thorpej  done:
    590      1.20   thorpej 	if (data != NULL)
    591      1.20   thorpej 		free(data, M_DEVBUF);
    592      1.20   thorpej 	if (user_data != NULL)
    593      1.20   thorpej 		free(user_data, M_DEVBUF);
    594      1.20   thorpej 	return (error);
    595      1.20   thorpej }
    596      1.20   thorpej 
    597      1.20   thorpej int
    598      1.20   thorpej ch_getelemstatus(sc, first, count, data, datalen)
    599      1.20   thorpej 	struct ch_softc *sc;
    600      1.20   thorpej 	int first, count;
    601      1.20   thorpej 	caddr_t data;
    602      1.20   thorpej 	size_t datalen;
    603       1.1       cgd {
    604      1.20   thorpej 	struct scsi_read_element_status cmd;
    605       1.6   mycroft 
    606       1.6   mycroft 	/*
    607      1.20   thorpej 	 * Build SCSI command.
    608       1.6   mycroft 	 */
    609      1.20   thorpej 	bzero(&cmd, sizeof(cmd));
    610      1.20   thorpej 	cmd.opcode = READ_ELEMENT_STATUS;
    611      1.20   thorpej 	_lto2b(first, cmd.sea);
    612      1.20   thorpej 	_lto2b(count, cmd.count);
    613      1.20   thorpej 	_lto3b(datalen, cmd.len);
    614       1.6   mycroft 
    615       1.6   mycroft 	/*
    616      1.20   thorpej 	 * Send command to changer.
    617       1.6   mycroft 	 */
    618      1.31   thorpej 	return (scsipi_command(sc->sc_link,
    619      1.29     enami 	    (struct scsipi_generic *)&cmd, sizeof(cmd),
    620      1.30   thorpej 	    (u_char *)data, datalen, CHRETRIES, 100000, NULL, SCSI_DATA_IN));
    621      1.20   thorpej }
    622      1.20   thorpej 
    623      1.20   thorpej 
    624      1.28    mjacob int
    625      1.28    mjacob ch_ielem(sc)
    626      1.28    mjacob 	struct ch_softc *sc;
    627      1.28    mjacob {
    628      1.33    mjacob 	int tmo;
    629      1.28    mjacob 	struct scsi_initialize_element_status cmd;
    630      1.28    mjacob 
    631      1.28    mjacob 	/*
    632      1.28    mjacob 	 * Build SCSI command.
    633      1.28    mjacob 	 */
    634      1.28    mjacob 	bzero(&cmd, sizeof(cmd));
    635      1.28    mjacob 	cmd.opcode = INITIALIZE_ELEMENT_STATUS;
    636      1.28    mjacob 
    637      1.28    mjacob 	/*
    638      1.28    mjacob 	 * Send command to changer.
    639      1.33    mjacob 	 *
    640      1.33    mjacob 	 * The problem is, how long to allow for the command?
    641      1.33    mjacob 	 * It can take a *really* long time, and also depends
    642      1.33    mjacob 	 * on unknowable factors such as whether there are
    643      1.33    mjacob 	 * *almost* readable labels on tapes that a barcode
    644      1.33    mjacob 	 * reader is trying to decipher.
    645      1.33    mjacob 	 *
    646      1.33    mjacob 	 * I'm going to make this long enough to allow 5 minutes
    647      1.33    mjacob 	 * per element plus an initial 10 minute wait.
    648      1.33    mjacob 	 */
    649      1.33    mjacob 	tmo =	sc->sc_counts[CHET_MT] +
    650      1.33    mjacob 		sc->sc_counts[CHET_ST] +
    651      1.33    mjacob 		sc->sc_counts[CHET_IE] +
    652      1.33    mjacob 		sc->sc_counts[CHET_DT];
    653  1.37.2.1    bouyer 	tmo *= 5 * 60 * 1000;
    654      1.33    mjacob 	tmo += (10 * 60 * 1000);
    655      1.33    mjacob 
    656      1.31   thorpej 	return (scsipi_command(sc->sc_link,
    657      1.29     enami 	    (struct scsipi_generic *)&cmd, sizeof(cmd),
    658      1.33    mjacob 	    NULL, 0, CHRETRIES, tmo, NULL, 0));
    659      1.28    mjacob }
    660      1.28    mjacob 
    661      1.20   thorpej /*
    662      1.20   thorpej  * Ask the device about itself and fill in the parameters in our
    663      1.20   thorpej  * softc.
    664      1.20   thorpej  */
    665      1.20   thorpej int
    666      1.20   thorpej ch_get_params(sc, scsiflags)
    667      1.20   thorpej 	struct ch_softc *sc;
    668      1.20   thorpej 	int scsiflags;
    669      1.20   thorpej {
    670      1.20   thorpej 	struct scsi_mode_sense cmd;
    671      1.20   thorpej 	struct scsi_mode_sense_data {
    672      1.20   thorpej 		struct scsi_mode_header header;
    673      1.20   thorpej 		union {
    674      1.20   thorpej 			struct page_element_address_assignment ea;
    675      1.20   thorpej 			struct page_transport_geometry_parameters tg;
    676      1.20   thorpej 			struct page_device_capabilities cap;
    677      1.20   thorpej 		} pages;
    678      1.20   thorpej 	} sense_data;
    679      1.20   thorpej 	int error, from;
    680      1.20   thorpej 	u_int8_t *moves, *exchanges;
    681       1.6   mycroft 
    682       1.6   mycroft 	/*
    683      1.20   thorpej 	 * Grab info from the element address assignment page.
    684       1.6   mycroft 	 */
    685      1.20   thorpej 	bzero(&cmd, sizeof(cmd));
    686      1.20   thorpej 	bzero(&sense_data, sizeof(sense_data));
    687      1.27    bouyer 	cmd.opcode = SCSI_MODE_SENSE;
    688      1.20   thorpej 	cmd.byte2 |= 0x08;	/* disable block descriptors */
    689      1.20   thorpej 	cmd.page = 0x1d;
    690      1.20   thorpej 	cmd.length = (sizeof(sense_data) & 0xff);
    691      1.31   thorpej 	error = scsipi_command(sc->sc_link,
    692      1.29     enami 	    (struct scsipi_generic *)&cmd, sizeof(cmd), (u_char *)&sense_data,
    693      1.29     enami 	    sizeof(sense_data), CHRETRIES, 6000, NULL,
    694      1.29     enami 	    scsiflags | SCSI_DATA_IN);
    695      1.15  christos 	if (error) {
    696      1.24  christos 		printf("%s: could not sense element address page\n",
    697      1.21  christos 		    sc->sc_dev.dv_xname);
    698      1.20   thorpej 		return (error);
    699       1.6   mycroft 	}
    700       1.6   mycroft 
    701      1.20   thorpej 	sc->sc_firsts[CHET_MT] = _2btol(sense_data.pages.ea.mtea);
    702      1.20   thorpej 	sc->sc_counts[CHET_MT] = _2btol(sense_data.pages.ea.nmte);
    703      1.20   thorpej 	sc->sc_firsts[CHET_ST] = _2btol(sense_data.pages.ea.fsea);
    704      1.20   thorpej 	sc->sc_counts[CHET_ST] = _2btol(sense_data.pages.ea.nse);
    705      1.20   thorpej 	sc->sc_firsts[CHET_IE] = _2btol(sense_data.pages.ea.fieea);
    706      1.20   thorpej 	sc->sc_counts[CHET_IE] = _2btol(sense_data.pages.ea.niee);
    707      1.20   thorpej 	sc->sc_firsts[CHET_DT] = _2btol(sense_data.pages.ea.fdtea);
    708      1.20   thorpej 	sc->sc_counts[CHET_DT] = _2btol(sense_data.pages.ea.ndte);
    709      1.20   thorpej 
    710      1.20   thorpej 	/* XXX ask for page trasport geom */
    711       1.6   mycroft 
    712       1.6   mycroft 	/*
    713      1.20   thorpej 	 * Grab info from the capabilities page.
    714      1.20   thorpej 	 */
    715      1.20   thorpej 	bzero(&cmd, sizeof(cmd));
    716      1.20   thorpej 	bzero(&sense_data, sizeof(sense_data));
    717      1.27    bouyer 	cmd.opcode = SCSI_MODE_SENSE;
    718      1.28    mjacob 	/*
    719      1.28    mjacob 	 * XXX: Note: not all changers can deal with disabled block descriptors
    720      1.28    mjacob 	 */
    721      1.28    mjacob 	cmd.byte2 = 0x08;	/* disable block descriptors */
    722      1.20   thorpej 	cmd.page = 0x1f;
    723      1.20   thorpej 	cmd.length = (sizeof(sense_data) & 0xff);
    724      1.31   thorpej 	error = scsipi_command(sc->sc_link,
    725      1.29     enami 	    (struct scsipi_generic *)&cmd, sizeof(cmd), (u_char *)&sense_data,
    726      1.29     enami 	    sizeof(sense_data), CHRETRIES, 6000, NULL,
    727      1.29     enami 	    scsiflags | SCSI_DATA_IN);
    728      1.20   thorpej 	if (error) {
    729      1.24  christos 		printf("%s: could not sense capabilities page\n",
    730      1.21  christos 		    sc->sc_dev.dv_xname);
    731      1.20   thorpej 		return (error);
    732      1.20   thorpej 	}
    733      1.20   thorpej 
    734      1.20   thorpej 	bzero(sc->sc_movemask, sizeof(sc->sc_movemask));
    735      1.20   thorpej 	bzero(sc->sc_exchangemask, sizeof(sc->sc_exchangemask));
    736      1.20   thorpej 	moves = &sense_data.pages.cap.move_from_mt;
    737      1.20   thorpej 	exchanges = &sense_data.pages.cap.exchange_with_mt;
    738      1.20   thorpej 	for (from = CHET_MT; from <= CHET_DT; ++from) {
    739      1.20   thorpej 		sc->sc_movemask[from] = moves[from];
    740      1.20   thorpej 		sc->sc_exchangemask[from] = exchanges[from];
    741       1.1       cgd 	}
    742      1.20   thorpej 
    743      1.20   thorpej 	sc->sc_link->flags |= SDEV_MEDIA_LOADED;
    744      1.20   thorpej 	return (0);
    745      1.26   thorpej }
    746      1.26   thorpej 
    747      1.26   thorpej void
    748      1.26   thorpej ch_get_quirks(sc, inqbuf)
    749      1.26   thorpej 	struct ch_softc *sc;
    750      1.27    bouyer 	struct scsipi_inquiry_pattern *inqbuf;
    751      1.26   thorpej {
    752      1.26   thorpej 	struct chquirk *match;
    753      1.26   thorpej 	int priority;
    754      1.26   thorpej 
    755      1.26   thorpej 	sc->sc_settledelay = 0;
    756      1.26   thorpej 
    757      1.27    bouyer 	match = (struct chquirk *)scsipi_inqmatch(inqbuf,
    758      1.26   thorpej 	    (caddr_t)chquirks,
    759      1.26   thorpej 	    sizeof(chquirks) / sizeof(chquirks[0]),
    760      1.26   thorpej 	    sizeof(chquirks[0]), &priority);
    761      1.29     enami 	if (priority != 0)
    762      1.26   thorpej 		sc->sc_settledelay = match->cq_settledelay;
    763       1.1       cgd }
    764