drivers/char/lp.c

   1 /*
   2  * Generic parallel printer driver
   3  *
   4  * Copyright (C) 1992 by Jim Weigand and Linus Torvalds
   5  * Copyright (C) 1992,1993 by Michael K. Johnson
   6  * - Thanks much to Gunter Windau for pointing out to me where the error
   7  *   checking ought to be.
   8  * Copyright (C) 1993 by Nigel Gamble (added interrupt code)
   9  * Copyright (C) 1994 by Alan Cox (Modularised it)
  10  * LPCAREFUL, LPABORT, LPGETSTATUS added by Chris Metcalf, metcalf@lcs.mit.edu
  11  * Statistics and support for slow printers by Rob Janssen, rob@knoware.nl
  12  * "lp=" command line parameters added by Grant Guenther, grant@torque.net
  13  * lp_read (Status readback) support added by Carsten Gross,
  14  *                                             carsten@sol.wohnheim.uni-ulm.de
  15  * Support for parport by Philip Blundell <Philip.Blundell@pobox.com>
  16  * Parport sharing hacking by Andrea Arcangeli <arcangeli@mbox.queen.it>
  17  * Fixed kernel_(to/from)_user memory copy to check for errors
  18  *                              by Riccardo Facchetti <fizban@tin.it>
  19  * Interrupt handling workaround for printers with buggy handshake
  20  *                              by Andrea Arcangeli, 11 May 98
  21  */
  22
  23 /* This driver should, in theory, work with any parallel port that has an
  24  * appropriate low-level driver; all I/O is done through the parport
  25  * abstraction layer.
  26  *
  27  * If this driver is built into the kernel, you can configure it using the
  28  * kernel command-line.  For example:
  29  *
  30  *      lp=parport1,none,parport2       (bind lp0 to parport1, disable lp1 and
  31  *                                       bind lp2 to parport2)
  32  *
  33  *      lp=auto                         (assign lp devices to all ports that
  34  *                                       have printers attached, as determined
  35  *                                       by the IEEE-1284 autoprobe)
  36  *
  37  *      lp=reset                        (reset the printer during
  38  *                                       initialisation)
  39  *
  40  *      lp=off                          (disable the printer driver entirely)
  41  *
  42  * If the driver is loaded as a module, similar functionality is available
  43  * using module parameters.  The equivalent of the above commands would be:
  44  *
  45  *      # insmod lp.o parport=1,none,2
  46  *
  47  *      # insmod lp.o parport=auto
  48  *
  49  *      # insmod lp.o reset=1
  50  */
  51
  52 /* COMPATIBILITY WITH OLD KERNELS
  53  *
  54  * Under Linux 2.0 and previous versions, lp devices were bound to ports at
  55  * particular I/O addresses, as follows:
  56  *
  57  *      lp0             0x3bc
  58  *      lp1             0x378
  59  *      lp2             0x278
  60  *
  61  * The new driver, by default, binds lp devices to parport devices as it
  62  * finds them.  This means that if you only have one port, it will be bound
  63  * to lp0 regardless of its I/O address.  If you need the old behaviour, you
  64  * can force it using the parameters described above.
  65  */
  66
  67 /*
  68  * The new interrupt handling code take care of the buggy handshake
  69  * of some HP and Epson printer:
  70  * ___
  71  * ACK    _______________    ___________
  72  *                       |__|
  73  * ____
  74  * BUSY   _________              _______
  75  *                 |____________|
  76  *
  77  * I discovered this using the printer scanner that you can find at:
  78  *
  79  *      ftp://e-mind.com/pub/linux/pscan/
  80  *
  81  *                                      11 May 98, Andrea Arcangeli
  82  */
  83
  84 #include <linux/module.h>
  85 #include <linux/init.h>
  86
  87 #include <linux/config.h>
  88 #include <linux/errno.h>
  89 #include <linux/kernel.h>
  90 #include <linux/major.h>
  91 #include <linux/sched.h>
  92 #include <linux/malloc.h>
  93 #include <linux/fcntl.h>
  94 #include <linux/delay.h>
  95
  96 #include <linux/parport.h>
  97 #undef LP_STATS
  98 #undef LP_NEED_CAREFUL
  99 #include <linux/lp.h>
 100
 101 #include <asm/irq.h>
 102 #include <asm/uaccess.h>
 103 #include <asm/system.h>
 104
 105 /* if you have more than 3 printers, remember to increase LP_NO */
 106 #define LP_NO 3
 107
 108 struct lp_struct lp_table[LP_NO] =
 109 {
 110         [0 ... LP_NO-1] = {NULL, 0, LP_INIT_CHAR, LP_INIT_TIME, LP_INIT_WAIT,
 111                            NULL,
 112 #ifdef LP_STATS
 113                            0, 0, {0},
 114 #endif
 115                            NULL, 0, 0, 0}
 116 };
 117
 118 /* Test if printer is ready (and optionally has no error conditions) */
 119 #ifdef LP_NEED_CAREFUL
 120 #define LP_READY(minor, status) \
 121   ((LP_F(minor) & LP_CAREFUL) ? _LP_CAREFUL_READY(status) : ((status) & LP_PBUSY))
 122 #define _LP_CAREFUL_READY(status) \
 123    ((status) & (LP_PBUSY|LP_POUTPA|LP_PSELECD|LP_PERRORP)) == \
 124       (LP_PBUSY|LP_PSELECD|LP_PERRORP)
 125 #else
 126 #define LP_READY(minor, status) ((status) & LP_PBUSY)
 127 #endif
 128
 129 #undef LP_DEBUG
 130 #undef LP_READ_DEBUG
 131
 132 /* --- parport support ----------------------------------------- */
 133
 134 static int lp_preempt(void *handle)
 135 {
 136        struct lp_struct *lps = (struct lp_struct *)handle;
 137
 138        if (waitqueue_active (&lps->wait_q))
 139                wake_up_interruptible(&lps->wait_q);
 140
 141        /* Don't actually release the port now */
 142        return 1;
 143 }
 144
 145 #define lp_parport_release(x)   do { parport_release(lp_table[(x)].dev); } while (0);
 146 #define lp_parport_claim(x)     do { parport_claim_or_block(lp_table[(x)].dev); } while (0);
 147
 148 /* --- low-level port access ----------------------------------- */
 149
 150 #define r_dtr(x)        (parport_read_data(lp_table[(x)].dev->port))
 151 #define r_str(x)        (parport_read_status(lp_table[(x)].dev->port))
 152 #define w_ctr(x,y)      do { parport_write_control(lp_table[(x)].dev->port, (y)); } while (0)
 153 #define w_dtr(x,y)      do { parport_write_data(lp_table[(x)].dev->port, (y)); } while (0)
 154
 155 static __inline__ void lp_yield (int minor)
 156 {
 157         if (!parport_yield_blocking (lp_table[minor].dev))
 158         {
 159                 if (current->need_resched)
 160                         schedule ();
 161         } else
 162                 lp_table[minor].irq_missed = 1;
 163 }
 164
 165 static __inline__ void lp_schedule(int minor)
 166 {
 167         struct pardevice *dev = lp_table[minor].dev;
 168         register unsigned long int timeslip = (jiffies - dev->time);
 169         if ((timeslip > dev->timeslice) && (dev->port->waithead != NULL)) {
 170                 lp_parport_release(minor);
 171                 lp_table[minor].irq_missed = 1;
 172                 schedule ();
 173                 lp_parport_claim(minor);
 174         } else
 175                 schedule();
 176 }
 177
 178 static int lp_reset(int minor)
 179 {
 180         int retval;
 181         lp_parport_claim (minor);
 182         w_ctr(minor, LP_PSELECP);
 183         udelay (LP_DELAY);
 184         w_ctr(minor, LP_PSELECP | LP_PINITP);
 185         retval = r_str(minor);
 186         lp_parport_release (minor);
 187         return retval;
 188 }
 189
 190 static inline int lp_char(char lpchar, int minor)
 191 {
 192         unsigned int wait = 0;
 193         unsigned long count = 0;
 194 #ifdef LP_STATS
 195         struct lp_stats *stats;
 196 #endif
 197
 198         for (;;)
 199         {
 200                 lp_yield(minor);
 201                 if (LP_READY(minor, r_str(minor)))
 202                         break;
 203                 if (++count == LP_CHAR(minor) || signal_pending(current))
 204                         return 0;
 205         }
 206
 207         w_dtr(minor, lpchar);
 208 #ifdef LP_STATS
 209         stats = &LP_STAT(minor);
 210         stats->chars++;
 211 #endif
 212         /* must wait before taking strobe high, and after taking strobe
 213            low, according spec.  Some printers need it, others don't. */
 214 #ifndef __sparc__
 215         while (wait != LP_WAIT(minor)) /* FIXME: should be a udelay() */
 216                 wait++;
 217 #else
 218         udelay(1);
 219 #endif
 220         /* control port takes strobe high */
 221         w_ctr(minor, LP_PSELECP | LP_PINITP | LP_PSTROBE);
 222 #ifndef __sparc__
 223         while (wait)                    /* FIXME: should be a udelay() */
 224                 wait--;
 225 #else
 226         udelay(1);
 227 #endif
 228         /* take strobe low */
 229         if (LP_POLLED(minor))
 230                 /* take strobe low */
 231                 w_ctr(minor, LP_PSELECP | LP_PINITP);
 232         else
 233         {
 234                 lp_table[minor].irq_detected = 0;
 235                 lp_table[minor].irq_missed = 0;
 236                 w_ctr(minor, LP_PSELECP | LP_PINITP | LP_PINTEN);
 237         }
 238
 239 #ifdef LP_STATS
 240         /* update waittime statistics */
 241         if (count > stats->maxwait) {
 242 #ifdef LP_DEBUG
 243                 printk(KERN_DEBUG "lp%d success after %d counts.\n", minor, count);
 244 #endif
 245                 stats->maxwait = count;
 246         }
 247         count *= 256;
 248         wait = (count > stats->meanwait) ? count - stats->meanwait :
 249             stats->meanwait - count;
 250         stats->meanwait = (255 * stats->meanwait + count + 128) / 256;
 251         stats->mdev = ((127 * stats->mdev) + wait + 64) / 128;
 252 #endif
 253
 254         return 1;
 255 }
 256
 257 static void lp_interrupt(int irq, void *dev_id, struct pt_regs *regs)
 258 {
 259         struct lp_struct *lp_dev = (struct lp_struct *) dev_id;
 260
 261         if (waitqueue_active (&lp_dev->wait_q))
 262                 wake_up_interruptible(&lp_dev->wait_q);
 263
 264         lp_dev->irq_detected = 1;
 265         lp_dev->irq_missed = 0;
 266 }
 267
 268 static void lp_error(int minor)
 269 {
 270         if (LP_POLLED(minor) || LP_PREEMPTED(minor)) {
 271                 current->state = TASK_INTERRUPTIBLE;
 272                 current->timeout = jiffies + LP_TIMEOUT_POLLED;
 273                 lp_parport_release(minor);
 274                 schedule();
 275                 lp_parport_claim(minor);
 276                 lp_table[minor].irq_missed = 1;
 277         }
 278 }
 279
 280 static int lp_check_status(int minor)
 281 {
 282         unsigned int last = lp_table[minor].last_error;
 283         unsigned char status = r_str(minor);
 284         if ((status & LP_POUTPA)) {
 285                 if (last != LP_POUTPA) {
 286                         last = LP_POUTPA;
 287                         printk(KERN_INFO "lp%d out of paper\n", minor);
 288                 }
 289         } else if (!(status & LP_PSELECD)) {
 290                 if (last != LP_PSELECD) {
 291                         last = LP_PSELECD;
 292                         printk(KERN_INFO "lp%d off-line\n", minor);
 293                 }
 294         } else if (!(status & LP_PERRORP)) {
 295                 if (last != LP_PERRORP) {
 296                         last = LP_PERRORP;
 297                         printk(KERN_ERR "lp%d on fire!\n", minor);
 298                 }
 299         }
 300         else last = 0;
 301
 302         lp_table[minor].last_error = last;
 303
 304         if (last != 0) {
 305                 if (LP_F(minor) & LP_ABORT)
 306                         return 1;
 307                 lp_error(minor);
 308         }
 309
 310         return 0;
 311 }
 312
 313 static int lp_write_buf(unsigned int minor, const char *buf, int count)
 314 {
 315         unsigned long copy_size;
 316         unsigned long total_bytes_written = 0;
 317         unsigned long bytes_written;
 318         struct lp_struct *lp = &lp_table[minor];
 319
 320         if (minor >= LP_NO)
 321                 return -ENXIO;
 322         if (lp->dev == NULL)
 323                 return -ENXIO;
 324
 325         lp_table[minor].last_error = 0;
 326         lp_table[minor].irq_detected = 0;
 327         lp_table[minor].irq_missed = 1;
 328
 329         w_ctr(minor, LP_PSELECP | LP_PINITP);
 330
 331         do {
 332                 bytes_written = 0;
 333                 copy_size = (count <= LP_BUFFER_SIZE ? count : LP_BUFFER_SIZE);
 334
 335                 if (copy_from_user(lp->lp_buffer, buf, copy_size))
 336                 {
 337                         w_ctr(minor, LP_PSELECP | LP_PINITP);
 338                         return -EFAULT;
 339                 }
 340
 341                 while (copy_size) {
 342                         if (lp_char(lp->lp_buffer[bytes_written], minor)) {
 343                                 --copy_size;
 344                                 ++bytes_written;
 345 #ifdef LP_STATS
 346                                 lp->runchars++;
 347 #endif
 348                         } else {
 349                                 int rc = total_bytes_written + bytes_written;
 350
 351 #ifdef LP_STATS
 352                                 if (lp->runchars > LP_STAT(minor).maxrun)
 353                                         LP_STAT(minor).maxrun = lp->runchars;
 354                                 LP_STAT(minor).sleeps++;
 355 #endif
 356
 357                                 if (signal_pending(current))
 358                                 {
 359                                         w_ctr(minor, LP_PSELECP | LP_PINITP);
 360                                         if (total_bytes_written + bytes_written)
 361                                                 return total_bytes_written + bytes_written;
 362                                         else
 363                                                 return -EINTR;
 364                                 }
 365
 366 #ifdef LP_STATS
 367                                 lp->runchars = 0;
 368 #endif
 369
 370                                 if (lp_check_status(minor))
 371                                 {
 372                                         w_ctr(minor, LP_PSELECP | LP_PINITP);
 373                                         return rc ? rc : -EIO;
 374                                 }
 375
 376                                 if (LP_POLLED(minor) ||
 377                                     lp_table[minor].irq_missed)
 378                                 {
 379                                 lp_polling:
 380 #if defined(LP_DEBUG) && defined(LP_STATS)
 381                                         printk(KERN_DEBUG "lp%d sleeping at %d characters for %d jiffies\n", minor, lp->runchars, LP_TIME(minor));
 382 #endif
 383                                         current->state = TASK_INTERRUPTIBLE;
 384                                         current->timeout = jiffies + LP_TIME(minor);
 385                                         lp_schedule (minor);
 386                                 } else {
 387                                         cli();
 388                                         if (LP_PREEMPTED(minor))
 389                                         {
 390                                                 /*
 391                                                  * We can' t sleep on the interrupt
 392                                                  * since another pardevice need the port.
 393                                                  * We must check this in a cli() protected
 394                                                  * envinroment to avoid parport sharing
 395                                                  * starvation.
 396                                                  */
 397                                                 sti();
 398                                                 goto lp_polling;
 399                                         }
 400                                         if (!lp_table[minor].irq_detected)
 401                                         {
 402                                                 current->timeout = jiffies + LP_TIMEOUT_INTERRUPT;
 403                                                 interruptible_sleep_on(&lp->wait_q);
 404                                         }
 405                                         sti();
 406                                 }
 407                         }
 408                 }
 409
 410                 total_bytes_written += bytes_written;
 411                 buf += bytes_written;
 412                 count -= bytes_written;
 413
 414         } while (count > 0);
 415
 416         w_ctr(minor, LP_PSELECP | LP_PINITP);
 417         return total_bytes_written;
 418 }
 419
 420 static ssize_t lp_write(struct file * file, const char * buf,
 421                         size_t count, loff_t *ppos)
 422 {
 423         unsigned int minor = MINOR(file->f_dentry->d_inode->i_rdev);
 424         ssize_t retv;
 425
 426 #ifdef LP_STATS
 427         if (jiffies-lp_table[minor].lastcall > LP_TIME(minor))
 428                 lp_table[minor].runchars = 0;
 429
 430         lp_table[minor].lastcall = jiffies;
 431 #endif
 432
 433         /* Claim Parport or sleep until it becomes available
 434          */
 435         lp_parport_claim (minor);
 436
 437         retv = lp_write_buf(minor, buf, count);
 438
 439         lp_parport_release (minor);
 440         return retv;
 441 }
 442
 443 static long long lp_lseek(struct file * file, long long offset, int origin)
 444 {
 445         return -ESPIPE;
 446 }
 447
 448 #ifdef CONFIG_PRINTER_READBACK
 449
 450 static int lp_read_nibble(int minor)
 451 {
 452         unsigned char i;
 453         i = r_str(minor)>>3;
 454         i &= ~8;
 455         if ((i & 0x10) == 0) i |= 8;
 456         return (i & 0x0f);
 457 }
 458
 459 static inline void lp_select_in_high(int minor)
 460 {
 461         parport_frob_control(lp_table[minor].dev->port, 8, 8);
 462 }
 463
 464 /* Status readback confirming to ieee1284 */
 465 static ssize_t lp_read(struct file * file, char * buf,
 466                        size_t count, loff_t *ppos)
 467 {
 468         unsigned char z=0, Byte=0, status;
 469         char *temp;
 470         ssize_t retval;
 471         unsigned int counter=0;
 472         unsigned int i;
 473         unsigned int minor=MINOR(file->f_dentry->d_inode->i_rdev);
 474
 475         /* Claim Parport or sleep until it becomes available
 476          */
 477         lp_parport_claim (minor);
 478
 479         temp=buf;
 480 #ifdef LP_READ_DEBUG
 481         printk(KERN_INFO "lp%d: read mode\n", minor);
 482 #endif
 483
 484         retval = verify_area(VERIFY_WRITE, buf, count);
 485         if (retval)
 486                 return retval;
 487         if (parport_ieee1284_nibble_mode_ok(lp_table[minor].dev->port, 0)==0) {
 488 #ifdef LP_READ_DEBUG
 489                 printk(KERN_INFO "lp%d: rejected IEEE1284 negotiation.\n",
 490                        minor);
 491 #endif
 492                 lp_select_in_high(minor);
 493                 parport_release(lp_table[minor].dev);
 494                 return temp-buf;          /*  End of file */
 495         }
 496         for (i=0; i<=(count*2); i++) {
 497                 parport_frob_control(lp_table[minor].dev->port, 2, 2); /* AutoFeed high */
 498                 do {
 499                         status = (r_str(minor) & 0x40);
 500                         udelay(50);
 501                         counter++;
 502                         if (current->need_resched)
 503                                 schedule ();
 504                 } while ((status == 0x40) && (counter < 20));
 505                 if (counter == 20) {
 506                         /* Timeout */
 507 #ifdef LP_READ_DEBUG
 508                         printk(KERN_DEBUG "lp_read: (Autofeed high) timeout\n");
 509 #endif
 510                         parport_frob_control(lp_table[minor].dev->port, 2, 0);
 511                         lp_select_in_high(minor);
 512                         parport_release(lp_table[minor].dev);
 513                         return temp-buf; /* end the read at timeout */
 514                 }
 515                 counter=0;
 516                 z = lp_read_nibble(minor);
 517                 parport_frob_control(lp_table[minor].dev->port, 2, 0); /* AutoFeed low */
 518                 do {
 519                         status=(r_str(minor) & 0x40);
 520                         udelay(20);
 521                         counter++;
 522                         if (current->need_resched)
 523                                 schedule ();
 524                 } while ( (status == 0) && (counter < 20) );
 525                 if (counter == 20) { /* Timeout */
 526 #ifdef LP_READ_DEBUG
 527                         printk(KERN_DEBUG "lp_read: (Autofeed low) timeout\n");
 528 #endif
 529                         if (signal_pending(current)) {
 530                                 lp_select_in_high(minor);
 531                                 parport_release(lp_table[minor].dev);
 532                                 if (temp !=buf)
 533                                         return temp-buf;
 534                                 else
 535                                         return -EINTR;
 536                         }
 537                         current->state=TASK_INTERRUPTIBLE;
 538                         current->timeout=jiffies + LP_TIME(minor);
 539                         schedule ();
 540                 }
 541
 542                 counter=0;
 543
 544                 if (( i & 1) != 0) {
 545                         Byte= (Byte | z<<4);
 546                         if (put_user(Byte, (char *)temp))
 547                                 return -EFAULT;
 548                         temp++;
 549                 } else Byte=z;
 550         }
 551
 552         lp_select_in_high(minor);
 553         lp_parport_release(minor);
 554         return temp-buf;
 555 }
 556
 557 #endif
 558
 559 static int lp_open(struct inode * inode, struct file * file)
 560 {
 561         unsigned int minor = MINOR(inode->i_rdev);
 562
 563         if (minor >= LP_NO)
 564                 return -ENXIO;
 565         if ((LP_F(minor) & LP_EXIST) == 0)
 566                 return -ENXIO;
 567         if (test_and_set_bit(LP_BUSY_BIT_POS, &LP_F(minor)))
 568                 return -EBUSY;
 569
 570         MOD_INC_USE_COUNT;
 571
 572         /* If ABORTOPEN is set and the printer is offline or out of paper,
 573            we may still want to open it to perform ioctl()s.  Therefore we
 574            have commandeered O_NONBLOCK, even though it is being used in
 575            a non-standard manner.  This is strictly a Linux hack, and
 576            should most likely only ever be used by the tunelp application. */
 577         if ((LP_F(minor) & LP_ABORTOPEN) && !(file->f_flags & O_NONBLOCK)) {
 578                 int status;
 579                 lp_parport_claim (minor);
 580                 status = r_str(minor);
 581                 lp_parport_release (minor);
 582                 if (status & LP_POUTPA) {
 583                         printk(KERN_INFO "lp%d out of paper\n", minor);
 584                         MOD_DEC_USE_COUNT;
 585                         LP_F(minor) &= ~LP_BUSY;
 586                         return -ENOSPC;
 587                 } else if (!(status & LP_PSELECD)) {
 588                         printk(KERN_INFO "lp%d off-line\n", minor);
 589                         MOD_DEC_USE_COUNT;
 590                         LP_F(minor) &= ~LP_BUSY;
 591                         return -EIO;
 592                 } else if (!(status & LP_PERRORP)) {
 593                         printk(KERN_ERR "lp%d printer error\n", minor);
 594                         MOD_DEC_USE_COUNT;
 595                         LP_F(minor) &= ~LP_BUSY;
 596                         return -EIO;
 597                 }
 598         }
 599         lp_table[minor].lp_buffer = (char *) kmalloc(LP_BUFFER_SIZE, GFP_KERNEL);
 600         if (!lp_table[minor].lp_buffer) {
 601                 MOD_DEC_USE_COUNT;
 602                 LP_F(minor) &= ~LP_BUSY;
 603                 return -ENOMEM;
 604         }
 605         return 0;
 606 }
 607
 608 static int lp_release(struct inode * inode, struct file * file)
 609 {
 610         unsigned int minor = MINOR(inode->i_rdev);
 611
 612         kfree_s(lp_table[minor].lp_buffer, LP_BUFFER_SIZE);
 613         lp_table[minor].lp_buffer = NULL;
 614         MOD_DEC_USE_COUNT;
 615         LP_F(minor) &= ~LP_BUSY;
 616         return 0;
 617 }
 618
 619 static int lp_ioctl(struct inode *inode, struct file *file,
 620                     unsigned int cmd, unsigned long arg)
 621 {
 622         unsigned int minor = MINOR(inode->i_rdev);
 623         int status;
 624         int retval = 0;
 625
 626 #ifdef LP_DEBUG
 627         printk(KERN_DEBUG "lp%d ioctl, cmd: 0x%x, arg: 0x%x\n", minor, cmd, arg);
 628 #endif
 629         if (minor >= LP_NO)
 630                 return -ENODEV;
 631         if ((LP_F(minor) & LP_EXIST) == 0)
 632                 return -ENODEV;
 633         switch ( cmd ) {
 634                 case LPTIME:
 635                         LP_TIME(minor) = arg * HZ/100;
 636                         break;
 637                 case LPCHAR:
 638                         LP_CHAR(minor) = arg;
 639                         break;
 640                 case LPABORT:
 641                         if (arg)
 642                                 LP_F(minor) |= LP_ABORT;
 643                         else
 644                                 LP_F(minor) &= ~LP_ABORT;
 645                         break;
 646                 case LPABORTOPEN:
 647                         if (arg)
 648                                 LP_F(minor) |= LP_ABORTOPEN;
 649                         else
 650                                 LP_F(minor) &= ~LP_ABORTOPEN;
 651                         break;
 652 #ifdef LP_NEED_CAREFUL
 653                 case LPCAREFUL:
 654                         if (arg)
 655                                 LP_F(minor) |= LP_CAREFUL;
 656                         else
 657                                 LP_F(minor) &= ~LP_CAREFUL;
 658                         break;
 659 #endif
 660                 case LPWAIT:
 661                         LP_WAIT(minor) = arg;
 662                         break;
 663                 case LPSETIRQ:
 664                         return -EINVAL;
 665                         break;
 666                 case LPGETIRQ:
 667                         if (copy_to_user((int *) arg, &LP_IRQ(minor),
 668                                         sizeof(int)))
 669                                 return -EFAULT;
 670                         break;
 671                 case LPGETSTATUS:
 672                         lp_parport_claim(minor);
 673                         status = r_str(minor);
 674                         lp_parport_release(minor);
 675
 676                         if (copy_to_user((int *) arg, &status, sizeof(int)))
 677                                 return -EFAULT;
 678                         break;
 679                 case LPRESET:
 680                         lp_reset(minor);
 681                         break;
 682 #ifdef LP_STATS
 683                 case LPGETSTATS:
 684                         if (copy_to_user((int *) arg, &LP_STAT(minor),
 685                                         sizeof(struct lp_stats)))
 686                                 return -EFAULT;
 687                         if (suser())
 688                                 memset(&LP_STAT(minor), 0,
 689                                                 sizeof(struct lp_stats));
 690                         break;
 691 #endif
 692                 case LPGETFLAGS:
 693                         status = LP_F(minor);
 694                         if (copy_to_user((int *) arg, &status, sizeof(int)))
 695                                 return -EFAULT;
 696                         break;
 697                 default:
 698                         retval = -EINVAL;
 699         }
 700         return retval;
 701 }
 702
 703
 704 static struct file_operations lp_fops = {
 705         lp_lseek,
 706 #ifdef CONFIG_PRINTER_READBACK
 707         lp_read,
 708 #else
 709         NULL,
 710 #endif
 711         lp_write,
 712         NULL,           /* lp_readdir */
 713         NULL,           /* lp_poll */
 714         lp_ioctl,
 715         NULL,           /* lp_mmap */
 716         lp_open,
 717         NULL,           /* flush */
 718         lp_release
 719 };
 720
 721 /* --- initialisation code ------------------------------------- */
 722
 723 #ifdef MODULE
 724
 725 static int parport_nr[LP_NO] = { [0 ... LP_NO-1] = LP_PARPORT_UNSPEC };
 726 static char *parport[LP_NO] = { NULL,  };
 727 static int reset = 0;
 728
 729 MODULE_PARM(parport, "1-" __MODULE_STRING(LP_NO) "s");
 730 MODULE_PARM(reset, "i");
 731
 732 #else
 733
 734 static int parport_nr[LP_NO] __initdata = { [0 ... LP_NO-1] = LP_PARPORT_UNSPEC };
 735 static int reset __initdata = 0;
 736
 737 static int parport_ptr = 0;
 738
 739 __initfunc(void lp_setup(char *str, int *ints))
 740 {
 741         if (!str) {
 742                 if (ints[0] == 0 || ints[1] == 0) {
 743                         /* disable driver on "lp=" or "lp=0" */
 744                         parport_nr[0] = LP_PARPORT_OFF;
 745                 } else {
 746                         printk(KERN_WARNING "warning: 'lp=0x%x' is deprecated, ignored\n", ints[1]);
 747                 }
 748         } else if (!strncmp(str, "parport", 7)) {
 749                 int n = simple_strtoul(str+7, NULL, 10);
 750                 if (parport_ptr < LP_NO)
 751                         parport_nr[parport_ptr++] = n;
 752                 else
 753                         printk(KERN_INFO "lp: too many ports, %s ignored.\n",
 754                                str);
 755         } else if (!strcmp(str, "auto")) {
 756                 parport_nr[0] = LP_PARPORT_AUTO;
 757         } else if (!strcmp(str, "none")) {
 758                 parport_nr[parport_ptr++] = LP_PARPORT_NONE;
 759         } else if (!strcmp(str, "reset")) {
 760                 reset = 1;
 761         }
 762 }
 763
 764 #endif
 765
 766 int lp_register(int nr, struct parport *port)
 767 {
 768         lp_table[nr].dev = parport_register_device(port, "lp",
 769                                                    lp_preempt, NULL,
 770                                                    lp_interrupt,
 771                                                    PARPORT_DEV_TRAN,
 772                                                    (void *) &lp_table[nr]);
 773         if (lp_table[nr].dev == NULL)
 774                 return 1;
 775         lp_table[nr].flags |= LP_EXIST;
 776
 777         if (reset)
 778                 lp_reset(nr);
 779
 780         printk(KERN_INFO "lp%d: using %s (%s).\n", nr, port->name,
 781                (port->irq == PARPORT_IRQ_NONE)?"polling":"interrupt-driven");
 782
 783         return 0;
 784 }
 785
 786 int lp_init(void)
 787 {
 788         unsigned int count = 0;
 789         unsigned int i;
 790         struct parport *port;
 791
 792         switch (parport_nr[0])
 793         {
 794         case LP_PARPORT_OFF:
 795                 return 0;
 796
 797         case LP_PARPORT_UNSPEC:
 798         case LP_PARPORT_AUTO:
 799                 for (port = parport_enumerate(); port; port = port->next) {
 800
 801                         if (parport_nr[0] == LP_PARPORT_AUTO &&
 802                             port->probe_info.class != PARPORT_CLASS_PRINTER)
 803                                 continue;
 804
 805                         if (!lp_register(count, port))
 806                                 if (++count == LP_NO)
 807                                         break;
 808                 }
 809                 break;
 810
 811         default:
 812                 for (i = 0; i < LP_NO; i++) {
 813                         if (parport_nr[i] >= 0) {
 814                                 char buffer[16];
 815                                 sprintf(buffer, "parport%d", parport_nr[i]);
 816                                 for (port = parport_enumerate(); port;
 817                                      port = port->next) {
 818                                         if (!strcmp(port->name, buffer)) {
 819                                                 (void) lp_register(i, port);
 820                                                 count++;
 821                                                 break;
 822                                         }
 823                                 }
 824                         }
 825                 }
 826                 break;
 827         }
 828
 829         if (count) {
 830                 if (register_chrdev(LP_MAJOR, "lp", &lp_fops)) {
 831                         printk("lp: unable to get major %d\n", LP_MAJOR);
 832                         return -EIO;
 833                 }
 834         } else {
 835                 printk(KERN_INFO "lp: driver loaded but no devices found\n");
 836         }
 837
 838         return 0;
 839 }
 840
 841 #ifdef MODULE
 842 int init_module(void)
 843 {
 844         if (parport[0]) {
 845                 /* The user gave some parameters.  Let's see what they were.  */
 846                 if (!strncmp(parport[0], "auto", 4))
 847                         parport_nr[0] = LP_PARPORT_AUTO;
 848                 else {
 849                         int n;
 850                         for (n = 0; n < LP_NO && parport[n]; n++) {
 851                                 if (!strncmp(parport[n], "none", 4))
 852                                         parport_nr[n] = LP_PARPORT_NONE;
 853                                 else {
 854                                         char *ep;
 855                                         unsigned long r = simple_strtoul(parport[n], &ep, 0);
 856                                         if (ep != parport[n])
 857                                                 parport_nr[n] = r;
 858                                         else {
 859                                                 printk(KERN_ERR "lp: bad port specifier `%s'\n", parport[n]);
 860                                                 return -ENODEV;
 861                                         }
 862                                 }
 863                         }
 864                 }
 865         }
 866
 867         return lp_init();
 868 }
 869
 870 void cleanup_module(void)
 871 {
 872         unsigned int offset;
 873
 874         unregister_chrdev(LP_MAJOR, "lp");
 875         for (offset = 0; offset < LP_NO; offset++) {
 876                 if (lp_table[offset].dev == NULL)
 877                         continue;
 878                 parport_unregister_device(lp_table[offset].dev);
 879         }
 880 }
 881 #endif