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