git.oblomov.eu Git - linux-2.6/blob - drivers/scsi/st.c

   1 /*
   2    SCSI Tape Driver for Linux version 1.1 and newer. See the accompanying
   3    file Documentation/scsi/st.txt for more information.
   4
   5    History:
   6    Rewritten from Dwayne Forsyth's SCSI tape driver by Kai Makisara.
   7    Contribution and ideas from several people including (in alphabetical
   8    order) Klaus Ehrenfried, Eugene Exarevsky, Eric Lee Green, Wolfgang Denk,
   9    Steve Hirsch, Andreas Koppenh"ofer, Michael Leodolter, Eyal Lebedinsky,
  10    Michael Schaefer, J"org Weule, and Eric Youngdale.
  11
  12    Copyright 1992 - 2008 Kai Makisara
  13    email Kai.Makisara@kolumbus.fi
  14
  15    Some small formal changes - aeb, 950809
  16
  17    Last modified: 18-JAN-1998 Richard Gooch <rgooch@atnf.csiro.au> Devfs support
  18  */
  19
  20 static const char *verstr = "20080221";
  21
  22 #include <linux/module.h>
  23
  24 #include <linux/fs.h>
  25 #include <linux/kernel.h>
  26 #include <linux/sched.h>
  27 #include <linux/mm.h>
  28 #include <linux/init.h>
  29 #include <linux/string.h>
  30 #include <linux/errno.h>
  31 #include <linux/mtio.h>
  32 #include <linux/cdrom.h>
  33 #include <linux/ioctl.h>
  34 #include <linux/fcntl.h>
  35 #include <linux/spinlock.h>
  36 #include <linux/blkdev.h>
  37 #include <linux/moduleparam.h>
  38 #include <linux/cdev.h>
  39 #include <linux/delay.h>
  40 #include <linux/mutex.h>
  41
  42 #include <asm/uaccess.h>
  43 #include <asm/dma.h>
  44 #include <asm/system.h>
  45
  46 #include <scsi/scsi.h>
  47 #include <scsi/scsi_dbg.h>
  48 #include <scsi/scsi_device.h>
  49 #include <scsi/scsi_driver.h>
  50 #include <scsi/scsi_eh.h>
  51 #include <scsi/scsi_host.h>
  52 #include <scsi/scsi_ioctl.h>
  53 #include <scsi/sg.h>
  54
  55
  56 /* The driver prints some debugging information on the console if DEBUG
  57    is defined and non-zero. */
  58 #define DEBUG 0
  59
  60 #if DEBUG
  61 /* The message level for the debug messages is currently set to KERN_NOTICE
  62    so that people can easily see the messages. Later when the debugging messages
  63    in the drivers are more widely classified, this may be changed to KERN_DEBUG. */
  64 #define ST_DEB_MSG  KERN_NOTICE
  65 #define DEB(a) a
  66 #define DEBC(a) if (debugging) { a ; }
  67 #else
  68 #define DEB(a)
  69 #define DEBC(a)
  70 #endif
  71
  72 #define ST_KILOBYTE 1024
  73
  74 #include "st_options.h"
  75 #include "st.h"
  76
  77 static int buffer_kbs;
  78 static int max_sg_segs;
  79 static int try_direct_io = TRY_DIRECT_IO;
  80 static int try_rdio = 1;
  81 static int try_wdio = 1;
  82
  83 static int st_dev_max;
  84 static int st_nr_dev;
  85
  86 static struct class *st_sysfs_class;
  87
  88 MODULE_AUTHOR("Kai Makisara");
  89 MODULE_DESCRIPTION("SCSI tape (st) driver");
  90 MODULE_LICENSE("GPL");
  91 MODULE_ALIAS_CHARDEV_MAJOR(SCSI_TAPE_MAJOR);
  92 MODULE_ALIAS_SCSI_DEVICE(TYPE_TAPE);
  93
  94 /* Set 'perm' (4th argument) to 0 to disable module_param's definition
  95  * of sysfs parameters (which module_param doesn't yet support).
  96  * Sysfs parameters defined explicitly later.
  97  */
  98 module_param_named(buffer_kbs, buffer_kbs, int, 0);
  99 MODULE_PARM_DESC(buffer_kbs, "Default driver buffer size for fixed block mode (KB; 32)");
 100 module_param_named(max_sg_segs, max_sg_segs, int, 0);
 101 MODULE_PARM_DESC(max_sg_segs, "Maximum number of scatter/gather segments to use (256)");
 102 module_param_named(try_direct_io, try_direct_io, int, 0);
 103 MODULE_PARM_DESC(try_direct_io, "Try direct I/O between user buffer and tape drive (1)");
 104
 105 /* Extra parameters for testing */
 106 module_param_named(try_rdio, try_rdio, int, 0);
 107 MODULE_PARM_DESC(try_rdio, "Try direct read i/o when possible");
 108 module_param_named(try_wdio, try_wdio, int, 0);
 109 MODULE_PARM_DESC(try_wdio, "Try direct write i/o when possible");
 110
 111 #ifndef MODULE
 112 static int write_threshold_kbs;  /* retained for compatibility */
 113 static struct st_dev_parm {
 114         char *name;
 115         int *val;
 116 } parms[] __initdata = {
 117         {
 118                 "buffer_kbs", &buffer_kbs
 119         },
 120         {       /* Retained for compatibility with 2.4 */
 121                 "write_threshold_kbs", &write_threshold_kbs
 122         },
 123         {
 124                 "max_sg_segs", NULL
 125         },
 126         {
 127                 "try_direct_io", &try_direct_io
 128         }
 129 };
 130 #endif
 131
 132 /* Restrict the number of modes so that names for all are assigned */
 133 #if ST_NBR_MODES > 16
 134 #error "Maximum number of modes is 16"
 135 #endif
 136 /* Bit reversed order to get same names for same minors with all
 137    mode counts */
 138 static const char *st_formats[] = {
 139         "",  "r", "k", "s", "l", "t", "o", "u",
 140         "m", "v", "p", "x", "a", "y", "q", "z"};
 141
 142 /* The default definitions have been moved to st_options.h */
 143
 144 #define ST_FIXED_BUFFER_SIZE (ST_FIXED_BUFFER_BLOCKS * ST_KILOBYTE)
 145
 146 /* The buffer size should fit into the 24 bits for length in the
 147    6-byte SCSI read and write commands. */
 148 #if ST_FIXED_BUFFER_SIZE >= (2 << 24 - 1)
 149 #error "Buffer size should not exceed (2 << 24 - 1) bytes!"
 150 #endif
 151
 152 static int debugging = DEBUG;
 153
 154 #define MAX_RETRIES 0
 155 #define MAX_WRITE_RETRIES 0
 156 #define MAX_READY_RETRIES 0
 157 #define NO_TAPE  NOT_READY
 158
 159 #define ST_TIMEOUT (900 * HZ)
 160 #define ST_LONG_TIMEOUT (14000 * HZ)
 161
 162 /* Remove mode bits and auto-rewind bit (7) */
 163 #define TAPE_NR(x) ( ((iminor(x) & ~255) >> (ST_NBR_MODE_BITS + 1)) | \
 164     (iminor(x) & ~(-1 << ST_MODE_SHIFT)) )
 165 #define TAPE_MODE(x) ((iminor(x) & ST_MODE_MASK) >> ST_MODE_SHIFT)
 166
 167 /* Construct the minor number from the device (d), mode (m), and non-rewind (n) data */
 168 #define TAPE_MINOR(d, m, n) (((d & ~(255 >> (ST_NBR_MODE_BITS + 1))) << (ST_NBR_MODE_BITS + 1)) | \
 169   (d & (255 >> (ST_NBR_MODE_BITS + 1))) | (m << ST_MODE_SHIFT) | ((n != 0) << 7) )
 170
 171 /* Internal ioctl to set both density (uppermost 8 bits) and blocksize (lower
 172    24 bits) */
 173 #define SET_DENS_AND_BLK 0x10001
 174
 175 static DEFINE_RWLOCK(st_dev_arr_lock);
 176
 177 static int st_fixed_buffer_size = ST_FIXED_BUFFER_SIZE;
 178 static int st_max_sg_segs = ST_MAX_SG;
 179
 180 static struct scsi_tape **scsi_tapes = NULL;
 181
 182 static int modes_defined;
 183
 184 static struct st_buffer *new_tape_buffer(int, int, int);
 185 static int enlarge_buffer(struct st_buffer *, int, int);
 186 static void normalize_buffer(struct st_buffer *);
 187 static int append_to_buffer(const char __user *, struct st_buffer *, int);
 188 static int from_buffer(struct st_buffer *, char __user *, int);
 189 static void move_buffer_data(struct st_buffer *, int);
 190 static void buf_to_sg(struct st_buffer *, unsigned int);
 191
 192 static int sgl_map_user_pages(struct scatterlist *, const unsigned int,
 193                               unsigned long, size_t, int);
 194 static int sgl_unmap_user_pages(struct scatterlist *, const unsigned int, int);
 195
 196 static int st_probe(struct device *);
 197 static int st_remove(struct device *);
 198
 199 static int do_create_sysfs_files(void);
 200 static void do_remove_sysfs_files(void);
 201 static int do_create_class_files(struct scsi_tape *, int, int);
 202
 203 static struct scsi_driver st_template = {
 204         .owner                  = THIS_MODULE,
 205         .gendrv = {
 206                 .name           = "st",
 207                 .probe          = st_probe,
 208                 .remove         = st_remove,
 209         },
 210 };
 211
 212 static int st_compression(struct scsi_tape *, int);
 213
 214 static int find_partition(struct scsi_tape *);
 215 static int switch_partition(struct scsi_tape *);
 216
 217 static int st_int_ioctl(struct scsi_tape *, unsigned int, unsigned long);
 218
 219 static void scsi_tape_release(struct kref *);
 220
 221 #define to_scsi_tape(obj) container_of(obj, struct scsi_tape, kref)
 222
 223 static DEFINE_MUTEX(st_ref_mutex);
 224
 225 \f
 226 #include "osst_detect.h"
 227 #ifndef SIGS_FROM_OSST
 228 #define SIGS_FROM_OSST \
 229         {"OnStream", "SC-", "", "osst"}, \
 230         {"OnStream", "DI-", "", "osst"}, \
 231         {"OnStream", "DP-", "", "osst"}, \
 232         {"OnStream", "USB", "", "osst"}, \
 233         {"OnStream", "FW-", "", "osst"}
 234 #endif
 235
 236 static struct scsi_tape *scsi_tape_get(int dev)
 237 {
 238         struct scsi_tape *STp = NULL;
 239
 240         mutex_lock(&st_ref_mutex);
 241         write_lock(&st_dev_arr_lock);
 242
 243         if (dev < st_dev_max && scsi_tapes != NULL)
 244                 STp = scsi_tapes[dev];
 245         if (!STp) goto out;
 246
 247         kref_get(&STp->kref);
 248
 249         if (!STp->device)
 250                 goto out_put;
 251
 252         if (scsi_device_get(STp->device))
 253                 goto out_put;
 254
 255         goto out;
 256
 257 out_put:
 258         kref_put(&STp->kref, scsi_tape_release);
 259         STp = NULL;
 260 out:
 261         write_unlock(&st_dev_arr_lock);
 262         mutex_unlock(&st_ref_mutex);
 263         return STp;
 264 }
 265
 266 static void scsi_tape_put(struct scsi_tape *STp)
 267 {
 268         struct scsi_device *sdev = STp->device;
 269
 270         mutex_lock(&st_ref_mutex);
 271         kref_put(&STp->kref, scsi_tape_release);
 272         scsi_device_put(sdev);
 273         mutex_unlock(&st_ref_mutex);
 274 }
 275
 276 struct st_reject_data {
 277         char *vendor;
 278         char *model;
 279         char *rev;
 280         char *driver_hint; /* Name of the correct driver, NULL if unknown */
 281 };
 282
 283 static struct st_reject_data reject_list[] = {
 284         /* {"XXX", "Yy-", "", NULL},  example */
 285         SIGS_FROM_OSST,
 286         {NULL, }};
 287
 288 /* If the device signature is on the list of incompatible drives, the
 289    function returns a pointer to the name of the correct driver (if known) */
 290 static char * st_incompatible(struct scsi_device* SDp)
 291 {
 292         struct st_reject_data *rp;
 293
 294         for (rp=&(reject_list[0]); rp->vendor != NULL; rp++)
 295                 if (!strncmp(rp->vendor, SDp->vendor, strlen(rp->vendor)) &&
 296                     !strncmp(rp->model, SDp->model, strlen(rp->model)) &&
 297                     !strncmp(rp->rev, SDp->rev, strlen(rp->rev))) {
 298                         if (rp->driver_hint)
 299                                 return rp->driver_hint;
 300                         else
 301                                 return "unknown";
 302                 }
 303         return NULL;
 304 }
 305 \f
 306
 307 static inline char *tape_name(struct scsi_tape *tape)
 308 {
 309         return tape->disk->disk_name;
 310 }
 311
 312
 313 static void st_analyze_sense(struct st_request *SRpnt, struct st_cmdstatus *s)
 314 {
 315         const u8 *ucp;
 316         const u8 *sense = SRpnt->sense;
 317
 318         s->have_sense = scsi_normalize_sense(SRpnt->sense,
 319                                 SCSI_SENSE_BUFFERSIZE, &s->sense_hdr);
 320         s->flags = 0;
 321
 322         if (s->have_sense) {
 323                 s->deferred = 0;
 324                 s->remainder_valid =
 325                         scsi_get_sense_info_fld(sense, SCSI_SENSE_BUFFERSIZE, &s->uremainder64);
 326                 switch (sense[0] & 0x7f) {
 327                 case 0x71:
 328                         s->deferred = 1;
 329                 case 0x70:
 330                         s->fixed_format = 1;
 331                         s->flags = sense[2] & 0xe0;
 332                         break;
 333                 case 0x73:
 334                         s->deferred = 1;
 335                 case 0x72:
 336                         s->fixed_format = 0;
 337                         ucp = scsi_sense_desc_find(sense, SCSI_SENSE_BUFFERSIZE, 4);
 338                         s->flags = ucp ? (ucp[3] & 0xe0) : 0;
 339                         break;
 340                 }
 341         }
 342 }
 343
 344
 345 /* Convert the result to success code */
 346 static int st_chk_result(struct scsi_tape *STp, struct st_request * SRpnt)
 347 {
 348         int result = SRpnt->result;
 349         u8 scode;
 350         DEB(const char *stp;)
 351         char *name = tape_name(STp);
 352         struct st_cmdstatus *cmdstatp;
 353
 354         if (!result)
 355                 return 0;
 356
 357         cmdstatp = &STp->buffer->cmdstat;
 358         st_analyze_sense(SRpnt, cmdstatp);
 359
 360         if (cmdstatp->have_sense)
 361                 scode = STp->buffer->cmdstat.sense_hdr.sense_key;
 362         else
 363                 scode = 0;
 364
 365         DEB(
 366         if (debugging) {
 367                 printk(ST_DEB_MSG "%s: Error: %x, cmd: %x %x %x %x %x %x\n",
 368                        name, result,
 369                        SRpnt->cmd[0], SRpnt->cmd[1], SRpnt->cmd[2],
 370                        SRpnt->cmd[3], SRpnt->cmd[4], SRpnt->cmd[5]);
 371                 if (cmdstatp->have_sense)
 372                          __scsi_print_sense(name, SRpnt->sense, SCSI_SENSE_BUFFERSIZE);
 373         } ) /* end DEB */
 374         if (!debugging) { /* Abnormal conditions for tape */
 375                 if (!cmdstatp->have_sense)
 376                         printk(KERN_WARNING
 377                                "%s: Error %x (sugg. bt 0x%x, driver bt 0x%x, host bt 0x%x).\n",
 378                                name, result, suggestion(result),
 379                                driver_byte(result) & DRIVER_MASK, host_byte(result));
 380                 else if (cmdstatp->have_sense &&
 381                          scode != NO_SENSE &&
 382                          scode != RECOVERED_ERROR &&
 383                          /* scode != UNIT_ATTENTION && */
 384                          scode != BLANK_CHECK &&
 385                          scode != VOLUME_OVERFLOW &&
 386                          SRpnt->cmd[0] != MODE_SENSE &&
 387                          SRpnt->cmd[0] != TEST_UNIT_READY) {
 388
 389                         __scsi_print_sense(name, SRpnt->sense, SCSI_SENSE_BUFFERSIZE);
 390                 }
 391         }
 392
 393         if (cmdstatp->fixed_format &&
 394             STp->cln_mode >= EXTENDED_SENSE_START) {  /* Only fixed format sense */
 395                 if (STp->cln_sense_value)
 396                         STp->cleaning_req |= ((SRpnt->sense[STp->cln_mode] &
 397                                                STp->cln_sense_mask) == STp->cln_sense_value);
 398                 else
 399                         STp->cleaning_req |= ((SRpnt->sense[STp->cln_mode] &
 400                                                STp->cln_sense_mask) != 0);
 401         }
 402         if (cmdstatp->have_sense &&
 403             cmdstatp->sense_hdr.asc == 0 && cmdstatp->sense_hdr.ascq == 0x17)
 404                 STp->cleaning_req = 1; /* ASC and ASCQ => cleaning requested */
 405
 406         STp->pos_unknown |= STp->device->was_reset;
 407
 408         if (cmdstatp->have_sense &&
 409             scode == RECOVERED_ERROR
 410 #if ST_RECOVERED_WRITE_FATAL
 411             && SRpnt->cmd[0] != WRITE_6
 412             && SRpnt->cmd[0] != WRITE_FILEMARKS
 413 #endif
 414             ) {
 415                 STp->recover_count++;
 416                 STp->recover_reg++;
 417
 418                 DEB(
 419                 if (debugging) {
 420                         if (SRpnt->cmd[0] == READ_6)
 421                                 stp = "read";
 422                         else if (SRpnt->cmd[0] == WRITE_6)
 423                                 stp = "write";
 424                         else
 425                                 stp = "ioctl";
 426                         printk(ST_DEB_MSG "%s: Recovered %s error (%d).\n", name, stp,
 427                                STp->recover_count);
 428                 } ) /* end DEB */
 429
 430                 if (cmdstatp->flags == 0)
 431                         return 0;
 432         }
 433         return (-EIO);
 434 }
 435
 436
 437 /* Wakeup from interrupt */
 438 static void st_sleep_done(void *data, char *sense, int result, int resid)
 439 {
 440         struct st_request *SRpnt = data;
 441         struct scsi_tape *STp = SRpnt->stp;
 442
 443         memcpy(SRpnt->sense, sense, SCSI_SENSE_BUFFERSIZE);
 444         (STp->buffer)->cmdstat.midlevel_result = SRpnt->result = result;
 445         DEB( STp->write_pending = 0; )
 446
 447         if (SRpnt->waiting)
 448                 complete(SRpnt->waiting);
 449 }
 450
 451 static struct st_request *st_allocate_request(void)
 452 {
 453         return kzalloc(sizeof(struct st_request), GFP_KERNEL);
 454 }
 455
 456 static void st_release_request(struct st_request *streq)
 457 {
 458         kfree(streq);
 459 }
 460
 461 /* Do the scsi command. Waits until command performed if do_wait is true.
 462    Otherwise write_behind_check() is used to check that the command
 463    has finished. */
 464 static struct st_request *
 465 st_do_scsi(struct st_request * SRpnt, struct scsi_tape * STp, unsigned char *cmd,
 466            int bytes, int direction, int timeout, int retries, int do_wait)
 467 {
 468         struct completion *waiting;
 469
 470         /* if async, make sure there's no command outstanding */
 471         if (!do_wait && ((STp->buffer)->last_SRpnt)) {
 472                 printk(KERN_ERR "%s: Async command already active.\n",
 473                        tape_name(STp));
 474                 if (signal_pending(current))
 475                         (STp->buffer)->syscall_result = (-EINTR);
 476                 else
 477                         (STp->buffer)->syscall_result = (-EBUSY);
 478                 return NULL;
 479         }
 480
 481         if (SRpnt == NULL) {
 482                 SRpnt = st_allocate_request();
 483                 if (SRpnt == NULL) {
 484                         DEBC( printk(KERN_ERR "%s: Can't get SCSI request.\n",
 485                                      tape_name(STp)); );
 486                         if (signal_pending(current))
 487                                 (STp->buffer)->syscall_result = (-EINTR);
 488                         else
 489                                 (STp->buffer)->syscall_result = (-EBUSY);
 490                         return NULL;
 491                 }
 492                 SRpnt->stp = STp;
 493         }
 494
 495         /* If async IO, set last_SRpnt. This ptr tells write_behind_check
 496            which IO is outstanding. It's nulled out when the IO completes. */
 497         if (!do_wait)
 498                 (STp->buffer)->last_SRpnt = SRpnt;
 499
 500         waiting = &STp->wait;
 501         init_completion(waiting);
 502         SRpnt->waiting = waiting;
 503
 504         if (!STp->buffer->do_dio)
 505                 buf_to_sg(STp->buffer, bytes);
 506
 507         memcpy(SRpnt->cmd, cmd, sizeof(SRpnt->cmd));
 508         STp->buffer->cmdstat.have_sense = 0;
 509         STp->buffer->syscall_result = 0;
 510
 511         if (scsi_execute_async(STp->device, cmd, COMMAND_SIZE(cmd[0]), direction,
 512                         &((STp->buffer)->sg[0]), bytes, (STp->buffer)->sg_segs,
 513                                timeout, retries, SRpnt, st_sleep_done, GFP_KERNEL)) {
 514                 /* could not allocate the buffer or request was too large */
 515                 (STp->buffer)->syscall_result = (-EBUSY);
 516                 (STp->buffer)->last_SRpnt = NULL;
 517         }
 518         else if (do_wait) {
 519                 wait_for_completion(waiting);
 520                 SRpnt->waiting = NULL;
 521                 (STp->buffer)->syscall_result = st_chk_result(STp, SRpnt);
 522         }
 523
 524         return SRpnt;
 525 }
 526
 527
 528 /* Handle the write-behind checking (waits for completion). Returns -ENOSPC if
 529    write has been correct but EOM early warning reached, -EIO if write ended in
 530    error or zero if write successful. Asynchronous writes are used only in
 531    variable block mode. */
 532 static int write_behind_check(struct scsi_tape * STp)
 533 {
 534         int retval = 0;
 535         struct st_buffer *STbuffer;
 536         struct st_partstat *STps;
 537         struct st_cmdstatus *cmdstatp;
 538         struct st_request *SRpnt;
 539
 540         STbuffer = STp->buffer;
 541         if (!STbuffer->writing)
 542                 return 0;
 543
 544         DEB(
 545         if (STp->write_pending)
 546                 STp->nbr_waits++;
 547         else
 548                 STp->nbr_finished++;
 549         ) /* end DEB */
 550
 551         wait_for_completion(&(STp->wait));
 552         SRpnt = STbuffer->last_SRpnt;
 553         STbuffer->last_SRpnt = NULL;
 554         SRpnt->waiting = NULL;
 555
 556         (STp->buffer)->syscall_result = st_chk_result(STp, SRpnt);
 557         st_release_request(SRpnt);
 558
 559         STbuffer->buffer_bytes -= STbuffer->writing;
 560         STps = &(STp->ps[STp->partition]);
 561         if (STps->drv_block >= 0) {
 562                 if (STp->block_size == 0)
 563                         STps->drv_block++;
 564                 else
 565                         STps->drv_block += STbuffer->writing / STp->block_size;
 566         }
 567
 568         cmdstatp = &STbuffer->cmdstat;
 569         if (STbuffer->syscall_result) {
 570                 retval = -EIO;
 571                 if (cmdstatp->have_sense && !cmdstatp->deferred &&
 572                     (cmdstatp->flags & SENSE_EOM) &&
 573                     (cmdstatp->sense_hdr.sense_key == NO_SENSE ||
 574                      cmdstatp->sense_hdr.sense_key == RECOVERED_ERROR)) {
 575                         /* EOM at write-behind, has all data been written? */
 576                         if (!cmdstatp->remainder_valid ||
 577                             cmdstatp->uremainder64 == 0)
 578                                 retval = -ENOSPC;
 579                 }
 580                 if (retval == -EIO)
 581                         STps->drv_block = -1;
 582         }
 583         STbuffer->writing = 0;
 584
 585         DEB(if (debugging && retval)
 586             printk(ST_DEB_MSG "%s: Async write error %x, return value %d.\n",
 587                    tape_name(STp), STbuffer->cmdstat.midlevel_result, retval);) /* end DEB */
 588
 589         return retval;
 590 }
 591
 592
 593 /* Step over EOF if it has been inadvertently crossed (ioctl not used because
 594    it messes up the block number). */
 595 static int cross_eof(struct scsi_tape * STp, int forward)
 596 {
 597         struct st_request *SRpnt;
 598         unsigned char cmd[MAX_COMMAND_SIZE];
 599
 600         cmd[0] = SPACE;
 601         cmd[1] = 0x01;          /* Space FileMarks */
 602         if (forward) {
 603                 cmd[2] = cmd[3] = 0;
 604                 cmd[4] = 1;
 605         } else
 606                 cmd[2] = cmd[3] = cmd[4] = 0xff;        /* -1 filemarks */
 607         cmd[5] = 0;
 608
 609         DEBC(printk(ST_DEB_MSG "%s: Stepping over filemark %s.\n",
 610                    tape_name(STp), forward ? "forward" : "backward"));
 611
 612         SRpnt = st_do_scsi(NULL, STp, cmd, 0, DMA_NONE,
 613                            STp->device->timeout, MAX_RETRIES, 1);
 614         if (!SRpnt)
 615                 return (STp->buffer)->syscall_result;
 616
 617         st_release_request(SRpnt);
 618         SRpnt = NULL;
 619
 620         if ((STp->buffer)->cmdstat.midlevel_result != 0)
 621                 printk(KERN_ERR "%s: Stepping over filemark %s failed.\n",
 622                    tape_name(STp), forward ? "forward" : "backward");
 623
 624         return (STp->buffer)->syscall_result;
 625 }
 626
 627
 628 /* Flush the write buffer (never need to write if variable blocksize). */
 629 static int flush_write_buffer(struct scsi_tape * STp)
 630 {
 631         int offset, transfer, blks;
 632         int result;
 633         unsigned char cmd[MAX_COMMAND_SIZE];
 634         struct st_request *SRpnt;
 635         struct st_partstat *STps;
 636
 637         result = write_behind_check(STp);
 638         if (result)
 639                 return result;
 640
 641         result = 0;
 642         if (STp->dirty == 1) {
 643
 644                 offset = (STp->buffer)->buffer_bytes;
 645                 transfer = ((offset + STp->block_size - 1) /
 646                             STp->block_size) * STp->block_size;
 647                 DEBC(printk(ST_DEB_MSG "%s: Flushing %d bytes.\n",
 648                                tape_name(STp), transfer));
 649
 650                 memset((STp->buffer)->b_data + offset, 0, transfer - offset);
 651
 652                 memset(cmd, 0, MAX_COMMAND_SIZE);
 653                 cmd[0] = WRITE_6;
 654                 cmd[1] = 1;
 655                 blks = transfer / STp->block_size;
 656                 cmd[2] = blks >> 16;
 657                 cmd[3] = blks >> 8;
 658                 cmd[4] = blks;
 659
 660                 SRpnt = st_do_scsi(NULL, STp, cmd, transfer, DMA_TO_DEVICE,
 661                                    STp->device->timeout, MAX_WRITE_RETRIES, 1);
 662                 if (!SRpnt)
 663                         return (STp->buffer)->syscall_result;
 664
 665                 STps = &(STp->ps[STp->partition]);
 666                 if ((STp->buffer)->syscall_result != 0) {
 667                         struct st_cmdstatus *cmdstatp = &STp->buffer->cmdstat;
 668
 669                         if (cmdstatp->have_sense && !cmdstatp->deferred &&
 670                             (cmdstatp->flags & SENSE_EOM) &&
 671                             (cmdstatp->sense_hdr.sense_key == NO_SENSE ||
 672                              cmdstatp->sense_hdr.sense_key == RECOVERED_ERROR) &&
 673                             (!cmdstatp->remainder_valid ||
 674                              cmdstatp->uremainder64 == 0)) { /* All written at EOM early warning */
 675                                 STp->dirty = 0;
 676                                 (STp->buffer)->buffer_bytes = 0;
 677                                 if (STps->drv_block >= 0)
 678                                         STps->drv_block += blks;
 679                                 result = (-ENOSPC);
 680                         } else {
 681                                 printk(KERN_ERR "%s: Error on flush.\n",
 682                                        tape_name(STp));
 683                                 STps->drv_block = (-1);
 684                                 result = (-EIO);
 685                         }
 686                 } else {
 687                         if (STps->drv_block >= 0)
 688                                 STps->drv_block += blks;
 689                         STp->dirty = 0;
 690                         (STp->buffer)->buffer_bytes = 0;
 691                 }
 692                 st_release_request(SRpnt);
 693                 SRpnt = NULL;
 694         }
 695         return result;
 696 }
 697
 698
 699 /* Flush the tape buffer. The tape will be positioned correctly unless
 700    seek_next is true. */
 701 static int flush_buffer(struct scsi_tape *STp, int seek_next)
 702 {
 703         int backspace, result;
 704         struct st_buffer *STbuffer;
 705         struct st_partstat *STps;
 706
 707         STbuffer = STp->buffer;
 708
 709         /*
 710          * If there was a bus reset, block further access
 711          * to this device.
 712          */
 713         if (STp->pos_unknown)
 714                 return (-EIO);
 715
 716         if (STp->ready != ST_READY)
 717                 return 0;
 718         STps = &(STp->ps[STp->partition]);
 719         if (STps->rw == ST_WRITING)     /* Writing */
 720                 return flush_write_buffer(STp);
 721
 722         if (STp->block_size == 0)
 723                 return 0;
 724
 725         backspace = ((STp->buffer)->buffer_bytes +
 726                      (STp->buffer)->read_pointer) / STp->block_size -
 727             ((STp->buffer)->read_pointer + STp->block_size - 1) /
 728             STp->block_size;
 729         (STp->buffer)->buffer_bytes = 0;
 730         (STp->buffer)->read_pointer = 0;
 731         result = 0;
 732         if (!seek_next) {
 733                 if (STps->eof == ST_FM_HIT) {
 734                         result = cross_eof(STp, 0);     /* Back over the EOF hit */
 735                         if (!result)
 736                                 STps->eof = ST_NOEOF;
 737                         else {
 738                                 if (STps->drv_file >= 0)
 739                                         STps->drv_file++;
 740                                 STps->drv_block = 0;
 741                         }
 742                 }
 743                 if (!result && backspace > 0)
 744                         result = st_int_ioctl(STp, MTBSR, backspace);
 745         } else if (STps->eof == ST_FM_HIT) {
 746                 if (STps->drv_file >= 0)
 747                         STps->drv_file++;
 748                 STps->drv_block = 0;
 749                 STps->eof = ST_NOEOF;
 750         }
 751         return result;
 752
 753 }
 754 \f
 755 /* Set the mode parameters */
 756 static int set_mode_densblk(struct scsi_tape * STp, struct st_modedef * STm)
 757 {
 758         int set_it = 0;
 759         unsigned long arg;
 760         char *name = tape_name(STp);
 761
 762         if (!STp->density_changed &&
 763             STm->default_density >= 0 &&
 764             STm->default_density != STp->density) {
 765                 arg = STm->default_density;
 766                 set_it = 1;
 767         } else
 768                 arg = STp->density;
 769         arg <<= MT_ST_DENSITY_SHIFT;
 770         if (!STp->blksize_changed &&
 771             STm->default_blksize >= 0 &&
 772             STm->default_blksize != STp->block_size) {
 773                 arg |= STm->default_blksize;
 774                 set_it = 1;
 775         } else
 776                 arg |= STp->block_size;
 777         if (set_it &&
 778             st_int_ioctl(STp, SET_DENS_AND_BLK, arg)) {
 779                 printk(KERN_WARNING
 780                        "%s: Can't set default block size to %d bytes and density %x.\n",
 781                        name, STm->default_blksize, STm->default_density);
 782                 if (modes_defined)
 783                         return (-EINVAL);
 784         }
 785         return 0;
 786 }
 787
 788
 789 /* Lock or unlock the drive door. Don't use when st_request allocated. */
 790 static int do_door_lock(struct scsi_tape * STp, int do_lock)
 791 {
 792         int retval, cmd;
 793         DEB(char *name = tape_name(STp);)
 794
 795
 796         cmd = do_lock ? SCSI_IOCTL_DOORLOCK : SCSI_IOCTL_DOORUNLOCK;
 797         DEBC(printk(ST_DEB_MSG "%s: %socking drive door.\n", name,
 798                     do_lock ? "L" : "Unl"));
 799         retval = scsi_ioctl(STp->device, cmd, NULL);
 800         if (!retval) {
 801                 STp->door_locked = do_lock ? ST_LOCKED_EXPLICIT : ST_UNLOCKED;
 802         }
 803         else {
 804                 STp->door_locked = ST_LOCK_FAILS;
 805         }
 806         return retval;
 807 }
 808
 809
 810 /* Set the internal state after reset */
 811 static void reset_state(struct scsi_tape *STp)
 812 {
 813         int i;
 814         struct st_partstat *STps;
 815
 816         STp->pos_unknown = 0;
 817         for (i = 0; i < ST_NBR_PARTITIONS; i++) {
 818                 STps = &(STp->ps[i]);
 819                 STps->rw = ST_IDLE;
 820                 STps->eof = ST_NOEOF;
 821                 STps->at_sm = 0;
 822                 STps->last_block_valid = 0;
 823                 STps->drv_block = -1;
 824                 STps->drv_file = -1;
 825         }
 826         if (STp->can_partitions) {
 827                 STp->partition = find_partition(STp);
 828                 if (STp->partition < 0)
 829                         STp->partition = 0;
 830                 STp->new_partition = STp->partition;
 831         }
 832 }
 833 \f
 834 /* Test if the drive is ready. Returns either one of the codes below or a negative system
 835    error code. */
 836 #define CHKRES_READY       0
 837 #define CHKRES_NEW_SESSION 1
 838 #define CHKRES_NOT_READY   2
 839 #define CHKRES_NO_TAPE     3
 840
 841 #define MAX_ATTENTIONS    10
 842
 843 static int test_ready(struct scsi_tape *STp, int do_wait)
 844 {
 845         int attentions, waits, max_wait, scode;
 846         int retval = CHKRES_READY, new_session = 0;
 847         unsigned char cmd[MAX_COMMAND_SIZE];
 848         struct st_request *SRpnt = NULL;
 849         struct st_cmdstatus *cmdstatp = &STp->buffer->cmdstat;
 850
 851         max_wait = do_wait ? ST_BLOCK_SECONDS : 0;
 852
 853         for (attentions=waits=0; ; ) {
 854                 memset((void *) &cmd[0], 0, MAX_COMMAND_SIZE);
 855                 cmd[0] = TEST_UNIT_READY;
 856                 SRpnt = st_do_scsi(SRpnt, STp, cmd, 0, DMA_NONE,
 857                                    STp->long_timeout, MAX_READY_RETRIES, 1);
 858
 859                 if (!SRpnt) {
 860                         retval = (STp->buffer)->syscall_result;
 861                         break;
 862                 }
 863
 864                 if (cmdstatp->have_sense) {
 865
 866                         scode = cmdstatp->sense_hdr.sense_key;
 867
 868                         if (scode == UNIT_ATTENTION) { /* New media? */
 869                                 new_session = 1;
 870                                 if (attentions < MAX_ATTENTIONS) {
 871                                         attentions++;
 872                                         continue;
 873                                 }
 874                                 else {
 875                                         retval = (-EIO);
 876                                         break;
 877                                 }
 878                         }
 879
 880                         if (scode == NOT_READY) {
 881                                 if (waits < max_wait) {
 882                                         if (msleep_interruptible(1000)) {
 883                                                 retval = (-EINTR);
 884                                                 break;
 885                                         }
 886                                         waits++;
 887                                         continue;
 888                                 }
 889                                 else {
 890                                         if ((STp->device)->scsi_level >= SCSI_2 &&
 891                                             cmdstatp->sense_hdr.asc == 0x3a)    /* Check ASC */
 892                                                 retval = CHKRES_NO_TAPE;
 893                                         else
 894                                                 retval = CHKRES_NOT_READY;
 895                                         break;
 896                                 }
 897                         }
 898                 }
 899
 900                 retval = (STp->buffer)->syscall_result;
 901                 if (!retval)
 902                         retval = new_session ? CHKRES_NEW_SESSION : CHKRES_READY;
 903                 break;
 904         }
 905
 906         if (SRpnt != NULL)
 907                 st_release_request(SRpnt);
 908         return retval;
 909 }
 910
 911
 912 /* See if the drive is ready and gather information about the tape. Return values:
 913    < 0   negative error code from errno.h
 914    0     drive ready
 915    1     drive not ready (possibly no tape)
 916 */
 917 static int check_tape(struct scsi_tape *STp, struct file *filp)
 918 {
 919         int i, retval, new_session = 0, do_wait;
 920         unsigned char cmd[MAX_COMMAND_SIZE], saved_cleaning;
 921         unsigned short st_flags = filp->f_flags;
 922         struct st_request *SRpnt = NULL;
 923         struct st_modedef *STm;
 924         struct st_partstat *STps;
 925         char *name = tape_name(STp);
 926         struct inode *inode = filp->f_path.dentry->d_inode;
 927         int mode = TAPE_MODE(inode);
 928
 929         STp->ready = ST_READY;
 930
 931         if (mode != STp->current_mode) {
 932                 DEBC(printk(ST_DEB_MSG "%s: Mode change from %d to %d.\n",
 933                                name, STp->current_mode, mode));
 934                 new_session = 1;
 935                 STp->current_mode = mode;
 936         }
 937         STm = &(STp->modes[STp->current_mode]);
 938
 939         saved_cleaning = STp->cleaning_req;
 940         STp->cleaning_req = 0;
 941
 942         do_wait = ((filp->f_flags & O_NONBLOCK) == 0);
 943         retval = test_ready(STp, do_wait);
 944
 945         if (retval < 0)
 946             goto err_out;
 947
 948         if (retval == CHKRES_NEW_SESSION) {
 949                 STp->pos_unknown = 0;
 950                 STp->partition = STp->new_partition = 0;
 951                 if (STp->can_partitions)
 952                         STp->nbr_partitions = 1; /* This guess will be updated later
 953                                                     if necessary */
 954                 for (i = 0; i < ST_NBR_PARTITIONS; i++) {
 955                         STps = &(STp->ps[i]);
 956                         STps->rw = ST_IDLE;
 957                         STps->eof = ST_NOEOF;
 958                         STps->at_sm = 0;
 959                         STps->last_block_valid = 0;
 960                         STps->drv_block = 0;
 961                         STps->drv_file = 0;
 962                 }
 963                 new_session = 1;
 964         }
 965         else {
 966                 STp->cleaning_req |= saved_cleaning;
 967
 968                 if (retval == CHKRES_NOT_READY || retval == CHKRES_NO_TAPE) {
 969                         if (retval == CHKRES_NO_TAPE)
 970                                 STp->ready = ST_NO_TAPE;
 971                         else
 972                                 STp->ready = ST_NOT_READY;
 973
 974                         STp->density = 0;       /* Clear the erroneous "residue" */
 975                         STp->write_prot = 0;
 976                         STp->block_size = 0;
 977                         STp->ps[0].drv_file = STp->ps[0].drv_block = (-1);
 978                         STp->partition = STp->new_partition = 0;
 979                         STp->door_locked = ST_UNLOCKED;
 980                         return CHKRES_NOT_READY;
 981                 }
 982         }
 983
 984         if (STp->omit_blklims)
 985                 STp->min_block = STp->max_block = (-1);
 986         else {
 987                 memset((void *) &cmd[0], 0, MAX_COMMAND_SIZE);
 988                 cmd[0] = READ_BLOCK_LIMITS;
 989
 990                 SRpnt = st_do_scsi(SRpnt, STp, cmd, 6, DMA_FROM_DEVICE,
 991                                    STp->device->timeout, MAX_READY_RETRIES, 1);
 992                 if (!SRpnt) {
 993                         retval = (STp->buffer)->syscall_result;
 994                         goto err_out;
 995                 }
 996
 997                 if (!SRpnt->result && !STp->buffer->cmdstat.have_sense) {
 998                         STp->max_block = ((STp->buffer)->b_data[1] << 16) |
 999                             ((STp->buffer)->b_data[2] << 8) | (STp->buffer)->b_data[3];
1000                         STp->min_block = ((STp->buffer)->b_data[4] << 8) |
1001                             (STp->buffer)->b_data[5];
1002                         if ( DEB( debugging || ) !STp->inited)
1003                                 printk(KERN_INFO
1004                                        "%s: Block limits %d - %d bytes.\n", name,
1005                                        STp->min_block, STp->max_block);
1006                 } else {
1007                         STp->min_block = STp->max_block = (-1);
1008                         DEBC(printk(ST_DEB_MSG "%s: Can't read block limits.\n",
1009                                        name));
1010                 }
1011         }
1012
1013         memset((void *) &cmd[0], 0, MAX_COMMAND_SIZE);
1014         cmd[0] = MODE_SENSE;
1015         cmd[4] = 12;
1016
1017         SRpnt = st_do_scsi(SRpnt, STp, cmd, 12, DMA_FROM_DEVICE,
1018                         STp->device->timeout, MAX_READY_RETRIES, 1);
1019         if (!SRpnt) {
1020                 retval = (STp->buffer)->syscall_result;
1021                 goto err_out;
1022         }
1023
1024         if ((STp->buffer)->syscall_result != 0) {
1025                 DEBC(printk(ST_DEB_MSG "%s: No Mode Sense.\n", name));
1026                 STp->block_size = ST_DEFAULT_BLOCK;     /* Educated guess (?) */
1027                 (STp->buffer)->syscall_result = 0;      /* Prevent error propagation */
1028                 STp->drv_write_prot = 0;
1029         } else {
1030                 DEBC(printk(ST_DEB_MSG
1031                             "%s: Mode sense. Length %d, medium %x, WBS %x, BLL %d\n",
1032                             name,
1033                             (STp->buffer)->b_data[0], (STp->buffer)->b_data[1],
1034                             (STp->buffer)->b_data[2], (STp->buffer)->b_data[3]));
1035
1036                 if ((STp->buffer)->b_data[3] >= 8) {
1037                         STp->drv_buffer = ((STp->buffer)->b_data[2] >> 4) & 7;
1038                         STp->density = (STp->buffer)->b_data[4];
1039                         STp->block_size = (STp->buffer)->b_data[9] * 65536 +
1040                             (STp->buffer)->b_data[10] * 256 + (STp->buffer)->b_data[11];
1041                         DEBC(printk(ST_DEB_MSG
1042                                     "%s: Density %x, tape length: %x, drv buffer: %d\n",
1043                                     name, STp->density, (STp->buffer)->b_data[5] * 65536 +
1044                                     (STp->buffer)->b_data[6] * 256 + (STp->buffer)->b_data[7],
1045                                     STp->drv_buffer));
1046                 }
1047                 STp->drv_write_prot = ((STp->buffer)->b_data[2] & 0x80) != 0;
1048         }
1049         st_release_request(SRpnt);
1050         SRpnt = NULL;
1051         STp->inited = 1;
1052
1053         if (STp->block_size > 0)
1054                 (STp->buffer)->buffer_blocks =
1055                         (STp->buffer)->buffer_size / STp->block_size;
1056         else
1057                 (STp->buffer)->buffer_blocks = 1;
1058         (STp->buffer)->buffer_bytes = (STp->buffer)->read_pointer = 0;
1059
1060         DEBC(printk(ST_DEB_MSG
1061                        "%s: Block size: %d, buffer size: %d (%d blocks).\n", name,
1062                        STp->block_size, (STp->buffer)->buffer_size,
1063                        (STp->buffer)->buffer_blocks));
1064
1065         if (STp->drv_write_prot) {
1066                 STp->write_prot = 1;
1067
1068                 DEBC(printk(ST_DEB_MSG "%s: Write protected\n", name));
1069
1070                 if (do_wait &&
1071                     ((st_flags & O_ACCMODE) == O_WRONLY ||
1072                      (st_flags & O_ACCMODE) == O_RDWR)) {
1073                         retval = (-EROFS);
1074                         goto err_out;
1075                 }
1076         }
1077
1078         if (STp->can_partitions && STp->nbr_partitions < 1) {
1079                 /* This code is reached when the device is opened for the first time
1080                    after the driver has been initialized with tape in the drive and the
1081                    partition support has been enabled. */
1082                 DEBC(printk(ST_DEB_MSG
1083                             "%s: Updating partition number in status.\n", name));
1084                 if ((STp->partition = find_partition(STp)) < 0) {
1085                         retval = STp->partition;
1086                         goto err_out;
1087                 }
1088                 STp->new_partition = STp->partition;
1089                 STp->nbr_partitions = 1; /* This guess will be updated when necessary */
1090         }
1091
1092         if (new_session) {      /* Change the drive parameters for the new mode */
1093                 STp->density_changed = STp->blksize_changed = 0;
1094                 STp->compression_changed = 0;
1095                 if (!(STm->defaults_for_writes) &&
1096                     (retval = set_mode_densblk(STp, STm)) < 0)
1097                     goto err_out;
1098
1099                 if (STp->default_drvbuffer != 0xff) {
1100                         if (st_int_ioctl(STp, MTSETDRVBUFFER, STp->default_drvbuffer))
1101                                 printk(KERN_WARNING
1102                                        "%s: Can't set default drive buffering to %d.\n",
1103                                        name, STp->default_drvbuffer);
1104                 }
1105         }
1106
1107         return CHKRES_READY;
1108
1109  err_out:
1110         return retval;
1111 }
1112
1113
1114 \f/* Open the device. Needs to be called with BKL only because of incrementing the SCSI host
1115    module count. */
1116 static int st_open(struct inode *inode, struct file *filp)
1117 {
1118         int i, retval = (-EIO);
1119         struct scsi_tape *STp;
1120         struct st_partstat *STps;
1121         int dev = TAPE_NR(inode);
1122         char *name;
1123
1124         /*
1125          * We really want to do nonseekable_open(inode, filp); here, but some
1126          * versions of tar incorrectly call lseek on tapes and bail out if that
1127          * fails.  So we disallow pread() and pwrite(), but permit lseeks.
1128          */
1129         filp->f_mode &= ~(FMODE_PREAD | FMODE_PWRITE);
1130
1131         if (!(STp = scsi_tape_get(dev)))
1132                 return -ENXIO;
1133
1134         write_lock(&st_dev_arr_lock);
1135         filp->private_data = STp;
1136         name = tape_name(STp);
1137
1138         if (STp->in_use) {
1139                 write_unlock(&st_dev_arr_lock);
1140                 scsi_tape_put(STp);
1141                 DEB( printk(ST_DEB_MSG "%s: Device already in use.\n", name); )
1142                 return (-EBUSY);
1143         }
1144
1145         STp->in_use = 1;
1146         write_unlock(&st_dev_arr_lock);
1147         STp->rew_at_close = STp->autorew_dev = (iminor(inode) & 0x80) == 0;
1148
1149         if (!scsi_block_when_processing_errors(STp->device)) {
1150                 retval = (-ENXIO);
1151                 goto err_out;
1152         }
1153
1154         /* See that we have at least a one page buffer available */
1155         if (!enlarge_buffer(STp->buffer, PAGE_SIZE, STp->restr_dma)) {
1156                 printk(KERN_WARNING "%s: Can't allocate one page tape buffer.\n",
1157                        name);
1158                 retval = (-EOVERFLOW);
1159                 goto err_out;
1160         }
1161
1162         (STp->buffer)->writing = 0;
1163         (STp->buffer)->syscall_result = 0;
1164
1165         STp->write_prot = ((filp->f_flags & O_ACCMODE) == O_RDONLY);
1166
1167         STp->dirty = 0;
1168         for (i = 0; i < ST_NBR_PARTITIONS; i++) {
1169                 STps = &(STp->ps[i]);
1170                 STps->rw = ST_IDLE;
1171         }
1172         STp->try_dio_now = STp->try_dio;
1173         STp->recover_count = 0;
1174         DEB( STp->nbr_waits = STp->nbr_finished = 0;
1175              STp->nbr_requests = STp->nbr_dio = STp->nbr_pages = 0; )
1176
1177         retval = check_tape(STp, filp);
1178         if (retval < 0)
1179                 goto err_out;
1180         if ((filp->f_flags & O_NONBLOCK) == 0 &&
1181             retval != CHKRES_READY) {
1182                 if (STp->ready == NO_TAPE)
1183                         retval = (-ENOMEDIUM);
1184                 else
1185                         retval = (-EIO);
1186                 goto err_out;
1187         }
1188         return 0;
1189
1190  err_out:
1191         normalize_buffer(STp->buffer);
1192         STp->in_use = 0;
1193         scsi_tape_put(STp);
1194         return retval;
1195
1196 }
1197 \f
1198
1199 /* Flush the tape buffer before close */
1200 static int st_flush(struct file *filp, fl_owner_t id)
1201 {
1202         int result = 0, result2;
1203         unsigned char cmd[MAX_COMMAND_SIZE];
1204         struct st_request *SRpnt;
1205         struct scsi_tape *STp = filp->private_data;
1206         struct st_modedef *STm = &(STp->modes[STp->current_mode]);
1207         struct st_partstat *STps = &(STp->ps[STp->partition]);
1208         char *name = tape_name(STp);
1209
1210         if (file_count(filp) > 1)
1211                 return 0;
1212
1213         if (STps->rw == ST_WRITING && !STp->pos_unknown) {
1214                 result = flush_write_buffer(STp);
1215                 if (result != 0 && result != (-ENOSPC))
1216                         goto out;
1217         }
1218
1219         if (STp->can_partitions &&
1220             (result2 = switch_partition(STp)) < 0) {
1221                 DEBC(printk(ST_DEB_MSG
1222                                "%s: switch_partition at close failed.\n", name));
1223                 if (result == 0)
1224                         result = result2;
1225                 goto out;
1226         }
1227
1228         DEBC( if (STp->nbr_requests)
1229                 printk(KERN_DEBUG "%s: Number of r/w requests %d, dio used in %d, pages %d.\n",
1230                        name, STp->nbr_requests, STp->nbr_dio, STp->nbr_pages));
1231
1232         if (STps->rw == ST_WRITING && !STp->pos_unknown) {
1233                 struct st_cmdstatus *cmdstatp = &STp->buffer->cmdstat;
1234
1235                 DEBC(printk(ST_DEB_MSG "%s: Async write waits %d, finished %d.\n",
1236                             name, STp->nbr_waits, STp->nbr_finished);
1237                 )
1238
1239                 memset(cmd, 0, MAX_COMMAND_SIZE);
1240                 cmd[0] = WRITE_FILEMARKS;
1241                 cmd[4] = 1 + STp->two_fm;
1242
1243                 SRpnt = st_do_scsi(NULL, STp, cmd, 0, DMA_NONE,
1244                                    STp->device->timeout, MAX_WRITE_RETRIES, 1);
1245                 if (!SRpnt) {
1246                         result = (STp->buffer)->syscall_result;
1247                         goto out;
1248                 }
1249
1250                 if (STp->buffer->syscall_result == 0 ||
1251                     (cmdstatp->have_sense && !cmdstatp->deferred &&
1252                      (cmdstatp->flags & SENSE_EOM) &&
1253                      (cmdstatp->sense_hdr.sense_key == NO_SENSE ||
1254                       cmdstatp->sense_hdr.sense_key == RECOVERED_ERROR) &&
1255                      (!cmdstatp->remainder_valid || cmdstatp->uremainder64 == 0))) {
1256                         /* Write successful at EOM */
1257                         st_release_request(SRpnt);
1258                         SRpnt = NULL;
1259                         if (STps->drv_file >= 0)
1260                                 STps->drv_file++;
1261                         STps->drv_block = 0;
1262                         if (STp->two_fm)
1263                                 cross_eof(STp, 0);
1264                         STps->eof = ST_FM;
1265                 }
1266                 else { /* Write error */
1267                         st_release_request(SRpnt);
1268                         SRpnt = NULL;
1269                         printk(KERN_ERR "%s: Error on write filemark.\n", name);
1270                         if (result == 0)
1271                                 result = (-EIO);
1272                 }
1273
1274                 DEBC(printk(ST_DEB_MSG "%s: Buffer flushed, %d EOF(s) written\n",
1275                             name, cmd[4]));
1276         } else if (!STp->rew_at_close) {
1277                 STps = &(STp->ps[STp->partition]);
1278                 if (!STm->sysv || STps->rw != ST_READING) {
1279                         if (STp->can_bsr)
1280                                 result = flush_buffer(STp, 0);
1281                         else if (STps->eof == ST_FM_HIT) {
1282                                 result = cross_eof(STp, 0);
1283                                 if (result) {
1284                                         if (STps->drv_file >= 0)
1285                                                 STps->drv_file++;
1286                                         STps->drv_block = 0;
1287                                         STps->eof = ST_FM;
1288                                 } else
1289                                         STps->eof = ST_NOEOF;
1290                         }
1291                 } else if ((STps->eof == ST_NOEOF &&
1292                             !(result = cross_eof(STp, 1))) ||
1293                            STps->eof == ST_FM_HIT) {
1294                         if (STps->drv_file >= 0)
1295                                 STps->drv_file++;
1296                         STps->drv_block = 0;
1297                         STps->eof = ST_FM;
1298                 }
1299         }
1300
1301       out:
1302         if (STp->rew_at_close) {
1303                 result2 = st_int_ioctl(STp, MTREW, 1);
1304                 if (result == 0)
1305                         result = result2;
1306         }
1307         return result;
1308 }
1309
1310
1311 /* Close the device and release it. BKL is not needed: this is the only thread
1312    accessing this tape. */
1313 static int st_release(struct inode *inode, struct file *filp)
1314 {
1315         int result = 0;
1316         struct scsi_tape *STp = filp->private_data;
1317
1318         if (STp->door_locked == ST_LOCKED_AUTO)
1319                 do_door_lock(STp, 0);
1320
1321         normalize_buffer(STp->buffer);
1322         write_lock(&st_dev_arr_lock);
1323         STp->in_use = 0;
1324         write_unlock(&st_dev_arr_lock);
1325         scsi_tape_put(STp);
1326
1327         return result;
1328 }
1329 \f
1330 /* The checks common to both reading and writing */
1331 static ssize_t rw_checks(struct scsi_tape *STp, struct file *filp, size_t count)
1332 {
1333         ssize_t retval = 0;
1334
1335         /*
1336          * If we are in the middle of error recovery, don't let anyone
1337          * else try and use this device.  Also, if error recovery fails, it
1338          * may try and take the device offline, in which case all further
1339          * access to the device is prohibited.
1340          */
1341         if (!scsi_block_when_processing_errors(STp->device)) {
1342                 retval = (-ENXIO);
1343                 goto out;
1344         }
1345
1346         if (STp->ready != ST_READY) {
1347                 if (STp->ready == ST_NO_TAPE)
1348                         retval = (-ENOMEDIUM);
1349                 else
1350                         retval = (-EIO);
1351                 goto out;
1352         }
1353
1354         if (! STp->modes[STp->current_mode].defined) {
1355                 retval = (-ENXIO);
1356                 goto out;
1357         }
1358
1359
1360         /*
1361          * If there was a bus reset, block further access
1362          * to this device.
1363          */
1364         if (STp->pos_unknown) {
1365                 retval = (-EIO);
1366                 goto out;
1367         }
1368
1369         if (count == 0)
1370                 goto out;
1371
1372         DEB(
1373         if (!STp->in_use) {
1374                 printk(ST_DEB_MSG "%s: Incorrect device.\n", tape_name(STp));
1375                 retval = (-EIO);
1376                 goto out;
1377         } ) /* end DEB */
1378
1379         if (STp->can_partitions &&
1380             (retval = switch_partition(STp)) < 0)
1381                 goto out;
1382
1383         if (STp->block_size == 0 && STp->max_block > 0 &&
1384             (count < STp->min_block || count > STp->max_block)) {
1385                 retval = (-EINVAL);
1386                 goto out;
1387         }
1388
1389         if (STp->do_auto_lock && STp->door_locked == ST_UNLOCKED &&
1390             !do_door_lock(STp, 1))
1391                 STp->door_locked = ST_LOCKED_AUTO;
1392
1393  out:
1394         return retval;
1395 }
1396
1397
1398 static int setup_buffering(struct scsi_tape *STp, const char __user *buf,
1399                            size_t count, int is_read)
1400 {
1401         int i, bufsize, retval = 0;
1402         struct st_buffer *STbp = STp->buffer;
1403
1404         if (is_read)
1405                 i = STp->try_dio_now && try_rdio;
1406         else
1407                 i = STp->try_dio_now && try_wdio;
1408
1409         if (i && ((unsigned long)buf & queue_dma_alignment(
1410                                         STp->device->request_queue)) == 0) {
1411                 i = sgl_map_user_pages(&(STbp->sg[0]), STbp->use_sg,
1412                                       (unsigned long)buf, count, (is_read ? READ : WRITE));
1413                 if (i > 0) {
1414                         STbp->do_dio = i;
1415                         STbp->buffer_bytes = 0;   /* can be used as transfer counter */
1416                 }
1417                 else
1418                         STbp->do_dio = 0;  /* fall back to buffering with any error */
1419                 STbp->sg_segs = STbp->do_dio;
1420                 STbp->frp_sg_current = 0;
1421                 DEB(
1422                      if (STbp->do_dio) {
1423                         STp->nbr_dio++;
1424                         STp->nbr_pages += STbp->do_dio;
1425                      }
1426                 )
1427         } else
1428                 STbp->do_dio = 0;
1429         DEB( STp->nbr_requests++; )
1430
1431         if (!STbp->do_dio) {
1432                 if (STp->block_size)
1433                         bufsize = STp->block_size > st_fixed_buffer_size ?
1434                                 STp->block_size : st_fixed_buffer_size;
1435                 else
1436                         bufsize = count;
1437                 if (bufsize > STbp->buffer_size &&
1438                     !enlarge_buffer(STbp, bufsize, STp->restr_dma)) {
1439                         printk(KERN_WARNING "%s: Can't allocate %d byte tape buffer.\n",
1440                                tape_name(STp), bufsize);
1441                         retval = (-EOVERFLOW);
1442                         goto out;
1443                 }
1444                 if (STp->block_size)
1445                         STbp->buffer_blocks = bufsize / STp->block_size;
1446         }
1447
1448  out:
1449         return retval;
1450 }
1451
1452
1453 /* Can be called more than once after each setup_buffer() */
1454 static void release_buffering(struct scsi_tape *STp, int is_read)
1455 {
1456         struct st_buffer *STbp;
1457
1458         STbp = STp->buffer;
1459         if (STbp->do_dio) {
1460                 sgl_unmap_user_pages(&(STbp->sg[0]), STbp->do_dio, is_read);
1461                 STbp->do_dio = 0;
1462                 STbp->sg_segs = 0;
1463         }
1464 }
1465
1466
1467 /* Write command */
1468 static ssize_t
1469 st_write(struct file *filp, const char __user *buf, size_t count, loff_t * ppos)
1470 {
1471         ssize_t total;
1472         ssize_t i, do_count, blks, transfer;
1473         ssize_t retval;
1474         int undone, retry_eot = 0, scode;
1475         int async_write;
1476         unsigned char cmd[MAX_COMMAND_SIZE];
1477         const char __user *b_point;
1478         struct st_request *SRpnt = NULL;
1479         struct scsi_tape *STp = filp->private_data;
1480         struct st_modedef *STm;
1481         struct st_partstat *STps;
1482         struct st_buffer *STbp;
1483         char *name = tape_name(STp);
1484
1485         if (mutex_lock_interruptible(&STp->lock))
1486                 return -ERESTARTSYS;
1487
1488         retval = rw_checks(STp, filp, count);
1489         if (retval || count == 0)
1490                 goto out;
1491
1492         /* Write must be integral number of blocks */
1493         if (STp->block_size != 0 && (count % STp->block_size) != 0) {
1494                 printk(KERN_WARNING "%s: Write not multiple of tape block size.\n",
1495                        name);
1496                 retval = (-EINVAL);
1497                 goto out;
1498         }
1499
1500         STm = &(STp->modes[STp->current_mode]);
1501         STps = &(STp->ps[STp->partition]);
1502
1503         if (STp->write_prot) {
1504                 retval = (-EACCES);
1505                 goto out;
1506         }
1507
1508
1509         if (STps->rw == ST_READING) {
1510                 retval = flush_buffer(STp, 0);
1511                 if (retval)
1512                         goto out;
1513                 STps->rw = ST_WRITING;
1514         } else if (STps->rw != ST_WRITING &&
1515                    STps->drv_file == 0 && STps->drv_block == 0) {
1516                 if ((retval = set_mode_densblk(STp, STm)) < 0)
1517                         goto out;
1518                 if (STm->default_compression != ST_DONT_TOUCH &&
1519                     !(STp->compression_changed)) {
1520                         if (st_compression(STp, (STm->default_compression == ST_YES))) {
1521                                 printk(KERN_WARNING "%s: Can't set default compression.\n",
1522                                        name);
1523                                 if (modes_defined) {
1524                                         retval = (-EINVAL);
1525                                         goto out;
1526                                 }
1527                         }
1528                 }
1529         }
1530
1531         STbp = STp->buffer;
1532         i = write_behind_check(STp);
1533         if (i) {
1534                 if (i == -ENOSPC)
1535                         STps->eof = ST_EOM_OK;
1536                 else
1537                         STps->eof = ST_EOM_ERROR;
1538         }
1539
1540         if (STps->eof == ST_EOM_OK) {
1541                 STps->eof = ST_EOD_1;  /* allow next write */
1542                 retval = (-ENOSPC);
1543                 goto out;
1544         }
1545         else if (STps->eof == ST_EOM_ERROR) {
1546                 retval = (-EIO);
1547                 goto out;
1548         }
1549
1550         /* Check the buffer readability in cases where copy_user might catch
1551            the problems after some tape movement. */
1552         if (STp->block_size != 0 &&
1553             !STbp->do_dio &&
1554             (copy_from_user(&i, buf, 1) != 0 ||
1555              copy_from_user(&i, buf + count - 1, 1) != 0)) {
1556                 retval = (-EFAULT);
1557                 goto out;
1558         }
1559
1560         retval = setup_buffering(STp, buf, count, 0);
1561         if (retval)
1562                 goto out;
1563
1564         total = count;
1565
1566         memset(cmd, 0, MAX_COMMAND_SIZE);
1567         cmd[0] = WRITE_6;
1568         cmd[1] = (STp->block_size != 0);
1569
1570         STps->rw = ST_WRITING;
1571
1572         b_point = buf;
1573         while (count > 0 && !retry_eot) {
1574
1575                 if (STbp->do_dio) {
1576                         do_count = count;
1577                 }
1578                 else {
1579                         if (STp->block_size == 0)
1580                                 do_count = count;
1581                         else {
1582                                 do_count = STbp->buffer_blocks * STp->block_size -
1583                                         STbp->buffer_bytes;
1584                                 if (do_count > count)
1585                                         do_count = count;
1586                         }
1587
1588                         i = append_to_buffer(b_point, STbp, do_count);
1589                         if (i) {
1590                                 retval = i;
1591                                 goto out;
1592                         }
1593                 }
1594                 count -= do_count;
1595                 b_point += do_count;
1596
1597                 async_write = STp->block_size == 0 && !STbp->do_dio &&
1598                         STm->do_async_writes && STps->eof < ST_EOM_OK;
1599
1600                 if (STp->block_size != 0 && STm->do_buffer_writes &&
1601                     !(STp->try_dio_now && try_wdio) && STps->eof < ST_EOM_OK &&
1602                     STbp->buffer_bytes < STbp->buffer_size) {
1603                         STp->dirty = 1;
1604                         /* Don't write a buffer that is not full enough. */
1605                         if (!async_write && count == 0)
1606                                 break;
1607                 }
1608
1609         retry_write:
1610                 if (STp->block_size == 0)
1611                         blks = transfer = do_count;
1612                 else {
1613                         if (!STbp->do_dio)
1614                                 blks = STbp->buffer_bytes;
1615                         else
1616                                 blks = do_count;
1617                         blks /= STp->block_size;
1618                         transfer = blks * STp->block_size;
1619                 }
1620                 cmd[2] = blks >> 16;
1621                 cmd[3] = blks >> 8;
1622                 cmd[4] = blks;
1623
1624                 SRpnt = st_do_scsi(SRpnt, STp, cmd, transfer, DMA_TO_DEVICE,
1625                                    STp->device->timeout, MAX_WRITE_RETRIES, !async_write);
1626                 if (!SRpnt) {
1627                         retval = STbp->syscall_result;
1628                         goto out;
1629                 }
1630                 if (async_write && !STbp->syscall_result) {
1631                         STbp->writing = transfer;
1632                         STp->dirty = !(STbp->writing ==
1633                                        STbp->buffer_bytes);
1634                         SRpnt = NULL;  /* Prevent releasing this request! */
1635                         DEB( STp->write_pending = 1; )
1636                         break;
1637                 }
1638
1639                 if (STbp->syscall_result != 0) {
1640                         struct st_cmdstatus *cmdstatp = &STp->buffer->cmdstat;
1641
1642                         DEBC(printk(ST_DEB_MSG "%s: Error on write:\n", name));
1643                         if (cmdstatp->have_sense && (cmdstatp->flags & SENSE_EOM)) {
1644                                 scode = cmdstatp->sense_hdr.sense_key;
1645                                 if (cmdstatp->remainder_valid)
1646                                         undone = (int)cmdstatp->uremainder64;
1647                                 else if (STp->block_size == 0 &&
1648                                          scode == VOLUME_OVERFLOW)
1649                                         undone = transfer;
1650                                 else
1651                                         undone = 0;
1652                                 if (STp->block_size != 0)
1653                                         undone *= STp->block_size;
1654                                 if (undone <= do_count) {
1655                                         /* Only data from this write is not written */
1656                                         count += undone;
1657                                         do_count -= undone;
1658                                         if (STp->block_size)
1659                                                 blks = (transfer - undone) / STp->block_size;
1660                                         STps->eof = ST_EOM_OK;
1661                                         /* Continue in fixed block mode if all written
1662                                            in this request but still something left to write
1663                                            (retval left to zero)
1664                                         */
1665                                         if (STp->block_size == 0 ||
1666                                             undone > 0 || count == 0)
1667                                                 retval = (-ENOSPC); /* EOM within current request */
1668                                         DEBC(printk(ST_DEB_MSG
1669                                                        "%s: EOM with %d bytes unwritten.\n",
1670                                                        name, (int)count));
1671                                 } else {
1672                                         /* EOT within data buffered earlier (possible only
1673                                            in fixed block mode without direct i/o) */
1674                                         if (!retry_eot && !cmdstatp->deferred &&
1675                                             (scode == NO_SENSE || scode == RECOVERED_ERROR)) {
1676                                                 move_buffer_data(STp->buffer, transfer - undone);
1677                                                 retry_eot = 1;
1678                                                 if (STps->drv_block >= 0) {
1679                                                         STps->drv_block += (transfer - undone) /
1680                                                                 STp->block_size;
1681                                                 }
1682                                                 STps->eof = ST_EOM_OK;
1683                                                 DEBC(printk(ST_DEB_MSG
1684                                                             "%s: Retry write of %d bytes at EOM.\n",
1685                                                             name, STp->buffer->buffer_bytes));
1686                                                 goto retry_write;
1687                                         }
1688                                         else {
1689                                                 /* Either error within data buffered by driver or
1690                                                    failed retry */
1691                                                 count -= do_count;
1692                                                 blks = do_count = 0;
1693                                                 STps->eof = ST_EOM_ERROR;
1694                                                 STps->drv_block = (-1); /* Too cautious? */
1695                                                 retval = (-EIO);        /* EOM for old data */
1696                                                 DEBC(printk(ST_DEB_MSG
1697                                                             "%s: EOM with lost data.\n",
1698                                                             name));
1699                                         }
1700                                 }
1701                         } else {
1702                                 count += do_count;
1703                                 STps->drv_block = (-1);         /* Too cautious? */
1704                                 retval = STbp->syscall_result;
1705                         }
1706
1707                 }
1708
1709                 if (STps->drv_block >= 0) {
1710                         if (STp->block_size == 0)
1711                                 STps->drv_block += (do_count > 0);
1712                         else
1713                                 STps->drv_block += blks;
1714                 }
1715
1716                 STbp->buffer_bytes = 0;
1717                 STp->dirty = 0;
1718
1719                 if (retval || retry_eot) {
1720                         if (count < total)
1721                                 retval = total - count;
1722                         goto out;
1723                 }
1724         }
1725
1726         if (STps->eof == ST_EOD_1)
1727                 STps->eof = ST_EOM_OK;
1728         else if (STps->eof != ST_EOM_OK)
1729                 STps->eof = ST_NOEOF;
1730         retval = total - count;
1731
1732  out:
1733         if (SRpnt != NULL)
1734                 st_release_request(SRpnt);
1735         release_buffering(STp, 0);
1736         mutex_unlock(&STp->lock);
1737
1738         return retval;
1739 }
1740 \f
1741 /* Read data from the tape. Returns zero in the normal case, one if the
1742    eof status has changed, and the negative error code in case of a
1743    fatal error. Otherwise updates the buffer and the eof state.
1744
1745    Does release user buffer mapping if it is set.
1746 */
1747 static long read_tape(struct scsi_tape *STp, long count,
1748                       struct st_request ** aSRpnt)
1749 {
1750         int transfer, blks, bytes;
1751         unsigned char cmd[MAX_COMMAND_SIZE];
1752         struct st_request *SRpnt;
1753         struct st_modedef *STm;
1754         struct st_partstat *STps;
1755         struct st_buffer *STbp;
1756         int retval = 0;
1757         char *name = tape_name(STp);
1758
1759         if (count == 0)
1760                 return 0;
1761
1762         STm = &(STp->modes[STp->current_mode]);
1763         STps = &(STp->ps[STp->partition]);
1764         if (STps->eof == ST_FM_HIT)
1765                 return 1;
1766         STbp = STp->buffer;
1767
1768         if (STp->block_size == 0)
1769                 blks = bytes = count;
1770         else {
1771                 if (!(STp->try_dio_now && try_rdio) && STm->do_read_ahead) {
1772                         blks = (STp->buffer)->buffer_blocks;
1773                         bytes = blks * STp->block_size;
1774                 } else {
1775                         bytes = count;
1776                         if (!STbp->do_dio && bytes > (STp->buffer)->buffer_size)
1777                                 bytes = (STp->buffer)->buffer_size;
1778                         blks = bytes / STp->block_size;
1779                         bytes = blks * STp->block_size;
1780                 }
1781         }
1782
1783         memset(cmd, 0, MAX_COMMAND_SIZE);
1784         cmd[0] = READ_6;
1785         cmd[1] = (STp->block_size != 0);
1786         cmd[2] = blks >> 16;
1787         cmd[3] = blks >> 8;
1788         cmd[4] = blks;
1789
1790         SRpnt = *aSRpnt;
1791         SRpnt = st_do_scsi(SRpnt, STp, cmd, bytes, DMA_FROM_DEVICE,
1792                            STp->device->timeout, MAX_RETRIES, 1);
1793         release_buffering(STp, 1);
1794         *aSRpnt = SRpnt;
1795         if (!SRpnt)
1796                 return STbp->syscall_result;
1797
1798         STbp->read_pointer = 0;
1799         STps->at_sm = 0;
1800
1801         /* Something to check */
1802         if (STbp->syscall_result) {
1803                 struct st_cmdstatus *cmdstatp = &STp->buffer->cmdstat;
1804
1805                 retval = 1;
1806                 DEBC(printk(ST_DEB_MSG "%s: Sense: %2x %2x %2x %2x %2x %2x %2x %2x\n",
1807                             name,
1808                             SRpnt->sense[0], SRpnt->sense[1],
1809                             SRpnt->sense[2], SRpnt->sense[3],
1810                             SRpnt->sense[4], SRpnt->sense[5],
1811                             SRpnt->sense[6], SRpnt->sense[7]));
1812                 if (cmdstatp->have_sense) {
1813
1814                         if (cmdstatp->sense_hdr.sense_key == BLANK_CHECK)
1815                                 cmdstatp->flags &= 0xcf;        /* No need for EOM in this case */
1816
1817                         if (cmdstatp->flags != 0) { /* EOF, EOM, or ILI */
1818                                 /* Compute the residual count */
1819                                 if (cmdstatp->remainder_valid)
1820                                         transfer = (int)cmdstatp->uremainder64;
1821                                 else
1822                                         transfer = 0;
1823                                 if (STp->block_size == 0 &&
1824                                     cmdstatp->sense_hdr.sense_key == MEDIUM_ERROR)
1825                                         transfer = bytes;
1826
1827                                 if (cmdstatp->flags & SENSE_ILI) {      /* ILI */
1828                                         if (STp->block_size == 0) {
1829                                                 if (transfer <= 0) {
1830                                                         if (transfer < 0)
1831                                                                 printk(KERN_NOTICE
1832                                                                        "%s: Failed to read %d byte block with %d byte transfer.\n",
1833                                                                        name, bytes - transfer, bytes);
1834                                                         if (STps->drv_block >= 0)
1835                                                                 STps->drv_block += 1;
1836                                                         STbp->buffer_bytes = 0;
1837                                                         return (-ENOMEM);
1838                                                 }
1839                                                 STbp->buffer_bytes = bytes - transfer;
1840                                         } else {
1841                                                 st_release_request(SRpnt);
1842                                                 SRpnt = *aSRpnt = NULL;
1843                                                 if (transfer == blks) { /* We did not get anything, error */
1844                                                         printk(KERN_NOTICE "%s: Incorrect block size.\n", name);
1845                                                         if (STps->drv_block >= 0)
1846                                                                 STps->drv_block += blks - transfer + 1;
1847                                                         st_int_ioctl(STp, MTBSR, 1);
1848                                                         return (-EIO);
1849                                                 }
1850                                                 /* We have some data, deliver it */
1851                                                 STbp->buffer_bytes = (blks - transfer) *
1852                                                     STp->block_size;
1853                                                 DEBC(printk(ST_DEB_MSG
1854                                                             "%s: ILI but enough data received %ld %d.\n",
1855                                                             name, count, STbp->buffer_bytes));
1856                                                 if (STps->drv_block >= 0)
1857                                                         STps->drv_block += 1;
1858                                                 if (st_int_ioctl(STp, MTBSR, 1))
1859                                                         return (-EIO);
1860                                         }
1861                                 } else if (cmdstatp->flags & SENSE_FMK) {       /* FM overrides EOM */
1862                                         if (STps->eof != ST_FM_HIT)
1863                                                 STps->eof = ST_FM_HIT;
1864                                         else
1865                                                 STps->eof = ST_EOD_2;
1866                                         if (STp->block_size == 0)
1867                                                 STbp->buffer_bytes = 0;
1868                                         else
1869                                                 STbp->buffer_bytes =
1870                                                     bytes - transfer * STp->block_size;
1871                                         DEBC(printk(ST_DEB_MSG
1872                                                     "%s: EOF detected (%d bytes read).\n",
1873                                                     name, STbp->buffer_bytes));
1874                                 } else if (cmdstatp->flags & SENSE_EOM) {
1875                                         if (STps->eof == ST_FM)
1876                                                 STps->eof = ST_EOD_1;
1877                                         else
1878                                                 STps->eof = ST_EOM_OK;
1879                                         if (STp->block_size == 0)
1880                                                 STbp->buffer_bytes = bytes - transfer;
1881                                         else
1882                                                 STbp->buffer_bytes =
1883                                                     bytes - transfer * STp->block_size;
1884
1885                                         DEBC(printk(ST_DEB_MSG "%s: EOM detected (%d bytes read).\n",
1886                                                     name, STbp->buffer_bytes));
1887                                 }
1888                         }
1889                         /* end of EOF, EOM, ILI test */
1890                         else {  /* nonzero sense key */
1891                                 DEBC(printk(ST_DEB_MSG
1892                                             "%s: Tape error while reading.\n", name));
1893                                 STps->drv_block = (-1);
1894                                 if (STps->eof == ST_FM &&
1895                                     cmdstatp->sense_hdr.sense_key == BLANK_CHECK) {
1896                                         DEBC(printk(ST_DEB_MSG
1897                                                     "%s: Zero returned for first BLANK CHECK after EOF.\n",
1898                                                     name));
1899                                         STps->eof = ST_EOD_2;   /* First BLANK_CHECK after FM */
1900                                 } else  /* Some other extended sense code */
1901                                         retval = (-EIO);
1902                         }
1903
1904                         if (STbp->buffer_bytes < 0)  /* Caused by bogus sense data */
1905                                 STbp->buffer_bytes = 0;
1906                 }
1907                 /* End of extended sense test */
1908                 else {          /* Non-extended sense */
1909                         retval = STbp->syscall_result;
1910                 }
1911
1912         }
1913         /* End of error handling */
1914         else                    /* Read successful */
1915                 STbp->buffer_bytes = bytes;
1916
1917         if (STps->drv_block >= 0) {
1918                 if (STp->block_size == 0)
1919                         STps->drv_block++;
1920                 else
1921                         STps->drv_block += STbp->buffer_bytes / STp->block_size;
1922         }
1923         return retval;
1924 }
1925 \f
1926
1927 /* Read command */
1928 static ssize_t
1929 st_read(struct file *filp, char __user *buf, size_t count, loff_t * ppos)
1930 {
1931         ssize_t total;
1932         ssize_t retval = 0;
1933         ssize_t i, transfer;
1934         int special, do_dio = 0;
1935         struct st_request *SRpnt = NULL;
1936         struct scsi_tape *STp = filp->private_data;
1937         struct st_modedef *STm;
1938         struct st_partstat *STps;
1939         struct st_buffer *STbp = STp->buffer;
1940         DEB( char *name = tape_name(STp); )
1941
1942         if (mutex_lock_interruptible(&STp->lock))
1943                 return -ERESTARTSYS;
1944
1945         retval = rw_checks(STp, filp, count);
1946         if (retval || count == 0)
1947                 goto out;
1948
1949         STm = &(STp->modes[STp->current_mode]);
1950         if (STp->block_size != 0 && (count % STp->block_size) != 0) {
1951                 if (!STm->do_read_ahead) {
1952                         retval = (-EINVAL);     /* Read must be integral number of blocks */
1953                         goto out;
1954                 }
1955                 STp->try_dio_now = 0;  /* Direct i/o can't handle split blocks */
1956         }
1957
1958         STps = &(STp->ps[STp->partition]);
1959         if (STps->rw == ST_WRITING) {
1960                 retval = flush_buffer(STp, 0);
1961                 if (retval)
1962                         goto out;
1963                 STps->rw = ST_READING;
1964         }
1965         DEB(
1966         if (debugging && STps->eof != ST_NOEOF)
1967                 printk(ST_DEB_MSG "%s: EOF/EOM flag up (%d). Bytes %d\n", name,
1968                        STps->eof, STbp->buffer_bytes);
1969         ) /* end DEB */
1970
1971         retval = setup_buffering(STp, buf, count, 1);
1972         if (retval)
1973                 goto out;
1974         do_dio = STbp->do_dio;
1975
1976         if (STbp->buffer_bytes == 0 &&
1977             STps->eof >= ST_EOD_1) {
1978                 if (STps->eof < ST_EOD) {
1979                         STps->eof += 1;
1980                         retval = 0;
1981                         goto out;
1982                 }
1983                 retval = (-EIO);        /* EOM or Blank Check */
1984                 goto out;
1985         }
1986
1987         if (do_dio) {
1988                 /* Check the buffer writability before any tape movement. Don't alter
1989                    buffer data. */
1990                 if (copy_from_user(&i, buf, 1) != 0 ||
1991                     copy_to_user(buf, &i, 1) != 0 ||
1992                     copy_from_user(&i, buf + count - 1, 1) != 0 ||
1993                     copy_to_user(buf + count - 1, &i, 1) != 0) {
1994                         retval = (-EFAULT);
1995                         goto out;
1996                 }
1997         }
1998
1999         STps->rw = ST_READING;
2000
2001
2002         /* Loop until enough data in buffer or a special condition found */
2003         for (total = 0, special = 0; total < count && !special;) {
2004
2005                 /* Get new data if the buffer is empty */
2006                 if (STbp->buffer_bytes == 0) {
2007                         special = read_tape(STp, count - total, &SRpnt);
2008                         if (special < 0) {      /* No need to continue read */
2009                                 retval = special;
2010                                 goto out;
2011                         }
2012                 }
2013
2014                 /* Move the data from driver buffer to user buffer */
2015                 if (STbp->buffer_bytes > 0) {
2016                         DEB(
2017                         if (debugging && STps->eof != ST_NOEOF)
2018                                 printk(ST_DEB_MSG
2019                                        "%s: EOF up (%d). Left %d, needed %d.\n", name,
2020                                        STps->eof, STbp->buffer_bytes,
2021                                        (int)(count - total));
2022                         ) /* end DEB */
2023                         transfer = STbp->buffer_bytes < count - total ?
2024                             STbp->buffer_bytes : count - total;
2025                         if (!do_dio) {
2026                                 i = from_buffer(STbp, buf, transfer);
2027                                 if (i) {
2028                                         retval = i;
2029                                         goto out;
2030                                 }
2031                         }
2032                         buf += transfer;
2033                         total += transfer;
2034                 }
2035
2036                 if (STp->block_size == 0)
2037                         break;  /* Read only one variable length block */
2038
2039         }                       /* for (total = 0, special = 0;
2040                                    total < count && !special; ) */
2041
2042         /* Change the eof state if no data from tape or buffer */
2043         if (total == 0) {
2044                 if (STps->eof == ST_FM_HIT) {
2045                         STps->eof = ST_FM;
2046                         STps->drv_block = 0;
2047                         if (STps->drv_file >= 0)
2048                                 STps->drv_file++;
2049                 } else if (STps->eof == ST_EOD_1) {
2050                         STps->eof = ST_EOD_2;
2051                         STps->drv_block = 0;
2052                         if (STps->drv_file >= 0)
2053                                 STps->drv_file++;
2054                 } else if (STps->eof == ST_EOD_2)
2055                         STps->eof = ST_EOD;
2056         } else if (STps->eof == ST_FM)
2057                 STps->eof = ST_NOEOF;
2058         retval = total;
2059
2060  out:
2061         if (SRpnt != NULL) {
2062                 st_release_request(SRpnt);
2063                 SRpnt = NULL;
2064         }
2065         if (do_dio) {
2066                 release_buffering(STp, 1);
2067                 STbp->buffer_bytes = 0;
2068         }
2069         mutex_unlock(&STp->lock);
2070
2071         return retval;
2072 }
2073 \f
2074
2075
2076 DEB(
2077 /* Set the driver options */
2078 static void st_log_options(struct scsi_tape * STp, struct st_modedef * STm, char *name)
2079 {
2080         if (debugging) {
2081                 printk(KERN_INFO
2082                        "%s: Mode %d options: buffer writes: %d, async writes: %d, read ahead: %d\n",
2083                        name, STp->current_mode, STm->do_buffer_writes, STm->do_async_writes,
2084                        STm->do_read_ahead);
2085                 printk(KERN_INFO
2086                        "%s:    can bsr: %d, two FMs: %d, fast mteom: %d, auto lock: %d,\n",
2087                        name, STp->can_bsr, STp->two_fm, STp->fast_mteom, STp->do_auto_lock);
2088                 printk(KERN_INFO
2089                        "%s:    defs for wr: %d, no block limits: %d, partitions: %d, s2 log: %d\n",
2090                        name, STm->defaults_for_writes, STp->omit_blklims, STp->can_partitions,
2091                        STp->scsi2_logical);
2092                 printk(KERN_INFO
2093                        "%s:    sysv: %d nowait: %d\n", name, STm->sysv, STp->immediate);
2094                 printk(KERN_INFO "%s:    debugging: %d\n",
2095                        name, debugging);
2096         }
2097 }
2098         )
2099
2100
2101 static int st_set_options(struct scsi_tape *STp, long options)
2102 {
2103         int value;
2104         long code;
2105         struct st_modedef *STm;
2106         char *name = tape_name(STp);
2107         struct cdev *cd0, *cd1;
2108
2109         STm = &(STp->modes[STp->current_mode]);
2110         if (!STm->defined) {
2111                 cd0 = STm->cdevs[0]; cd1 = STm->cdevs[1];
2112                 memcpy(STm, &(STp->modes[0]), sizeof(struct st_modedef));
2113                 STm->cdevs[0] = cd0; STm->cdevs[1] = cd1;
2114                 modes_defined = 1;
2115                 DEBC(printk(ST_DEB_MSG
2116                             "%s: Initialized mode %d definition from mode 0\n",
2117                             name, STp->current_mode));
2118         }
2119
2120         code = options & MT_ST_OPTIONS;
2121         if (code == MT_ST_BOOLEANS) {
2122                 STm->do_buffer_writes = (options & MT_ST_BUFFER_WRITES) != 0;
2123                 STm->do_async_writes = (options & MT_ST_ASYNC_WRITES) != 0;
2124                 STm->defaults_for_writes = (options & MT_ST_DEF_WRITES) != 0;
2125                 STm->do_read_ahead = (options & MT_ST_READ_AHEAD) != 0;
2126                 STp->two_fm = (options & MT_ST_TWO_FM) != 0;
2127                 STp->fast_mteom = (options & MT_ST_FAST_MTEOM) != 0;
2128                 STp->do_auto_lock = (options & MT_ST_AUTO_LOCK) != 0;
2129                 STp->can_bsr = (options & MT_ST_CAN_BSR) != 0;
2130                 STp->omit_blklims = (options & MT_ST_NO_BLKLIMS) != 0;
2131                 if ((STp->device)->scsi_level >= SCSI_2)
2132                         STp->can_partitions = (options & MT_ST_CAN_PARTITIONS) != 0;
2133                 STp->scsi2_logical = (options & MT_ST_SCSI2LOGICAL) != 0;
2134                 STp->immediate = (options & MT_ST_NOWAIT) != 0;
2135                 STm->sysv = (options & MT_ST_SYSV) != 0;
2136                 DEB( debugging = (options & MT_ST_DEBUGGING) != 0;
2137                      st_log_options(STp, STm, name); )
2138         } else if (code == MT_ST_SETBOOLEANS || code == MT_ST_CLEARBOOLEANS) {
2139                 value = (code == MT_ST_SETBOOLEANS);
2140                 if ((options & MT_ST_BUFFER_WRITES) != 0)
2141                         STm->do_buffer_writes = value;
2142                 if ((options & MT_ST_ASYNC_WRITES) != 0)
2143                         STm->do_async_writes = value;
2144                 if ((options & MT_ST_DEF_WRITES) != 0)
2145                         STm->defaults_for_writes = value;
2146                 if ((options & MT_ST_READ_AHEAD) != 0)
2147                         STm->do_read_ahead = value;
2148                 if ((options & MT_ST_TWO_FM) != 0)
2149                         STp->two_fm = value;
2150                 if ((options & MT_ST_FAST_MTEOM) != 0)
2151                         STp->fast_mteom = value;
2152                 if ((options & MT_ST_AUTO_LOCK) != 0)
2153                         STp->do_auto_lock = value;
2154                 if ((options & MT_ST_CAN_BSR) != 0)
2155                         STp->can_bsr = value;
2156                 if ((options & MT_ST_NO_BLKLIMS) != 0)
2157                         STp->omit_blklims = value;
2158                 if ((STp->device)->scsi_level >= SCSI_2 &&
2159                     (options & MT_ST_CAN_PARTITIONS) != 0)
2160                         STp->can_partitions = value;
2161                 if ((options & MT_ST_SCSI2LOGICAL) != 0)
2162                         STp->scsi2_logical = value;
2163                 if ((options & MT_ST_NOWAIT) != 0)
2164                         STp->immediate = value;
2165                 if ((options & MT_ST_SYSV) != 0)
2166                         STm->sysv = value;
2167                 DEB(
2168                 if ((options & MT_ST_DEBUGGING) != 0)
2169                         debugging = value;
2170                         st_log_options(STp, STm, name); )
2171         } else if (code == MT_ST_WRITE_THRESHOLD) {
2172                 /* Retained for compatibility */
2173         } else if (code == MT_ST_DEF_BLKSIZE) {
2174                 value = (options & ~MT_ST_OPTIONS);
2175                 if (value == ~MT_ST_OPTIONS) {
2176                         STm->default_blksize = (-1);
2177                         DEBC( printk(KERN_INFO "%s: Default block size disabled.\n", name));
2178                 } else {
2179                         STm->default_blksize = value;
2180                         DEBC( printk(KERN_INFO "%s: Default block size set to %d bytes.\n",
2181                                name, STm->default_blksize));
2182                         if (STp->ready == ST_READY) {
2183                                 STp->blksize_changed = 0;
2184                                 set_mode_densblk(STp, STm);
2185                         }
2186                 }
2187         } else if (code == MT_ST_TIMEOUTS) {
2188                 value = (options & ~MT_ST_OPTIONS);
2189                 if ((value & MT_ST_SET_LONG_TIMEOUT) != 0) {
2190                         STp->long_timeout = (value & ~MT_ST_SET_LONG_TIMEOUT) * HZ;
2191                         DEBC( printk(KERN_INFO "%s: Long timeout set to %d seconds.\n", name,
2192                                (value & ~MT_ST_SET_LONG_TIMEOUT)));
2193                 } else {
2194                         STp->device->timeout = value * HZ;
2195                         DEBC( printk(KERN_INFO "%s: Normal timeout set to %d seconds.\n",
2196                                 name, value) );
2197                 }
2198         } else if (code == MT_ST_SET_CLN) {
2199                 value = (options & ~MT_ST_OPTIONS) & 0xff;
2200                 if (value != 0 &&
2201                     value < EXTENDED_SENSE_START && value >= SCSI_SENSE_BUFFERSIZE)
2202                         return (-EINVAL);
2203                 STp->cln_mode = value;
2204                 STp->cln_sense_mask = (options >> 8) & 0xff;
2205                 STp->cln_sense_value = (options >> 16) & 0xff;
2206                 printk(KERN_INFO
2207                        "%s: Cleaning request mode %d, mask %02x, value %02x\n",
2208                        name, value, STp->cln_sense_mask, STp->cln_sense_value);
2209         } else if (code == MT_ST_DEF_OPTIONS) {
2210                 code = (options & ~MT_ST_CLEAR_DEFAULT);
2211                 value = (options & MT_ST_CLEAR_DEFAULT);
2212                 if (code == MT_ST_DEF_DENSITY) {
2213                         if (value == MT_ST_CLEAR_DEFAULT) {
2214                                 STm->default_density = (-1);
2215                                 DEBC( printk(KERN_INFO "%s: Density default disabled.\n",
2216                                        name));
2217                         } else {
2218                                 STm->default_density = value & 0xff;
2219                                 DEBC( printk(KERN_INFO "%s: Density default set to %x\n",
2220                                        name, STm->default_density));
2221                                 if (STp->ready == ST_READY) {
2222                                         STp->density_changed = 0;
2223                                         set_mode_densblk(STp, STm);
2224                                 }
2225                         }
2226                 } else if (code == MT_ST_DEF_DRVBUFFER) {
2227                         if (value == MT_ST_CLEAR_DEFAULT) {
2228                                 STp->default_drvbuffer = 0xff;
2229                                 DEBC( printk(KERN_INFO
2230                                        "%s: Drive buffer default disabled.\n", name));
2231                         } else {
2232                                 STp->default_drvbuffer = value & 7;
2233                                 DEBC( printk(KERN_INFO
2234                                        "%s: Drive buffer default set to %x\n",
2235                                        name, STp->default_drvbuffer));
2236                                 if (STp->ready == ST_READY)
2237                                         st_int_ioctl(STp, MTSETDRVBUFFER, STp->default_drvbuffer);
2238                         }
2239                 } else if (code == MT_ST_DEF_COMPRESSION) {
2240                         if (value == MT_ST_CLEAR_DEFAULT) {
2241                                 STm->default_compression = ST_DONT_TOUCH;
2242                                 DEBC( printk(KERN_INFO
2243                                        "%s: Compression default disabled.\n", name));
2244                         } else {
2245                                 if ((value & 0xff00) != 0) {
2246                                         STp->c_algo = (value & 0xff00) >> 8;
2247                                         DEBC( printk(KERN_INFO "%s: Compression algorithm set to 0x%x.\n",
2248                                                name, STp->c_algo));
2249                                 }
2250                                 if ((value & 0xff) != 0xff) {
2251                                         STm->default_compression = (value & 1 ? ST_YES : ST_NO);
2252                                         DEBC( printk(KERN_INFO "%s: Compression default set to %x\n",
2253                                                name, (value & 1)));
2254                                         if (STp->ready == ST_READY) {
2255                                                 STp->compression_changed = 0;
2256                                                 st_compression(STp, (STm->default_compression == ST_YES));
2257                                         }
2258                                 }
2259                         }
2260                 }
2261         } else
2262                 return (-EIO);
2263
2264         return 0;
2265 }
2266 \f
2267 #define MODE_HEADER_LENGTH  4
2268
2269 /* Mode header and page byte offsets */
2270 #define MH_OFF_DATA_LENGTH     0
2271 #define MH_OFF_MEDIUM_TYPE     1
2272 #define MH_OFF_DEV_SPECIFIC    2
2273 #define MH_OFF_BDESCS_LENGTH   3
2274 #define MP_OFF_PAGE_NBR        0
2275 #define MP_OFF_PAGE_LENGTH     1
2276
2277 /* Mode header and page bit masks */
2278 #define MH_BIT_WP              0x80
2279 #define MP_MSK_PAGE_NBR        0x3f
2280
2281 /* Don't return block descriptors */
2282 #define MODE_SENSE_OMIT_BDESCS 0x08
2283
2284 #define MODE_SELECT_PAGE_FORMAT 0x10
2285
2286 /* Read a mode page into the tape buffer. The block descriptors are included
2287    if incl_block_descs is true. The page control is ored to the page number
2288    parameter, if necessary. */
2289 static int read_mode_page(struct scsi_tape *STp, int page, int omit_block_descs)
2290 {
2291         unsigned char cmd[MAX_COMMAND_SIZE];
2292         struct st_request *SRpnt = NULL;
2293
2294         memset(cmd, 0, MAX_COMMAND_SIZE);
2295         cmd[0] = MODE_SENSE;
2296         if (omit_block_descs)
2297                 cmd[1] = MODE_SENSE_OMIT_BDESCS;
2298         cmd[2] = page;
2299         cmd[4] = 255;
2300
2301         SRpnt = st_do_scsi(SRpnt, STp, cmd, cmd[4], DMA_FROM_DEVICE,
2302                            STp->device->timeout, 0, 1);
2303         if (SRpnt == NULL)
2304                 return (STp->buffer)->syscall_result;
2305
2306         st_release_request(SRpnt);
2307
2308         return (STp->buffer)->syscall_result;
2309 }
2310
2311
2312 /* Send the mode page in the tape buffer to the drive. Assumes that the mode data
2313    in the buffer is correctly formatted. The long timeout is used if slow is non-zero. */
2314 static int write_mode_page(struct scsi_tape *STp, int page, int slow)
2315 {
2316         int pgo;
2317         unsigned char cmd[MAX_COMMAND_SIZE];
2318         struct st_request *SRpnt = NULL;
2319
2320         memset(cmd, 0, MAX_COMMAND_SIZE);
2321         cmd[0] = MODE_SELECT;
2322         cmd[1] = MODE_SELECT_PAGE_FORMAT;
2323         pgo = MODE_HEADER_LENGTH + (STp->buffer)->b_data[MH_OFF_BDESCS_LENGTH];
2324         cmd[4] = pgo + (STp->buffer)->b_data[pgo + MP_OFF_PAGE_LENGTH] + 2;
2325
2326         /* Clear reserved fields */
2327         (STp->buffer)->b_data[MH_OFF_DATA_LENGTH] = 0;
2328         (STp->buffer)->b_data[MH_OFF_MEDIUM_TYPE] = 0;
2329         (STp->buffer)->b_data[MH_OFF_DEV_SPECIFIC] &= ~MH_BIT_WP;
2330         (STp->buffer)->b_data[pgo + MP_OFF_PAGE_NBR] &= MP_MSK_PAGE_NBR;
2331
2332         SRpnt = st_do_scsi(SRpnt, STp, cmd, cmd[4], DMA_TO_DEVICE,
2333                            (slow ? STp->long_timeout : STp->device->timeout), 0, 1);
2334         if (SRpnt == NULL)
2335                 return (STp->buffer)->syscall_result;
2336
2337         st_release_request(SRpnt);
2338
2339         return (STp->buffer)->syscall_result;
2340 }
2341
2342
2343 #define COMPRESSION_PAGE        0x0f
2344 #define COMPRESSION_PAGE_LENGTH 16
2345
2346 #define CP_OFF_DCE_DCC          2
2347 #define CP_OFF_C_ALGO           7
2348
2349 #define DCE_MASK  0x80
2350 #define DCC_MASK  0x40
2351 #define RED_MASK  0x60
2352
2353
2354 /* Control the compression with mode page 15. Algorithm not changed if zero.
2355
2356    The block descriptors are read and written because Sony SDT-7000 does not
2357    work without this (suggestion from Michael Schaefer <Michael.Schaefer@dlr.de>).
2358    Including block descriptors should not cause any harm to other drives. */
2359
2360 static int st_compression(struct scsi_tape * STp, int state)
2361 {
2362         int retval;
2363         int mpoffs;  /* Offset to mode page start */
2364         unsigned char *b_data = (STp->buffer)->b_data;
2365         DEB( char *name = tape_name(STp); )
2366
2367         if (STp->ready != ST_READY)
2368                 return (-EIO);
2369
2370         /* Read the current page contents */
2371         retval = read_mode_page(STp, COMPRESSION_PAGE, 0);
2372         if (retval) {
2373                 DEBC(printk(ST_DEB_MSG "%s: Compression mode page not supported.\n",
2374                             name));
2375                 return (-EIO);
2376         }
2377
2378         mpoffs = MODE_HEADER_LENGTH + b_data[MH_OFF_BDESCS_LENGTH];
2379         DEBC(printk(ST_DEB_MSG "%s: Compression state is %d.\n", name,
2380                     (b_data[mpoffs + CP_OFF_DCE_DCC] & DCE_MASK ? 1 : 0)));
2381
2382         /* Check if compression can be changed */
2383         if ((b_data[mpoffs + CP_OFF_DCE_DCC] & DCC_MASK) == 0) {
2384                 DEBC(printk(ST_DEB_MSG "%s: Compression not supported.\n", name));
2385                 return (-EIO);
2386         }
2387
2388         /* Do the change */
2389         if (state) {
2390                 b_data[mpoffs + CP_OFF_DCE_DCC] |= DCE_MASK;
2391                 if (STp->c_algo != 0)
2392                         b_data[mpoffs + CP_OFF_C_ALGO] = STp->c_algo;
2393         }
2394         else {
2395                 b_data[mpoffs + CP_OFF_DCE_DCC] &= ~DCE_MASK;
2396                 if (STp->c_algo != 0)
2397                         b_data[mpoffs + CP_OFF_C_ALGO] = 0; /* no compression */
2398         }
2399
2400         retval = write_mode_page(STp, COMPRESSION_PAGE, 0);
2401         if (retval) {
2402                 DEBC(printk(ST_DEB_MSG "%s: Compression change failed.\n", name));
2403                 return (-EIO);
2404         }
2405         DEBC(printk(ST_DEB_MSG "%s: Compression state changed to %d.\n",
2406                        name, state));
2407
2408         STp->compression_changed = 1;
2409         return 0;
2410 }
2411
2412
2413 /* Process the load and unload commands (does unload if the load code is zero) */
2414 static int do_load_unload(struct scsi_tape *STp, struct file *filp, int load_code)
2415 {
2416         int retval = (-EIO), timeout;
2417         DEB( char *name = tape_name(STp); )
2418         unsigned char cmd[MAX_COMMAND_SIZE];
2419         struct st_partstat *STps;
2420         struct st_request *SRpnt;
2421
2422         if (STp->ready != ST_READY && !load_code) {
2423                 if (STp->ready == ST_NO_TAPE)
2424                         return (-ENOMEDIUM);
2425                 else
2426                         return (-EIO);
2427         }
2428
2429         memset(cmd, 0, MAX_COMMAND_SIZE);
2430         cmd[0] = START_STOP;
2431         if (load_code)
2432                 cmd[4] |= 1;
2433         /*
2434          * If arg >= 1 && arg <= 6 Enhanced load/unload in HP C1553A
2435          */
2436         if (load_code >= 1 + MT_ST_HPLOADER_OFFSET
2437             && load_code <= 6 + MT_ST_HPLOADER_OFFSET) {
2438                 DEBC(printk(ST_DEB_MSG "%s: Enhanced %sload slot %2d.\n",
2439                             name, (cmd[4]) ? "" : "un",
2440                             load_code - MT_ST_HPLOADER_OFFSET));
2441                 cmd[3] = load_code - MT_ST_HPLOADER_OFFSET; /* MediaID field of C1553A */
2442         }
2443         if (STp->immediate) {
2444                 cmd[1] = 1;     /* Don't wait for completion */
2445                 timeout = STp->device->timeout;
2446         }
2447         else
2448                 timeout = STp->long_timeout;
2449
2450         DEBC(
2451                 if (!load_code)
2452                 printk(ST_DEB_MSG "%s: Unloading tape.\n", name);
2453                 else
2454                 printk(ST_DEB_MSG "%s: Loading tape.\n", name);
2455                 );
2456
2457         SRpnt = st_do_scsi(NULL, STp, cmd, 0, DMA_NONE,
2458                            timeout, MAX_RETRIES, 1);
2459         if (!SRpnt)
2460                 return (STp->buffer)->syscall_result;
2461
2462         retval = (STp->buffer)->syscall_result;
2463         st_release_request(SRpnt);
2464
2465         if (!retval) {  /* SCSI command successful */
2466
2467                 if (!load_code) {
2468                         STp->rew_at_close = 0;
2469                         STp->ready = ST_NO_TAPE;
2470                 }
2471                 else {
2472                         STp->rew_at_close = STp->autorew_dev;
2473                         retval = check_tape(STp, filp);
2474                         if (retval > 0)
2475                                 retval = 0;
2476                 }
2477         }
2478         else {
2479                 STps = &(STp->ps[STp->partition]);
2480                 STps->drv_file = STps->drv_block = (-1);
2481         }
2482
2483         return retval;
2484 }
2485 \f
2486 #if DEBUG
2487 #define ST_DEB_FORWARD  0
2488 #define ST_DEB_BACKWARD 1
2489 static void deb_space_print(char *name, int direction, char *units, unsigned char *cmd)
2490 {
2491         s32 sc;
2492
2493         sc = cmd[2] & 0x80 ? 0xff000000 : 0;
2494         sc |= (cmd[2] << 16) | (cmd[3] << 8) | cmd[4];
2495         if (direction)
2496                 sc = -sc;
2497         printk(ST_DEB_MSG "%s: Spacing tape %s over %d %s.\n", name,
2498                direction ? "backward" : "forward", sc, units);
2499 }
2500 #endif
2501
2502
2503 /* Internal ioctl function */
2504 static int st_int_ioctl(struct scsi_tape *STp, unsigned int cmd_in, unsigned long arg)
2505 {
2506         int timeout;
2507         long ltmp;
2508         int ioctl_result;
2509         int chg_eof = 1;
2510         unsigned char cmd[MAX_COMMAND_SIZE];
2511         struct st_request *SRpnt;
2512         struct st_partstat *STps;
2513         int fileno, blkno, at_sm, undone;
2514         int datalen = 0, direction = DMA_NONE;
2515         char *name = tape_name(STp);
2516
2517         WARN_ON(STp->buffer->do_dio != 0);
2518         if (STp->ready != ST_READY) {
2519                 if (STp->ready == ST_NO_TAPE)
2520                         return (-ENOMEDIUM);
2521                 else
2522                         return (-EIO);
2523         }
2524         timeout = STp->long_timeout;
2525         STps = &(STp->ps[STp->partition]);
2526         fileno = STps->drv_file;
2527         blkno = STps->drv_block;
2528         at_sm = STps->at_sm;
2529
2530         memset(cmd, 0, MAX_COMMAND_SIZE);
2531         switch (cmd_in) {
2532         case MTFSFM:
2533                 chg_eof = 0;    /* Changed from the FSF after this */
2534         case MTFSF:
2535                 cmd[0] = SPACE;
2536                 cmd[1] = 0x01;  /* Space FileMarks */
2537                 cmd[2] = (arg >> 16);
2538                 cmd[3] = (arg >> 8);
2539                 cmd[4] = arg;
2540                 DEBC(deb_space_print(name, ST_DEB_FORWARD, "filemarks", cmd);)
2541                 if (fileno >= 0)
2542                         fileno += arg;
2543                 blkno = 0;
2544                 at_sm &= (arg == 0);
2545                 break;
2546         case MTBSFM:
2547                 chg_eof = 0;    /* Changed from the FSF after this */
2548         case MTBSF:
2549                 cmd[0] = SPACE;
2550                 cmd[1] = 0x01;  /* Space FileMarks */
2551                 ltmp = (-arg);
2552                 cmd[2] = (ltmp >> 16);
2553                 cmd[3] = (ltmp >> 8);
2554                 cmd[4] = ltmp;
2555                 DEBC(deb_space_print(name, ST_DEB_BACKWARD, "filemarks", cmd);)
2556                 if (fileno >= 0)
2557                         fileno -= arg;
2558                 blkno = (-1);   /* We can't know the block number */
2559                 at_sm &= (arg == 0);
2560                 break;
2561         case MTFSR:
2562                 cmd[0] = SPACE;
2563                 cmd[1] = 0x00;  /* Space Blocks */
2564                 cmd[2] = (arg >> 16);
2565                 cmd[3] = (arg >> 8);
2566                 cmd[4] = arg;
2567                 DEBC(deb_space_print(name, ST_DEB_FORWARD, "blocks", cmd);)
2568                 if (blkno >= 0)
2569                         blkno += arg;
2570                 at_sm &= (arg == 0);
2571                 break;
2572         case MTBSR:
2573                 cmd[0] = SPACE;
2574                 cmd[1] = 0x00;  /* Space Blocks */
2575                 ltmp = (-arg);
2576                 cmd[2] = (ltmp >> 16);
2577                 cmd[3] = (ltmp >> 8);
2578                 cmd[4] = ltmp;
2579                 DEBC(deb_space_print(name, ST_DEB_BACKWARD, "blocks", cmd);)
2580                 if (blkno >= 0)
2581                         blkno -= arg;
2582                 at_sm &= (arg == 0);
2583                 break;
2584         case MTFSS:
2585                 cmd[0] = SPACE;
2586                 cmd[1] = 0x04;  /* Space Setmarks */
2587                 cmd[2] = (arg >> 16);
2588                 cmd[3] = (arg >> 8);
2589                 cmd[4] = arg;
2590                 DEBC(deb_space_print(name, ST_DEB_FORWARD, "setmarks", cmd);)
2591                 if (arg != 0) {
2592                         blkno = fileno = (-1);
2593                         at_sm = 1;
2594                 }
2595                 break;
2596         case MTBSS:
2597                 cmd[0] = SPACE;
2598                 cmd[1] = 0x04;  /* Space Setmarks */
2599                 ltmp = (-arg);
2600                 cmd[2] = (ltmp >> 16);
2601                 cmd[3] = (ltmp >> 8);
2602                 cmd[4] = ltmp;
2603                 DEBC(deb_space_print(name, ST_DEB_BACKWARD, "setmarks", cmd);)
2604                 if (arg != 0) {
2605                         blkno = fileno = (-1);
2606                         at_sm = 1;
2607                 }
2608                 break;
2609         case MTWEOF:
2610         case MTWSM:
2611                 if (STp->write_prot)
2612                         return (-EACCES);
2613                 cmd[0] = WRITE_FILEMARKS;
2614                 if (cmd_in == MTWSM)
2615                         cmd[1] = 2;
2616                 cmd[2] = (arg >> 16);
2617                 cmd[3] = (arg >> 8);
2618                 cmd[4] = arg;
2619                 timeout = STp->device->timeout;
2620                 DEBC(
2621                      if (cmd_in == MTWEOF)
2622                                printk(ST_DEB_MSG "%s: Writing %d filemarks.\n", name,
2623                                  cmd[2] * 65536 + cmd[3] * 256 + cmd[4]);
2624                      else
2625                                 printk(ST_DEB_MSG "%s: Writing %d setmarks.\n", name,
2626                                  cmd[2] * 65536 + cmd[3] * 256 + cmd[4]);
2627                 )
2628                 if (fileno >= 0)
2629                         fileno += arg;
2630                 blkno = 0;
2631                 at_sm = (cmd_in == MTWSM);
2632                 break;
2633         case MTREW:
2634                 cmd[0] = REZERO_UNIT;
2635                 if (STp->immediate) {
2636                         cmd[1] = 1;     /* Don't wait for completion */
2637                         timeout = STp->device->timeout;
2638                 }
2639                 DEBC(printk(ST_DEB_MSG "%s: Rewinding tape.\n", name));
2640                 fileno = blkno = at_sm = 0;
2641                 break;
2642         case MTNOP:
2643                 DEBC(printk(ST_DEB_MSG "%s: No op on tape.\n", name));
2644                 return 0;       /* Should do something ? */
2645                 break;
2646         case MTRETEN:
2647                 cmd[0] = START_STOP;
2648                 if (STp->immediate) {
2649                         cmd[1] = 1;     /* Don't wait for completion */
2650                         timeout = STp->device->timeout;
2651                 }
2652                 cmd[4] = 3;
2653                 DEBC(printk(ST_DEB_MSG "%s: Retensioning tape.\n", name));
2654                 fileno = blkno = at_sm = 0;
2655                 break;
2656         case MTEOM:
2657                 if (!STp->fast_mteom) {
2658                         /* space to the end of tape */
2659                         ioctl_result = st_int_ioctl(STp, MTFSF, 0x7fffff);
2660                         fileno = STps->drv_file;
2661                         if (STps->eof >= ST_EOD_1)
2662                                 return 0;
2663                         /* The next lines would hide the number of spaced FileMarks
2664                            That's why I inserted the previous lines. I had no luck
2665                            with detecting EOM with FSF, so we go now to EOM.
2666                            Joerg Weule */
2667                 } else
2668                         fileno = (-1);
2669                 cmd[0] = SPACE;
2670                 cmd[1] = 3;
2671                 DEBC(printk(ST_DEB_MSG "%s: Spacing to end of recorded medium.\n",
2672                             name));
2673                 blkno = -1;
2674                 at_sm = 0;
2675                 break;
2676         case MTERASE:
2677                 if (STp->write_prot)
2678                         return (-EACCES);
2679                 cmd[0] = ERASE;
2680                 cmd[1] = (arg ? 1 : 0); /* Long erase with non-zero argument */
2681                 if (STp->immediate) {
2682                         cmd[1] |= 2;    /* Don't wait for completion */
2683                         timeout = STp->device->timeout;
2684                 }
2685                 else
2686                         timeout = STp->long_timeout * 8;
2687
2688                 DEBC(printk(ST_DEB_MSG "%s: Erasing tape.\n", name));
2689                 fileno = blkno = at_sm = 0;
2690                 break;
2691         case MTSETBLK:          /* Set block length */
2692         case MTSETDENSITY:      /* Set tape density */
2693         case MTSETDRVBUFFER:    /* Set drive buffering */
2694         case SET_DENS_AND_BLK:  /* Set density and block size */
2695                 chg_eof = 0;
2696                 if (STp->dirty || (STp->buffer)->buffer_bytes != 0)
2697                         return (-EIO);  /* Not allowed if data in buffer */
2698                 if ((cmd_in == MTSETBLK || cmd_in == SET_DENS_AND_BLK) &&
2699                     (arg & MT_ST_BLKSIZE_MASK) != 0 &&
2700                     STp->max_block > 0 &&
2701                     ((arg & MT_ST_BLKSIZE_MASK) < STp->min_block ||
2702                      (arg & MT_ST_BLKSIZE_MASK) > STp->max_block)) {
2703                         printk(KERN_WARNING "%s: Illegal block size.\n", name);
2704                         return (-EINVAL);
2705                 }
2706                 cmd[0] = MODE_SELECT;
2707                 if ((STp->use_pf & USE_PF))
2708                         cmd[1] = MODE_SELECT_PAGE_FORMAT;
2709                 cmd[4] = datalen = 12;
2710                 direction = DMA_TO_DEVICE;
2711
2712                 memset((STp->buffer)->b_data, 0, 12);
2713                 if (cmd_in == MTSETDRVBUFFER)
2714                         (STp->buffer)->b_data[2] = (arg & 7) << 4;
2715                 else
2716                         (STp->buffer)->b_data[2] =
2717                             STp->drv_buffer << 4;
2718                 (STp->buffer)->b_data[3] = 8;   /* block descriptor length */
2719                 if (cmd_in == MTSETDENSITY) {
2720                         (STp->buffer)->b_data[4] = arg;
2721                         STp->density_changed = 1;       /* At least we tried ;-) */
2722                 } else if (cmd_in == SET_DENS_AND_BLK)
2723                         (STp->buffer)->b_data[4] = arg >> 24;
2724                 else
2725                         (STp->buffer)->b_data[4] = STp->density;
2726                 if (cmd_in == MTSETBLK || cmd_in == SET_DENS_AND_BLK) {
2727                         ltmp = arg & MT_ST_BLKSIZE_MASK;
2728                         if (cmd_in == MTSETBLK)
2729                                 STp->blksize_changed = 1; /* At least we tried ;-) */
2730                 } else
2731                         ltmp = STp->block_size;
2732                 (STp->buffer)->b_data[9] = (ltmp >> 16);
2733                 (STp->buffer)->b_data[10] = (ltmp >> 8);
2734                 (STp->buffer)->b_data[11] = ltmp;
2735                 timeout = STp->device->timeout;
2736                 DEBC(
2737                         if (cmd_in == MTSETBLK || cmd_in == SET_DENS_AND_BLK)
2738                                 printk(ST_DEB_MSG
2739                                        "%s: Setting block size to %d bytes.\n", name,
2740                                        (STp->buffer)->b_data[9] * 65536 +
2741                                        (STp->buffer)->b_data[10] * 256 +
2742                                        (STp->buffer)->b_data[11]);
2743                         if (cmd_in == MTSETDENSITY || cmd_in == SET_DENS_AND_BLK)
2744                                 printk(ST_DEB_MSG
2745                                        "%s: Setting density code to %x.\n", name,
2746                                        (STp->buffer)->b_data[4]);
2747                         if (cmd_in == MTSETDRVBUFFER)
2748                                 printk(ST_DEB_MSG
2749                                        "%s: Setting drive buffer code to %d.\n", name,
2750                                     ((STp->buffer)->b_data[2] >> 4) & 7);
2751                 )
2752                 break;
2753         default:
2754                 return (-ENOSYS);
2755         }
2756
2757         SRpnt = st_do_scsi(NULL, STp, cmd, datalen, direction,
2758                            timeout, MAX_RETRIES, 1);
2759         if (!SRpnt)
2760                 return (STp->buffer)->syscall_result;
2761
2762         ioctl_result = (STp->buffer)->syscall_result;
2763
2764         if (!ioctl_result) {    /* SCSI command successful */
2765                 st_release_request(SRpnt);
2766                 SRpnt = NULL;
2767                 STps->drv_block = blkno;
2768                 STps->drv_file = fileno;
2769                 STps->at_sm = at_sm;
2770
2771                 if (cmd_in == MTBSFM)
2772                         ioctl_result = st_int_ioctl(STp, MTFSF, 1);
2773                 else if (cmd_in == MTFSFM)
2774                         ioctl_result = st_int_ioctl(STp, MTBSF, 1);
2775
2776                 if (cmd_in == MTSETBLK || cmd_in == SET_DENS_AND_BLK) {
2777                         int old_block_size = STp->block_size;
2778                         STp->block_size = arg & MT_ST_BLKSIZE_MASK;
2779                         if (STp->block_size != 0) {
2780                                 if (old_block_size == 0)
2781                                         normalize_buffer(STp->buffer);
2782                                 (STp->buffer)->buffer_blocks =
2783                                     (STp->buffer)->buffer_size / STp->block_size;
2784                         }
2785                         (STp->buffer)->buffer_bytes = (STp->buffer)->read_pointer = 0;
2786                         if (cmd_in == SET_DENS_AND_BLK)
2787                                 STp->density = arg >> MT_ST_DENSITY_SHIFT;
2788                 } else if (cmd_in == MTSETDRVBUFFER)
2789                         STp->drv_buffer = (arg & 7);
2790                 else if (cmd_in == MTSETDENSITY)
2791                         STp->density = arg;
2792
2793                 if (cmd_in == MTEOM)
2794                         STps->eof = ST_EOD;
2795                 else if (cmd_in == MTFSF)
2796                         STps->eof = ST_FM;
2797                 else if (chg_eof)
2798                         STps->eof = ST_NOEOF;
2799
2800                 if (cmd_in == MTWEOF)
2801                         STps->rw = ST_IDLE;
2802         } else { /* SCSI command was not completely successful. Don't return
2803                     from this block without releasing the SCSI command block! */
2804                 struct st_cmdstatus *cmdstatp = &STp->buffer->cmdstat;
2805
2806                 if (cmdstatp->flags & SENSE_EOM) {
2807                         if (cmd_in != MTBSF && cmd_in != MTBSFM &&
2808                             cmd_in != MTBSR && cmd_in != MTBSS)
2809                                 STps->eof = ST_EOM_OK;
2810                         STps->drv_block = 0;
2811                 }
2812
2813                 if (cmdstatp->remainder_valid)
2814                         undone = (int)cmdstatp->uremainder64;
2815                 else
2816                         undone = 0;
2817
2818                 if (cmd_in == MTWEOF &&
2819                     cmdstatp->have_sense &&
2820                     (cmdstatp->flags & SENSE_EOM)) {
2821                         if (cmdstatp->sense_hdr.sense_key == NO_SENSE ||
2822                             cmdstatp->sense_hdr.sense_key == RECOVERED_ERROR) {
2823                                 ioctl_result = 0;       /* EOF(s) written successfully at EOM */
2824                                 STps->eof = ST_NOEOF;
2825                         } else {  /* Writing EOF(s) failed */
2826                                 if (fileno >= 0)
2827                                         fileno -= undone;
2828                                 if (undone < arg)
2829                                         STps->eof = ST_NOEOF;
2830                         }
2831                         STps->drv_file = fileno;
2832                 } else if ((cmd_in == MTFSF) || (cmd_in == MTFSFM)) {
2833                         if (fileno >= 0)
2834                                 STps->drv_file = fileno - undone;
2835                         else
2836                                 STps->drv_file = fileno;
2837                         STps->drv_block = -1;
2838                         STps->eof = ST_NOEOF;
2839                 } else if ((cmd_in == MTBSF) || (cmd_in == MTBSFM)) {
2840                         if (arg > 0 && undone < 0)  /* Some drives get this wrong */
2841                                 undone = (-undone);
2842                         if (STps->drv_file >= 0)
2843                                 STps->drv_file = fileno + undone;
2844                         STps->drv_block = 0;
2845                         STps->eof = ST_NOEOF;
2846                 } else if (cmd_in == MTFSR) {
2847                         if (cmdstatp->flags & SENSE_FMK) {      /* Hit filemark */
2848                                 if (STps->drv_file >= 0)
2849                                         STps->drv_file++;
2850                                 STps->drv_block = 0;
2851                                 STps->eof = ST_FM;
2852                         } else {
2853                                 if (blkno >= undone)
2854                                         STps->drv_block = blkno - undone;
2855                                 else
2856                                         STps->drv_block = (-1);
2857                                 STps->eof = ST_NOEOF;
2858                         }
2859                 } else if (cmd_in == MTBSR) {
2860                         if (cmdstatp->flags & SENSE_FMK) {      /* Hit filemark */
2861                                 STps->drv_file--;
2862                                 STps->drv_block = (-1);
2863                         } else {
2864                                 if (arg > 0 && undone < 0)  /* Some drives get this wrong */
2865                                         undone = (-undone);
2866                                 if (STps->drv_block >= 0)
2867                                         STps->drv_block = blkno + undone;
2868                         }
2869                         STps->eof = ST_NOEOF;
2870                 } else if (cmd_in == MTEOM) {
2871                         STps->drv_file = (-1);
2872                         STps->drv_block = (-1);
2873                         STps->eof = ST_EOD;
2874                 } else if (cmd_in == MTSETBLK ||
2875                            cmd_in == MTSETDENSITY ||
2876                            cmd_in == MTSETDRVBUFFER ||
2877                            cmd_in == SET_DENS_AND_BLK) {
2878                         if (cmdstatp->sense_hdr.sense_key == ILLEGAL_REQUEST &&
2879                             !(STp->use_pf & PF_TESTED)) {
2880                                 /* Try the other possible state of Page Format if not
2881                                    already tried */
2882                                 STp->use_pf = !STp->use_pf | PF_TESTED;
2883                                 st_release_request(SRpnt);
2884                                 SRpnt = NULL;
2885                                 return st_int_ioctl(STp, cmd_in, arg);
2886                         }
2887                 } else if (chg_eof)
2888                         STps->eof = ST_NOEOF;
2889
2890                 if (cmdstatp->sense_hdr.sense_key == BLANK_CHECK)
2891                         STps->eof = ST_EOD;
2892
2893                 st_release_request(SRpnt);
2894                 SRpnt = NULL;
2895         }
2896
2897         return ioctl_result;
2898 }
2899 \f
2900
2901 /* Get the tape position. If bt == 2, arg points into a kernel space mt_loc
2902    structure. */
2903
2904 static int get_location(struct scsi_tape *STp, unsigned int *block, int *partition,
2905                         int logical)
2906 {
2907         int result;
2908         unsigned char scmd[MAX_COMMAND_SIZE];
2909         struct st_request *SRpnt;
2910         DEB( char *name = tape_name(STp); )
2911
2912         if (STp->ready != ST_READY)
2913                 return (-EIO);
2914
2915         memset(scmd, 0, MAX_COMMAND_SIZE);
2916         if ((STp->device)->scsi_level < SCSI_2) {
2917                 scmd[0] = QFA_REQUEST_BLOCK;
2918                 scmd[4] = 3;
2919         } else {
2920                 scmd[0] = READ_POSITION;
2921                 if (!logical && !STp->scsi2_logical)
2922                         scmd[1] = 1;
2923         }
2924         SRpnt = st_do_scsi(NULL, STp, scmd, 20, DMA_FROM_DEVICE,
2925                         STp->device->timeout, MAX_READY_RETRIES, 1);
2926         if (!SRpnt)
2927                 return (STp->buffer)->syscall_result;
2928
2929         if ((STp->buffer)->syscall_result != 0 ||
2930             (STp->device->scsi_level >= SCSI_2 &&
2931              ((STp->buffer)->b_data[0] & 4) != 0)) {
2932                 *block = *partition = 0;
2933                 DEBC(printk(ST_DEB_MSG "%s: Can't read tape position.\n", name));
2934                 result = (-EIO);
2935         } else {
2936                 result = 0;
2937                 if ((STp->device)->scsi_level < SCSI_2) {
2938                         *block = ((STp->buffer)->b_data[0] << 16)
2939                             + ((STp->buffer)->b_data[1] << 8)
2940                             + (STp->buffer)->b_data[2];
2941                         *partition = 0;
2942                 } else {
2943                         *block = ((STp->buffer)->b_data[4] << 24)
2944                             + ((STp->buffer)->b_data[5] << 16)
2945                             + ((STp->buffer)->b_data[6] << 8)
2946                             + (STp->buffer)->b_data[7];
2947                         *partition = (STp->buffer)->b_data[1];
2948                         if (((STp->buffer)->b_data[0] & 0x80) &&
2949                             (STp->buffer)->b_data[1] == 0)      /* BOP of partition 0 */
2950                                 STp->ps[0].drv_block = STp->ps[0].drv_file = 0;
2951                 }
2952                 DEBC(printk(ST_DEB_MSG "%s: Got tape pos. blk %d part %d.\n", name,
2953                             *block, *partition));
2954         }
2955         st_release_request(SRpnt);
2956         SRpnt = NULL;
2957
2958         return result;
2959 }
2960
2961
2962 /* Set the tape block and partition. Negative partition means that only the
2963    block should be set in vendor specific way. */
2964 static int set_location(struct scsi_tape *STp, unsigned int block, int partition,
2965                         int logical)
2966 {
2967         struct st_partstat *STps;
2968         int result, p;
2969         unsigned int blk;
2970         int timeout;
2971         unsigned char scmd[MAX_COMMAND_SIZE];
2972         struct st_request *SRpnt;
2973         DEB( char *name = tape_name(STp); )
2974
2975         if (STp->ready != ST_READY)
2976                 return (-EIO);
2977         timeout = STp->long_timeout;
2978         STps = &(STp->ps[STp->partition]);
2979
2980         DEBC(printk(ST_DEB_MSG "%s: Setting block to %d and partition to %d.\n",
2981                     name, block, partition));
2982         DEB(if (partition < 0)
2983                 return (-EIO); )
2984
2985         /* Update the location at the partition we are leaving */
2986         if ((!STp->can_partitions && partition != 0) ||
2987             partition >= ST_NBR_PARTITIONS)
2988                 return (-EINVAL);
2989         if (partition != STp->partition) {
2990                 if (get_location(STp, &blk, &p, 1))
2991                         STps->last_block_valid = 0;
2992                 else {
2993                         STps->last_block_valid = 1;
2994                         STps->last_block_visited = blk;
2995                         DEBC(printk(ST_DEB_MSG
2996                                     "%s: Visited block %d for partition %d saved.\n",
2997                                     name, blk, STp->partition));
2998                 }
2999         }
3000
3001         memset(scmd, 0, MAX_COMMAND_SIZE);
3002         if ((STp->device)->scsi_level < SCSI_2) {
3003                 scmd[0] = QFA_SEEK_BLOCK;
3004                 scmd[2] = (block >> 16);
3005                 scmd[3] = (block >> 8);
3006                 scmd[4] = block;
3007                 scmd[5] = 0;
3008         } else {
3009                 scmd[0] = SEEK_10;
3010                 scmd[3] = (block >> 24);
3011                 scmd[4] = (block >> 16);
3012                 scmd[5] = (block >> 8);
3013                 scmd[6] = block;
3014                 if (!logical && !STp->scsi2_logical)
3015                         scmd[1] = 4;
3016                 if (STp->partition != partition) {
3017                         scmd[1] |= 2;
3018                         scmd[8] = partition;
3019                         DEBC(printk(ST_DEB_MSG
3020                                     "%s: Trying to change partition from %d to %d\n",
3021                                     name, STp->partition, partition));
3022                 }
3023         }
3024         if (STp->immediate) {
3025                 scmd[1] |= 1;           /* Don't wait for completion */
3026                 timeout = STp->device->timeout;
3027         }
3028
3029         SRpnt = st_do_scsi(NULL, STp, scmd, 0, DMA_NONE,
3030                            timeout, MAX_READY_RETRIES, 1);
3031         if (!SRpnt)
3032                 return (STp->buffer)->syscall_result;
3033
3034         STps->drv_block = STps->drv_file = (-1);
3035         STps->eof = ST_NOEOF;
3036         if ((STp->buffer)->syscall_result != 0) {
3037                 result = (-EIO);
3038                 if (STp->can_partitions &&
3039                     (STp->device)->scsi_level >= SCSI_2 &&
3040                     (p = find_partition(STp)) >= 0)
3041                         STp->partition = p;
3042         } else {
3043                 if (STp->can_partitions) {
3044                         STp->partition = partition;
3045                         STps = &(STp->ps[partition]);
3046                         if (!STps->last_block_valid ||
3047                             STps->last_block_visited != block) {
3048                                 STps->at_sm = 0;
3049                                 STps->rw = ST_IDLE;
3050                         }
3051                 } else
3052                         STps->at_sm = 0;
3053                 if (block == 0)
3054                         STps->drv_block = STps->drv_file = 0;
3055                 result = 0;
3056         }
3057
3058         st_release_request(SRpnt);
3059         SRpnt = NULL;
3060
3061         return result;
3062 }
3063
3064
3065 /* Find the current partition number for the drive status. Called from open and
3066    returns either partition number of negative error code. */
3067 static int find_partition(struct scsi_tape *STp)
3068 {
3069         int i, partition;
3070         unsigned int block;
3071
3072         if ((i = get_location(STp, &block, &partition, 1)) < 0)
3073                 return i;
3074         if (partition >= ST_NBR_PARTITIONS)
3075                 return (-EIO);
3076         return partition;
3077 }
3078
3079
3080 /* Change the partition if necessary */
3081 static int switch_partition(struct scsi_tape *STp)
3082 {
3083         struct st_partstat *STps;
3084
3085         if (STp->partition == STp->new_partition)
3086                 return 0;
3087         STps = &(STp->ps[STp->new_partition]);
3088         if (!STps->last_block_valid)
3089                 STps->last_block_visited = 0;
3090         return set_location(STp, STps->last_block_visited, STp->new_partition, 1);
3091 }
3092 \f
3093 /* Functions for reading and writing the medium partition mode page. */
3094
3095 #define PART_PAGE   0x11
3096 #define PART_PAGE_FIXED_LENGTH 8
3097
3098 #define PP_OFF_MAX_ADD_PARTS   2
3099 #define PP_OFF_NBR_ADD_PARTS   3
3100 #define PP_OFF_FLAGS           4
3101 #define PP_OFF_PART_UNITS      6
3102 #define PP_OFF_RESERVED        7
3103
3104 #define PP_BIT_IDP             0x20
3105 #define PP_MSK_PSUM_MB         0x10
3106
3107 /* Get the number of partitions on the tape. As a side effect reads the
3108    mode page into the tape buffer. */
3109 static int nbr_partitions(struct scsi_tape *STp)
3110 {
3111         int result;
3112         DEB( char *name = tape_name(STp); )
3113
3114         if (STp->ready != ST_READY)
3115                 return (-EIO);
3116
3117         result = read_mode_page(STp, PART_PAGE, 1);
3118
3119         if (result) {
3120                 DEBC(printk(ST_DEB_MSG "%s: Can't read medium partition page.\n",
3121                             name));
3122                 result = (-EIO);
3123         } else {
3124                 result = (STp->buffer)->b_data[MODE_HEADER_LENGTH +
3125                                               PP_OFF_NBR_ADD_PARTS] + 1;
3126                 DEBC(printk(ST_DEB_MSG "%s: Number of partitions %d.\n", name, result));
3127         }
3128
3129         return result;
3130 }
3131
3132
3133 /* Partition the tape into two partitions if size > 0 or one partition if
3134    size == 0.
3135
3136    The block descriptors are read and written because Sony SDT-7000 does not
3137    work without this (suggestion from Michael Schaefer <Michael.Schaefer@dlr.de>).
3138
3139    My HP C1533A drive returns only one partition size field. This is used to
3140    set the size of partition 1. There is no size field for the default partition.
3141    Michael Schaefer's Sony SDT-7000 returns two descriptors and the second is
3142    used to set the size of partition 1 (this is what the SCSI-3 standard specifies).
3143    The following algorithm is used to accommodate both drives: if the number of
3144    partition size fields is greater than the maximum number of additional partitions
3145    in the mode page, the second field is used. Otherwise the first field is used.
3146
3147    For Seagate DDS drives the page length must be 8 when no partitions is defined
3148    and 10 when 1 partition is defined (information from Eric Lee Green). This is
3149    is acceptable also to some other old drives and enforced if the first partition
3150    size field is used for the first additional partition size.
3151  */
3152 static int partition_tape(struct scsi_tape *STp, int size)
3153 {
3154         char *name = tape_name(STp);
3155         int result;
3156         int pgo, psd_cnt, psdo;
3157         unsigned char *bp;
3158
3159         result = read_mode_page(STp, PART_PAGE, 0);
3160         if (result) {
3161                 DEBC(printk(ST_DEB_MSG "%s: Can't read partition mode page.\n", name));
3162                 return result;
3163         }
3164         /* The mode page is in the buffer. Let's modify it and write it. */
3165         bp = (STp->buffer)->b_data;
3166         pgo = MODE_HEADER_LENGTH + bp[MH_OFF_BDESCS_LENGTH];
3167         DEBC(printk(ST_DEB_MSG "%s: Partition page length is %d bytes.\n",
3168                     name, bp[pgo + MP_OFF_PAGE_LENGTH] + 2));
3169
3170         psd_cnt = (bp[pgo + MP_OFF_PAGE_LENGTH] + 2 - PART_PAGE_FIXED_LENGTH) / 2;
3171         psdo = pgo + PART_PAGE_FIXED_LENGTH;
3172         if (psd_cnt > bp[pgo + PP_OFF_MAX_ADD_PARTS]) {
3173                 bp[psdo] = bp[psdo + 1] = 0xff;  /* Rest of the tape */
3174                 psdo += 2;
3175         }
3176         memset(bp + psdo, 0, bp[pgo + PP_OFF_NBR_ADD_PARTS] * 2);
3177
3178         DEBC(printk("%s: psd_cnt %d, max.parts %d, nbr_parts %d\n", name,
3179                     psd_cnt, bp[pgo + PP_OFF_MAX_ADD_PARTS],
3180                     bp[pgo + PP_OFF_NBR_ADD_PARTS]));
3181
3182         if (size <= 0) {
3183                 bp[pgo + PP_OFF_NBR_ADD_PARTS] = 0;
3184                 if (psd_cnt <= bp[pgo + PP_OFF_MAX_ADD_PARTS])
3185                     bp[pgo + MP_OFF_PAGE_LENGTH] = 6;
3186                 DEBC(printk(ST_DEB_MSG "%s: Formatting tape with one partition.\n",
3187                             name));
3188         } else {
3189                 bp[psdo] = (size >> 8) & 0xff;
3190                 bp[psdo + 1] = size & 0xff;
3191                 bp[pgo + 3] = 1;
3192                 if (bp[pgo + MP_OFF_PAGE_LENGTH] < 8)
3193                     bp[pgo + MP_OFF_PAGE_LENGTH] = 8;
3194                 DEBC(printk(ST_DEB_MSG
3195                             "%s: Formatting tape with two partitions (1 = %d MB).\n",
3196                             name, size));
3197         }
3198         bp[pgo + PP_OFF_PART_UNITS] = 0;
3199         bp[pgo + PP_OFF_RESERVED] = 0;
3200         bp[pgo + PP_OFF_FLAGS] = PP_BIT_IDP | PP_MSK_PSUM_MB;
3201
3202         result = write_mode_page(STp, PART_PAGE, 1);
3203         if (result) {
3204                 printk(KERN_INFO "%s: Partitioning of tape failed.\n", name);
3205                 result = (-EIO);
3206         }
3207
3208         return result;
3209 }
3210 \f
3211
3212
3213 /* The ioctl command */
3214 static long st_ioctl(struct file *file, unsigned int cmd_in, unsigned long arg)
3215 {
3216         int i, cmd_nr, cmd_type, bt;
3217         int retval = 0;
3218         unsigned int blk;
3219         struct scsi_tape *STp = file->private_data;
3220         struct st_modedef *STm;
3221         struct st_partstat *STps;
3222         char *name = tape_name(STp);
3223         void __user *p = (void __user *)arg;
3224
3225         if (mutex_lock_interruptible(&STp->lock))
3226                 return -ERESTARTSYS;
3227
3228         DEB(
3229         if (debugging && !STp->in_use) {
3230                 printk(ST_DEB_MSG "%s: Incorrect device.\n", name);
3231                 retval = (-EIO);
3232                 goto out;
3233         } ) /* end DEB */
3234
3235         STm = &(STp->modes[STp->current_mode]);
3236         STps = &(STp->ps[STp->partition]);
3237
3238         /*
3239          * If we are in the middle of error recovery, don't let anyone
3240          * else try and use this device.  Also, if error recovery fails, it
3241          * may try and take the device offline, in which case all further
3242          * access to the device is prohibited.
3243          */
3244         retval = scsi_nonblockable_ioctl(STp->device, cmd_in, p, file);
3245         if (!scsi_block_when_processing_errors(STp->device) || retval != -ENODEV)
3246                 goto out;
3247         retval = 0;
3248
3249         cmd_type = _IOC_TYPE(cmd_in);
3250         cmd_nr = _IOC_NR(cmd_in);
3251
3252         if (cmd_type == _IOC_TYPE(MTIOCTOP) && cmd_nr == _IOC_NR(MTIOCTOP)) {
3253                 struct mtop mtc;
3254
3255                 if (_IOC_SIZE(cmd_in) != sizeof(mtc)) {
3256                         retval = (-EINVAL);
3257                         goto out;
3258                 }
3259
3260                 i = copy_from_user(&mtc, p, sizeof(struct mtop));
3261                 if (i) {
3262                         retval = (-EFAULT);
3263                         goto out;
3264                 }
3265
3266                 if (mtc.mt_op == MTSETDRVBUFFER && !capable(CAP_SYS_ADMIN)) {
3267                         printk(KERN_WARNING
3268                                "%s: MTSETDRVBUFFER only allowed for root.\n", name);
3269                         retval = (-EPERM);
3270                         goto out;
3271                 }
3272                 if (!STm->defined &&
3273                     (mtc.mt_op != MTSETDRVBUFFER &&
3274                      (mtc.mt_count & MT_ST_OPTIONS) == 0)) {
3275                         retval = (-ENXIO);
3276                         goto out;
3277                 }
3278
3279                 if (!STp->pos_unknown) {
3280
3281                         if (STps->eof == ST_FM_HIT) {
3282                                 if (mtc.mt_op == MTFSF || mtc.mt_op == MTFSFM ||
3283                                     mtc.mt_op == MTEOM) {
3284                                         mtc.mt_count -= 1;
3285                                         if (STps->drv_file >= 0)
3286                                                 STps->drv_file += 1;
3287                                 } else if (mtc.mt_op == MTBSF || mtc.mt_op == MTBSFM) {
3288                                         mtc.mt_count += 1;
3289                                         if (STps->drv_file >= 0)
3290                                                 STps->drv_file += 1;
3291                                 }
3292                         }
3293
3294                         if (mtc.mt_op == MTSEEK) {
3295                                 /* Old position must be restored if partition will be
3296                                    changed */
3297                                 i = !STp->can_partitions ||
3298                                     (STp->new_partition != STp->partition);
3299                         } else {
3300                                 i = mtc.mt_op == MTREW || mtc.mt_op == MTOFFL ||
3301                                     mtc.mt_op == MTRETEN || mtc.mt_op == MTEOM ||
3302                                     mtc.mt_op == MTLOCK || mtc.mt_op == MTLOAD ||
3303                                     mtc.mt_op == MTFSF || mtc.mt_op == MTFSFM ||
3304                                     mtc.mt_op == MTBSF || mtc.mt_op == MTBSFM ||
3305                                     mtc.mt_op == MTCOMPRESSION;
3306                         }
3307                         i = flush_buffer(STp, i);
3308                         if (i < 0) {
3309                                 retval = i;
3310                                 goto out;
3311                         }
3312                         if (STps->rw == ST_WRITING &&
3313                             (mtc.mt_op == MTREW || mtc.mt_op == MTOFFL ||
3314                              mtc.mt_op == MTSEEK ||
3315                              mtc.mt_op == MTBSF || mtc.mt_op == MTBSFM)) {
3316                                 i = st_int_ioctl(STp, MTWEOF, 1);
3317                                 if (i < 0) {
3318                                         retval = i;
3319                                         goto out;
3320                                 }
3321                                 if (mtc.mt_op == MTBSF || mtc.mt_op == MTBSFM)
3322                                         mtc.mt_count++;
3323                                 STps->rw = ST_IDLE;
3324                              }
3325
3326                 } else {
3327                         /*
3328                          * If there was a bus reset, block further access
3329                          * to this device.  If the user wants to rewind the tape,
3330                          * then reset the flag and allow access again.
3331                          */
3332                         if (mtc.mt_op != MTREW &&
3333                             mtc.mt_op != MTOFFL &&
3334                             mtc.mt_op != MTRETEN &&
3335                             mtc.mt_op != MTERASE &&
3336                             mtc.mt_op != MTSEEK &&
3337                             mtc.mt_op != MTEOM) {
3338                                 retval = (-EIO);
3339                                 goto out;
3340                         }
3341                         reset_state(STp);
3342                         /* remove this when the midlevel properly clears was_reset */
3343                         STp->device->was_reset = 0;
3344                 }
3345
3346                 if (mtc.mt_op != MTNOP && mtc.mt_op != MTSETBLK &&
3347                     mtc.mt_op != MTSETDENSITY && mtc.mt_op != MTWSM &&
3348                     mtc.mt_op != MTSETDRVBUFFER && mtc.mt_op != MTSETPART)
3349                         STps->rw = ST_IDLE;     /* Prevent automatic WEOF and fsf */
3350
3351                 if (mtc.mt_op == MTOFFL && STp->door_locked != ST_UNLOCKED)
3352                         do_door_lock(STp, 0);   /* Ignore result! */
3353
3354                 if (mtc.mt_op == MTSETDRVBUFFER &&
3355                     (mtc.mt_count & MT_ST_OPTIONS) != 0) {
3356                         retval = st_set_options(STp, mtc.mt_count);
3357                         goto out;
3358                 }
3359
3360                 if (mtc.mt_op == MTSETPART) {
3361                         if (!STp->can_partitions ||
3362                             mtc.mt_count < 0 || mtc.mt_count >= ST_NBR_PARTITIONS) {
3363                                 retval = (-EINVAL);
3364                                 goto out;
3365                         }
3366                         if (mtc.mt_count >= STp->nbr_partitions &&
3367                             (STp->nbr_partitions = nbr_partitions(STp)) < 0) {
3368                                 retval = (-EIO);
3369                                 goto out;
3370                         }
3371                         if (mtc.mt_count >= STp->nbr_partitions) {
3372                                 retval = (-EINVAL);
3373                                 goto out;
3374                         }
3375                         STp->new_partition = mtc.mt_count;
3376                         retval = 0;
3377                         goto out;
3378                 }
3379
3380                 if (mtc.mt_op == MTMKPART) {
3381                         if (!STp->can_partitions) {
3382                                 retval = (-EINVAL);
3383                                 goto out;
3384                         }
3385                         if ((i = st_int_ioctl(STp, MTREW, 0)) < 0 ||
3386                             (i = partition_tape(STp, mtc.mt_count)) < 0) {
3387                                 retval = i;
3388                                 goto out;
3389                         }
3390                         for (i = 0; i < ST_NBR_PARTITIONS; i++) {
3391                                 STp->ps[i].rw = ST_IDLE;
3392                                 STp->ps[i].at_sm = 0;
3393                                 STp->ps[i].last_block_valid = 0;
3394                         }
3395                         STp->partition = STp->new_partition = 0;
3396                         STp->nbr_partitions = 1;        /* Bad guess ?-) */
3397                         STps->drv_block = STps->drv_file = 0;
3398                         retval = 0;
3399                         goto out;
3400                 }
3401
3402                 if (mtc.mt_op == MTSEEK) {
3403                         i = set_location(STp, mtc.mt_count, STp->new_partition, 0);
3404                         if (!STp->can_partitions)
3405                                 STp->ps[0].rw = ST_IDLE;
3406                         retval = i;
3407                         goto out;
3408                 }
3409
3410                 if (mtc.mt_op == MTUNLOAD || mtc.mt_op == MTOFFL) {
3411                         retval = do_load_unload(STp, file, 0);
3412                         goto out;
3413                 }
3414
3415                 if (mtc.mt_op == MTLOAD) {
3416                         retval = do_load_unload(STp, file, max(1, mtc.mt_count));
3417                         goto out;
3418                 }
3419
3420                 if (mtc.mt_op == MTLOCK || mtc.mt_op == MTUNLOCK) {
3421                         retval = do_door_lock(STp, (mtc.mt_op == MTLOCK));
3422                         goto out;
3423                 }
3424
3425                 if (STp->can_partitions && STp->ready == ST_READY &&
3426                     (i = switch_partition(STp)) < 0) {
3427                         retval = i;
3428                         goto out;
3429                 }
3430
3431                 if (mtc.mt_op == MTCOMPRESSION)
3432                         retval = st_compression(STp, (mtc.mt_count & 1));
3433                 else
3434                         retval = st_int_ioctl(STp, mtc.mt_op, mtc.mt_count);
3435                 goto out;
3436         }
3437         if (!STm->defined) {
3438                 retval = (-ENXIO);
3439                 goto out;
3440         }
3441
3442         if ((i = flush_buffer(STp, 0)) < 0) {
3443                 retval = i;
3444                 goto out;
3445         }
3446         if (STp->can_partitions &&
3447             (i = switch_partition(STp)) < 0) {
3448                 retval = i;
3449                 goto out;
3450         }
3451
3452         if (cmd_type == _IOC_TYPE(MTIOCGET) && cmd_nr == _IOC_NR(MTIOCGET)) {
3453                 struct mtget mt_status;
3454
3455                 if (_IOC_SIZE(cmd_in) != sizeof(struct mtget)) {
3456                          retval = (-EINVAL);
3457                          goto out;
3458                 }
3459
3460                 mt_status.mt_type = STp->tape_type;
3461                 mt_status.mt_dsreg =
3462                     ((STp->block_size << MT_ST_BLKSIZE_SHIFT) & MT_ST_BLKSIZE_MASK) |
3463                     ((STp->density << MT_ST_DENSITY_SHIFT) & MT_ST_DENSITY_MASK);
3464                 mt_status.mt_blkno = STps->drv_block;
3465                 mt_status.mt_fileno = STps->drv_file;
3466                 if (STp->block_size != 0) {
3467                         if (STps->rw == ST_WRITING)
3468                                 mt_status.mt_blkno +=
3469                                     (STp->buffer)->buffer_bytes / STp->block_size;
3470                         else if (STps->rw == ST_READING)
3471                                 mt_status.mt_blkno -=
3472                                         ((STp->buffer)->buffer_bytes +
3473                                          STp->block_size - 1) / STp->block_size;
3474                 }
3475
3476                 mt_status.mt_gstat = 0;
3477                 if (STp->drv_write_prot)
3478                         mt_status.mt_gstat |= GMT_WR_PROT(0xffffffff);
3479                 if (mt_status.mt_blkno == 0) {
3480                         if (mt_status.mt_fileno == 0)
3481                                 mt_status.mt_gstat |= GMT_BOT(0xffffffff);
3482                         else
3483                                 mt_status.mt_gstat |= GMT_EOF(0xffffffff);
3484                 }
3485                 mt_status.mt_erreg = (STp->recover_reg << MT_ST_SOFTERR_SHIFT);
3486                 mt_status.mt_resid = STp->partition;
3487                 if (STps->eof == ST_EOM_OK || STps->eof == ST_EOM_ERROR)
3488                         mt_status.mt_gstat |= GMT_EOT(0xffffffff);
3489                 else if (STps->eof >= ST_EOM_OK)
3490                         mt_status.mt_gstat |= GMT_EOD(0xffffffff);
3491                 if (STp->density == 1)
3492                         mt_status.mt_gstat |= GMT_D_800(0xffffffff);
3493                 else if (STp->density == 2)
3494                         mt_status.mt_gstat |= GMT_D_1600(0xffffffff);
3495                 else if (STp->density == 3)
3496                         mt_status.mt_gstat |= GMT_D_6250(0xffffffff);
3497                 if (STp->ready == ST_READY)
3498                         mt_status.mt_gstat |= GMT_ONLINE(0xffffffff);
3499                 if (STp->ready == ST_NO_TAPE)
3500                         mt_status.mt_gstat |= GMT_DR_OPEN(0xffffffff);
3501                 if (STps->at_sm)
3502                         mt_status.mt_gstat |= GMT_SM(0xffffffff);
3503                 if (STm->do_async_writes ||
3504                     (STm->do_buffer_writes && STp->block_size != 0) ||
3505                     STp->drv_buffer != 0)
3506                         mt_status.mt_gstat |= GMT_IM_REP_EN(0xffffffff);
3507                 if (STp->cleaning_req)
3508                         mt_status.mt_gstat |= GMT_CLN(0xffffffff);
3509
3510                 i = copy_to_user(p, &mt_status, sizeof(struct mtget));
3511                 if (i) {
3512                         retval = (-EFAULT);
3513                         goto out;
3514                 }
3515
3516                 STp->recover_reg = 0;           /* Clear after read */
3517                 retval = 0;
3518                 goto out;
3519         }                       /* End of MTIOCGET */
3520         if (cmd_type == _IOC_TYPE(MTIOCPOS) && cmd_nr == _IOC_NR(MTIOCPOS)) {
3521                 struct mtpos mt_pos;
3522                 if (_IOC_SIZE(cmd_in) != sizeof(struct mtpos)) {
3523                          retval = (-EINVAL);
3524                          goto out;
3525                 }
3526                 if ((i = get_location(STp, &blk, &bt, 0)) < 0) {
3527                         retval = i;
3528                         goto out;
3529                 }
3530                 mt_pos.mt_blkno = blk;
3531                 i = copy_to_user(p, &mt_pos, sizeof(struct mtpos));
3532                 if (i)
3533                         retval = (-EFAULT);
3534                 goto out;
3535         }
3536         mutex_unlock(&STp->lock);
3537         switch (cmd_in) {
3538                 case SCSI_IOCTL_GET_IDLUN:
3539                 case SCSI_IOCTL_GET_BUS_NUMBER:
3540                         break;
3541                 default:
3542                         if ((cmd_in == SG_IO ||
3543                              cmd_in == SCSI_IOCTL_SEND_COMMAND ||
3544                              cmd_in == CDROM_SEND_PACKET) &&
3545                             !capable(CAP_SYS_RAWIO))
3546                                 i = -EPERM;
3547                         else
3548                                 i = scsi_cmd_ioctl(file, STp->disk->queue,
3549                                                    STp->disk, cmd_in, p);
3550                         if (i != -ENOTTY)
3551                                 return i;
3552                         break;
3553         }
3554         retval = scsi_ioctl(STp->device, cmd_in, p);
3555         if (!retval && cmd_in == SCSI_IOCTL_STOP_UNIT) { /* unload */
3556                 STp->rew_at_close = 0;
3557                 STp->ready = ST_NO_TAPE;
3558         }
3559         return retval;
3560
3561  out:
3562         mutex_unlock(&STp->lock);
3563         return retval;
3564 }
3565
3566 #ifdef CONFIG_COMPAT
3567 static long st_compat_ioctl(struct file *file, unsigned int cmd, unsigned long arg)
3568 {
3569         struct scsi_tape *STp = file->private_data;
3570         struct scsi_device *sdev = STp->device;
3571         int ret = -ENOIOCTLCMD;
3572         if (sdev->host->hostt->compat_ioctl) {
3573
3574                 ret = sdev->host->hostt->compat_ioctl(sdev, cmd, (void __user *)arg);
3575
3576         }
3577         return ret;
3578 }
3579 #endif
3580
3581 \f
3582
3583 /* Try to allocate a new tape buffer. Calling function must not hold
3584    dev_arr_lock. */
3585 static struct st_buffer *
3586  new_tape_buffer(int from_initialization, int need_dma, int max_sg)
3587 {
3588         int i, got = 0;
3589         gfp_t priority;
3590         struct st_buffer *tb;
3591
3592         if (from_initialization)
3593                 priority = GFP_ATOMIC;
3594         else
3595                 priority = GFP_KERNEL;
3596
3597         i = sizeof(struct st_buffer) + (max_sg - 1) * sizeof(struct scatterlist) +
3598                 max_sg * sizeof(struct st_buf_fragment);
3599         tb = kzalloc(i, priority);
3600         if (!tb) {
3601                 printk(KERN_NOTICE "st: Can't allocate new tape buffer.\n");
3602                 return NULL;
3603         }
3604         tb->frp_segs = tb->orig_frp_segs = 0;
3605         tb->use_sg = max_sg;
3606         tb->frp = (struct st_buf_fragment *)(&(tb->sg[0]) + max_sg);
3607
3608         tb->dma = need_dma;
3609         tb->buffer_size = got;
3610         sg_init_table(tb->sg, max_sg);
3611
3612         return tb;
3613 }
3614
3615
3616 /* Try to allocate enough space in the tape buffer */
3617 static int enlarge_buffer(struct st_buffer * STbuffer, int new_size, int need_dma)
3618 {
3619         int segs, nbr, max_segs, b_size, order, got;
3620         gfp_t priority;
3621
3622         if (new_size <= STbuffer->buffer_size)
3623                 return 1;
3624
3625         if (STbuffer->buffer_size <= PAGE_SIZE)
3626                 normalize_buffer(STbuffer);  /* Avoid extra segment */
3627
3628         max_segs = STbuffer->use_sg;
3629         nbr = max_segs - STbuffer->frp_segs;
3630         if (nbr <= 0)
3631                 return 0;
3632
3633         priority = GFP_KERNEL | __GFP_NOWARN;
3634         if (need_dma)
3635                 priority |= GFP_DMA;
3636         for (b_size = PAGE_SIZE, order=0; order <= 6 &&
3637              b_size < new_size - STbuffer->buffer_size;
3638              order++, b_size *= 2)
3639                 ;  /* empty */
3640
3641         for (segs = STbuffer->frp_segs, got = STbuffer->buffer_size;
3642              segs < max_segs && got < new_size;) {
3643                 STbuffer->frp[segs].page = alloc_pages(priority, order);
3644                 if (STbuffer->frp[segs].page == NULL) {
3645                         if (new_size - got <= (max_segs - segs) * b_size / 2) {
3646                                 b_size /= 2; /* Large enough for the rest of the buffers */
3647                                 order--;
3648                                 continue;
3649                         }
3650                         DEB(STbuffer->buffer_size = got);
3651                         normalize_buffer(STbuffer);
3652                         return 0;
3653                 }
3654                 STbuffer->frp[segs].length = b_size;
3655                 STbuffer->frp_segs += 1;
3656                 got += b_size;
3657                 STbuffer->buffer_size = got;
3658                 segs++;
3659         }
3660         STbuffer->b_data = page_address(STbuffer->frp[0].page);
3661
3662         return 1;
3663 }
3664
3665
3666 /* Release the extra buffer */
3667 static void normalize_buffer(struct st_buffer * STbuffer)
3668 {
3669         int i, order;
3670
3671         for (i = STbuffer->orig_frp_segs; i < STbuffer->frp_segs; i++) {
3672                 order = get_order(STbuffer->frp[i].length);
3673                 __free_pages(STbuffer->frp[i].page, order);
3674                 STbuffer->buffer_size -= STbuffer->frp[i].length;
3675         }
3676         STbuffer->frp_segs = STbuffer->orig_frp_segs;
3677         STbuffer->frp_sg_current = 0;
3678         STbuffer->sg_segs = 0;
3679 }
3680
3681
3682 /* Move data from the user buffer to the tape buffer. Returns zero (success) or
3683    negative error code. */
3684 static int append_to_buffer(const char __user *ubp, struct st_buffer * st_bp, int do_count)
3685 {
3686         int i, cnt, res, offset;
3687
3688         for (i = 0, offset = st_bp->buffer_bytes;
3689              i < st_bp->frp_segs && offset >= st_bp->frp[i].length; i++)
3690                 offset -= st_bp->frp[i].length;
3691         if (i == st_bp->frp_segs) {     /* Should never happen */
3692                 printk(KERN_WARNING "st: append_to_buffer offset overflow.\n");
3693                 return (-EIO);
3694         }
3695         for (; i < st_bp->frp_segs && do_count > 0; i++) {
3696                 cnt = st_bp->frp[i].length - offset < do_count ?
3697                     st_bp->frp[i].length - offset : do_count;
3698                 res = copy_from_user(page_address(st_bp->frp[i].page) + offset, ubp, cnt);
3699                 if (res)
3700                         return (-EFAULT);
3701                 do_count -= cnt;
3702                 st_bp->buffer_bytes += cnt;
3703                 ubp += cnt;
3704                 offset = 0;
3705         }
3706         if (do_count) /* Should never happen */
3707                 return (-EIO);
3708
3709         return 0;
3710 }
3711
3712
3713 /* Move data from the tape buffer to the user buffer. Returns zero (success) or
3714    negative error code. */
3715 static int from_buffer(struct st_buffer * st_bp, char __user *ubp, int do_count)
3716 {
3717         int i, cnt, res, offset;
3718
3719         for (i = 0, offset = st_bp->read_pointer;
3720              i < st_bp->frp_segs && offset >= st_bp->frp[i].length; i++)
3721                 offset -= st_bp->frp[i].length;
3722         if (i == st_bp->frp_segs) {     /* Should never happen */
3723                 printk(KERN_WARNING "st: from_buffer offset overflow.\n");
3724                 return (-EIO);
3725         }
3726         for (; i < st_bp->frp_segs && do_count > 0; i++) {
3727                 cnt = st_bp->frp[i].length - offset < do_count ?
3728                     st_bp->frp[i].length - offset : do_count;
3729                 res = copy_to_user(ubp, page_address(st_bp->frp[i].page) + offset, cnt);
3730                 if (res)
3731                         return (-EFAULT);
3732                 do_count -= cnt;
3733                 st_bp->buffer_bytes -= cnt;
3734                 st_bp->read_pointer += cnt;
3735                 ubp += cnt;
3736                 offset = 0;
3737         }
3738         if (do_count) /* Should never happen */
3739                 return (-EIO);
3740
3741         return 0;
3742 }
3743
3744
3745 /* Move data towards start of buffer */
3746 static void move_buffer_data(struct st_buffer * st_bp, int offset)
3747 {
3748         int src_seg, dst_seg, src_offset = 0, dst_offset;
3749         int count, total;
3750
3751         if (offset == 0)
3752                 return;
3753
3754         total=st_bp->buffer_bytes - offset;
3755         for (src_seg=0; src_seg < st_bp->frp_segs; src_seg++) {
3756                 src_offset = offset;
3757                 if (src_offset < st_bp->frp[src_seg].length)
3758                         break;
3759                 offset -= st_bp->frp[src_seg].length;
3760         }
3761
3762         st_bp->buffer_bytes = st_bp->read_pointer = total;
3763         for (dst_seg=dst_offset=0; total > 0; ) {
3764                 count = min(st_bp->frp[dst_seg].length - dst_offset,
3765                             st_bp->frp[src_seg].length - src_offset);
3766                 memmove(page_address(st_bp->frp[dst_seg].page) + dst_offset,
3767                         page_address(st_bp->frp[src_seg].page) + src_offset, count);
3768                 src_offset += count;
3769                 if (src_offset >= st_bp->frp[src_seg].length) {
3770                         src_seg++;
3771                         src_offset = 0;
3772                 }
3773                 dst_offset += count;
3774                 if (dst_offset >= st_bp->frp[dst_seg].length) {
3775                         dst_seg++;
3776                         dst_offset = 0;
3777                 }
3778                 total -= count;
3779         }
3780 }
3781
3782
3783 /* Fill the s/g list up to the length required for this transfer */
3784 static void buf_to_sg(struct st_buffer *STbp, unsigned int length)
3785 {
3786         int i;
3787         unsigned int count;
3788         struct scatterlist *sg;
3789         struct st_buf_fragment *frp;
3790
3791         if (length == STbp->frp_sg_current)
3792                 return;   /* work already done */
3793
3794         sg = &(STbp->sg[0]);
3795         frp = STbp->frp;
3796         for (i=count=0; count < length; i++) {
3797                 if (length - count > frp[i].length)
3798                         sg_set_page(&sg[i], frp[i].page, frp[i].length, 0);
3799                 else
3800                         sg_set_page(&sg[i], frp[i].page, length - count, 0);
3801                 count += sg[i].length;
3802         }
3803         STbp->sg_segs = i;
3804         STbp->frp_sg_current = length;
3805 }
3806
3807
3808 /* Validate the options from command line or module parameters */
3809 static void validate_options(void)
3810 {
3811         if (buffer_kbs > 0)
3812                 st_fixed_buffer_size = buffer_kbs * ST_KILOBYTE;
3813         if (max_sg_segs >= ST_FIRST_SG)
3814                 st_max_sg_segs = max_sg_segs;
3815 }
3816
3817 #ifndef MODULE
3818 /* Set the boot options. Syntax is defined in Documenation/scsi/st.txt.
3819  */
3820 static int __init st_setup(char *str)
3821 {
3822         int i, len, ints[5];
3823         char *stp;
3824
3825         stp = get_options(str, ARRAY_SIZE(ints), ints);
3826
3827         if (ints[0] > 0) {
3828                 for (i = 0; i < ints[0] && i < ARRAY_SIZE(parms); i++)
3829                         if (parms[i].val)
3830                                 *parms[i].val = ints[i + 1];
3831         } else {
3832                 while (stp != NULL) {
3833                         for (i = 0; i < ARRAY_SIZE(parms); i++) {
3834                                 len = strlen(parms[i].name);
3835                                 if (!strncmp(stp, parms[i].name, len) &&
3836                                     (*(stp + len) == ':' || *(stp + len) == '=')) {
3837                                         if (parms[i].val)
3838                                                 *parms[i].val =
3839                                                         simple_strtoul(stp + len + 1, NULL, 0);
3840                                         else
3841                                                 printk(KERN_WARNING "st: Obsolete parameter %s\n",
3842                                                        parms[i].name);
3843                                         break;
3844                                 }
3845                         }
3846                         if (i >= ARRAY_SIZE(parms))
3847                                  printk(KERN_WARNING "st: invalid parameter in '%s'\n",
3848                                         stp);
3849                         stp = strchr(stp, ',');
3850                         if (stp)
3851                                 stp++;
3852                 }
3853         }
3854
3855         validate_options();
3856
3857         return 1;
3858 }
3859
3860 __setup("st=", st_setup);
3861
3862 #endif
3863
3864 static const struct file_operations st_fops =
3865 {
3866         .owner =        THIS_MODULE,
3867         .read =         st_read,
3868         .write =        st_write,
3869         .unlocked_ioctl = st_ioctl,
3870 #ifdef CONFIG_COMPAT
3871         .compat_ioctl = st_compat_ioctl,
3872 #endif
3873         .open =         st_open,
3874         .flush =        st_flush,
3875         .release =      st_release,
3876 };
3877
3878 static int st_probe(struct device *dev)
3879 {
3880         struct scsi_device *SDp = to_scsi_device(dev);
3881         struct gendisk *disk = NULL;
3882         struct cdev *cdev = NULL;
3883         struct scsi_tape *tpnt = NULL;
3884         struct st_modedef *STm;
3885         struct st_partstat *STps;
3886         struct st_buffer *buffer;
3887         int i, j, mode, dev_num, error;
3888         char *stp;
3889
3890         if (SDp->type != TYPE_TAPE)
3891                 return -ENODEV;
3892         if ((stp = st_incompatible(SDp))) {
3893                 sdev_printk(KERN_INFO, SDp, "Found incompatible tape\n");
3894                 printk(KERN_INFO "st: The suggested driver is %s.\n", stp);
3895                 return -ENODEV;
3896         }
3897
3898         i = min(SDp->request_queue->max_hw_segments,
3899                 SDp->request_queue->max_phys_segments);
3900         if (st_max_sg_segs < i)
3901                 i = st_max_sg_segs;
3902         buffer = new_tape_buffer(1, (SDp->host)->unchecked_isa_dma, i);
3903         if (buffer == NULL) {
3904                 printk(KERN_ERR
3905                        "st: Can't allocate new tape buffer. Device not attached.\n");
3906                 goto out;
3907         }
3908
3909         disk = alloc_disk(1);
3910         if (!disk) {
3911                 printk(KERN_ERR "st: out of memory. Device not attached.\n");
3912                 goto out_buffer_free;
3913         }
3914
3915         write_lock(&st_dev_arr_lock);
3916         if (st_nr_dev >= st_dev_max) {
3917                 struct scsi_tape **tmp_da;
3918                 int tmp_dev_max;
3919
3920                 tmp_dev_max = max(st_nr_dev * 2, 8);
3921                 if (tmp_dev_max > ST_MAX_TAPES)
3922                         tmp_dev_max = ST_MAX_TAPES;
3923                 if (tmp_dev_max <= st_nr_dev) {
3924                         write_unlock(&st_dev_arr_lock);
3925                         printk(KERN_ERR "st: Too many tape devices (max. %d).\n",
3926                                ST_MAX_TAPES);
3927                         goto out_put_disk;
3928                 }
3929
3930                 tmp_da = kzalloc(tmp_dev_max * sizeof(struct scsi_tape *), GFP_ATOMIC);
3931                 if (tmp_da == NULL) {
3932                         write_unlock(&st_dev_arr_lock);
3933                         printk(KERN_ERR "st: Can't extend device array.\n");
3934                         goto out_put_disk;
3935                 }
3936
3937                 if (scsi_tapes != NULL) {
3938                         memcpy(tmp_da, scsi_tapes,
3939                                st_dev_max * sizeof(struct scsi_tape *));
3940                         kfree(scsi_tapes);
3941                 }
3942                 scsi_tapes = tmp_da;
3943
3944                 st_dev_max = tmp_dev_max;
3945         }
3946
3947         for (i = 0; i < st_dev_max; i++)
3948                 if (scsi_tapes[i] == NULL)
3949                         break;
3950         if (i >= st_dev_max)
3951                 panic("scsi_devices corrupt (st)");
3952
3953         tpnt = kzalloc(sizeof(struct scsi_tape), GFP_ATOMIC);
3954         if (tpnt == NULL) {
3955                 write_unlock(&st_dev_arr_lock);
3956                 printk(KERN_ERR "st: Can't allocate device descriptor.\n");
3957                 goto out_put_disk;
3958         }
3959         kref_init(&tpnt->kref);
3960         tpnt->disk = disk;
3961         sprintf(disk->disk_name, "st%d", i);
3962         disk->private_data = &tpnt->driver;
3963         disk->queue = SDp->request_queue;
3964         tpnt->driver = &st_template;
3965         scsi_tapes[i] = tpnt;
3966         dev_num = i;
3967
3968         tpnt->device = SDp;
3969         if (SDp->scsi_level <= 2)
3970                 tpnt->tape_type = MT_ISSCSI1;
3971         else
3972                 tpnt->tape_type = MT_ISSCSI2;
3973
3974         tpnt->buffer = buffer;
3975         tpnt->buffer->last_SRpnt = NULL;
3976
3977         tpnt->inited = 0;
3978         tpnt->dirty = 0;
3979         tpnt->in_use = 0;
3980         tpnt->drv_buffer = 1;   /* Try buffering if no mode sense */
3981         tpnt->restr_dma = (SDp->host)->unchecked_isa_dma;
3982         tpnt->use_pf = (SDp->scsi_level >= SCSI_2);
3983         tpnt->density = 0;
3984         tpnt->do_auto_lock = ST_AUTO_LOCK;
3985         tpnt->can_bsr = (SDp->scsi_level > 2 ? 1 : ST_IN_FILE_POS); /* BSR mandatory in SCSI3 */
3986         tpnt->can_partitions = 0;
3987         tpnt->two_fm = ST_TWO_FM;
3988         tpnt->fast_mteom = ST_FAST_MTEOM;
3989         tpnt->scsi2_logical = ST_SCSI2LOGICAL;
3990         tpnt->immediate = ST_NOWAIT;
3991         tpnt->default_drvbuffer = 0xff;         /* No forced buffering */
3992         tpnt->partition = 0;
3993         tpnt->new_partition = 0;
3994         tpnt->nbr_partitions = 0;
3995         tpnt->device->timeout = ST_TIMEOUT;
3996         tpnt->long_timeout = ST_LONG_TIMEOUT;
3997         tpnt->try_dio = try_direct_io && !SDp->host->unchecked_isa_dma;
3998
3999         for (i = 0; i < ST_NBR_MODES; i++) {
4000                 STm = &(tpnt->modes[i]);
4001                 STm->defined = 0;
4002                 STm->sysv = ST_SYSV;
4003                 STm->defaults_for_writes = 0;
4004                 STm->do_async_writes = ST_ASYNC_WRITES;
4005                 STm->do_buffer_writes = ST_BUFFER_WRITES;
4006                 STm->do_read_ahead = ST_READ_AHEAD;
4007                 STm->default_compression = ST_DONT_TOUCH;
4008                 STm->default_blksize = (-1);    /* No forced size */
4009                 STm->default_density = (-1);    /* No forced density */
4010         }
4011
4012         for (i = 0; i < ST_NBR_PARTITIONS; i++) {
4013                 STps = &(tpnt->ps[i]);
4014                 STps->rw = ST_IDLE;
4015                 STps->eof = ST_NOEOF;
4016                 STps->at_sm = 0;
4017                 STps->last_block_valid = 0;
4018                 STps->drv_block = (-1);
4019                 STps->drv_file = (-1);
4020         }
4021
4022         tpnt->current_mode = 0;
4023         tpnt->modes[0].defined = 1;
4024
4025         tpnt->density_changed = tpnt->compression_changed =
4026             tpnt->blksize_changed = 0;
4027         mutex_init(&tpnt->lock);
4028
4029         st_nr_dev++;
4030         write_unlock(&st_dev_arr_lock);
4031
4032         for (mode = 0; mode < ST_NBR_MODES; ++mode) {
4033                 STm = &(tpnt->modes[mode]);
4034                 for (j=0; j < 2; j++) {
4035                         cdev = cdev_alloc();
4036                         if (!cdev) {
4037                                 printk(KERN_ERR
4038                                        "st%d: out of memory. Device not attached.\n",
4039                                        dev_num);
4040                                 goto out_free_tape;
4041                         }
4042                         cdev->owner = THIS_MODULE;
4043                         cdev->ops = &st_fops;
4044
4045                         error = cdev_add(cdev,
4046                                          MKDEV(SCSI_TAPE_MAJOR, TAPE_MINOR(dev_num, mode, j)),
4047                                          1);
4048                         if (error) {
4049                                 printk(KERN_ERR "st%d: Can't add %s-rewind mode %d\n",
4050                                        dev_num, j ? "non" : "auto", mode);
4051                                 printk(KERN_ERR "st%d: Device not attached.\n", dev_num);
4052                                 goto out_free_tape;
4053                         }
4054                         STm->cdevs[j] = cdev;
4055
4056                 }
4057                 error = do_create_class_files(tpnt, dev_num, mode);
4058                 if (error)
4059                         goto out_free_tape;
4060         }
4061
4062         sdev_printk(KERN_NOTICE, SDp,
4063                     "Attached scsi tape %s\n", tape_name(tpnt));
4064         sdev_printk(KERN_INFO, SDp, "%s: try direct i/o: %s (alignment %d B)\n",
4065                     tape_name(tpnt), tpnt->try_dio ? "yes" : "no",
4066                     queue_dma_alignment(SDp->request_queue) + 1);
4067
4068         return 0;
4069
4070 out_free_tape:
4071         for (mode=0; mode < ST_NBR_MODES; mode++) {
4072                 STm = &(tpnt->modes[mode]);
4073                 sysfs_remove_link(&tpnt->device->sdev_gendev.kobj,
4074                                   "tape");
4075                 for (j=0; j < 2; j++) {
4076                         if (STm->cdevs[j]) {
4077                                 if (cdev == STm->cdevs[j])
4078                                         cdev = NULL;
4079                                 class_device_destroy(st_sysfs_class,
4080                                                      MKDEV(SCSI_TAPE_MAJOR,
4081                                                            TAPE_MINOR(i, mode, j)));
4082                                 cdev_del(STm->cdevs[j]);
4083                         }
4084                 }
4085         }
4086         if (cdev)
4087                 cdev_del(cdev);
4088         write_lock(&st_dev_arr_lock);
4089         scsi_tapes[dev_num] = NULL;
4090         st_nr_dev--;
4091         write_unlock(&st_dev_arr_lock);
4092 out_put_disk:
4093         put_disk(disk);
4094         kfree(tpnt);
4095 out_buffer_free:
4096         kfree(buffer);
4097 out:
4098         return -ENODEV;
4099 };
4100
4101
4102 static int st_remove(struct device *dev)
4103 {
4104         struct scsi_device *SDp = to_scsi_device(dev);
4105         struct scsi_tape *tpnt;
4106         int i, j, mode;
4107
4108         write_lock(&st_dev_arr_lock);
4109         for (i = 0; i < st_dev_max; i++) {
4110                 tpnt = scsi_tapes[i];
4111                 if (tpnt != NULL && tpnt->device == SDp) {
4112                         scsi_tapes[i] = NULL;
4113                         st_nr_dev--;
4114                         write_unlock(&st_dev_arr_lock);
4115                         sysfs_remove_link(&tpnt->device->sdev_gendev.kobj,
4116                                           "tape");
4117                         for (mode = 0; mode < ST_NBR_MODES; ++mode) {
4118                                 for (j=0; j < 2; j++) {
4119                                         class_device_destroy(st_sysfs_class,
4120                                                              MKDEV(SCSI_TAPE_MAJOR,
4121                                                                    TAPE_MINOR(i, mode, j)));
4122                                         cdev_del(tpnt->modes[mode].cdevs[j]);
4123                                         tpnt->modes[mode].cdevs[j] = NULL;
4124                                 }
4125                         }
4126
4127                         mutex_lock(&st_ref_mutex);
4128                         kref_put(&tpnt->kref, scsi_tape_release);
4129                         mutex_unlock(&st_ref_mutex);
4130                         return 0;
4131                 }
4132         }
4133
4134         write_unlock(&st_dev_arr_lock);
4135         return 0;
4136 }
4137
4138 /**
4139  *      scsi_tape_release - Called to free the Scsi_Tape structure
4140  *      @kref: pointer to embedded kref
4141  *
4142  *      st_ref_mutex must be held entering this routine.  Because it is
4143  *      called on last put, you should always use the scsi_tape_get()
4144  *      scsi_tape_put() helpers which manipulate the semaphore directly
4145  *      and never do a direct kref_put().
4146  **/
4147 static void scsi_tape_release(struct kref *kref)
4148 {
4149         struct scsi_tape *tpnt = to_scsi_tape(kref);
4150         struct gendisk *disk = tpnt->disk;
4151
4152         tpnt->device = NULL;
4153
4154         if (tpnt->buffer) {
4155                 tpnt->buffer->orig_frp_segs = 0;
4156                 normalize_buffer(tpnt->buffer);
4157                 kfree(tpnt->buffer);
4158         }
4159
4160         disk->private_data = NULL;
4161         put_disk(disk);
4162         kfree(tpnt);
4163         return;
4164 }
4165
4166 static int __init init_st(void)
4167 {
4168         int err;
4169
4170         validate_options();
4171
4172         printk(KERN_INFO "st: Version %s, fixed bufsize %d, s/g segs %d\n",
4173                 verstr, st_fixed_buffer_size, st_max_sg_segs);
4174
4175         st_sysfs_class = class_create(THIS_MODULE, "scsi_tape");
4176         if (IS_ERR(st_sysfs_class)) {
4177                 printk(KERN_ERR "Unable create sysfs class for SCSI tapes\n");
4178                 return PTR_ERR(st_sysfs_class);
4179         }
4180
4181         err = register_chrdev_region(MKDEV(SCSI_TAPE_MAJOR, 0),
4182                                      ST_MAX_TAPE_ENTRIES, "st");
4183         if (err) {
4184                 printk(KERN_ERR "Unable to get major %d for SCSI tapes\n",
4185                        SCSI_TAPE_MAJOR);
4186                 goto err_class;
4187         }
4188
4189         err = scsi_register_driver(&st_template.gendrv);
4190         if (err)
4191                 goto err_chrdev;
4192
4193         err = do_create_sysfs_files();
4194         if (err)
4195                 goto err_scsidrv;
4196
4197         return 0;
4198
4199 err_scsidrv:
4200         scsi_unregister_driver(&st_template.gendrv);
4201 err_chrdev:
4202         unregister_chrdev_region(MKDEV(SCSI_TAPE_MAJOR, 0),
4203                                  ST_MAX_TAPE_ENTRIES);
4204 err_class:
4205         class_destroy(st_sysfs_class);
4206         return err;
4207 }
4208
4209 static void __exit exit_st(void)
4210 {
4211         do_remove_sysfs_files();
4212         scsi_unregister_driver(&st_template.gendrv);
4213         unregister_chrdev_region(MKDEV(SCSI_TAPE_MAJOR, 0),
4214                                  ST_MAX_TAPE_ENTRIES);
4215         class_destroy(st_sysfs_class);
4216         kfree(scsi_tapes);
4217         printk(KERN_INFO "st: Unloaded.\n");
4218 }
4219
4220 module_init(init_st);
4221 module_exit(exit_st);
4222
4223
4224 /* The sysfs driver interface. Read-only at the moment */
4225 static ssize_t st_try_direct_io_show(struct device_driver *ddp, char *buf)
4226 {
4227         return snprintf(buf, PAGE_SIZE, "%d\n", try_direct_io);
4228 }
4229 static DRIVER_ATTR(try_direct_io, S_IRUGO, st_try_direct_io_show, NULL);
4230
4231 static ssize_t st_fixed_buffer_size_show(struct device_driver *ddp, char *buf)
4232 {
4233         return snprintf(buf, PAGE_SIZE, "%d\n", st_fixed_buffer_size);
4234 }
4235 static DRIVER_ATTR(fixed_buffer_size, S_IRUGO, st_fixed_buffer_size_show, NULL);
4236
4237 static ssize_t st_max_sg_segs_show(struct device_driver *ddp, char *buf)
4238 {
4239         return snprintf(buf, PAGE_SIZE, "%d\n", st_max_sg_segs);
4240 }
4241 static DRIVER_ATTR(max_sg_segs, S_IRUGO, st_max_sg_segs_show, NULL);
4242
4243 static ssize_t st_version_show(struct device_driver *ddd, char *buf)
4244 {
4245         return snprintf(buf, PAGE_SIZE, "[%s]\n", verstr);
4246 }
4247 static DRIVER_ATTR(version, S_IRUGO, st_version_show, NULL);
4248
4249 static int do_create_sysfs_files(void)
4250 {
4251         struct device_driver *sysfs = &st_template.gendrv;
4252         int err;
4253
4254         err = driver_create_file(sysfs, &driver_attr_try_direct_io);
4255         if (err)
4256                 return err;
4257         err = driver_create_file(sysfs, &driver_attr_fixed_buffer_size);
4258         if (err)
4259                 goto err_try_direct_io;
4260         err = driver_create_file(sysfs, &driver_attr_max_sg_segs);
4261         if (err)
4262                 goto err_attr_fixed_buf;
4263         err = driver_create_file(sysfs, &driver_attr_version);
4264         if (err)
4265                 goto err_attr_max_sg;
4266
4267         return 0;
4268
4269 err_attr_max_sg:
4270         driver_remove_file(sysfs, &driver_attr_max_sg_segs);
4271 err_attr_fixed_buf:
4272         driver_remove_file(sysfs, &driver_attr_fixed_buffer_size);
4273 err_try_direct_io:
4274         driver_remove_file(sysfs, &driver_attr_try_direct_io);
4275         return err;
4276 }
4277
4278 static void do_remove_sysfs_files(void)
4279 {
4280         struct device_driver *sysfs = &st_template.gendrv;
4281
4282         driver_remove_file(sysfs, &driver_attr_version);
4283         driver_remove_file(sysfs, &driver_attr_max_sg_segs);
4284         driver_remove_file(sysfs, &driver_attr_fixed_buffer_size);
4285         driver_remove_file(sysfs, &driver_attr_try_direct_io);
4286 }
4287
4288
4289 /* The sysfs simple class interface */
4290 static ssize_t st_defined_show(struct class_device *class_dev, char *buf)
4291 {
4292         struct st_modedef *STm = (struct st_modedef *)class_get_devdata(class_dev);
4293         ssize_t l = 0;
4294
4295         l = snprintf(buf, PAGE_SIZE, "%d\n", STm->defined);
4296         return l;
4297 }
4298
4299 CLASS_DEVICE_ATTR(defined, S_IRUGO, st_defined_show, NULL);
4300
4301 static ssize_t st_defblk_show(struct class_device *class_dev, char *buf)
4302 {
4303         struct st_modedef *STm = (struct st_modedef *)class_get_devdata(class_dev);
4304         ssize_t l = 0;
4305
4306         l = snprintf(buf, PAGE_SIZE, "%d\n", STm->default_blksize);
4307         return l;
4308 }
4309
4310 CLASS_DEVICE_ATTR(default_blksize, S_IRUGO, st_defblk_show, NULL);
4311
4312 static ssize_t st_defdensity_show(struct class_device *class_dev, char *buf)
4313 {
4314         struct st_modedef *STm = (struct st_modedef *)class_get_devdata(class_dev);
4315         ssize_t l = 0;
4316         char *fmt;
4317
4318         fmt = STm->default_density >= 0 ? "0x%02x\n" : "%d\n";
4319         l = snprintf(buf, PAGE_SIZE, fmt, STm->default_density);
4320         return l;
4321 }
4322
4323 CLASS_DEVICE_ATTR(default_density, S_IRUGO, st_defdensity_show, NULL);
4324
4325 static ssize_t st_defcompression_show(struct class_device *class_dev, char *buf)
4326 {
4327         struct st_modedef *STm = (struct st_modedef *)class_get_devdata(class_dev);
4328         ssize_t l = 0;
4329
4330         l = snprintf(buf, PAGE_SIZE, "%d\n", STm->default_compression - 1);
4331         return l;
4332 }
4333
4334 CLASS_DEVICE_ATTR(default_compression, S_IRUGO, st_defcompression_show, NULL);
4335
4336 static int do_create_class_files(struct scsi_tape *STp, int dev_num, int mode)
4337 {
4338         int i, rew, error;
4339         char name[10];
4340         struct class_device *st_class_member;
4341
4342         for (rew=0; rew < 2; rew++) {
4343                 /* Make sure that the minor numbers corresponding to the four
4344                    first modes always get the same names */
4345                 i = mode << (4 - ST_NBR_MODE_BITS);
4346                 snprintf(name, 10, "%s%s%s", rew ? "n" : "",
4347                          STp->disk->disk_name, st_formats[i]);
4348                 st_class_member =
4349                         class_device_create(st_sysfs_class, NULL,
4350                                             MKDEV(SCSI_TAPE_MAJOR,
4351                                                   TAPE_MINOR(dev_num, mode, rew)),
4352                                             &STp->device->sdev_gendev, "%s", name);
4353                 if (IS_ERR(st_class_member)) {
4354                         printk(KERN_WARNING "st%d: class_device_create failed\n",
4355                                dev_num);
4356                         error = PTR_ERR(st_class_member);
4357                         goto out;
4358                 }
4359                 class_set_devdata(st_class_member, &STp->modes[mode]);
4360
4361                 error = class_device_create_file(st_class_member,
4362                                                &class_device_attr_defined);
4363                 if (error) goto out;
4364                 error = class_device_create_file(st_class_member,
4365                                             &class_device_attr_default_blksize);
4366                 if (error) goto out;
4367                 error = class_device_create_file(st_class_member,
4368                                             &class_device_attr_default_density);
4369                 if (error) goto out;
4370                 error = class_device_create_file(st_class_member,
4371                                         &class_device_attr_default_compression);
4372                 if (error) goto out;
4373
4374                 if (mode == 0 && rew == 0) {
4375                         error = sysfs_create_link(&STp->device->sdev_gendev.kobj,
4376                                                   &st_class_member->kobj,
4377                                                   "tape");
4378                         if (error) {
4379                                 printk(KERN_ERR
4380                                        "st%d: Can't create sysfs link from SCSI device.\n",
4381                                        dev_num);
4382                                 goto out;
4383                         }
4384                 }
4385         }
4386
4387         return 0;
4388
4389 out:
4390         return error;
4391 }
4392
4393 /* The following functions may be useful for a larger audience. */
4394 static int sgl_map_user_pages(struct scatterlist *sgl, const unsigned int max_pages,
4395                               unsigned long uaddr, size_t count, int rw)
4396 {
4397         unsigned long end = (uaddr + count + PAGE_SIZE - 1) >> PAGE_SHIFT;
4398         unsigned long start = uaddr >> PAGE_SHIFT;
4399         const int nr_pages = end - start;
4400         int res, i, j;
4401         struct page **pages;
4402
4403         /* User attempted Overflow! */
4404         if ((uaddr + count) < uaddr)
4405                 return -EINVAL;
4406
4407         /* Too big */
4408         if (nr_pages > max_pages)
4409                 return -ENOMEM;
4410
4411         /* Hmm? */
4412         if (count == 0)
4413                 return 0;
4414
4415         if ((pages = kmalloc(max_pages * sizeof(*pages), GFP_KERNEL)) == NULL)
4416                 return -ENOMEM;
4417
4418         /* Try to fault in all of the necessary pages */
4419         down_read(&current->mm->mmap_sem);
4420         /* rw==READ means read from drive, write into memory area */
4421         res = get_user_pages(
4422                 current,
4423                 current->mm,
4424                 uaddr,
4425                 nr_pages,
4426                 rw == READ,
4427                 0, /* don't force */
4428                 pages,
4429                 NULL);
4430         up_read(&current->mm->mmap_sem);
4431
4432         /* Errors and no page mapped should return here */
4433         if (res < nr_pages)
4434                 goto out_unmap;
4435
4436         for (i=0; i < nr_pages; i++) {
4437                 /* FIXME: flush superflous for rw==READ,
4438                  * probably wrong function for rw==WRITE
4439                  */
4440                 flush_dcache_page(pages[i]);
4441         }
4442
4443         /* Populate the scatter/gather list */
4444         sg_set_page(&sgl[0], pages[0], 0, uaddr & ~PAGE_MASK);
4445         if (nr_pages > 1) {
4446                 sgl[0].length = PAGE_SIZE - sgl[0].offset;
4447                 count -= sgl[0].length;
4448                 for (i=1; i < nr_pages ; i++) {
4449                         sg_set_page(&sgl[i], pages[i],
4450                                     count < PAGE_SIZE ? count : PAGE_SIZE, 0);;
4451                         count -= PAGE_SIZE;
4452                 }
4453         }
4454         else {
4455                 sgl[0].length = count;
4456         }
4457
4458         kfree(pages);
4459         return nr_pages;
4460
4461  out_unmap:
4462         if (res > 0) {
4463                 for (j=0; j < res; j++)
4464                         page_cache_release(pages[j]);
4465                 res = 0;
4466         }
4467         kfree(pages);
4468         return res;
4469 }
4470
4471
4472 /* And unmap them... */
4473 static int sgl_unmap_user_pages(struct scatterlist *sgl, const unsigned int nr_pages,
4474                                 int dirtied)
4475 {
4476         int i;
4477
4478         for (i=0; i < nr_pages; i++) {
4479                 struct page *page = sg_page(&sgl[i]);
4480
4481                 if (dirtied)
4482                         SetPageDirty(page);
4483                 /* FIXME: cache flush missing for rw==READ
4484                  * FIXME: call the correct reference counting function
4485                  */
4486                 page_cache_release(page);
4487         }
4488
4489         return 0;
4490 }