Aren/NetBSD
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
78e5dc866c
NetBSD/sys/dev/scsipi/st.c
mjacob e9cc9ec6cc Many thanks to Wolfgang Rupprecht for spotting this... In order to be sure 
about actual position when reading tape position, you should flush any
pending writes. Well, if the tape is write protected, some drives don't
see the zero count WRITE FILE MARK command as a no-op and complain. Dumb!
1997-10-01 18:45:02 +00:00

2128 lines
55 KiB
C
Raw Blame History

/* $NetBSD: st.c,v 1.77 1997/10/01 18:45:02 mjacob 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
* major changes by Julian Elischer (julian@jules.dialix.oz.au) May 1993
*/
/*
* To do:
* work out some better way of guessing what a good timeout is going
* to be depending on whether we expect to retension or not.
*/
#include "opt_scsiverbose.h"
#include <sys/types.h>
#include <sys/param.h>
#include <sys/systm.h>
#include <sys/fcntl.h>
#include <sys/errno.h>
#include <sys/ioctl.h>
#include <sys/malloc.h>
#include <sys/buf.h>
#include <sys/proc.h>
#include <sys/user.h>
#include <sys/mtio.h>
#include <sys/device.h>
#include <sys/conf.h>
#include <dev/scsipi/scsi_all.h>
#include <dev/scsipi/scsipi_all.h>
#include <dev/scsipi/scsi_all.h>
#include <dev/scsipi/scsi_tape.h>
#include <dev/scsipi/scsiconf.h>
/* Defines for device specific stuff */
#define DEF_FIXED_BSIZE 512
#define ST_RETRIES 4 /* only on non IO commands */
#define STMODE(z) ( minor(z) & 0x03)
#define STDSTY(z) ((minor(z) >> 2) & 0x03)
#define STUNIT(z) ((minor(z) >> 4) )
#define CTLMODE 3
/*
* Maximum density code known.
*/
#define SCSI_2_MAX_DENSITY_CODE 0x45
/*
* Define various devices that we know mis-behave in some way,
* and note how they are bad, so we can correct for them
*/
struct modes {
u_int quirks; /* same definitions as in quirkdata */
int blksize;
u_int8_t density;
};
struct quirkdata {
u_int quirks;
#define ST_Q_FORCE_BLKSIZE 0x0001
#define ST_Q_SENSE_HELP 0x0002 /* must do READ for good MODE SENSE */
#define ST_Q_IGNORE_LOADS 0x0004
#define ST_Q_BLKSIZE 0x0008 /* variable-block media_blksize > 0 */
#define ST_Q_UNIMODAL 0x0010 /* unimode drive rejects mode select */
u_int page_0_size;
#define MAX_PAGE_0_SIZE 64
struct modes modes[4];
};
struct st_quirk_inquiry_pattern {
struct scsipi_inquiry_pattern pattern;
struct quirkdata quirkdata;
};
struct st_quirk_inquiry_pattern st_quirk_patterns[] = {
{{T_SEQUENTIAL, T_REMOV,
" ", " ", " "}, {0, 0, {
{ST_Q_FORCE_BLKSIZE, 512, 0}, /* minor 0-3 */
{ST_Q_FORCE_BLKSIZE, 512, QIC_24}, /* minor 4-7 */
{ST_Q_FORCE_BLKSIZE, 0, HALFINCH_1600}, /* minor 8-11 */
{ST_Q_FORCE_BLKSIZE, 0, HALFINCH_6250} /* minor 12-15 */
}}},
{{T_SEQUENTIAL, T_REMOV,
"TANDBERG", " TDC 3600 ", ""}, {0, 12, {
{0, 0, 0}, /* minor 0-3 */
{ST_Q_FORCE_BLKSIZE, 0, QIC_525}, /* minor 4-7 */
{0, 0, QIC_150}, /* minor 8-11 */
{0, 0, QIC_120} /* minor 12-15 */
}}},
{{T_SEQUENTIAL, T_REMOV,
"TANDBERG", " TDC 3800 ", ""}, {0, 0, {
{ST_Q_FORCE_BLKSIZE, 512, 0}, /* minor 0-3 */
{0, 0, QIC_525}, /* minor 4-7 */
{0, 0, QIC_150}, /* minor 8-11 */
{0, 0, QIC_120} /* minor 12-15 */
}}},
/*
* At least -005 and -007 need this. I'll assume they all do unless I
* hear otherwise. - mycroft, 31MAR1994
*/
{{T_SEQUENTIAL, T_REMOV,
"ARCHIVE ", "VIPER 2525 25462", ""}, {0, 0, {
{ST_Q_SENSE_HELP, 0, 0}, /* minor 0-3 */
{ST_Q_SENSE_HELP, 0, QIC_525}, /* minor 4-7 */
{0, 0, QIC_150}, /* minor 8-11 */
{0, 0, QIC_120} /* minor 12-15 */
}}},
/*
* One user reports that this works for his tape drive. It probably
* needs more work. - mycroft, 09APR1994
*/
{{T_SEQUENTIAL, T_REMOV,
"SANKYO ", "CP525 ", ""}, {0, 0, {
{ST_Q_FORCE_BLKSIZE, 512, 0}, /* minor 0-3 */
{ST_Q_FORCE_BLKSIZE, 512, QIC_525}, /* minor 4-7 */
{0, 0, QIC_150}, /* minor 8-11 */
{0, 0, QIC_120} /* minor 12-15 */
}}},
{{T_SEQUENTIAL, T_REMOV,
"ANRITSU ", "DMT780 ", ""}, {0, 0, {
{ST_Q_FORCE_BLKSIZE, 512, 0}, /* minor 0-3 */
{ST_Q_FORCE_BLKSIZE, 512, QIC_525}, /* minor 4-7 */
{0, 0, QIC_150}, /* minor 8-11 */
{0, 0, QIC_120} /* minor 12-15 */
}}},
{{T_SEQUENTIAL, T_REMOV,
"ARCHIVE ", "VIPER 150 21247", ""}, {0, 12, {
{0, 0, 0}, /* minor 0-3 */
{0, 0, QIC_150}, /* minor 4-7 */
{0, 0, QIC_120}, /* minor 8-11 */
{0, 0, QIC_24} /* minor 12-15 */
}}},
{{T_SEQUENTIAL, T_REMOV,
"WANGTEK ", "5099ES SCSI", ""}, {0, 0, {
{ST_Q_FORCE_BLKSIZE, 512, 0}, /* minor 0-3 */
{0, 0, QIC_11}, /* minor 4-7 */
{0, 0, QIC_24}, /* minor 8-11 */
{0, 0, QIC_24} /* minor 12-15 */
}}},
{{T_SEQUENTIAL, T_REMOV,
"WANGTEK ", "5150ES SCSI", ""}, {0, 0, {
{ST_Q_FORCE_BLKSIZE, 512, 0}, /* minor 0-3 */
{0, 0, QIC_24}, /* minor 4-7 */
{0, 0, QIC_120}, /* minor 8-11 */
{0, 0, QIC_150} /* minor 12-15 */
}}},
{{T_SEQUENTIAL, T_REMOV,
"WANGTEK ", "5525ES SCSI REV7", ""}, {0, 0, {
{0, 0, 0}, /* minor 0-3 */
{ST_Q_BLKSIZE, 0, QIC_525}, /* minor 4-7 */
{0, 0, QIC_150}, /* minor 8-11 */
{0, 0, QIC_120} /* minor 12-15 */
}}},
{{T_SEQUENTIAL, T_REMOV,
"WangDAT ", "Model 1300 ", ""}, {0, 0, {
{0, 0, 0}, /* minor 0-3 */
{ST_Q_FORCE_BLKSIZE, 512, DDS}, /* minor 4-7 */
{ST_Q_FORCE_BLKSIZE, 1024, DDS}, /* minor 8-11 */
{ST_Q_FORCE_BLKSIZE, 0, DDS} /* minor 12-15 */
}}},
{{T_SEQUENTIAL, T_REMOV,
"EXABYTE ", "EXB-8200 ", "263H"}, {0, 5, {
{0, 0, 0}, /* minor 0-3 */
{0, 0, 0}, /* minor 4-7 */
{0, 0, 0}, /* minor 8-11 */
{0, 0, 0} /* minor 12-15 */
}}},
{{T_SEQUENTIAL, T_REMOV,
"HP ", "T4000s ", ""}, {ST_Q_UNIMODAL, 0, {
{0, 0, QIC_3095}, /* minor 0-3 */
{0, 0, QIC_3095}, /* minor 4-7 */
{0, 0, QIC_3095}, /* minor 8-11 */
{0, 0, QIC_3095}, /* minor 12-15 */
}}},
#if 0
{{T_SEQUENTIAL, T_REMOV,
"EXABYTE ", "EXB-8200 ", ""}, {0, 12, {
{0, 0, 0}, /* minor 0-3 */
{0, 0, 0}, /* minor 4-7 */
{0, 0, 0}, /* minor 8-11 */
{0, 0, 0} /* minor 12-15 */
}}},
#endif
};
#define NOEJECT 0
#define EJECT 1
struct st_softc {
struct device sc_dev;
/*--------------------present operating parameters, flags etc.---------------*/
int flags; /* see below */
u_int quirks; /* quirks for the open mode */
int blksize; /* blksize we are using */
u_int8_t density; /* present density */
u_int page_0_size; /* size of page 0 data */
u_int last_dsty; /* last density opened */
/*--------------------device/scsi parameters---------------------------------*/
struct scsipi_link *sc_link; /* our link to the adpter etc. */
/*--------------------parameters reported by the device ---------------------*/
int blkmin; /* min blk size */
int blkmax; /* max blk size */
struct quirkdata *quirkdata; /* if we have a rogue entry */
/*--------------------parameters reported by the device for this media-------*/
u_long numblks; /* nominal blocks capacity */
int media_blksize; /* 0 if not ST_FIXEDBLOCKS */
u_int8_t media_density; /* this is what it said when asked */
/*--------------------quirks for the whole drive-----------------------------*/
u_int drive_quirks; /* quirks of this drive */
/*--------------------How we should set up when opening each minor device----*/
struct modes modes[4]; /* plus more for each mode */
u_int8_t modeflags[4]; /* flags for the modes */
#define DENSITY_SET_BY_USER 0x01
#define DENSITY_SET_BY_QUIRK 0x02
#define BLKSIZE_SET_BY_USER 0x04
#define BLKSIZE_SET_BY_QUIRK 0x08
/*--------------------storage for sense data returned by the drive-----------*/
u_char sense_data[MAX_PAGE_0_SIZE]; /*
* additional sense data needed
* for mode sense/select.
*/
struct buf buf_queue; /* the queue of pending IO */
/* operations */
};
#ifdef __BROKEN_INDIRECT_CONFIG
int stmatch __P((struct device *, void *, void *));
#else
int stmatch __P((struct device *, struct cfdata *, void *));
#endif
void stattach __P((struct device *, struct device *, void *));
void st_identify_drive __P((struct st_softc *,
struct scsipi_inquiry_pattern *));
void st_loadquirks __P((struct st_softc *));
int st_mount_tape __P((dev_t, int));
void st_unmount __P((struct st_softc *, boolean));
int st_decide_mode __P((struct st_softc *, boolean));
void ststart __P((void *));
int st_read __P((struct st_softc *, char *, int, int));
int st_read_block_limits __P((struct st_softc *, int));
int st_mode_sense __P((struct st_softc *, int));
int st_mode_select __P((struct st_softc *, int));
int st_cmprss __P((struct st_softc *, int));
int st_space __P((struct st_softc *, int, u_int, int));
int st_write_filemarks __P((struct st_softc *, int, int));
int st_check_eod __P((struct st_softc *, boolean, int *, int));
int st_load __P((struct st_softc *, u_int, int));
int st_rewind __P((struct st_softc *, u_int, int));
int st_interpret_sense __P((struct scsipi_xfer *));
int st_touch_tape __P((struct st_softc *));
int st_erase __P((struct st_softc *, int full, int flags));
int st_rdpos __P((struct st_softc *, int, u_int32_t *));
int st_setpos __P((struct st_softc *, int, u_int32_t *));
struct cfattach st_ca = {
sizeof(struct st_softc), stmatch, stattach
};
struct cfdriver st_cd = {
NULL, "st", DV_TAPE
};
struct scsipi_device st_switch = {
st_interpret_sense,
ststart,
NULL,
NULL,
};
#define ST_INFO_VALID 0x0001
#define ST_BLOCK_SET 0x0002 /* block size, mode set by ioctl */
#define ST_WRITTEN 0x0004 /* data have been written, EOD needed */
#define ST_FIXEDBLOCKS 0x0008
#define ST_AT_FILEMARK 0x0010
#define ST_EIO_PENDING 0x0020 /* we couldn't report it then (had data) */
#define ST_NEW_MOUNT 0x0040 /* still need to decide mode */
#define ST_READONLY 0x0080 /* st_mode_sense says write protected */
#define ST_FM_WRITTEN 0x0100 /*
* EOF file mark written -- used with
* ~ST_WRITTEN to indicate that multiple file
* marks have been written
*/
#define ST_BLANK_READ 0x0200 /* BLANK CHECK encountered already */
#define ST_2FM_AT_EOD 0x0400 /* write 2 file marks at EOD */
#define ST_MOUNTED 0x0800 /* Device is presently mounted */
#define ST_DONTBUFFER 0x1000 /* Disable buffering/caching */
#define ST_PER_ACTION (ST_AT_FILEMARK | ST_EIO_PENDING | ST_BLANK_READ)
#define ST_PER_MOUNT (ST_INFO_VALID | ST_BLOCK_SET | ST_WRITTEN | \
ST_FIXEDBLOCKS | ST_READONLY | ST_FM_WRITTEN | \
ST_2FM_AT_EOD | ST_PER_ACTION)
struct scsipi_inquiry_pattern st_patterns[] = {
{T_SEQUENTIAL, T_REMOV,
"", "", ""},
};
int
stmatch(parent, match, aux)
struct device *parent;
#ifdef __BROKEN_INDIRECT_CONFIG
void *match;
#else
struct cfdata *match;
#endif
void *aux;
{
struct scsipibus_attach_args *sa = aux;
int priority;
(void)scsipi_inqmatch(&sa->sa_inqbuf,
(caddr_t)st_patterns, sizeof(st_patterns)/sizeof(st_patterns[0]),
sizeof(st_patterns[0]), &priority);
return (priority);
}
/*
* The routine called by the low level scsi routine when it discovers
* A device suitable for this driver
*/
void
stattach(parent, self, aux)
struct device *parent, *self;
void *aux;
{
struct st_softc *st = (void *)self;
struct scsipibus_attach_args *sa = aux;
struct scsipi_link *sc_link = sa->sa_sc_link;
SC_DEBUG(sc_link, SDEV_DB2, ("stattach: "));
/*
* Store information needed to contact our base driver
*/
st->sc_link = sc_link;
sc_link->device = &st_switch;
sc_link->device_softc = st;
sc_link->openings = 1;
/*
* Check if the drive is a known criminal and take
* Any steps needed to bring it into line
*/
st_identify_drive(st, &sa->sa_inqbuf);
/*
* Use the subdriver to request information regarding
* the drive. We cannot use interrupts yet, so the
* request must specify this.
*/
printf("\n");
printf("%s: %s", st->sc_dev.dv_xname, st->quirkdata ? "rogue, " : "");
if (scsipi_test_unit_ready(sc_link,
SCSI_AUTOCONF | SCSI_SILENT | SCSI_IGNORE_MEDIA_CHANGE) ||
st_mode_sense(st,
SCSI_AUTOCONF | SCSI_SILENT | SCSI_IGNORE_MEDIA_CHANGE))
printf("drive empty\n");
else {
printf("density code 0x%x, ", st->media_density);
if (st->media_blksize > 0)
printf("%d-byte", st->media_blksize);
else
printf("variable");
printf(" blocks, write-%s\n",
(st->flags & ST_READONLY) ? "protected" : "enabled");
}
/*
* Set up the buf queue for this device
*/
st->buf_queue.b_active = 0;
st->buf_queue.b_actf = 0;
st->buf_queue.b_actb = &st->buf_queue.b_actf;
}
/*
* Use the inquiry routine in 'scsi_base' to get drive info so we can
* Further tailor our behaviour.
*/
void
st_identify_drive(st, inqbuf)
struct st_softc *st;
struct scsipi_inquiry_pattern *inqbuf;
{
struct st_quirk_inquiry_pattern *finger;
int priority;
finger = (struct st_quirk_inquiry_pattern *)scsipi_inqmatch(inqbuf,
(caddr_t)st_quirk_patterns,
sizeof(st_quirk_patterns) / sizeof(st_quirk_patterns[0]),
sizeof(st_quirk_patterns[0]), &priority);
if (priority != 0) {
st->quirkdata = &finger->quirkdata;
st->drive_quirks = finger->quirkdata.quirks;
st->quirks = finger->quirkdata.quirks; /* start value */
st->page_0_size = finger->quirkdata.page_0_size;
st_loadquirks(st);
}
}
/*
* initialise the subdevices to the default (QUIRK) state.
* this will remove any setting made by the system operator or previous
* operations.
*/
void
st_loadquirks(st)
struct st_softc *st;
{
int i;
struct modes *mode;
struct modes *mode2;
mode = st->quirkdata->modes;
mode2 = st->modes;
for (i = 0; i < 4; i++) {
bzero(mode2, sizeof(struct modes));
st->modeflags[i] &= ~(BLKSIZE_SET_BY_QUIRK |
DENSITY_SET_BY_QUIRK | BLKSIZE_SET_BY_USER |
DENSITY_SET_BY_USER);
if ((mode->quirks | st->drive_quirks) & ST_Q_FORCE_BLKSIZE) {
mode2->blksize = mode->blksize;
st->modeflags[i] |= BLKSIZE_SET_BY_QUIRK;
}
if (mode->density) {
mode2->density = mode->density;
st->modeflags[i] |= DENSITY_SET_BY_QUIRK;
}
mode++;
mode2++;
}
}
/*
* open the device.
*/
int
stopen(dev, flags, mode, p)
dev_t dev;
int flags;
int mode;
struct proc *p;
{
int unit;
u_int stmode, dsty;
int error = 0;
struct st_softc *st;
struct scsipi_link *sc_link;
unit = STUNIT(dev);
if (unit >= st_cd.cd_ndevs)
return (ENXIO);
st = st_cd.cd_devs[unit];
if (st == NULL)
return (ENXIO);
stmode = STMODE(dev);
dsty = STDSTY(dev);
sc_link = st->sc_link;
SC_DEBUG(sc_link, SDEV_DB1, ("open: dev=0x%x (unit %d (of %d))\n", dev,
unit, st_cd.cd_ndevs));
/*
* Only allow one at a time
*/
if (sc_link->flags & SDEV_OPEN) {
printf("%s: already open\n", st->sc_dev.dv_xname);
return (EBUSY);
}
/*
* Catch any unit attention errors.
*/
error = scsipi_test_unit_ready(sc_link, SCSI_IGNORE_MEDIA_CHANGE |
(stmode == CTLMODE ? SCSI_IGNORE_NOT_READY : 0));
if (error)
goto bad;
sc_link->flags |= SDEV_OPEN; /* unit attn are now errors */
/*
* If the mode is 3 (e.g. minor = 3,7,11,15)
* then the device has been opened to set defaults
* This mode does NOT ALLOW I/O, only ioctls
*/
if (stmode == CTLMODE)
return (0);
/*
* if it's a different mode, or if the media has been
* invalidated, unmount the tape from the previous
* session but continue with open processing
*/
if (st->last_dsty != dsty || !(sc_link->flags & SDEV_MEDIA_LOADED))
st_unmount(st, NOEJECT);
/*
* If we are not mounted, then we should start a new
* mount session.
*/
if (!(st->flags & ST_MOUNTED)) {
st_mount_tape(dev, flags);
st->last_dsty = dsty;
}
/*
* Make sure that a tape opened in write-only mode will have
* file marks written on it when closed, even if not written to.
* This is for SUN compatibility
*/
if ((flags & O_ACCMODE) == FWRITE)
st->flags |= ST_WRITTEN;
SC_DEBUG(sc_link, SDEV_DB2, ("open complete\n"));
return (0);
bad:
st_unmount(st, NOEJECT);
sc_link->flags &= ~SDEV_OPEN;
return (error);
}
/*
* close the device.. only called if we are the LAST
* occurence of an open device
*/
int
stclose(dev, flags, mode, p)
dev_t dev;
int flags;
int mode;
struct proc *p;
{
struct st_softc *st = st_cd.cd_devs[STUNIT(dev)];
SC_DEBUG(st->sc_link, SDEV_DB1, ("closing\n"));
if ((st->flags & (ST_WRITTEN | ST_FM_WRITTEN)) == ST_WRITTEN)
st_write_filemarks(st, 1, 0);
switch (STMODE(dev)) {
case 0:
case 3: /* for now */
st_unmount(st, NOEJECT);
break;
case 1:
/* leave mounted unless media seems to have been removed */
if (!(st->sc_link->flags & SDEV_MEDIA_LOADED))
st_unmount(st, NOEJECT);
break;
case 2:
st_unmount(st, EJECT);
break;
}
st->sc_link->flags &= ~SDEV_OPEN;
return (0);
}
/*
* Start a new mount session.
* Copy in all the default parameters from the selected device mode.
* and try guess any that seem to be defaulted.
*/
int
st_mount_tape(dev, flags)
dev_t dev;
int flags;
{
int unit;
u_int mode, dsty;
struct st_softc *st;
struct scsipi_link *sc_link;
int error = 0;
unit = STUNIT(dev);
mode = STMODE(dev);
dsty = STDSTY(dev);
st = st_cd.cd_devs[unit];
sc_link = st->sc_link;
if (st->flags & ST_MOUNTED)
return (0);
SC_DEBUG(sc_link, SDEV_DB1, ("mounting\n "));
st->flags |= ST_NEW_MOUNT;
st->quirks = st->drive_quirks | st->modes[dsty].quirks;
/*
* If the media is new, then make sure we give it a chance to
* to do a 'load' instruction. (We assume it is new.)
*/
if ((error = st_load(st, LD_LOAD, 0)) != 0)
return (error);
/*
* Throw another dummy instruction to catch
* 'Unit attention' errors. Some drives appear to give
* these after doing a Load instruction.
* (noteably some DAT drives)
*/
scsipi_test_unit_ready(sc_link, SCSI_SILENT); /* XXX */
/*
* Some devices can't tell you much until they have been
* asked to look at the media. This quirk does this.
*/
if (st->quirks & ST_Q_SENSE_HELP)
if ((error = st_touch_tape(st)) != 0)
return (error);
/*
* Load the physical device parameters
* loads: blkmin, blkmax
*/
if ((error = st_read_block_limits(st, 0)) != 0)
return (error);
/*
* Load the media dependent parameters
* includes: media_blksize,media_density,numblks
* As we have a tape in, it should be reflected here.
* If not you may need the "quirk" above.
*/
if ((error = st_mode_sense(st, 0)) != 0)
return (error);
/*
* If we have gained a permanent density from somewhere,
* then use it in preference to the one supplied by
* default by the driver.
*/
if (st->modeflags[dsty] & (DENSITY_SET_BY_QUIRK | DENSITY_SET_BY_USER))
st->density = st->modes[dsty].density;
else
st->density = st->media_density;
/*
* If we have gained a permanent blocksize
* then use it in preference to the one supplied by
* default by the driver.
*/
st->flags &= ~ST_FIXEDBLOCKS;
if (st->modeflags[dsty] &
(BLKSIZE_SET_BY_QUIRK | BLKSIZE_SET_BY_USER)) {
st->blksize = st->modes[dsty].blksize;
if (st->blksize)
st->flags |= ST_FIXEDBLOCKS;
} else {
if ((error = st_decide_mode(st, FALSE)) != 0)
return (error);
}
if ((error = st_mode_select(st, 0)) != 0) {
printf("%s: cannot set selected mode\n", st->sc_dev.dv_xname);
return (error);
}
scsipi_prevent(sc_link, PR_PREVENT,
SCSI_IGNORE_ILLEGAL_REQUEST | SCSI_IGNORE_NOT_READY);
st->flags &= ~ST_NEW_MOUNT;
st->flags |= ST_MOUNTED;
sc_link->flags |= SDEV_MEDIA_LOADED; /* move earlier? */
return (0);
}
/*
* End the present mount session.
* Rewind, and optionally eject the tape.
* Reset various flags to indicate that all new
* operations require another mount operation
*/
void
st_unmount(st, eject)
struct st_softc *st;
boolean eject;
{
struct scsipi_link *sc_link = st->sc_link;
int nmarks;
if (!(st->flags & ST_MOUNTED))
return;
SC_DEBUG(sc_link, SDEV_DB1, ("unmounting\n"));
st_check_eod(st, FALSE, &nmarks, SCSI_IGNORE_NOT_READY);
st_rewind(st, 0, SCSI_IGNORE_NOT_READY);
scsipi_prevent(sc_link, PR_ALLOW,
SCSI_IGNORE_ILLEGAL_REQUEST | SCSI_IGNORE_NOT_READY);
if (eject)
st_load(st, LD_UNLOAD, SCSI_IGNORE_NOT_READY);
st->flags &= ~(ST_MOUNTED | ST_NEW_MOUNT);
sc_link->flags &= ~SDEV_MEDIA_LOADED;
}
/*
* Given all we know about the device, media, mode, 'quirks' and
* initial operation, make a decision as to how we should be set
* to run (regarding blocking and EOD marks)
*/
int
st_decide_mode(st, first_read)
struct st_softc *st;
boolean first_read;
{
#ifdef SCSIDEBUG
struct scsipi_link *sc_link = st->sc_link;
#endif
SC_DEBUG(sc_link, SDEV_DB2, ("starting block mode decision\n"));
/*
* If the drive can only handle fixed-length blocks and only at
* one size, perhaps we should just do that.
*/
if (st->blkmin && (st->blkmin == st->blkmax)) {
st->flags |= ST_FIXEDBLOCKS;
st->blksize = st->blkmin;
SC_DEBUG(sc_link, SDEV_DB3,
("blkmin == blkmax of %d\n", st->blkmin));
goto done;
}
/*
* If the tape density mandates (or even suggests) use of fixed
* or variable-length blocks, comply.
*/
switch (st->density) {
case HALFINCH_800:
case HALFINCH_1600:
case HALFINCH_6250:
case DDS:
st->flags &= ~ST_FIXEDBLOCKS;
st->blksize = 0;
SC_DEBUG(sc_link, SDEV_DB3, ("density specified variable\n"));
goto done;
case QIC_11:
case QIC_24:
case QIC_120:
case QIC_150:
case QIC_525:
case QIC_1320:
st->flags |= ST_FIXEDBLOCKS;
if (st->media_blksize > 0)
st->blksize = st->media_blksize;
else
st->blksize = DEF_FIXED_BSIZE;
SC_DEBUG(sc_link, SDEV_DB3, ("density specified fixed\n"));
goto done;
}
/*
* If we're about to read the tape, perhaps we should choose
* fixed or variable-length blocks and block size according to
* what the drive found on the tape.
*/
if (first_read &&
(!(st->quirks & ST_Q_BLKSIZE) || (st->media_blksize == 0) ||
(st->media_blksize == DEF_FIXED_BSIZE) ||
(st->media_blksize == 1024))) {
if (st->media_blksize > 0)
st->flags |= ST_FIXEDBLOCKS;
else
st->flags &= ~ST_FIXEDBLOCKS;
st->blksize = st->media_blksize;
SC_DEBUG(sc_link, SDEV_DB3,
("Used media_blksize of %d\n", st->media_blksize));
goto done;
}
/*
* We're getting no hints from any direction. Choose variable-
* length blocks arbitrarily.
*/
st->flags &= ~ST_FIXEDBLOCKS;
st->blksize = 0;
SC_DEBUG(sc_link, SDEV_DB3,
("Give up and default to variable mode\n"));
done:
/*
* Decide whether or not to write two file marks to signify end-
* of-data. Make the decision as a function of density. If
* the decision is not to use a second file mark, the SCSI BLANK
* CHECK condition code will be recognized as end-of-data when
* first read.
* (I think this should be a by-product of fixed/variable..julian)
*/
switch (st->density) {
/* case 8 mm: What is the SCSI density code for 8 mm, anyway? */
case QIC_11:
case QIC_24:
case QIC_120:
case QIC_150:
case QIC_525:
case QIC_1320:
st->flags &= ~ST_2FM_AT_EOD;
break;
default:
st->flags |= ST_2FM_AT_EOD;
}
return (0);
}
/*
* Actually translate the requested transfer into
* one the physical driver can understand
* The transfer is described by a buf and will include
* only one physical transfer.
*/
void
ststrategy(bp)
struct buf *bp;
{
struct st_softc *st = st_cd.cd_devs[STUNIT(bp->b_dev)];
struct buf *dp;
int s;
SC_DEBUG(st->sc_link, SDEV_DB1,
("ststrategy %ld bytes @ blk %d\n", bp->b_bcount, bp->b_blkno));
/*
* If it's a null transfer, return immediatly
*/
if (bp->b_bcount == 0)
goto done;
/*
* Odd sized request on fixed drives are verboten
*/
if (st->flags & ST_FIXEDBLOCKS) {
if (bp->b_bcount % st->blksize) {
printf("%s: bad request, must be multiple of %d\n",
st->sc_dev.dv_xname, st->blksize);
bp->b_error = EIO;
goto bad;
}
}
/*
* as are out-of-range requests on variable drives.
*/
else if (bp->b_bcount < st->blkmin ||
(st->blkmax && bp->b_bcount > st->blkmax)) {
printf("%s: bad request, must be between %d and %d\n",
st->sc_dev.dv_xname, st->blkmin, st->blkmax);
bp->b_error = EIO;
goto bad;
}
s = splbio();
/*
* Place it in the queue of activities for this tape
* at the end (a bit silly because we only have on user..
* (but it could fork()))
*/
dp = &st->buf_queue;
bp->b_actf = NULL;
bp->b_actb = dp->b_actb;
*dp->b_actb = bp;
dp->b_actb = &bp->b_actf;
/*
* Tell the device to get going on the transfer if it's
* not doing anything, otherwise just wait for completion
* (All a bit silly if we're only allowing 1 open but..)
*/
ststart(st);
splx(s);
return;
bad:
bp->b_flags |= B_ERROR;
done:
/*
* Correctly set the buf to indicate a completed xfer
*/
bp->b_resid = bp->b_bcount;
biodone(bp);
return;
}
/*
* ststart looks to see if there is a buf waiting for the device
* and that the device is not already busy. If both are true,
* It dequeues the buf and creates a scsi command to perform the
* transfer required. The transfer request will call scsipi_done
* on completion, which will in turn call this routine again
* so that the next queued transfer is performed.
* The bufs are queued by the strategy routine (ststrategy)
*
* This routine is also called after other non-queued requests
* have been made of the scsi driver, to ensure that the queue
* continues to be drained.
* ststart() is called at splbio
*/
void
ststart(v)
void *v;
{
struct st_softc *st = v;
struct scsipi_link *sc_link = st->sc_link;
register struct buf *bp, *dp;
struct scsi_rw_tape cmd;
int flags;
SC_DEBUG(sc_link, SDEV_DB2, ("ststart "));
/*
* See if there is a buf to do and we are not already
* doing one
*/
while (sc_link->openings > 0) {
/* if a special awaits, let it proceed first */
if (sc_link->flags & SDEV_WAITING) {
sc_link->flags &= ~SDEV_WAITING;
wakeup((caddr_t)sc_link);
return;
}
dp = &st->buf_queue;
if ((bp = dp->b_actf) == NULL)
return;
if ((dp = bp->b_actf) != NULL)
dp->b_actb = bp->b_actb;
else
st->buf_queue.b_actb = bp->b_actb;
*bp->b_actb = dp;
/*
* if the device has been unmounted byt the user
* then throw away all requests until done
*/
if (!(st->flags & ST_MOUNTED) ||
!(sc_link->flags & SDEV_MEDIA_LOADED)) {
/* make sure that one implies the other.. */
sc_link->flags &= ~SDEV_MEDIA_LOADED;
bp->b_flags |= B_ERROR;
bp->b_error = EIO;
bp->b_resid = bp->b_bcount;
biodone(bp);
continue;
}
/*
* only FIXEDBLOCK devices have pending operations
*/
if (st->flags & ST_FIXEDBLOCKS) {
/*
* If we are at a filemark but have not reported it yet
* then we should report it now
*/
if (st->flags & ST_AT_FILEMARK) {
if ((bp->b_flags & B_READ) == B_WRITE) {
/*
* Handling of ST_AT_FILEMARK in
* st_space will fill in the right file
* mark count.
* Back up over filemark
*/
if (st_space(st, 0, SP_FILEMARKS, 0)) {
bp->b_flags |= B_ERROR;
bp->b_error = EIO;
biodone(bp);
continue;
}
} else {
bp->b_resid = bp->b_bcount;
bp->b_error = 0;
bp->b_flags &= ~B_ERROR;
st->flags &= ~ST_AT_FILEMARK;
biodone(bp);
continue; /* seek more work */
}
}
/*
* If we are at EIO (e.g. EOM) but have not reported it
* yet then we should report it now
*/
if (st->flags & ST_EIO_PENDING) {
bp->b_resid = bp->b_bcount;
bp->b_error = EIO;
bp->b_flags |= B_ERROR;
st->flags &= ~ST_EIO_PENDING;
biodone(bp);
continue; /* seek more work */
}
}
/*
* Fill out the scsi command
*/
bzero(&cmd, sizeof(cmd));
if ((bp->b_flags & B_READ) == B_WRITE) {
cmd.opcode = WRITE;
st->flags &= ~ST_FM_WRITTEN;
st->flags |= ST_WRITTEN;
flags = SCSI_DATA_OUT;
} else {
cmd.opcode = READ;
flags = SCSI_DATA_IN;
}
/*
* Handle "fixed-block-mode" tape drives by using the
* block count instead of the length.
*/
if (st->flags & ST_FIXEDBLOCKS) {
cmd.byte2 |= SRW_FIXED;
_lto3b(bp->b_bcount / st->blksize, cmd.len);
} else
_lto3b(bp->b_bcount, cmd.len);
/*
* go ask the adapter to do all this for us
*/
if ((*sc_link->scsipi_cmd)(sc_link,
(struct scsipi_generic *)&cmd, sizeof(cmd),
(u_char *)bp->b_data, bp->b_bcount,
0, 100000, bp, flags | SCSI_NOSLEEP))
printf("%s: not queued\n", st->sc_dev.dv_xname);
} /* go back and see if we can cram more work in.. */
}
int
stread(dev, uio, iomode)
dev_t dev;
struct uio *uio;
int iomode;
{
struct st_softc *st = st_cd.cd_devs[STUNIT(dev)];
return (physio(ststrategy, NULL, dev, B_READ,
st->sc_link->adapter->scsipi_minphys, uio));
}
int
stwrite(dev, uio, iomode)
dev_t dev;
struct uio *uio;
int iomode;
{
struct st_softc *st = st_cd.cd_devs[STUNIT(dev)];
return (physio(ststrategy, NULL, dev, B_WRITE,
st->sc_link->adapter->scsipi_minphys, uio));
}
/*
* Perform special action on behalf of the user;
* knows about the internals of this device
*/
int
stioctl(dev, cmd, arg, flag, p)
dev_t dev;
u_long cmd;
caddr_t arg;
int flag;
struct proc *p;
{
int error = 0;
int unit;
int number, nmarks, dsty;
int flags;
struct st_softc *st;
int hold_blksize;
u_int8_t hold_density;
struct mtop *mt = (struct mtop *) arg;
/*
* Find the device that the user is talking about
*/
flags = 0; /* give error messages, act on errors etc. */
unit = STUNIT(dev);
dsty = STDSTY(dev);
st = st_cd.cd_devs[unit];
hold_blksize = st->blksize;
hold_density = st->density;
switch ((u_int) cmd) {
case MTIOCGET: {
struct mtget *g = (struct mtget *) arg;
SC_DEBUG(st->sc_link, SDEV_DB1, ("[ioctl: get status]\n"));
bzero(g, sizeof(struct mtget));
g->mt_type = 0x7; /* Ultrix compat *//*? */
g->mt_blksiz = st->blksize;
g->mt_density = st->density;
g->mt_mblksiz[0] = st->modes[0].blksize;
g->mt_mblksiz[1] = st->modes[1].blksize;
g->mt_mblksiz[2] = st->modes[2].blksize;
g->mt_mblksiz[3] = st->modes[3].blksize;
g->mt_mdensity[0] = st->modes[0].density;
g->mt_mdensity[1] = st->modes[1].density;
g->mt_mdensity[2] = st->modes[2].density;
g->mt_mdensity[3] = st->modes[3].density;
break;
}
case MTIOCTOP: {
SC_DEBUG(st->sc_link, SDEV_DB1,
("[ioctl: op=0x%x count=0x%x]\n", mt->mt_op,
mt->mt_count));
/* compat: in U*x it is a short */
number = mt->mt_count;
switch ((short) (mt->mt_op)) {
case MTWEOF: /* write an end-of-file record */
error = st_write_filemarks(st, number, flags);
break;
case MTBSF: /* backward space file */
number = -number;
case MTFSF: /* forward space file */
error = st_check_eod(st, FALSE, &nmarks, flags);
if (!error)
error = st_space(st, number - nmarks,
SP_FILEMARKS, flags);
break;
case MTBSR: /* backward space record */
number = -number;
case MTFSR: /* forward space record */
error = st_check_eod(st, TRUE, &nmarks, flags);
if (!error)
error = st_space(st, number, SP_BLKS, flags);
break;
case MTREW: /* rewind */
error = st_rewind(st, 0, flags);
break;
case MTOFFL: /* rewind and put the drive offline */
st_unmount(st, EJECT);
break;
case MTNOP: /* no operation, sets status only */
break;
case MTRETEN: /* retension the tape */
error = st_load(st, LD_RETENSION, flags);
if (!error)
error = st_load(st, LD_LOAD, flags);
break;
case MTEOM: /* forward space to end of media */
error = st_check_eod(st, FALSE, &nmarks, flags);
if (!error)
error = st_space(st, 1, SP_EOM, flags);
break;
case MTCACHE: /* enable controller cache */
st->flags &= ~ST_DONTBUFFER;
goto try_new_value;
case MTNOCACHE: /* disable controller cache */
st->flags |= ST_DONTBUFFER;
goto try_new_value;
case MTERASE: /* erase volume */
error = st_erase(st, number, flags);
break;
case MTSETBSIZ: /* Set block size for device */
#ifdef NOTYET
if (!(st->flags & ST_NEW_MOUNT)) {
uprintf("re-mount tape before changing blocksize");
error = EINVAL;
break;
}
#endif
if (number == 0)
st->flags &= ~ST_FIXEDBLOCKS;
else {
if ((st->blkmin || st->blkmax) &&
(number < st->blkmin ||
number > st->blkmax)) {
error = EINVAL;
break;
}
st->flags |= ST_FIXEDBLOCKS;
}
st->blksize = number;
st->flags |= ST_BLOCK_SET; /*XXX */
goto try_new_value;
case MTSETDNSTY: /* Set density for device and mode */
if (number > SCSI_2_MAX_DENSITY_CODE) {
error = EINVAL;
break;
} else
st->density = number;
goto try_new_value;
case MTCMPRESS:
error = st_cmprss(st, number);
break;
default:
error = EINVAL;
}
break;
}
case MTIOCIEOT:
case MTIOCEEOT:
break;
case MTIOCRDSPOS:
error = st_rdpos(st, 0, (u_int32_t *) arg);
break;
case MTIOCRDHPOS:
error = st_rdpos(st, 1, (u_int32_t *) arg);
break;
case MTIOCSLOCATE:
error = st_setpos(st, 0, (u_int32_t *) arg);
break;
case MTIOCHLOCATE:
error = st_setpos(st, 1, (u_int32_t *) arg);
break;
default:
if (STMODE(dev) == CTLMODE)
error = scsipi_do_ioctl(st->sc_link, dev, cmd, arg,
flag, p);
else
error = ENOTTY;
break;
}
return (error);
/*-----------------------------*/
try_new_value:
/*
* Check that the mode being asked for is aggreeable to the
* drive. If not, put it back the way it was.
*/
if ((error = st_mode_select(st, 0)) != 0) {/* put it back as it was */
printf("%s: cannot set selected mode\n", st->sc_dev.dv_xname);
st->density = hold_density;
st->blksize = hold_blksize;
if (st->blksize)
st->flags |= ST_FIXEDBLOCKS;
else
st->flags &= ~ST_FIXEDBLOCKS;
return (error);
}
/*
* As the drive liked it, if we are setting a new default,
* set it into the structures as such.
*
* The means for deciding this are not finalised yet
*/
if (STMODE(dev) == 0x03) {
/* special mode */
/* XXX */
switch ((short) (mt->mt_op)) {
case MTSETBSIZ:
st->modes[dsty].blksize = st->blksize;
st->modeflags[dsty] |= BLKSIZE_SET_BY_USER;
break;
case MTSETDNSTY:
st->modes[dsty].density = st->density;
st->modeflags[dsty] |= DENSITY_SET_BY_USER;
break;
}
}
return (0);
}
/*
* Do a synchronous read.
*/
int
st_read(st, buf, size, flags)
struct st_softc *st;
int size;
int flags;
char *buf;
{
struct scsi_rw_tape cmd;
/*
* If it's a null transfer, return immediatly
*/
if (size == 0)
return (0);
bzero(&cmd, sizeof(cmd));
cmd.opcode = READ;
if (st->flags & ST_FIXEDBLOCKS) {
cmd.byte2 |= SRW_FIXED;
_lto3b(size / (st->blksize ? st->blksize : DEF_FIXED_BSIZE),
cmd.len);
} else
_lto3b(size, cmd.len);
return ((*st->sc_link->scsipi_cmd)(st->sc_link,
(struct scsipi_generic *)&cmd, sizeof(cmd),
(u_char *)buf, size, 0, 100000, NULL, flags | SCSI_DATA_IN));
}
/*
* Ask the drive what it's min and max blk sizes are.
*/
int
st_read_block_limits(st, flags)
struct st_softc *st;
int flags;
{
struct scsi_block_limits cmd;
struct scsi_block_limits_data block_limits;
struct scsipi_link *sc_link = st->sc_link;
int error;
/*
* First check if we have it all loaded
*/
if ((sc_link->flags & SDEV_MEDIA_LOADED))
return (0);
/*
* do a 'Read Block Limits'
*/
bzero(&cmd, sizeof(cmd));
cmd.opcode = READ_BLOCK_LIMITS;
/*
* do the command, update the global values
*/
error = (*sc_link->scsipi_cmd)(sc_link, (struct scsipi_generic *)&cmd,
sizeof(cmd), (u_char *)&block_limits, sizeof(block_limits),
ST_RETRIES, 5000, NULL, flags | SCSI_DATA_IN);
if (error)
return (error);
st->blkmin = _2btol(block_limits.min_length);
st->blkmax = _3btol(block_limits.max_length);
SC_DEBUG(sc_link, SDEV_DB3,
("(%d <= blksize <= %d)\n", st->blkmin, st->blkmax));
return (0);
}
/*
* Get the scsi driver to send a full inquiry to the
* device and use the results to fill out the global
* parameter structure.
*
* called from:
* attach
* open
* ioctl (to reset original blksize)
*/
int
st_mode_sense(st, flags)
struct st_softc *st;
int flags;
{
u_int scsipi_sense_len;
int error;
struct scsi_mode_sense cmd;
struct scsipi_sense {
struct scsi_mode_header header;
struct scsi_blk_desc blk_desc;
u_char sense_data[MAX_PAGE_0_SIZE];
} scsipi_sense;
struct scsipi_link *sc_link = st->sc_link;
scsipi_sense_len = 12 + st->page_0_size;
/*
* Set up a mode sense
*/
bzero(&cmd, sizeof(cmd));
cmd.opcode = SCSI_MODE_SENSE;
cmd.length = scsipi_sense_len;
/*
* do the command, but we don't need the results
* just print them for our interest's sake, if asked,
* or if we need it as a template for the mode select
* store it away.
*/
error = (*sc_link->scsipi_cmd)(sc_link, (struct scsipi_generic *)&cmd,
sizeof(cmd), (u_char *)&scsipi_sense, scsipi_sense_len,
ST_RETRIES, 5000, NULL, flags | SCSI_DATA_IN);
if (error)
return (error);
st->numblks = _3btol(scsipi_sense.blk_desc.nblocks);
st->media_blksize = _3btol(scsipi_sense.blk_desc.blklen);
st->media_density = scsipi_sense.blk_desc.density;
if (scsipi_sense.header.dev_spec & SMH_DSP_WRITE_PROT)
st->flags |= ST_READONLY;
SC_DEBUG(sc_link, SDEV_DB3,
("density code 0x%x, %d-byte blocks, write-%s, ",
st->media_density, st->media_blksize,
st->flags & ST_READONLY ? "protected" : "enabled"));
SC_DEBUG(sc_link, SDEV_DB3,
("%sbuffered\n",
scsipi_sense.header.dev_spec & SMH_DSP_BUFF_MODE ? "" : "un"));
if (st->page_0_size)
bcopy(scsipi_sense.sense_data, st->sense_data,
st->page_0_size);
sc_link->flags |= SDEV_MEDIA_LOADED;
return (0);
}
/*
* Send a filled out parameter structure to the drive to
* set it into the desire modes etc.
*/
int
st_mode_select(st, flags)
struct st_softc *st;
int flags;
{
u_int scsi_select_len;
struct scsi_mode_select cmd;
struct scsi_select {
struct scsi_mode_header header;
struct scsi_blk_desc blk_desc;
u_char sense_data[MAX_PAGE_0_SIZE];
} scsi_select;
struct scsipi_link *sc_link = st->sc_link;
scsi_select_len = 12 + st->page_0_size;
/*
* This quirk deals with drives that have only one valid mode
* and think this gives them license to reject all mode selects,
* even if the selected mode is the one that is supported.
*/
if (st->quirks & ST_Q_UNIMODAL) {
SC_DEBUG(sc_link, SDEV_DB3,
("not setting density 0x%x blksize 0x%x\n",
st->density, st->blksize));
return (0);
}
/*
* Set up for a mode select
*/
bzero(&cmd, sizeof(cmd));
cmd.opcode = SCSI_MODE_SELECT;
cmd.length = scsi_select_len;
bzero(&scsi_select, scsi_select_len);
scsi_select.header.blk_desc_len = sizeof(struct scsi_blk_desc);
scsi_select.header.dev_spec &= ~SMH_DSP_BUFF_MODE;
scsi_select.blk_desc.density = st->density;
if (st->flags & ST_DONTBUFFER)
scsi_select.header.dev_spec |= SMH_DSP_BUFF_MODE_OFF;
else
scsi_select.header.dev_spec |= SMH_DSP_BUFF_MODE_ON;
if (st->flags & ST_FIXEDBLOCKS)
_lto3b(st->blksize, scsi_select.blk_desc.blklen);
if (st->page_0_size)
bcopy(st->sense_data, scsi_select.sense_data, st->page_0_size);
/*
* do the command
*/
return ((*sc_link->scsipi_cmd)(sc_link, (struct scsipi_generic *)&cmd,
sizeof(cmd), (u_char *)&scsi_select, scsi_select_len,
ST_RETRIES, 5000, NULL, flags | SCSI_DATA_OUT));
}
int
st_cmprss(st, onoff)
struct st_softc *st;
int onoff;
{
u_int scsi_dlen;
struct scsi_mode_select mcmd;
struct scsi_mode_sense scmd;
struct scsi_select {
struct scsi_mode_header header;
struct scsi_blk_desc blk_desc;
u_char pdata[max(sizeof(struct scsi_tape_dev_conf_page),
sizeof(struct scsi_tape_dev_compression_page))];
} scsi_pdata;
struct scsi_tape_dev_conf_page *ptr;
struct scsi_tape_dev_compression_page *cptr;
struct scsipi_link *sc_link = st->sc_link;
int error, ison, flags;
scsi_dlen = sizeof(scsi_pdata);
bzero(&scsi_pdata, scsi_dlen);
/*
* Set up for a mode sense.
* Do DATA COMPRESSION page first.
*/
bzero(&scmd, sizeof(scmd));
scmd.opcode = SCSI_MODE_SENSE;
scmd.page = SMS_PAGE_CTRL_CURRENT | 0xf;
scmd.length = scsi_dlen;
flags = SCSI_SILENT;
/*
* Do the MODE SENSE command...
*/
again:
error = (*sc_link->scsipi_cmd)(sc_link,
(struct scsipi_generic *)&scmd, sizeof(scmd),
(u_char *)&scsi_pdata, scsi_dlen,
ST_RETRIES, 5000, NULL, flags | SCSI_DATA_IN);
if (error) {
if (scmd.byte2 != SMS_DBD) {
scmd.byte2 = SMS_DBD;
goto again;
}
return (error);
}
if (scsi_pdata.header.blk_desc_len)
ptr = (struct scsi_tape_dev_conf_page *) scsi_pdata.pdata;
else
ptr = (struct scsi_tape_dev_conf_page *) &scsi_pdata.blk_desc;
if ((scmd.page & SMS_PAGE_CODE) == 0xf) {
cptr = (struct scsi_tape_dev_compression_page *) ptr;
ison = (cptr->dce_dcc & DCP_DCE) != 0;
if (onoff)
cptr->dce_dcc |= DCP_DCE;
else
cptr->dce_dcc &= ~DCP_DCE;
cptr->pagecode &= ~0x80;
} else {
ison = (ptr->sel_comp_alg != 0);
if (onoff)
ptr->sel_comp_alg = 1;
else
ptr->sel_comp_alg = 0;
ptr->pagecode &= ~0x80;
}
onoff = onoff ? 1 : 0;
/*
* There might be a virtue in actually doing the MODE SELECTS,
* but let's not clog the bus over it.
*/
if (onoff == ison)
return (0);
/*
* Set up for a mode select
*/
scsi_pdata.header.data_length = 0;
scsi_pdata.header.medium_type = 0;
if ((st->flags & ST_DONTBUFFER) == 0)
scsi_pdata.header.dev_spec = SMH_DSP_BUFF_MODE_ON;
else
scsi_pdata.header.dev_spec = 0;
bzero(&mcmd, sizeof(mcmd));
mcmd.opcode = SCSI_MODE_SELECT;
mcmd.byte2 = SMS_PF;
mcmd.length = scsi_dlen;
if (scsi_pdata.header.blk_desc_len) {
scsi_pdata.blk_desc.density = 0;
scsi_pdata.blk_desc.nblocks[0] = 0;
scsi_pdata.blk_desc.nblocks[1] = 0;
scsi_pdata.blk_desc.nblocks[2] = 0;
}
/*
* Do the command
*/
error = (*sc_link->scsipi_cmd)(sc_link,
(struct scsipi_generic *)&mcmd, sizeof(mcmd),
(u_char *)&scsi_pdata, scsi_dlen,
ST_RETRIES, 5000, NULL, flags | SCSI_DATA_OUT);
if (error && (scmd.page & SMS_PAGE_CODE) == 0xf) {
/*
* Try DEVICE CONFIGURATION page.
*/
scmd.page = SMS_PAGE_CTRL_CURRENT | 0x10;
goto again;
}
return (error);
}
/*
* issue an erase command
*/
int
st_erase(st, full, flags)
struct st_softc *st;
int full, flags;
{
struct scsi_erase cmd;
/*
* Full erase means set LONG bit in erase command, which asks
* the drive to erase the entire unit. Without this bit, we're
* asking the drive to write an erase gap.
*/
bzero(&cmd, sizeof(cmd));
cmd.opcode = ERASE;
if (full)
cmd.byte2 = SE_IMMED|SE_LONG;
else
cmd.byte2 = SE_IMMED;
/*
* XXX We always do this asynchronously, for now. How long should
* we wait if we want to (eventually) to it synchronously?
*/
return ((*st->sc_link->scsipi_cmd)(st->sc_link,
(struct scsipi_generic *)&cmd, sizeof(cmd),
0, 0, ST_RETRIES, 5000, NULL, flags));
}
/*
* skip N blocks/filemarks/seq filemarks/eom
*/
int
st_space(st, number, what, flags)
struct st_softc *st;
u_int what;
int flags;
int number;
{
struct scsi_space cmd;
int error;
switch (what) {
case SP_BLKS:
if (st->flags & ST_PER_ACTION) {
if (number > 0) {
st->flags &= ~ST_PER_ACTION;
return (EIO);
} else if (number < 0) {
if (st->flags & ST_AT_FILEMARK) {
/*
* Handling of ST_AT_FILEMARK
* in st_space will fill in the
* right file mark count.
*/
error = st_space(st, 0, SP_FILEMARKS,
flags);
if (error)
return (error);
}
if (st->flags & ST_BLANK_READ) {
st->flags &= ~ST_BLANK_READ;
return (EIO);
}
st->flags &= ~ST_EIO_PENDING;
}
}
break;
case SP_FILEMARKS:
if (st->flags & ST_EIO_PENDING) {
if (number > 0) {
/* pretend we just discovered the error */
st->flags &= ~ST_EIO_PENDING;
return (EIO);
} else if (number < 0) {
/* back away from the error */
st->flags &= ~ST_EIO_PENDING;
}
}
if (st->flags & ST_AT_FILEMARK) {
st->flags &= ~ST_AT_FILEMARK;
number--;
}
if ((st->flags & ST_BLANK_READ) && (number < 0)) {
/* back away from unwritten tape */
st->flags &= ~ST_BLANK_READ;
number++; /* XXX dubious */
}
break;
case SP_EOM:
if (st->flags & ST_EIO_PENDING) {
/* pretend we just discovered the error */
st->flags &= ~ST_EIO_PENDING;
return (EIO);
}
if (st->flags & ST_AT_FILEMARK)
st->flags &= ~ST_AT_FILEMARK;
break;
}
if (number == 0)
return (0);
bzero(&cmd, sizeof(cmd));
cmd.opcode = SPACE;
cmd.byte2 = what;
_lto3b(number, cmd.number);
return ((*st->sc_link->scsipi_cmd)(st->sc_link,
(struct scsipi_generic *)&cmd, sizeof(cmd),
0, 0, 0, 900000, NULL, flags));
}
/*
* write N filemarks
*/
int
st_write_filemarks(st, number, flags)
struct st_softc *st;
int flags;
int number;
{
struct scsi_write_filemarks cmd;
/*
* It's hard to write a negative number of file marks.
* Don't try.
*/
if (number < 0)
return (EINVAL);
switch (number) {
case 0: /* really a command to sync the drive's buffers */
break;
case 1:
if (st->flags & ST_FM_WRITTEN) /* already have one down */
st->flags &= ~ST_WRITTEN;
else
st->flags |= ST_FM_WRITTEN;
st->flags &= ~ST_PER_ACTION;
break;
default:
st->flags &= ~(ST_PER_ACTION | ST_WRITTEN);
}
bzero(&cmd, sizeof(cmd));
cmd.opcode = WRITE_FILEMARKS;
_lto3b(number, cmd.number);
return ((*st->sc_link->scsipi_cmd)(st->sc_link,
(struct scsipi_generic *)&cmd, sizeof(cmd),
0, 0, 0, 100000, NULL, flags));
}
/*
* Make sure the right number of file marks is on tape if the
* tape has been written. If the position argument is true,
* leave the tape positioned where it was originally.
*
* nmarks returns the number of marks to skip (or, if position
* true, which were skipped) to get back original position.
*/
int
st_check_eod(st, position, nmarks, flags)
struct st_softc *st;
boolean position;
int *nmarks;
int flags;
{
int error;
switch (st->flags & (ST_WRITTEN | ST_FM_WRITTEN | ST_2FM_AT_EOD)) {
default:
*nmarks = 0;
return (0);
case ST_WRITTEN:
case ST_WRITTEN | ST_FM_WRITTEN | ST_2FM_AT_EOD:
*nmarks = 1;
break;
case ST_WRITTEN | ST_2FM_AT_EOD:
*nmarks = 2;
}
error = st_write_filemarks(st, *nmarks, flags);
if (position && !error)
error = st_space(st, -*nmarks, SP_FILEMARKS, flags);
return (error);
}
/*
* load/unload/retension
*/
int
st_load(st, type, flags)
struct st_softc *st;
u_int type;
int flags;
{
struct scsi_load cmd;
if (type != LD_LOAD) {
int error;
int nmarks;
error = st_check_eod(st, FALSE, &nmarks, flags);
if (error)
return (error);
}
if (st->quirks & ST_Q_IGNORE_LOADS)
return (0);
bzero(&cmd, sizeof(cmd));
cmd.opcode = LOAD;
cmd.how = type;
return ((*st->sc_link->scsipi_cmd)(st->sc_link,
(struct scsipi_generic *)&cmd, sizeof(cmd),
0, 0, ST_RETRIES, 300000, NULL, flags));
}
/*
* Rewind the device
*/
int
st_rewind(st, immediate, flags)
struct st_softc *st;
u_int immediate;
int flags;
{
struct scsi_rewind cmd;
int error;
int nmarks;
error = st_check_eod(st, FALSE, &nmarks, flags);
if (error)
return (error);
st->flags &= ~ST_PER_ACTION;
bzero(&cmd, sizeof(cmd));
cmd.opcode = REWIND;
cmd.byte2 = immediate;
return ((*st->sc_link->scsipi_cmd)(st->sc_link,
(struct scsipi_generic *)&cmd, sizeof(cmd),
0, 0, ST_RETRIES, immediate ? 5000 : 300000, NULL, flags));
}
int
st_rdpos(st, hard, blkptr)
struct st_softc *st;
int hard;
u_int32_t *blkptr;
{
int error;
u_int8_t posdata[20];
struct scsi_tape_read_position cmd;
/*
* First flush any pending writes...
*/
error = st_write_filemarks(st, 0, SCSI_SILENT);
/*
* The latter case is for 'write protected' tapes
* which are too stupid to recognize a zero count
* for writing filemarks as a no-op.
*/
if (error != 0 && error != EACCES)
return (error);
bzero(&cmd, sizeof(cmd));
bzero(&posdata, sizeof(posdata));
cmd.opcode = READ_POSITION;
if (hard)
cmd.byte1 = 1;
error = st->sc_link->scsipi_cmd(st->sc_link,
(struct scsipi_generic *)&cmd, sizeof(cmd), (u_char *)&posdata,
sizeof(posdata), ST_RETRIES, 30000, NULL, SCSI_DATA_IN);
if (error == 0) {
#if 0
printf("posdata:");
for (hard = 0; hard < sizeof(posdata); hard++)
printf("%02x ", posdata[hard] & 0xff);
printf("\n");
#endif
if (posdata[0] & 0x4) /* Block Position Unknown */
error = EINVAL;
else {
*blkptr = _4btol(&posdata[4]);
}
}
return (error);
}
int
st_setpos(st, hard, blkptr)
struct st_softc *st;
int hard;
u_int32_t *blkptr;
{
int error;
struct scsipi_generic cmd;
/*
* First flush any pending writes. Strictly speaking,
* we're not supposed to have to worry about this,
* but let's be untrusting.
*/
error = st_write_filemarks(st, 0, SCSI_SILENT);
/*
* The latter case is for 'write protected' tapes
* which are too stupid to recognize a zero count
* for writing filemarks as a no-op.
*/
if (error != 0 && error != EACCES)
return (error);
bzero(&cmd, sizeof(cmd));
cmd.opcode = LOCATE;
if (hard)
cmd.bytes[0] = 1 << 2;
_lto4b(*blkptr, &cmd.bytes[2]);
error = (*st->sc_link->scsipi_cmd)(st->sc_link, &cmd, sizeof(cmd),
NULL, 0, ST_RETRIES, 5000, NULL, 0);
/*
* XXX: Note file && block number position now unknown (if
* XXX: these things ever start being maintained in this driver)
*/
return (error);
}
/*
* Look at the returned sense and act on the error and detirmine
* The unix error number to pass back... (0 = report no error)
* (-1 = continue processing)
*/
int
st_interpret_sense(xs)
struct scsipi_xfer *xs;
{
struct scsipi_link *sc_link = xs->sc_link;
struct scsipi_sense_data *sense = &xs->sense.scsi_sense;
struct buf *bp = xs->bp;
struct st_softc *st = sc_link->device_softc;
u_int8_t key;
int32_t info;
/*
* Get the sense fields and work out what code
*/
if (sense->error_code & SSD_ERRCODE_VALID)
info = _4btol(sense->info);
else
info = xs->datalen; /* bad choice if fixed blocks */
if ((sense->error_code & SSD_ERRCODE) != 0x70)
return (-1); /* let the generic code handle it */
#ifdef SCSIVERBOSE
else if ((xs->flags & SCSI_SILENT) == 0)
scsi_print_sense(xs, 0); /* tell folks what happened */
#endif
if (st->flags & ST_FIXEDBLOCKS) {
xs->resid = info * st->blksize;
if (sense->flags & SSD_EOM) {
st->flags |= ST_EIO_PENDING;
if (bp)
bp->b_resid = xs->resid;
}
if (sense->flags & SSD_FILEMARK) {
st->flags |= ST_AT_FILEMARK;
if (bp)
bp->b_resid = xs->resid;
}
if (sense->flags & SSD_ILI) {
st->flags |= ST_EIO_PENDING;
if (bp)
bp->b_resid = xs->resid;
if (sense->error_code & SSD_ERRCODE_VALID &&
(xs->flags & SCSI_SILENT) == 0)
printf("%s: block wrong size, %d blocks residual\n",
st->sc_dev.dv_xname, info);
/*
* This quirk code helps the drive read
* the first tape block, regardless of
* format. That is required for these
* drives to return proper MODE SENSE
* information.
*/
if ((st->quirks & ST_Q_SENSE_HELP) &&
!(sc_link->flags & SDEV_MEDIA_LOADED))
st->blksize -= 512;
}
/*
* If no data was tranfered, do it immediatly
*/
if (xs->resid >= xs->datalen) {
if (st->flags & ST_EIO_PENDING)
return (EIO);
if (st->flags & ST_AT_FILEMARK) {
if (bp)
bp->b_resid = xs->resid;
return (0);
}
}
} else { /* must be variable mode */
xs->resid = xs->datalen; /* to be sure */
if (sense->flags & SSD_EOM)
return (EIO);
if (sense->flags & SSD_FILEMARK) {
if (bp)
bp->b_resid = bp->b_bcount;
return (0);
}
if (sense->flags & SSD_ILI) {
if (info < 0) {
/*
* the record was bigger than the read
*/
if ((xs->flags & SCSI_SILENT) == 0)
printf("%s: %d-byte record too big\n",
st->sc_dev.dv_xname,
xs->datalen - info);
return (EIO);
}
xs->resid = info;
if (bp)
bp->b_resid = info;
}
}
key = sense->flags & SSD_KEY;
if (key == 0x8) {
/*
* This quirk code helps the drive read the
* first tape block, regardless of format. That
* is required for these drives to return proper
* MODE SENSE information.
*/
if ((st->quirks & ST_Q_SENSE_HELP) &&
!(sc_link->flags & SDEV_MEDIA_LOADED)) {
/* still starting */
st->blksize -= 512;
} else if (!(st->flags & (ST_2FM_AT_EOD | ST_BLANK_READ))) {
st->flags |= ST_BLANK_READ;
xs->resid = xs->datalen;
if (bp) {
bp->b_resid = xs->resid;
/* return an EOF */
}
return (0);
}
}
return (-1); /* let the default/generic handler handle it */
}
/*
* The quirk here is that the drive returns some value to st_mode_sense
* incorrectly until the tape has actually passed by the head.
*
* The method is to set the drive to large fixed-block state (user-specified
* density and 1024-byte blocks), then read and rewind to get it to sense the
* tape. If that doesn't work, try 512-byte fixed blocks. If that doesn't
* work, as a last resort, try variable- length blocks. The result will be
* the ability to do an accurate st_mode_sense.
*
* We know we can do a rewind because we just did a load, which implies rewind.
* Rewind seems preferable to space backward if we have a virgin tape.
*
* The rest of the code for this quirk is in ILI processing and BLANK CHECK
* error processing, both part of st_interpret_sense.
*/
int
st_touch_tape(st)
struct st_softc *st;
{
char *buf;
int readsize;
int error;
buf = malloc(1024, M_TEMP, M_NOWAIT);
if (buf == NULL)
return (ENOMEM);
if ((error = st_mode_sense(st, 0)) != 0)
goto bad;
st->blksize = 1024;
do {
switch (st->blksize) {
case 512:
case 1024:
readsize = st->blksize;
st->flags |= ST_FIXEDBLOCKS;
break;
default:
readsize = 1;
st->flags &= ~ST_FIXEDBLOCKS;
}
if ((error = st_mode_select(st, 0)) != 0)
goto bad;
st_read(st, buf, readsize, SCSI_SILENT); /* XXX */
if ((error = st_rewind(st, 0, 0)) != 0) {
bad: free(buf, M_TEMP);
return (error);
}
} while (readsize != 1 && readsize > st->blksize);
free(buf, M_TEMP);
return (0);
}
int
stdump(dev, blkno, va, size)
dev_t dev;
daddr_t blkno;
caddr_t va;
size_t size;
{
/* Not implemented. */
return (ENXIO);
}
Reference in New Issue View Git Blame Copy Permalink