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