/* $NetBSD: ac.c,v 1.3 1995/12/02 18:21:49 thorpej Exp $ */ /* * Copyright (c) 1991 University of Utah. * Copyright (c) 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: ac.c 1.5 92/01/21$ * * @(#)ac.c 8.2 (Berkeley) 1/12/94 */ /* * SCSI driver for MO autochanger. * * Very crude. Because of the lack of connect/disconnect support in the * scsi driver, this driver can tie up the SCSI bus for a long time. It * also grabs a DMA channel and holds it for the duration even though it * never uses it. */ #include "ac.h" #if NAC > 0 #include #include #include #include #include #include #include #include #include #include extern int scsi_test_unit_rdy(); extern int scsi_request_sense(); extern int scsiustart(); extern int scsigo(); extern void scsifree(); extern void scsireset(); extern void scsi_delay(); extern void scsi_str __P((char *, char *, size_t)); extern int scsi_immed_command(); int acmatch(), acstart(), acgo(), acintr(); void acattach(); struct driver acdriver = { acmatch, acattach, "ac", acstart, acgo, acintr, }; struct ac_softc ac_softc[NAC]; static struct buf acbuf[NAC]; static struct scsi_fmt_cdb accmd[NAC]; #ifdef DEBUG int ac_debug = 0x0000; #define ACD_FOLLOW 0x0001 #define ACD_OPEN 0x0002 #endif int acmatch(hd) register struct hp_device *hd; { int unit = hd->hp_unit; register struct ac_softc *sc = &ac_softc[unit]; sc->sc_hd = hd; sc->sc_punit = hd->hp_flags & 7; if (acident(sc, hd, 0) < 0) return (0); return (1); } void acattach(hd) register struct hp_device *hd; { int unit = hd->hp_unit; register struct ac_softc *sc = &ac_softc[unit]; (void)acident(sc, hd, 1); /* XXX Ick. */ sc->sc_dq.dq_unit = unit; sc->sc_dq.dq_ctlr = hd->hp_ctlr; sc->sc_dq.dq_slave = hd->hp_slave; sc->sc_dq.dq_driver = &acdriver; sc->sc_bp = &acbuf[unit]; sc->sc_cmd = &accmd[unit]; sc->sc_flags = ACF_ALIVE; } acident(sc, hd, verbose) register struct ac_softc *sc; register struct hp_device *hd; int verbose; { int unit; register int ctlr, slave; int i, stat; int tries = 5; struct scsi_inquiry inqbuf; char vendor[9], product[17], revision[5]; static struct scsi_fmt_cdb inq = { 6, CMD_INQUIRY, 0, 0, 0, sizeof(inqbuf), 0 }; ctlr = hd->hp_ctlr; slave = hd->hp_slave; unit = sc->sc_punit; scsi_delay(-1); /* * See if device is ready */ while ((i = scsi_test_unit_rdy(ctlr, slave, unit)) != 0) { if (i == -1 || --tries < 0) /* doesn't exist or not a CCS device */ goto failed; if (i == STS_CHECKCOND) { u_char sensebuf[128]; struct scsi_xsense *sp; scsi_request_sense(ctlr, slave, unit, sensebuf, sizeof(sensebuf)); sp = (struct scsi_xsense *) sensebuf; if (sp->class == 7 && sp->key == 6) /* drive doing an RTZ -- give it a while */ DELAY(1000000); } DELAY(1000); } /* * Find out if it is an autochanger */ if (scsi_immed_command(ctlr, slave, unit, &inq, (u_char *)&inqbuf, sizeof(inqbuf), B_READ)) goto failed; if (inqbuf.type != 8 || inqbuf.qual != 0x80 || inqbuf.version != 2) goto failed; /* * Get a usable id string */ bzero(vendor, sizeof(vendor)); bzero(product, sizeof(product)); bzero(revision, sizeof(revision)); scsi_str(inqbuf.vendor_id, vendor, sizeof(inqbuf.vendor_id)); scsi_str(inqbuf.product_id, product, sizeof(inqbuf.product_id)); scsi_str(inqbuf.rev, revision, sizeof(inqbuf.rev)); if (verbose) printf(": <%s, %s, %s>\n", vendor, product, revision); scsi_delay(0); return(inqbuf.type); failed: scsi_delay(0); return(-1); } /*ARGSUSED*/ acopen(dev, flag, mode, p) dev_t dev; int flag, mode; struct proc *p; { register int unit = minor(dev); register struct ac_softc *sc = &ac_softc[unit]; int error = 0; if (unit >= NAC || (sc->sc_flags & ACF_ALIVE) == 0) return(ENXIO); if (sc->sc_flags & ACF_OPEN) return(EBUSY); /* * Since acgeteinfo can block we mark the changer open now. */ sc->sc_flags |= ACF_OPEN; if (acgeteinfo(dev)) { sc->sc_flags &= ~ACF_OPEN; return(EIO); } return(0); } /*ARGSUSED*/ acclose(dev, flag, mode, p) dev_t dev; int flag, mode; struct proc *p; { struct ac_softc *sc = &ac_softc[minor(dev)]; sc->sc_flags &= ~ACF_OPEN; } #define ACRESLEN(ep) \ (8 + (ep)->nmte*12 + (ep)->nse*12 + (ep)->niee*12 + (ep)->ndte*20) /*ARGSUSED*/ acioctl(dev, cmd, data, flag, p) dev_t dev; int cmd; caddr_t data; int flag; struct proc *p; { register struct ac_softc *sc = &ac_softc[minor(dev)]; char *dp; int dlen, error = 0; switch (cmd) { default: return (EINVAL); /* perform an init element status and mode sense to reset state */ case ACIOCINIT: error = accommand(dev, ACCMD_INITES, (caddr_t)0, 0); if (!error) error = acgeteinfo(dev); break; /* copy internal element information */ case ACIOCGINFO: *(struct acinfo *)data = sc->sc_einfo; break; case ACIOCRAWES: { struct acbuffer *acbp = (struct acbuffer *)data; dlen = ACRESLEN(&sc->sc_einfo); dp = (char *) malloc(dlen, M_DEVBUF, M_WAITOK); error = accommand(dev, ACCMD_READES, dp, dlen); if (!error) { dlen = *(int *)&dp[4] + 8; if (dlen > acbp->buflen) dlen = acbp->buflen; error = copyout(dp, acbp->bufptr, dlen); } break; } case ACIOCGSTAT: { struct acbuffer *acbp = (struct acbuffer *)data; dlen = ACRESLEN(&sc->sc_einfo); dp = (char *) malloc(dlen, M_DEVBUF, M_WAITOK); error = accommand(dev, ACCMD_READES, dp, dlen); if (!error) { int ne; char *tbuf; ne = sc->sc_einfo.nmte + sc->sc_einfo.nse + sc->sc_einfo.niee + sc->sc_einfo.ndte; dlen = ne * sizeof(struct aceltstat); tbuf = (char *) malloc(dlen, M_DEVBUF, M_WAITOK); acconvert(dp, tbuf, ne); if (dlen > acbp->buflen) dlen = acbp->buflen; error = copyout(tbuf, acbp->bufptr, dlen); free(tbuf, M_DEVBUF); } free(dp, M_DEVBUF); break; } case ACIOCMOVE: error = accommand(dev, ACCMD_MOVEM, data, sizeof(struct acmove)); break; } return(error); } accommand(dev, command, bufp, buflen) dev_t dev; int command; char *bufp; int buflen; { int unit = minor(dev); register struct ac_softc *sc = &ac_softc[unit]; register struct buf *bp = sc->sc_bp; register struct scsi_fmt_cdb *cmd = sc->sc_cmd; int error; #ifdef DEBUG if (ac_debug & ACD_FOLLOW) printf("accommand(dev=%x, cmd=%x, buf=%x, buflen=%x)\n", dev, command, bufp, buflen); #endif if (sc->sc_flags & ACF_ACTIVE) panic("accommand: active!"); sc->sc_flags |= ACF_ACTIVE; bzero((caddr_t)cmd->cdb, sizeof(cmd->cdb)); cmd->cdb[0] = command; switch (command) { case ACCMD_INITES: cmd->len = 6; break; case ACCMD_READES: cmd->len = 12; *(short *)&cmd->cdb[2] = 0; *(short *)&cmd->cdb[4] = sc->sc_einfo.nmte + sc->sc_einfo.nse + sc->sc_einfo.niee + sc->sc_einfo.ndte; cmd->cdb[7] = buflen >> 16; cmd->cdb[8] = buflen >> 8; cmd->cdb[9] = buflen; break; case ACCMD_MODESENSE: cmd->len = 6; cmd->cdb[2] = 0x3F; /* all pages */ cmd->cdb[4] = buflen; break; case ACCMD_MOVEM: cmd->len = 12; *(short *)&cmd->cdb[2] = sc->sc_picker; *(short *)&cmd->cdb[4] = *(short *)&bufp[0]; *(short *)&cmd->cdb[6] = *(short *)&bufp[2]; if (*(short *)&bufp[4] & AC_INVERT) cmd->cdb[10] = 1; bufp = 0; buflen = 0; break; default: panic("accommand: bad command"); } bp->b_flags = B_BUSY|B_READ; bp->b_dev = dev; bp->b_un.b_addr = bufp; bp->b_bcount = buflen; bp->b_resid = 0; bp->b_blkno = 0; bp->b_error = 0; if (scsireq(&sc->sc_dq)) acstart(unit); error = biowait(bp); sc->sc_flags &= ~ACF_ACTIVE; return (error); } acstart(unit) int unit; { #ifdef DEBUG if (ac_debug & ACD_FOLLOW) printf("acstart(unit=%x)\n", unit); #endif if (scsiustart(ac_softc[unit].sc_hd->hp_ctlr)) acgo(unit); } acgo(unit) int unit; { register struct ac_softc *sc = &ac_softc[unit]; register struct buf *bp = sc->sc_bp; struct hp_device *hp = sc->sc_hd; int stat; #ifdef DEBUG if (ac_debug & ACD_FOLLOW) printf("acgo(unit=%x): ", unit); #endif stat = scsigo(hp->hp_ctlr, hp->hp_slave, sc->sc_punit, bp, sc->sc_cmd, 0); #ifdef DEBUG if (ac_debug & ACD_FOLLOW) printf("scsigo returns %x\n", stat); #endif if (stat) { bp->b_error = EIO; bp->b_flags |= B_ERROR; (void) biodone(bp); scsifree(&sc->sc_dq); } } acintr(unit, stat) int unit, stat; { register struct ac_softc *sc = &ac_softc[unit]; register struct buf *bp = sc->sc_bp; u_char sensebuf[78]; struct scsi_xsense *sp; #ifdef DEBUG if (ac_debug & ACD_FOLLOW) printf("acintr(unit=%x, stat=%x)\n", unit, stat); #endif switch (stat) { case 0: bp->b_resid = 0; break; case STS_CHECKCOND: scsi_request_sense(sc->sc_hd->hp_ctlr, sc->sc_hd->hp_slave, sc->sc_punit, sensebuf, sizeof sensebuf); sp = (struct scsi_xsense *)sensebuf; printf("%s: acintr sense key=%x, ac=%x, acq=%x\n", sc->sc_hd->hp_xname, sp->key, sp->info4, sp->len); bp->b_flags |= B_ERROR; bp->b_error = EIO; break; default: printf("%s: acintr unknown status 0x%x\n", sc->sc_hd->hp_xname, stat); break; } (void) biodone(sc->sc_bp); scsifree(&sc->sc_dq); } acgeteinfo(dev) dev_t dev; { register struct ac_softc *sc = &ac_softc[minor(dev)]; register char *bp; char msbuf[48]; int error; bzero(msbuf, sizeof msbuf); error = accommand(dev, ACCMD_MODESENSE, msbuf, sizeof msbuf); if (error) return(error); bp = &msbuf[4]; while (bp < &msbuf[48]) { switch (bp[0] & 0x3F) { case 0x1D: sc->sc_einfo = *(struct acinfo *)&bp[2]; sc->sc_picker = sc->sc_einfo.fmte; /* XXX */ return(0); case 0x1E: bp += 4; break; case 0x1F: bp += 20; break; default: printf("acgeteinfo: bad page type %x\n", bp[0]); return(EIO); } } return(EIO); } acconvert(sbuf, dbuf, ne) char *sbuf, *dbuf; int ne; { register struct aceltstat *ep = (struct aceltstat *)dbuf; register struct ac_restatphdr *phdr; register struct ac_restatdb *dbp; struct ac_restathdr *hdr; #ifdef DEBUG register int bcount; #endif hdr = (struct ac_restathdr *)&sbuf[0]; sbuf += sizeof *hdr; #ifdef DEBUG if (ac_debug & ACD_FOLLOW) printf("element status: first=%d, num=%d, len=%d\n", hdr->ac_felt, hdr->ac_nelt, hdr->ac_bcount); if (hdr->ac_nelt != ne) { printf("acconvert: # of elements, %d != %d\n", hdr->ac_nelt, ne); if (hdr->ac_nelt < ne) ne = hdr->ac_nelt; } bcount = hdr->ac_bcount; #endif while (ne) { phdr = (struct ac_restatphdr *)sbuf; sbuf += sizeof *phdr; #ifdef DEBUG bcount -= sizeof *phdr; #endif dbp = (struct ac_restatdb *)sbuf; sbuf += phdr->ac_bcount; #ifdef DEBUG bcount -= phdr->ac_bcount; #endif while (dbp < (struct ac_restatdb *)sbuf) { ep->type = phdr->ac_type; ep->eaddr = dbp->ac_eaddr; ep->flags = 0; if (dbp->ac_full) ep->flags |= AC_FULL; if (dbp->ac_exc) ep->flags |= AC_ERROR; if (dbp->ac_acc) ep->flags |= AC_ACCESS; dbp = (struct ac_restatdb *) ((char *)dbp + phdr->ac_dlen); ep++; ne--; } #ifdef DEBUG if (ne < 0 || bcount < 0) panic("acconvert: inconsistant"); #endif } } #endif