Merge /spare/repo/linux-2.6/
[linux-2.6] / drivers / block / acsi_slm.c
1 /*
2  * acsi_slm.c -- Device driver for the Atari SLM laser printer
3  *
4  * Copyright 1995 Roman Hodek <Roman.Hodek@informatik.uni-erlangen.de>
5  *
6  * This file is subject to the terms and conditions of the GNU General Public
7  * License.  See the file COPYING in the main directory of this archive for
8  * more details.
9  * 
10  */
11
12 /*
13
14 Notes:
15
16 The major number for SLM printers is 28 (like ACSI), but as a character
17 device, not block device. The minor number is the number of the printer (if
18 you have more than one SLM; currently max. 2 (#define-constant) SLMs are
19 supported). The device can be opened for reading and writing. If reading it,
20 you get some status infos (MODE SENSE data). Writing mode is used for the data
21 to be printed. Some ioctls allow to get the printer status and to tune printer
22 modes and some internal variables.
23
24 A special problem of the SLM driver is the timing and thus the buffering of
25 the print data. The problem is that all the data for one page must be present
26 in memory when printing starts, else --when swapping occurs-- the timing could
27 not be guaranteed. There are several ways to assure this:
28
29  1) Reserve a buffer of 1196k (maximum page size) statically by
30     atari_stram_alloc(). The data are collected there until they're complete,
31         and then printing starts. Since the buffer is reserved, no further
32         considerations about memory and swapping are needed. So this is the
33         simplest method, but it needs a lot of memory for just the SLM.
34
35     An striking advantage of this method is (supposed the SLM_CONT_CNT_REPROG
36         method works, see there), that there are no timing problems with the DMA
37         anymore.
38         
39  2) The other method would be to reserve the buffer dynamically each time
40     printing is required. I could think of looking at mem_map where the
41         largest unallocted ST-RAM area is, taking the area, and then extending it
42         by swapping out the neighbored pages, until the needed size is reached.
43         This requires some mm hacking, but seems possible. The only obstacle could
44         be pages that cannot be swapped out (reserved pages)...
45
46  3) Another possibility would be to leave the real data in user space and to
47     work with two dribble buffers of about 32k in the driver: While the one
48         buffer is DMAed to the SLM, the other can be filled with new data. But
49         to keep the timing, that requires that the user data remain in memory and
50         are not swapped out. Requires mm hacking, too, but maybe not so bad as
51         method 2).
52
53 */
54
55 #include <linux/module.h>
56
57 #include <linux/errno.h>
58 #include <linux/sched.h>
59 #include <linux/timer.h>
60 #include <linux/fs.h>
61 #include <linux/major.h>
62 #include <linux/kernel.h>
63 #include <linux/delay.h>
64 #include <linux/interrupt.h>
65 #include <linux/time.h>
66 #include <linux/mm.h>
67 #include <linux/slab.h>
68 #include <linux/devfs_fs_kernel.h>
69 #include <linux/smp_lock.h>
70
71 #include <asm/pgtable.h>
72 #include <asm/system.h>
73 #include <asm/uaccess.h>
74 #include <asm/atarihw.h>
75 #include <asm/atariints.h>
76 #include <asm/atari_acsi.h>
77 #include <asm/atari_stdma.h>
78 #include <asm/atari_stram.h>
79 #include <asm/atari_SLM.h>
80
81
82 #undef  DEBUG
83
84 /* Define this if the page data are continuous in physical memory. That
85  * requires less reprogramming of the ST-DMA */
86 #define SLM_CONTINUOUS_DMA
87
88 /* Use continuous reprogramming of the ST-DMA counter register. This is
89  * --strictly speaking-- not allowed, Atari recommends not to look at the
90  * counter register while a DMA is going on. But I don't know if that applies
91  * only for reading the register, or also writing to it. Writing only works
92  * fine for me... The advantage is that the timing becomes absolutely
93  * uncritical: Just update each, say 200ms, the counter reg to its maximum,
94  * and the DMA will work until the status byte interrupt occurs.
95  */
96 #define SLM_CONT_CNT_REPROG
97
98 #define CMDSET_TARG_LUN(cmd,targ,lun)                   \
99     do {                                                                                \
100                 cmd[0] = (cmd[0] & ~0xe0) | (targ)<<5;  \
101                 cmd[1] = (cmd[1] & ~0xe0) | (lun)<<5;   \
102         } while(0)
103
104 #define START_TIMER(to) mod_timer(&slm_timer, jiffies + (to))
105 #define STOP_TIMER()    del_timer(&slm_timer)
106
107
108 static char slmreqsense_cmd[6] = { 0x03, 0, 0, 0, 0, 0 };
109 static char slmprint_cmd[6]    = { 0x0a, 0, 0, 0, 0, 0 };
110 static char slminquiry_cmd[6]  = { 0x12, 0, 0, 0, 0, 0x80 };
111 static char slmmsense_cmd[6]   = { 0x1a, 0, 0, 0, 255, 0 };
112 #if 0
113 static char slmmselect_cmd[6]  = { 0x15, 0, 0, 0, 0, 0 };
114 #endif
115
116
117 #define MAX_SLM         2
118
119 static struct slm {
120         unsigned        target;                 /* target number */
121         unsigned        lun;                    /* LUN in target controller */
122         atomic_t        wr_ok;                  /* set to 0 if output part busy */
123         atomic_t        rd_ok;                  /* set to 0 if status part busy */
124 } slm_info[MAX_SLM];
125
126 int N_SLM_Printers = 0;
127
128 /* printer buffer */
129 static unsigned char    *SLMBuffer;     /* start of buffer */
130 static unsigned char    *BufferP;       /* current position in buffer */
131 static int                              BufferSize;     /* length of buffer for page size */
132
133 typedef enum { IDLE, FILLING, PRINTING } SLMSTATE;
134 static SLMSTATE                 SLMState;
135 static int                              SLMBufOwner;    /* SLM# currently using the buffer */
136
137 /* DMA variables */
138 #ifndef SLM_CONT_CNT_REPROG
139 static unsigned long    SLMCurAddr;             /* current base addr of DMA chunk */
140 static unsigned long    SLMEndAddr;             /* expected end addr */
141 static unsigned long    SLMSliceSize;   /* size of one DMA chunk */
142 #endif
143 static int                              SLMError;
144
145 /* wait queues */
146 static DECLARE_WAIT_QUEUE_HEAD(slm_wait);       /* waiting for buffer */
147 static DECLARE_WAIT_QUEUE_HEAD(print_wait);     /* waiting for printing finished */
148
149 /* status codes */
150 #define SLMSTAT_OK              0x00
151 #define SLMSTAT_ORNERY  0x02
152 #define SLMSTAT_TONER   0x03
153 #define SLMSTAT_WARMUP  0x04
154 #define SLMSTAT_PAPER   0x05
155 #define SLMSTAT_DRUM    0x06
156 #define SLMSTAT_INJAM   0x07
157 #define SLMSTAT_THRJAM  0x08
158 #define SLMSTAT_OUTJAM  0x09
159 #define SLMSTAT_COVER   0x0a
160 #define SLMSTAT_FUSER   0x0b
161 #define SLMSTAT_IMAGER  0x0c
162 #define SLMSTAT_MOTOR   0x0d
163 #define SLMSTAT_VIDEO   0x0e
164 #define SLMSTAT_SYSTO   0x10
165 #define SLMSTAT_OPCODE  0x12
166 #define SLMSTAT_DEVNUM  0x15
167 #define SLMSTAT_PARAM   0x1a
168 #define SLMSTAT_ACSITO  0x1b    /* driver defined */
169 #define SLMSTAT_NOTALL  0x1c    /* driver defined */
170
171 static char *SLMErrors[] = {
172         /* 0x00 */      "OK and ready",
173         /* 0x01 */      NULL,
174         /* 0x02 */      "ornery printer",
175         /* 0x03 */      "toner empty",
176         /* 0x04 */      "warming up",
177         /* 0x05 */      "paper empty",
178         /* 0x06 */      "drum empty",
179         /* 0x07 */      "input jam",
180         /* 0x08 */      "through jam",
181         /* 0x09 */      "output jam",
182         /* 0x0a */      "cover open",
183         /* 0x0b */      "fuser malfunction",
184         /* 0x0c */      "imager malfunction",
185         /* 0x0d */      "motor malfunction",
186         /* 0x0e */      "video malfunction",
187         /* 0x0f */      NULL,
188         /* 0x10 */      "printer system timeout",
189         /* 0x11 */      NULL,
190         /* 0x12 */      "invalid operation code",
191         /* 0x13 */      NULL,
192         /* 0x14 */      NULL,
193         /* 0x15 */      "invalid device number",
194         /* 0x16 */      NULL,
195         /* 0x17 */      NULL,
196         /* 0x18 */      NULL,
197         /* 0x19 */      NULL,
198         /* 0x1a */      "invalid parameter list",
199         /* 0x1b */      "ACSI timeout",
200         /* 0x1c */      "not all printed"
201 };
202
203 #define N_ERRORS        (sizeof(SLMErrors)/sizeof(*SLMErrors))
204
205 /* real (driver caused) error? */
206 #define IS_REAL_ERROR(x)        (x > 0x10)
207
208
209 static struct {
210         char    *name;
211         int     w, h;
212 } StdPageSize[] = {
213         { "Letter", 2400, 3180 },
214         { "Legal",  2400, 4080 },
215         { "A4",     2336, 3386 },
216         { "B5",     2016, 2914 }
217 };
218
219 #define N_STD_SIZES             (sizeof(StdPageSize)/sizeof(*StdPageSize))
220
221 #define SLM_BUFFER_SIZE (2336*3386/8)   /* A4 for now */
222 #define SLM_DMA_AMOUNT  255                             /* #sectors to program the DMA for */
223
224 #ifdef  SLM_CONTINUOUS_DMA
225 # define        SLM_DMA_INT_OFFSET      0               /* DMA goes until seccnt 0, no offs */
226 # define        SLM_DMA_END_OFFSET      32              /* 32 Byte ST-DMA FIFO */
227 # define        SLM_SLICE_SIZE(w)       (255*512)
228 #else
229 # define        SLM_DMA_INT_OFFSET      32              /* 32 Byte ST-DMA FIFO */
230 # define        SLM_DMA_END_OFFSET      32              /* 32 Byte ST-DMA FIFO */
231 # define        SLM_SLICE_SIZE(w)       ((254*512)/(w/8)*(w/8))
232 #endif
233
234 /* calculate the number of jiffies to wait for 'n' bytes */
235 #ifdef SLM_CONT_CNT_REPROG
236 #define DMA_TIME_FOR(n)         50
237 #define DMA_STARTUP_TIME        0
238 #else
239 #define DMA_TIME_FOR(n)         (n/1400-1)
240 #define DMA_STARTUP_TIME        650
241 #endif
242
243 /***************************** Prototypes *****************************/
244
245 static char *slm_errstr( int stat );
246 static int slm_getstats( char *buffer, int device );
247 static ssize_t slm_read( struct file* file, char *buf, size_t count, loff_t
248                          *ppos );
249 static void start_print( int device );
250 static irqreturn_t slm_interrupt(int irc, void *data, struct pt_regs *fp);
251 static void slm_test_ready( unsigned long dummy );
252 static void set_dma_addr( unsigned long paddr );
253 static unsigned long get_dma_addr( void );
254 static ssize_t slm_write( struct file *file, const char *buf, size_t count,
255                           loff_t *ppos );
256 static int slm_ioctl( struct inode *inode, struct file *file, unsigned int
257                       cmd, unsigned long arg );
258 static int slm_open( struct inode *inode, struct file *file );
259 static int slm_release( struct inode *inode, struct file *file );
260 static int slm_req_sense( int device );
261 static int slm_mode_sense( int device, char *buffer, int abs_flag );
262 #if 0
263 static int slm_mode_select( int device, char *buffer, int len, int
264                             default_flag );
265 #endif
266 static int slm_get_pagesize( int device, int *w, int *h );
267
268 /************************* End of Prototypes **************************/
269
270
271 static DEFINE_TIMER(slm_timer, slm_test_ready, 0, 0);
272
273 static struct file_operations slm_fops = {
274         .owner =        THIS_MODULE,
275         .read =         slm_read,
276         .write =        slm_write,
277         .ioctl =        slm_ioctl,
278         .open =         slm_open,
279         .release =      slm_release,
280 };
281
282
283 /* ---------------------------------------------------------------------- */
284 /*                                                         Status Functions                                                       */
285
286
287 static char *slm_errstr( int stat )
288
289 {       char *p;
290         static char     str[22];
291
292         stat &= 0x1f;
293         if (stat >= 0 && stat < N_ERRORS && (p = SLMErrors[stat]))
294                 return( p );
295         sprintf( str, "unknown status 0x%02x", stat );
296         return( str );
297 }
298
299
300 static int slm_getstats( char *buffer, int device )
301
302 {       int                     len = 0, stat, i, w, h;
303         unsigned char   buf[256];
304         
305         stat = slm_mode_sense( device, buf, 0 );
306         if (IS_REAL_ERROR(stat))
307                 return( -EIO );
308         
309 #define SHORTDATA(i)            ((buf[i] << 8) | buf[i+1])
310 #define BOOLDATA(i,mask)        ((buf[i] & mask) ? "on" : "off")
311
312         w = SHORTDATA( 3 );
313         h = SHORTDATA( 1 );
314                 
315         len += sprintf( buffer+len, "Status\t\t%s\n",
316                                         slm_errstr( stat ) );
317         len += sprintf( buffer+len, "Page Size\t%dx%d",
318                                         w, h );
319
320         for( i = 0; i < N_STD_SIZES; ++i ) {
321                 if (w == StdPageSize[i].w && h == StdPageSize[i].h)
322                         break;
323         }
324         if (i < N_STD_SIZES)
325                 len += sprintf( buffer+len, " (%s)", StdPageSize[i].name );
326         buffer[len++] = '\n';
327
328         len += sprintf( buffer+len, "Top/Left Margin\t%d/%d\n",
329                                         SHORTDATA( 5 ), SHORTDATA( 7 ) );
330         len += sprintf( buffer+len, "Manual Feed\t%s\n",
331                                         BOOLDATA( 9, 0x01 ) );
332         len += sprintf( buffer+len, "Input Select\t%d\n",
333                                         (buf[9] >> 1) & 7 );
334         len += sprintf( buffer+len, "Auto Select\t%s\n",
335                                         BOOLDATA( 9, 0x10 ) );
336         len += sprintf( buffer+len, "Prefeed Paper\t%s\n",
337                                         BOOLDATA( 9, 0x20 ) );
338         len += sprintf( buffer+len, "Thick Pixels\t%s\n",
339                                         BOOLDATA( 9, 0x40 ) );
340         len += sprintf( buffer+len, "H/V Resol.\t%d/%d dpi\n",
341                                         SHORTDATA( 12 ), SHORTDATA( 10 ) );
342         len += sprintf( buffer+len, "System Timeout\t%d\n",
343                                         buf[14] );
344         len += sprintf( buffer+len, "Scan Time\t%d\n",
345                                         SHORTDATA( 15 ) );
346         len += sprintf( buffer+len, "Page Count\t%d\n",
347                                         SHORTDATA( 17 ) );
348         len += sprintf( buffer+len, "In/Out Cap.\t%d/%d\n",
349                                         SHORTDATA( 19 ), SHORTDATA( 21 ) );
350         len += sprintf( buffer+len, "Stagger Output\t%s\n",
351                                         BOOLDATA( 23, 0x01 ) );
352         len += sprintf( buffer+len, "Output Select\t%d\n",
353                                         (buf[23] >> 1) & 7 );
354         len += sprintf( buffer+len, "Duplex Print\t%s\n",
355                                         BOOLDATA( 23, 0x10 ) );
356         len += sprintf( buffer+len, "Color Sep.\t%s\n",
357                                         BOOLDATA( 23, 0x20 ) );
358
359         return( len );
360 }
361
362
363 static ssize_t slm_read( struct file *file, char *buf, size_t count,
364                                                  loff_t *ppos )
365
366 {
367         struct inode *node = file->f_dentry->d_inode;
368         unsigned long page;
369         int length;
370         int end;
371
372         if (count < 0)
373                 return( -EINVAL );
374         if (!(page = __get_free_page( GFP_KERNEL )))
375                 return( -ENOMEM );
376         
377         length = slm_getstats( (char *)page, iminor(node) );
378         if (length < 0) {
379                 count = length;
380                 goto out;
381         }
382         if (file->f_pos >= length) {
383                 count = 0;
384                 goto out;
385         }
386         if (count + file->f_pos > length)
387                 count = length - file->f_pos;
388         end = count + file->f_pos;
389         if (copy_to_user(buf, (char *)page + file->f_pos, count)) {
390                 count = -EFAULT;
391                 goto out;
392         }
393         file->f_pos = end;
394 out:    free_page( page );
395         return( count );
396 }
397
398
399 /* ---------------------------------------------------------------------- */
400 /*                                                                 Printing                                                               */
401
402
403 static void start_print( int device )
404
405 {       struct slm *sip = &slm_info[device];
406         unsigned char   *cmd;
407         unsigned long   paddr;
408         int                             i;
409         
410         stdma_lock( slm_interrupt, NULL );
411
412         CMDSET_TARG_LUN( slmprint_cmd, sip->target, sip->lun );
413         cmd = slmprint_cmd;
414         paddr = virt_to_phys( SLMBuffer );
415         dma_cache_maintenance( paddr, virt_to_phys(BufferP)-paddr, 1 );
416         DISABLE_IRQ();
417
418         /* Low on A1 */
419         dma_wd.dma_mode_status = 0x88;
420         MFPDELAY();
421
422         /* send the command bytes except the last */
423         for( i = 0; i < 5; ++i ) {
424                 DMA_LONG_WRITE( *cmd++, 0x8a );
425                 udelay(20);
426                 if (!acsi_wait_for_IRQ( HZ/2 )) {
427                         SLMError = 1;
428                         return; /* timeout */
429                 }
430         }
431         /* last command byte */
432         DMA_LONG_WRITE( *cmd++, 0x82 );
433         MFPDELAY();
434         /* set DMA address */
435         set_dma_addr( paddr );
436         /* program DMA for write and select sector counter reg */
437         dma_wd.dma_mode_status = 0x192;
438         MFPDELAY();
439         /* program for 255*512 bytes and start DMA */
440         DMA_LONG_WRITE( SLM_DMA_AMOUNT, 0x112 );
441
442 #ifndef SLM_CONT_CNT_REPROG
443         SLMCurAddr = paddr;
444         SLMEndAddr = paddr + SLMSliceSize + SLM_DMA_INT_OFFSET;
445 #endif
446         START_TIMER( DMA_STARTUP_TIME + DMA_TIME_FOR( SLMSliceSize ));
447 #if !defined(SLM_CONT_CNT_REPROG) && defined(DEBUG)
448         printk( "SLM: CurAddr=%#lx EndAddr=%#lx timer=%ld\n",
449                         SLMCurAddr, SLMEndAddr, DMA_TIME_FOR( SLMSliceSize ) );
450 #endif
451         
452         ENABLE_IRQ();
453 }
454
455
456 /* Only called when an error happened or at the end of a page */
457
458 static irqreturn_t slm_interrupt(int irc, void *data, struct pt_regs *fp)
459
460 {       unsigned long   addr;
461         int                             stat;
462         
463         STOP_TIMER();
464         addr = get_dma_addr();
465         stat = acsi_getstatus();
466         SLMError = (stat < 0)             ? SLMSTAT_ACSITO :
467                        (addr < virt_to_phys(BufferP)) ? SLMSTAT_NOTALL :
468                                                                             stat;
469
470         dma_wd.dma_mode_status = 0x80;
471         MFPDELAY();
472 #ifdef DEBUG
473         printk( "SLM: interrupt, addr=%#lx, error=%d\n", addr, SLMError );
474 #endif
475
476         wake_up( &print_wait );
477         stdma_release();
478         ENABLE_IRQ();
479         return IRQ_HANDLED;
480 }
481
482
483 static void slm_test_ready( unsigned long dummy )
484
485 {
486 #ifdef SLM_CONT_CNT_REPROG
487         /* program for 255*512 bytes again */
488         dma_wd.fdc_acces_seccount = SLM_DMA_AMOUNT;
489         START_TIMER( DMA_TIME_FOR(0) );
490 #ifdef DEBUG
491         printk( "SLM: reprogramming timer for %d jiffies, addr=%#lx\n",
492                         DMA_TIME_FOR(0), get_dma_addr() );
493 #endif
494         
495 #else /* !SLM_CONT_CNT_REPROG */
496
497         unsigned long   flags, addr;
498         int                             d, ti;
499 #ifdef DEBUG
500         struct timeval start_tm, end_tm;
501         int                        did_wait = 0;
502 #endif
503
504         local_irq_save(flags);
505
506         addr = get_dma_addr();
507         if ((d = SLMEndAddr - addr) > 0) {
508                 local_irq_restore(flags);
509                 
510                 /* slice not yet finished, decide whether to start another timer or to
511                  * busy-wait */
512                 ti = DMA_TIME_FOR( d );
513                 if (ti > 0) {
514 #ifdef DEBUG
515                         printk( "SLM: reprogramming timer for %d jiffies, rest %d bytes\n",
516                                         ti, d );
517 #endif
518                         START_TIMER( ti );
519                         return;
520                 }
521                 /* wait for desired end address to be reached */
522 #ifdef DEBUG
523                 do_gettimeofday( &start_tm );
524                 did_wait = 1;
525 #endif
526                 local_irq_disable();
527                 while( get_dma_addr() < SLMEndAddr )
528                         barrier();
529         }
530
531         /* slice finished, start next one */
532         SLMCurAddr += SLMSliceSize;
533
534 #ifdef SLM_CONTINUOUS_DMA
535         /* program for 255*512 bytes again */
536         dma_wd.fdc_acces_seccount = SLM_DMA_AMOUNT;
537 #else
538         /* set DMA address;
539          * add 2 bytes for the ones in the SLM controller FIFO! */
540         set_dma_addr( SLMCurAddr + 2 );
541         /* toggle DMA to write and select sector counter reg */
542         dma_wd.dma_mode_status = 0x92;
543         MFPDELAY();
544         dma_wd.dma_mode_status = 0x192;
545         MFPDELAY();
546         /* program for 255*512 bytes and start DMA */
547         DMA_LONG_WRITE( SLM_DMA_AMOUNT, 0x112 );
548 #endif
549         
550         local_irq_restore(flags);
551
552 #ifdef DEBUG
553         if (did_wait) {
554                 int ms;
555                 do_gettimeofday( &end_tm );
556                 ms = (end_tm.tv_sec*1000000+end_tm.tv_usec) -
557                          (start_tm.tv_sec*1000000+start_tm.tv_usec); 
558                 printk( "SLM: did %ld.%ld ms busy waiting for %d bytes\n",
559                                 ms/1000, ms%1000, d );
560         }
561         else
562                 printk( "SLM: didn't wait (!)\n" );
563 #endif
564
565         if ((unsigned char *)PTOV( SLMCurAddr + SLMSliceSize ) >= BufferP) {
566                 /* will be last slice, no timer necessary */
567 #ifdef DEBUG
568                 printk( "SLM: CurAddr=%#lx EndAddr=%#lx last slice -> no timer\n",
569                                 SLMCurAddr, SLMEndAddr );
570 #endif
571         }
572         else {
573                 /* not last slice */
574                 SLMEndAddr = SLMCurAddr + SLMSliceSize + SLM_DMA_INT_OFFSET;
575                 START_TIMER( DMA_TIME_FOR( SLMSliceSize ));
576 #ifdef DEBUG
577                 printk( "SLM: CurAddr=%#lx EndAddr=%#lx timer=%ld\n",
578                                 SLMCurAddr, SLMEndAddr, DMA_TIME_FOR( SLMSliceSize ) );
579 #endif
580         }
581 #endif /* SLM_CONT_CNT_REPROG */
582 }
583
584
585 static void set_dma_addr( unsigned long paddr )
586
587 {       unsigned long flags;
588
589         local_irq_save(flags);
590         dma_wd.dma_lo = (unsigned char)paddr;
591         paddr >>= 8;
592         MFPDELAY();
593         dma_wd.dma_md = (unsigned char)paddr;
594         paddr >>= 8;
595         MFPDELAY();
596         if (ATARIHW_PRESENT( EXTD_DMA ))
597                 st_dma_ext_dmahi = (unsigned short)paddr;
598         else
599                 dma_wd.dma_hi = (unsigned char)paddr;
600         MFPDELAY();
601         local_irq_restore(flags);
602 }
603
604
605 static unsigned long get_dma_addr( void )
606
607 {       unsigned long   addr;
608         
609         addr = dma_wd.dma_lo & 0xff;
610         MFPDELAY();
611         addr |= (dma_wd.dma_md & 0xff) << 8;
612         MFPDELAY();
613         addr |= (dma_wd.dma_hi & 0xff) << 16;
614         MFPDELAY();
615
616         return( addr );
617 }
618
619
620 static ssize_t slm_write( struct file *file, const char *buf, size_t count,
621                                                   loff_t *ppos )
622
623 {
624         struct inode *node = file->f_dentry->d_inode;
625         int             device = iminor(node);
626         int             n, filled, w, h;
627
628         while( SLMState == PRINTING ||
629                    (SLMState == FILLING && SLMBufOwner != device) ) {
630                 interruptible_sleep_on( &slm_wait );
631                 if (signal_pending(current))
632                         return( -ERESTARTSYS );
633         }
634         if (SLMState == IDLE) {
635                 /* first data of page: get current page size  */
636                 if (slm_get_pagesize( device, &w, &h ))
637                         return( -EIO );
638                 BufferSize = w*h/8;
639                 if (BufferSize > SLM_BUFFER_SIZE)
640                         return( -ENOMEM );
641
642                 SLMState = FILLING;
643                 SLMBufOwner = device;
644         }
645
646         n = count;
647         filled = BufferP - SLMBuffer;
648         if (filled + n > BufferSize)
649                 n = BufferSize - filled;
650
651         if (copy_from_user(BufferP, buf, n))
652                 return -EFAULT;
653         BufferP += n;
654         filled += n;
655
656         if (filled == BufferSize) {
657                 /* Check the paper size again! The user may have switched it in the
658                  * time between starting the data and finishing them. Would end up in
659                  * a trashy page... */
660                 if (slm_get_pagesize( device, &w, &h ))
661                         return( -EIO );
662                 if (BufferSize != w*h/8) {
663                         printk( KERN_NOTICE "slm%d: page size changed while printing\n",
664                                         device );
665                         return( -EAGAIN );
666                 }
667
668                 SLMState = PRINTING;
669                 /* choose a slice size that is a multiple of the line size */
670 #ifndef SLM_CONT_CNT_REPROG
671                 SLMSliceSize = SLM_SLICE_SIZE(w);
672 #endif
673                 
674                 start_print( device );
675                 sleep_on( &print_wait );
676                 if (SLMError && IS_REAL_ERROR(SLMError)) {
677                         printk( KERN_ERR "slm%d: %s\n", device, slm_errstr(SLMError) );
678                         n = -EIO;
679                 }
680
681                 SLMState = IDLE;
682                 BufferP = SLMBuffer;
683                 wake_up_interruptible( &slm_wait );
684         }
685         
686         return( n );
687 }
688
689
690 /* ---------------------------------------------------------------------- */
691 /*                                                         ioctl Functions                                                        */
692
693
694 static int slm_ioctl( struct inode *inode, struct file *file,
695                                           unsigned int cmd, unsigned long arg )
696
697 {       int             device = iminor(inode), err;
698         
699         /* I can think of setting:
700          *  - manual feed
701          *  - paper format
702          *  - copy count
703          *  - ...
704          * but haven't implemented that yet :-)
705          * BTW, has anybody better docs about the MODE SENSE/MODE SELECT data?
706          */
707         switch( cmd ) {
708
709           case SLMIORESET:              /* reset buffer, i.e. empty the buffer */
710                 if (!(file->f_mode & 2))
711                         return( -EINVAL );
712                 if (SLMState == PRINTING)
713                         return( -EBUSY );
714                 SLMState = IDLE;
715                 BufferP = SLMBuffer;
716                 wake_up_interruptible( &slm_wait );
717                 return( 0 );
718                 
719           case SLMIOGSTAT: {    /* get status */
720                 int stat;
721                 char *str;
722
723                 stat = slm_req_sense( device );
724                 if (arg) {
725                         str = slm_errstr( stat );
726                         if (put_user(stat,
727                                      (long *)&((struct SLM_status *)arg)->stat))
728                                 return -EFAULT;
729                         if (copy_to_user( ((struct SLM_status *)arg)->str, str,
730                                                  strlen(str) + 1))
731                                 return -EFAULT;
732                 }
733                 return( stat );
734           }
735                 
736           case SLMIOGPSIZE: {   /* get paper size */
737                 int w, h;
738                 
739                 if ((err = slm_get_pagesize( device, &w, &h ))) return( err );
740                 
741                 if (put_user(w, (long *)&((struct SLM_paper_size *)arg)->width))
742                         return -EFAULT;
743                 if (put_user(h, (long *)&((struct SLM_paper_size *)arg)->height))
744                         return -EFAULT;
745                 return( 0 );
746           }
747                 
748           case SLMIOGMFEED:     /* get manual feed */
749                 return( -EINVAL );
750
751           case SLMIOSPSIZE:     /* set paper size */
752                 return( -EINVAL );
753
754           case SLMIOSMFEED:     /* set manual feed */
755                 return( -EINVAL );
756
757         }
758         return( -EINVAL );
759 }
760
761
762 /* ---------------------------------------------------------------------- */
763 /*                                                       Opening and Closing                                              */
764
765
766 static int slm_open( struct inode *inode, struct file *file )
767
768 {       int device;
769         struct slm *sip;
770         
771         device = iminor(inode);
772         if (device >= N_SLM_Printers)
773                 return( -ENXIO );
774         sip = &slm_info[device];
775
776         if (file->f_mode & 2) {
777                 /* open for writing is exclusive */
778                 if ( !atomic_dec_and_test(&sip->wr_ok) ) {
779                         atomic_inc(&sip->wr_ok);        
780                         return( -EBUSY );
781                 }
782         }
783         if (file->f_mode & 1) {
784                 /* open for reading is exclusive */
785                 if ( !atomic_dec_and_test(&sip->rd_ok) ) {
786                         atomic_inc(&sip->rd_ok);
787                         return( -EBUSY );
788                 }
789         }
790
791         return( 0 );
792 }
793
794
795 static int slm_release( struct inode *inode, struct file *file )
796
797 {       int device;
798         struct slm *sip;
799         
800         device = iminor(inode);
801         sip = &slm_info[device];
802
803         if (file->f_mode & 2)
804                 atomic_inc( &sip->wr_ok );
805         if (file->f_mode & 1)
806                 atomic_inc( &sip->rd_ok );
807         
808         return( 0 );
809 }
810
811
812 /* ---------------------------------------------------------------------- */
813 /*                                               ACSI Primitives for the SLM                                      */
814
815
816 static int slm_req_sense( int device )
817
818 {       int                     stat, rv;
819         struct slm *sip = &slm_info[device];
820         
821         stdma_lock( NULL, NULL );
822
823         CMDSET_TARG_LUN( slmreqsense_cmd, sip->target, sip->lun );
824         if (!acsicmd_nodma( slmreqsense_cmd, 0 ) ||
825                 (stat = acsi_getstatus()) < 0)
826                 rv = SLMSTAT_ACSITO;
827         else
828                 rv = stat & 0x1f;
829
830         ENABLE_IRQ();
831         stdma_release();
832         return( rv );
833 }
834
835
836 static int slm_mode_sense( int device, char *buffer, int abs_flag )
837
838 {       unsigned char   stat, len;
839         int                             rv = 0;
840         struct slm              *sip = &slm_info[device];
841         
842         stdma_lock( NULL, NULL );
843
844         CMDSET_TARG_LUN( slmmsense_cmd, sip->target, sip->lun );
845         slmmsense_cmd[5] = abs_flag ? 0x80 : 0;
846         if (!acsicmd_nodma( slmmsense_cmd, 0 )) {
847                 rv = SLMSTAT_ACSITO;
848                 goto the_end;
849         }
850
851         if (!acsi_extstatus( &stat, 1 )) {
852                 acsi_end_extstatus();
853                 rv = SLMSTAT_ACSITO;
854                 goto the_end;
855         }
856         
857         if (!acsi_extstatus( &len, 1 )) {
858                 acsi_end_extstatus();
859                 rv = SLMSTAT_ACSITO;
860                 goto the_end;
861         }
862         buffer[0] = len;
863         if (!acsi_extstatus( buffer+1, len )) {
864                 acsi_end_extstatus();
865                 rv = SLMSTAT_ACSITO;
866                 goto the_end;
867         }
868         
869         acsi_end_extstatus();
870         rv = stat & 0x1f;
871
872   the_end:
873         ENABLE_IRQ();
874         stdma_release();
875         return( rv );
876 }
877
878
879 #if 0
880 /* currently unused */
881 static int slm_mode_select( int device, char *buffer, int len,
882                                                         int default_flag )
883
884 {       int                     stat, rv;
885         struct slm      *sip = &slm_info[device];
886         
887         stdma_lock( NULL, NULL );
888
889         CMDSET_TARG_LUN( slmmselect_cmd, sip->target, sip->lun );
890         slmmselect_cmd[5] = default_flag ? 0x80 : 0;
891         if (!acsicmd_nodma( slmmselect_cmd, 0 )) {
892                 rv = SLMSTAT_ACSITO;
893                 goto the_end;
894         }
895
896         if (!default_flag) {
897                 unsigned char c = len;
898                 if (!acsi_extcmd( &c, 1 )) {
899                         rv = SLMSTAT_ACSITO;
900                         goto the_end;
901                 }
902                 if (!acsi_extcmd( buffer, len )) {
903                         rv = SLMSTAT_ACSITO;
904                         goto the_end;
905                 }
906         }
907         
908         stat = acsi_getstatus();
909         rv = (stat < 0 ? SLMSTAT_ACSITO : stat);
910
911   the_end:
912         ENABLE_IRQ();
913         stdma_release();
914         return( rv );
915 }
916 #endif
917
918
919 static int slm_get_pagesize( int device, int *w, int *h )
920
921 {       char    buf[256];
922         int             stat;
923         
924         stat = slm_mode_sense( device, buf, 0 );
925         ENABLE_IRQ();
926         stdma_release();
927
928         if (stat != SLMSTAT_OK)
929                 return( -EIO );
930
931         *w = (buf[3] << 8) | buf[4];
932         *h = (buf[1] << 8) | buf[2];
933         return( 0 );
934 }
935
936
937 /* ---------------------------------------------------------------------- */
938 /*                                                              Initialization                                                    */
939
940
941 int attach_slm( int target, int lun )
942
943 {       static int      did_register;
944         int                     len;
945
946         if (N_SLM_Printers >= MAX_SLM) {
947                 printk( KERN_WARNING "Too much SLMs\n" );
948                 return( 0 );
949         }
950         
951         /* do an INQUIRY */
952         udelay(100);
953         CMDSET_TARG_LUN( slminquiry_cmd, target, lun );
954         if (!acsicmd_nodma( slminquiry_cmd, 0 )) {
955           inq_timeout:
956                 printk( KERN_ERR "SLM inquiry command timed out.\n" );
957           inq_fail:
958                 acsi_end_extstatus();
959                 return( 0 );
960         }
961         /* read status and header of return data */
962         if (!acsi_extstatus( SLMBuffer, 6 ))
963                 goto inq_timeout;
964
965         if (SLMBuffer[1] != 2) { /* device type == printer? */
966                 printk( KERN_ERR "SLM inquiry returned device type != printer\n" );
967                 goto inq_fail;
968         }
969         len = SLMBuffer[5];
970         
971         /* read id string */
972         if (!acsi_extstatus( SLMBuffer, len ))
973                 goto inq_timeout;
974         acsi_end_extstatus();
975         SLMBuffer[len] = 0;
976
977         if (!did_register) {
978                 did_register = 1;
979         }
980
981         slm_info[N_SLM_Printers].target = target;
982         slm_info[N_SLM_Printers].lun    = lun;
983         atomic_set(&slm_info[N_SLM_Printers].wr_ok, 1 ); 
984         atomic_set(&slm_info[N_SLM_Printers].rd_ok, 1 );
985         
986         printk( KERN_INFO "  Printer: %s\n", SLMBuffer );
987         printk( KERN_INFO "Detected slm%d at id %d lun %d\n",
988                         N_SLM_Printers, target, lun );
989         N_SLM_Printers++;
990         return( 1 );
991 }
992
993 int slm_init( void )
994
995 {
996         int i;
997         if (register_chrdev( ACSI_MAJOR, "slm", &slm_fops )) {
998                 printk( KERN_ERR "Unable to get major %d for ACSI SLM\n", ACSI_MAJOR );
999                 return -EBUSY;
1000         }
1001         
1002         if (!(SLMBuffer = atari_stram_alloc( SLM_BUFFER_SIZE, "SLM" ))) {
1003                 printk( KERN_ERR "Unable to get SLM ST-Ram buffer.\n" );
1004                 unregister_chrdev( ACSI_MAJOR, "slm" );
1005                 return -ENOMEM;
1006         }
1007         BufferP = SLMBuffer;
1008         SLMState = IDLE;
1009         
1010         devfs_mk_dir("slm");
1011         for (i = 0; i < MAX_SLM; i++) {
1012                 devfs_mk_cdev(MKDEV(ACSI_MAJOR, i),
1013                                 S_IFCHR|S_IRUSR|S_IWUSR, "slm/%d", i);
1014         }
1015         return 0;
1016 }
1017
1018 #ifdef MODULE
1019
1020 /* from acsi.c */
1021 void acsi_attach_SLMs( int (*attach_func)( int, int ) );
1022
1023 int init_module(void)
1024 {
1025         int err;
1026
1027         if ((err = slm_init()))
1028                 return( err );
1029         /* This calls attach_slm() for every target/lun where acsi.c detected a
1030          * printer */
1031         acsi_attach_SLMs( attach_slm );
1032         return( 0 );
1033 }
1034
1035 void cleanup_module(void)
1036 {
1037         int i;
1038         for (i = 0; i < MAX_SLM; i++)
1039                 devfs_remove("slm/%d", i);
1040         devfs_remove("slm");
1041         if (unregister_chrdev( ACSI_MAJOR, "slm" ) != 0)
1042                 printk( KERN_ERR "acsi_slm: cleanup_module failed\n");
1043         atari_stram_free( SLMBuffer );
1044 }
1045 #endif