Merge branch 'perf-urgent-for-linus' of git://git.kernel.org/pub/scm/linux/kernel...
[linux-2.6-microblaze.git] / drivers / parport / share.c
1 /*
2  * Parallel-port resource manager code.
3  * 
4  * Authors: David Campbell <campbell@tirian.che.curtin.edu.au>
5  *          Tim Waugh <tim@cyberelk.demon.co.uk>
6  *          Jose Renau <renau@acm.org>
7  *          Philip Blundell <philb@gnu.org>
8  *          Andrea Arcangeli
9  *
10  * based on work by Grant Guenther <grant@torque.net>
11  *          and Philip Blundell
12  *
13  * Any part of this program may be used in documents licensed under
14  * the GNU Free Documentation License, Version 1.1 or any later version
15  * published by the Free Software Foundation.
16  */
17
18 #undef PARPORT_DEBUG_SHARING            /* undef for production */
19
20 #include <linux/module.h>
21 #include <linux/string.h>
22 #include <linux/threads.h>
23 #include <linux/parport.h>
24 #include <linux/delay.h>
25 #include <linux/errno.h>
26 #include <linux/interrupt.h>
27 #include <linux/ioport.h>
28 #include <linux/kernel.h>
29 #include <linux/slab.h>
30 #include <linux/sched.h>
31 #include <linux/kmod.h>
32
33 #include <linux/spinlock.h>
34 #include <linux/mutex.h>
35 #include <asm/irq.h>
36
37 #undef PARPORT_PARANOID
38
39 #define PARPORT_DEFAULT_TIMESLICE       (HZ/5)
40
41 unsigned long parport_default_timeslice = PARPORT_DEFAULT_TIMESLICE;
42 int parport_default_spintime =  DEFAULT_SPIN_TIME;
43
44 static LIST_HEAD(portlist);
45 static DEFINE_SPINLOCK(parportlist_lock);
46
47 /* list of all allocated ports, sorted by ->number */
48 static LIST_HEAD(all_ports);
49 static DEFINE_SPINLOCK(full_list_lock);
50
51 static LIST_HEAD(drivers);
52
53 static DEFINE_MUTEX(registration_lock);
54
55 /* What you can do to a port that's gone away.. */
56 static void dead_write_lines (struct parport *p, unsigned char b){}
57 static unsigned char dead_read_lines (struct parport *p) { return 0; }
58 static unsigned char dead_frob_lines (struct parport *p, unsigned char b,
59                              unsigned char c) { return 0; }
60 static void dead_onearg (struct parport *p){}
61 static void dead_initstate (struct pardevice *d, struct parport_state *s) { }
62 static void dead_state (struct parport *p, struct parport_state *s) { }
63 static size_t dead_write (struct parport *p, const void *b, size_t l, int f)
64 { return 0; }
65 static size_t dead_read (struct parport *p, void *b, size_t l, int f)
66 { return 0; }
67 static struct parport_operations dead_ops = {
68         .write_data     = dead_write_lines,     /* data */
69         .read_data      = dead_read_lines,
70
71         .write_control  = dead_write_lines,     /* control */
72         .read_control   = dead_read_lines,
73         .frob_control   = dead_frob_lines,
74
75         .read_status    = dead_read_lines,      /* status */
76
77         .enable_irq     = dead_onearg,          /* enable_irq */
78         .disable_irq    = dead_onearg,          /* disable_irq */
79
80         .data_forward   = dead_onearg,          /* data_forward */
81         .data_reverse   = dead_onearg,          /* data_reverse */
82
83         .init_state     = dead_initstate,       /* init_state */
84         .save_state     = dead_state,
85         .restore_state  = dead_state,
86
87         .epp_write_data = dead_write,           /* epp */
88         .epp_read_data  = dead_read,
89         .epp_write_addr = dead_write,
90         .epp_read_addr  = dead_read,
91
92         .ecp_write_data = dead_write,           /* ecp */
93         .ecp_read_data  = dead_read,
94         .ecp_write_addr = dead_write,
95  
96         .compat_write_data      = dead_write,   /* compat */
97         .nibble_read_data       = dead_read,    /* nibble */
98         .byte_read_data         = dead_read,    /* byte */
99
100         .owner          = NULL,
101 };
102
103 /* Call attach(port) for each registered driver. */
104 static void attach_driver_chain(struct parport *port)
105 {
106         /* caller has exclusive registration_lock */
107         struct parport_driver *drv;
108         list_for_each_entry(drv, &drivers, list)
109                 drv->attach(port);
110 }
111
112 /* Call detach(port) for each registered driver. */
113 static void detach_driver_chain(struct parport *port)
114 {
115         struct parport_driver *drv;
116         /* caller has exclusive registration_lock */
117         list_for_each_entry(drv, &drivers, list)
118                 drv->detach (port);
119 }
120
121 /* Ask kmod for some lowlevel drivers. */
122 static void get_lowlevel_driver (void)
123 {
124         /* There is no actual module called this: you should set
125          * up an alias for modutils. */
126         request_module ("parport_lowlevel");
127 }
128
129 /**
130  *      parport_register_driver - register a parallel port device driver
131  *      @drv: structure describing the driver
132  *
133  *      This can be called by a parallel port device driver in order
134  *      to receive notifications about ports being found in the
135  *      system, as well as ports no longer available.
136  *
137  *      The @drv structure is allocated by the caller and must not be
138  *      deallocated until after calling parport_unregister_driver().
139  *
140  *      The driver's attach() function may block.  The port that
141  *      attach() is given will be valid for the duration of the
142  *      callback, but if the driver wants to take a copy of the
143  *      pointer it must call parport_get_port() to do so.  Calling
144  *      parport_register_device() on that port will do this for you.
145  *
146  *      The driver's detach() function may block.  The port that
147  *      detach() is given will be valid for the duration of the
148  *      callback, but if the driver wants to take a copy of the
149  *      pointer it must call parport_get_port() to do so.
150  *
151  *      Returns 0 on success.  Currently it always succeeds.
152  **/
153
154 int parport_register_driver (struct parport_driver *drv)
155 {
156         struct parport *port;
157
158         if (list_empty(&portlist))
159                 get_lowlevel_driver ();
160
161         mutex_lock(&registration_lock);
162         list_for_each_entry(port, &portlist, list)
163                 drv->attach(port);
164         list_add(&drv->list, &drivers);
165         mutex_unlock(&registration_lock);
166
167         return 0;
168 }
169
170 /**
171  *      parport_unregister_driver - deregister a parallel port device driver
172  *      @drv: structure describing the driver that was given to
173  *            parport_register_driver()
174  *
175  *      This should be called by a parallel port device driver that
176  *      has registered itself using parport_register_driver() when it
177  *      is about to be unloaded.
178  *
179  *      When it returns, the driver's attach() routine will no longer
180  *      be called, and for each port that attach() was called for, the
181  *      detach() routine will have been called.
182  *
183  *      All the driver's attach() and detach() calls are guaranteed to have
184  *      finished by the time this function returns.
185  **/
186
187 void parport_unregister_driver (struct parport_driver *drv)
188 {
189         struct parport *port;
190
191         mutex_lock(&registration_lock);
192         list_del_init(&drv->list);
193         list_for_each_entry(port, &portlist, list)
194                 drv->detach(port);
195         mutex_unlock(&registration_lock);
196 }
197
198 static void free_port (struct parport *port)
199 {
200         int d;
201         spin_lock(&full_list_lock);
202         list_del(&port->full_list);
203         spin_unlock(&full_list_lock);
204         for (d = 0; d < 5; d++) {
205                 kfree(port->probe_info[d].class_name);
206                 kfree(port->probe_info[d].mfr);
207                 kfree(port->probe_info[d].model);
208                 kfree(port->probe_info[d].cmdset);
209                 kfree(port->probe_info[d].description);
210         }
211
212         kfree(port->name);
213         kfree(port);
214 }
215
216 /**
217  *      parport_get_port - increment a port's reference count
218  *      @port: the port
219  *
220  *      This ensures that a struct parport pointer remains valid
221  *      until the matching parport_put_port() call.
222  **/
223
224 struct parport *parport_get_port (struct parport *port)
225 {
226         atomic_inc (&port->ref_count);
227         return port;
228 }
229
230 /**
231  *      parport_put_port - decrement a port's reference count
232  *      @port: the port
233  *
234  *      This should be called once for each call to parport_get_port(),
235  *      once the port is no longer needed.
236  **/
237
238 void parport_put_port (struct parport *port)
239 {
240         if (atomic_dec_and_test (&port->ref_count))
241                 /* Can destroy it now. */
242                 free_port (port);
243
244         return;
245 }
246
247 /**
248  *      parport_register_port - register a parallel port
249  *      @base: base I/O address
250  *      @irq: IRQ line
251  *      @dma: DMA channel
252  *      @ops: pointer to the port driver's port operations structure
253  *
254  *      When a parallel port (lowlevel) driver finds a port that
255  *      should be made available to parallel port device drivers, it
256  *      should call parport_register_port().  The @base, @irq, and
257  *      @dma parameters are for the convenience of port drivers, and
258  *      for ports where they aren't meaningful needn't be set to
259  *      anything special.  They can be altered afterwards by adjusting
260  *      the relevant members of the parport structure that is returned
261  *      and represents the port.  They should not be tampered with
262  *      after calling parport_announce_port, however.
263  *
264  *      If there are parallel port device drivers in the system that
265  *      have registered themselves using parport_register_driver(),
266  *      they are not told about the port at this time; that is done by
267  *      parport_announce_port().
268  *
269  *      The @ops structure is allocated by the caller, and must not be
270  *      deallocated before calling parport_remove_port().
271  *
272  *      If there is no memory to allocate a new parport structure,
273  *      this function will return %NULL.
274  **/
275
276 struct parport *parport_register_port(unsigned long base, int irq, int dma,
277                                       struct parport_operations *ops)
278 {
279         struct list_head *l;
280         struct parport *tmp;
281         int num;
282         int device;
283         char *name;
284
285         tmp = kzalloc(sizeof(struct parport), GFP_KERNEL);
286         if (!tmp) {
287                 printk(KERN_WARNING "parport: memory squeeze\n");
288                 return NULL;
289         }
290
291         /* Init our structure */
292         tmp->base = base;
293         tmp->irq = irq;
294         tmp->dma = dma;
295         tmp->muxport = tmp->daisy = tmp->muxsel = -1;
296         tmp->modes = 0;
297         INIT_LIST_HEAD(&tmp->list);
298         tmp->devices = tmp->cad = NULL;
299         tmp->flags = 0;
300         tmp->ops = ops;
301         tmp->physport = tmp;
302         memset (tmp->probe_info, 0, 5 * sizeof (struct parport_device_info));
303         rwlock_init(&tmp->cad_lock);
304         spin_lock_init(&tmp->waitlist_lock);
305         spin_lock_init(&tmp->pardevice_lock);
306         tmp->ieee1284.mode = IEEE1284_MODE_COMPAT;
307         tmp->ieee1284.phase = IEEE1284_PH_FWD_IDLE;
308         sema_init(&tmp->ieee1284.irq, 0);
309         tmp->spintime = parport_default_spintime;
310         atomic_set (&tmp->ref_count, 1);
311         INIT_LIST_HEAD(&tmp->full_list);
312
313         name = kmalloc(15, GFP_KERNEL);
314         if (!name) {
315                 printk(KERN_ERR "parport: memory squeeze\n");
316                 kfree(tmp);
317                 return NULL;
318         }
319         /* Search for the lowest free parport number. */
320
321         spin_lock(&full_list_lock);
322         for (l = all_ports.next, num = 0; l != &all_ports; l = l->next, num++) {
323                 struct parport *p = list_entry(l, struct parport, full_list);
324                 if (p->number != num)
325                         break;
326         }
327         tmp->portnum = tmp->number = num;
328         list_add_tail(&tmp->full_list, l);
329         spin_unlock(&full_list_lock);
330
331         /*
332          * Now that the portnum is known finish doing the Init.
333          */
334         sprintf(name, "parport%d", tmp->portnum = tmp->number);
335         tmp->name = name;
336
337         for (device = 0; device < 5; device++)
338                 /* assume the worst */
339                 tmp->probe_info[device].class = PARPORT_CLASS_LEGACY;
340
341         tmp->waithead = tmp->waittail = NULL;
342
343         return tmp;
344 }
345
346 /**
347  *      parport_announce_port - tell device drivers about a parallel port
348  *      @port: parallel port to announce
349  *
350  *      After a port driver has registered a parallel port with
351  *      parport_register_port, and performed any necessary
352  *      initialisation or adjustments, it should call
353  *      parport_announce_port() in order to notify all device drivers
354  *      that have called parport_register_driver().  Their attach()
355  *      functions will be called, with @port as the parameter.
356  **/
357
358 void parport_announce_port (struct parport *port)
359 {
360         int i;
361
362 #ifdef CONFIG_PARPORT_1284
363         /* Analyse the IEEE1284.3 topology of the port. */
364         parport_daisy_init(port);
365 #endif
366
367         if (!port->dev)
368                 printk(KERN_WARNING "%s: fix this legacy "
369                                 "no-device port driver!\n",
370                                 port->name);
371
372         parport_proc_register(port);
373         mutex_lock(&registration_lock);
374         spin_lock_irq(&parportlist_lock);
375         list_add_tail(&port->list, &portlist);
376         for (i = 1; i < 3; i++) {
377                 struct parport *slave = port->slaves[i-1];
378                 if (slave)
379                         list_add_tail(&slave->list, &portlist);
380         }
381         spin_unlock_irq(&parportlist_lock);
382
383         /* Let drivers know that new port(s) has arrived. */
384         attach_driver_chain (port);
385         for (i = 1; i < 3; i++) {
386                 struct parport *slave = port->slaves[i-1];
387                 if (slave)
388                         attach_driver_chain(slave);
389         }
390         mutex_unlock(&registration_lock);
391 }
392
393 /**
394  *      parport_remove_port - deregister a parallel port
395  *      @port: parallel port to deregister
396  *
397  *      When a parallel port driver is forcibly unloaded, or a
398  *      parallel port becomes inaccessible, the port driver must call
399  *      this function in order to deal with device drivers that still
400  *      want to use it.
401  *
402  *      The parport structure associated with the port has its
403  *      operations structure replaced with one containing 'null'
404  *      operations that return errors or just don't do anything.
405  *
406  *      Any drivers that have registered themselves using
407  *      parport_register_driver() are notified that the port is no
408  *      longer accessible by having their detach() routines called
409  *      with @port as the parameter.
410  **/
411
412 void parport_remove_port(struct parport *port)
413 {
414         int i;
415
416         mutex_lock(&registration_lock);
417
418         /* Spread the word. */
419         detach_driver_chain (port);
420
421 #ifdef CONFIG_PARPORT_1284
422         /* Forget the IEEE1284.3 topology of the port. */
423         parport_daisy_fini(port);
424         for (i = 1; i < 3; i++) {
425                 struct parport *slave = port->slaves[i-1];
426                 if (!slave)
427                         continue;
428                 detach_driver_chain(slave);
429                 parport_daisy_fini(slave);
430         }
431 #endif
432
433         port->ops = &dead_ops;
434         spin_lock(&parportlist_lock);
435         list_del_init(&port->list);
436         for (i = 1; i < 3; i++) {
437                 struct parport *slave = port->slaves[i-1];
438                 if (slave)
439                         list_del_init(&slave->list);
440         }
441         spin_unlock(&parportlist_lock);
442
443         mutex_unlock(&registration_lock);
444
445         parport_proc_unregister(port);
446
447         for (i = 1; i < 3; i++) {
448                 struct parport *slave = port->slaves[i-1];
449                 if (slave)
450                         parport_put_port(slave);
451         }
452 }
453
454 /**
455  *      parport_register_device - register a device on a parallel port
456  *      @port: port to which the device is attached
457  *      @name: a name to refer to the device
458  *      @pf: preemption callback
459  *      @kf: kick callback (wake-up)
460  *      @irq_func: interrupt handler
461  *      @flags: registration flags
462  *      @handle: data for callback functions
463  *
464  *      This function, called by parallel port device drivers,
465  *      declares that a device is connected to a port, and tells the
466  *      system all it needs to know.
467  *
468  *      The @name is allocated by the caller and must not be
469  *      deallocated until the caller calls @parport_unregister_device
470  *      for that device.
471  *
472  *      The preemption callback function, @pf, is called when this
473  *      device driver has claimed access to the port but another
474  *      device driver wants to use it.  It is given @handle as its
475  *      parameter, and should return zero if it is willing for the
476  *      system to release the port to another driver on its behalf.
477  *      If it wants to keep control of the port it should return
478  *      non-zero, and no action will be taken.  It is good manners for
479  *      the driver to try to release the port at the earliest
480  *      opportunity after its preemption callback rejects a preemption
481  *      attempt.  Note that if a preemption callback is happy for
482  *      preemption to go ahead, there is no need to release the port;
483  *      it is done automatically.  This function may not block, as it
484  *      may be called from interrupt context.  If the device driver
485  *      does not support preemption, @pf can be %NULL.
486  *
487  *      The wake-up ("kick") callback function, @kf, is called when
488  *      the port is available to be claimed for exclusive access; that
489  *      is, parport_claim() is guaranteed to succeed when called from
490  *      inside the wake-up callback function.  If the driver wants to
491  *      claim the port it should do so; otherwise, it need not take
492  *      any action.  This function may not block, as it may be called
493  *      from interrupt context.  If the device driver does not want to
494  *      be explicitly invited to claim the port in this way, @kf can
495  *      be %NULL.
496  *
497  *      The interrupt handler, @irq_func, is called when an interrupt
498  *      arrives from the parallel port.  Note that if a device driver
499  *      wants to use interrupts it should use parport_enable_irq(),
500  *      and can also check the irq member of the parport structure
501  *      representing the port.
502  *
503  *      The parallel port (lowlevel) driver is the one that has called
504  *      request_irq() and whose interrupt handler is called first.
505  *      This handler does whatever needs to be done to the hardware to
506  *      acknowledge the interrupt (for PC-style ports there is nothing
507  *      special to be done).  It then tells the IEEE 1284 code about
508  *      the interrupt, which may involve reacting to an IEEE 1284
509  *      event depending on the current IEEE 1284 phase.  After this,
510  *      it calls @irq_func.  Needless to say, @irq_func will be called
511  *      from interrupt context, and may not block.
512  *
513  *      The %PARPORT_DEV_EXCL flag is for preventing port sharing, and
514  *      so should only be used when sharing the port with other device
515  *      drivers is impossible and would lead to incorrect behaviour.
516  *      Use it sparingly!  Normally, @flags will be zero.
517  *
518  *      This function returns a pointer to a structure that represents
519  *      the device on the port, or %NULL if there is not enough memory
520  *      to allocate space for that structure.
521  **/
522
523 struct pardevice *
524 parport_register_device(struct parport *port, const char *name,
525                         int (*pf)(void *), void (*kf)(void *),
526                         void (*irq_func)(void *), 
527                         int flags, void *handle)
528 {
529         struct pardevice *tmp;
530
531         if (port->physport->flags & PARPORT_FLAG_EXCL) {
532                 /* An exclusive device is registered. */
533                 printk (KERN_DEBUG "%s: no more devices allowed\n",
534                         port->name);
535                 return NULL;
536         }
537
538         if (flags & PARPORT_DEV_LURK) {
539                 if (!pf || !kf) {
540                         printk(KERN_INFO "%s: refused to register lurking device (%s) without callbacks\n", port->name, name);
541                         return NULL;
542                 }
543         }
544
545         /* We up our own module reference count, and that of the port
546            on which a device is to be registered, to ensure that
547            neither of us gets unloaded while we sleep in (e.g.)
548            kmalloc.
549          */
550         if (!try_module_get(port->ops->owner)) {
551                 return NULL;
552         }
553                 
554         parport_get_port (port);
555
556         tmp = kmalloc(sizeof(struct pardevice), GFP_KERNEL);
557         if (tmp == NULL) {
558                 printk(KERN_WARNING "%s: memory squeeze, couldn't register %s.\n", port->name, name);
559                 goto out;
560         }
561
562         tmp->state = kmalloc(sizeof(struct parport_state), GFP_KERNEL);
563         if (tmp->state == NULL) {
564                 printk(KERN_WARNING "%s: memory squeeze, couldn't register %s.\n", port->name, name);
565                 goto out_free_pardevice;
566         }
567
568         tmp->name = name;
569         tmp->port = port;
570         tmp->daisy = -1;
571         tmp->preempt = pf;
572         tmp->wakeup = kf;
573         tmp->private = handle;
574         tmp->flags = flags;
575         tmp->irq_func = irq_func;
576         tmp->waiting = 0;
577         tmp->timeout = 5 * HZ;
578
579         /* Chain this onto the list */
580         tmp->prev = NULL;
581         /*
582          * This function must not run from an irq handler so we don' t need
583          * to clear irq on the local CPU. -arca
584          */
585         spin_lock(&port->physport->pardevice_lock);
586
587         if (flags & PARPORT_DEV_EXCL) {
588                 if (port->physport->devices) {
589                         spin_unlock (&port->physport->pardevice_lock);
590                         printk (KERN_DEBUG
591                                 "%s: cannot grant exclusive access for "
592                                 "device %s\n", port->name, name);
593                         goto out_free_all;
594                 }
595                 port->flags |= PARPORT_FLAG_EXCL;
596         }
597
598         tmp->next = port->physport->devices;
599         wmb(); /* Make sure that tmp->next is written before it's
600                   added to the list; see comments marked 'no locking
601                   required' */
602         if (port->physport->devices)
603                 port->physport->devices->prev = tmp;
604         port->physport->devices = tmp;
605         spin_unlock(&port->physport->pardevice_lock);
606
607         init_waitqueue_head(&tmp->wait_q);
608         tmp->timeslice = parport_default_timeslice;
609         tmp->waitnext = tmp->waitprev = NULL;
610
611         /*
612          * This has to be run as last thing since init_state may need other
613          * pardevice fields. -arca
614          */
615         port->ops->init_state(tmp, tmp->state);
616         if (!test_and_set_bit(PARPORT_DEVPROC_REGISTERED, &port->devflags)) {
617                 port->proc_device = tmp;
618                 parport_device_proc_register(tmp);
619         }
620         return tmp;
621
622  out_free_all:
623         kfree(tmp->state);
624  out_free_pardevice:
625         kfree(tmp);
626  out:
627         parport_put_port (port);
628         module_put(port->ops->owner);
629
630         return NULL;
631 }
632
633 /**
634  *      parport_unregister_device - deregister a device on a parallel port
635  *      @dev: pointer to structure representing device
636  *
637  *      This undoes the effect of parport_register_device().
638  **/
639
640 void parport_unregister_device(struct pardevice *dev)
641 {
642         struct parport *port;
643
644 #ifdef PARPORT_PARANOID
645         if (dev == NULL) {
646                 printk(KERN_ERR "parport_unregister_device: passed NULL\n");
647                 return;
648         }
649 #endif
650
651         port = dev->port->physport;
652
653         if (port->proc_device == dev) {
654                 port->proc_device = NULL;
655                 clear_bit(PARPORT_DEVPROC_REGISTERED, &port->devflags);
656                 parport_device_proc_unregister(dev);
657         }
658
659         if (port->cad == dev) {
660                 printk(KERN_DEBUG "%s: %s forgot to release port\n",
661                        port->name, dev->name);
662                 parport_release (dev);
663         }
664
665         spin_lock(&port->pardevice_lock);
666         if (dev->next)
667                 dev->next->prev = dev->prev;
668         if (dev->prev)
669                 dev->prev->next = dev->next;
670         else
671                 port->devices = dev->next;
672
673         if (dev->flags & PARPORT_DEV_EXCL)
674                 port->flags &= ~PARPORT_FLAG_EXCL;
675
676         spin_unlock(&port->pardevice_lock);
677
678         /* Make sure we haven't left any pointers around in the wait
679          * list. */
680         spin_lock_irq(&port->waitlist_lock);
681         if (dev->waitprev || dev->waitnext || port->waithead == dev) {
682                 if (dev->waitprev)
683                         dev->waitprev->waitnext = dev->waitnext;
684                 else
685                         port->waithead = dev->waitnext;
686                 if (dev->waitnext)
687                         dev->waitnext->waitprev = dev->waitprev;
688                 else
689                         port->waittail = dev->waitprev;
690         }
691         spin_unlock_irq(&port->waitlist_lock);
692
693         kfree(dev->state);
694         kfree(dev);
695
696         module_put(port->ops->owner);
697         parport_put_port (port);
698 }
699
700 /**
701  *      parport_find_number - find a parallel port by number
702  *      @number: parallel port number
703  *
704  *      This returns the parallel port with the specified number, or
705  *      %NULL if there is none.
706  *
707  *      There is an implicit parport_get_port() done already; to throw
708  *      away the reference to the port that parport_find_number()
709  *      gives you, use parport_put_port().
710  */
711
712 struct parport *parport_find_number (int number)
713 {
714         struct parport *port, *result = NULL;
715
716         if (list_empty(&portlist))
717                 get_lowlevel_driver ();
718
719         spin_lock (&parportlist_lock);
720         list_for_each_entry(port, &portlist, list) {
721                 if (port->number == number) {
722                         result = parport_get_port (port);
723                         break;
724                 }
725         }
726         spin_unlock (&parportlist_lock);
727         return result;
728 }
729
730 /**
731  *      parport_find_base - find a parallel port by base address
732  *      @base: base I/O address
733  *
734  *      This returns the parallel port with the specified base
735  *      address, or %NULL if there is none.
736  *
737  *      There is an implicit parport_get_port() done already; to throw
738  *      away the reference to the port that parport_find_base()
739  *      gives you, use parport_put_port().
740  */
741
742 struct parport *parport_find_base (unsigned long base)
743 {
744         struct parport *port, *result = NULL;
745
746         if (list_empty(&portlist))
747                 get_lowlevel_driver ();
748
749         spin_lock (&parportlist_lock);
750         list_for_each_entry(port, &portlist, list) {
751                 if (port->base == base) {
752                         result = parport_get_port (port);
753                         break;
754                 }
755         }
756         spin_unlock (&parportlist_lock);
757         return result;
758 }
759
760 /**
761  *      parport_claim - claim access to a parallel port device
762  *      @dev: pointer to structure representing a device on the port
763  *
764  *      This function will not block and so can be used from interrupt
765  *      context.  If parport_claim() succeeds in claiming access to
766  *      the port it returns zero and the port is available to use.  It
767  *      may fail (returning non-zero) if the port is in use by another
768  *      driver and that driver is not willing to relinquish control of
769  *      the port.
770  **/
771
772 int parport_claim(struct pardevice *dev)
773 {
774         struct pardevice *oldcad;
775         struct parport *port = dev->port->physport;
776         unsigned long flags;
777
778         if (port->cad == dev) {
779                 printk(KERN_INFO "%s: %s already owner\n",
780                        dev->port->name,dev->name);
781                 return 0;
782         }
783
784         /* Preempt any current device */
785         write_lock_irqsave (&port->cad_lock, flags);
786         if ((oldcad = port->cad) != NULL) {
787                 if (oldcad->preempt) {
788                         if (oldcad->preempt(oldcad->private))
789                                 goto blocked;
790                         port->ops->save_state(port, dev->state);
791                 } else
792                         goto blocked;
793
794                 if (port->cad != oldcad) {
795                         /* I think we'll actually deadlock rather than
796                            get here, but just in case.. */
797                         printk(KERN_WARNING
798                                "%s: %s released port when preempted!\n",
799                                port->name, oldcad->name);
800                         if (port->cad)
801                                 goto blocked;
802                 }
803         }
804
805         /* Can't fail from now on, so mark ourselves as no longer waiting.  */
806         if (dev->waiting & 1) {
807                 dev->waiting = 0;
808
809                 /* Take ourselves out of the wait list again.  */
810                 spin_lock_irq (&port->waitlist_lock);
811                 if (dev->waitprev)
812                         dev->waitprev->waitnext = dev->waitnext;
813                 else
814                         port->waithead = dev->waitnext;
815                 if (dev->waitnext)
816                         dev->waitnext->waitprev = dev->waitprev;
817                 else
818                         port->waittail = dev->waitprev;
819                 spin_unlock_irq (&port->waitlist_lock);
820                 dev->waitprev = dev->waitnext = NULL;
821         }
822
823         /* Now we do the change of devices */
824         port->cad = dev;
825
826 #ifdef CONFIG_PARPORT_1284
827         /* If it's a mux port, select it. */
828         if (dev->port->muxport >= 0) {
829                 /* FIXME */
830                 port->muxsel = dev->port->muxport;
831         }
832
833         /* If it's a daisy chain device, select it. */
834         if (dev->daisy >= 0) {
835                 /* This could be lazier. */
836                 if (!parport_daisy_select (port, dev->daisy,
837                                            IEEE1284_MODE_COMPAT))
838                         port->daisy = dev->daisy;
839         }
840 #endif /* IEEE1284.3 support */
841
842         /* Restore control registers */
843         port->ops->restore_state(port, dev->state);
844         write_unlock_irqrestore(&port->cad_lock, flags);
845         dev->time = jiffies;
846         return 0;
847
848 blocked:
849         /* If this is the first time we tried to claim the port, register an
850            interest.  This is only allowed for devices sleeping in
851            parport_claim_or_block(), or those with a wakeup function.  */
852
853         /* The cad_lock is still held for writing here */
854         if (dev->waiting & 2 || dev->wakeup) {
855                 spin_lock (&port->waitlist_lock);
856                 if (test_and_set_bit(0, &dev->waiting) == 0) {
857                         /* First add ourselves to the end of the wait list. */
858                         dev->waitnext = NULL;
859                         dev->waitprev = port->waittail;
860                         if (port->waittail) {
861                                 port->waittail->waitnext = dev;
862                                 port->waittail = dev;
863                         } else
864                                 port->waithead = port->waittail = dev;
865                 }
866                 spin_unlock (&port->waitlist_lock);
867         }
868         write_unlock_irqrestore (&port->cad_lock, flags);
869         return -EAGAIN;
870 }
871
872 /**
873  *      parport_claim_or_block - claim access to a parallel port device
874  *      @dev: pointer to structure representing a device on the port
875  *
876  *      This behaves like parport_claim(), but will block if necessary
877  *      to wait for the port to be free.  A return value of 1
878  *      indicates that it slept; 0 means that it succeeded without
879  *      needing to sleep.  A negative error code indicates failure.
880  **/
881
882 int parport_claim_or_block(struct pardevice *dev)
883 {
884         int r;
885
886         /* Signal to parport_claim() that we can wait even without a
887            wakeup function.  */
888         dev->waiting = 2;
889
890         /* Try to claim the port.  If this fails, we need to sleep.  */
891         r = parport_claim(dev);
892         if (r == -EAGAIN) {
893 #ifdef PARPORT_DEBUG_SHARING
894                 printk(KERN_DEBUG "%s: parport_claim() returned -EAGAIN\n", dev->name);
895 #endif
896                 /*
897                  * FIXME!!! Use the proper locking for dev->waiting,
898                  * and make this use the "wait_event_interruptible()"
899                  * interfaces. The cli/sti that used to be here
900                  * did nothing.
901                  *
902                  * See also parport_release()
903                  */
904
905                 /* If dev->waiting is clear now, an interrupt
906                    gave us the port and we would deadlock if we slept.  */
907                 if (dev->waiting) {
908                         wait_event_interruptible(dev->wait_q,
909                                                  !dev->waiting);
910                         if (signal_pending (current)) {
911                                 return -EINTR;
912                         }
913                         r = 1;
914                 } else {
915                         r = 0;
916 #ifdef PARPORT_DEBUG_SHARING
917                         printk(KERN_DEBUG "%s: didn't sleep in parport_claim_or_block()\n",
918                                dev->name);
919 #endif
920                 }
921
922 #ifdef PARPORT_DEBUG_SHARING
923                 if (dev->port->physport->cad != dev)
924                         printk(KERN_DEBUG "%s: exiting parport_claim_or_block "
925                                "but %s owns port!\n", dev->name,
926                                dev->port->physport->cad ?
927                                dev->port->physport->cad->name:"nobody");
928 #endif
929         }
930         dev->waiting = 0;
931         return r;
932 }
933
934 /**
935  *      parport_release - give up access to a parallel port device
936  *      @dev: pointer to structure representing parallel port device
937  *
938  *      This function cannot fail, but it should not be called without
939  *      the port claimed.  Similarly, if the port is already claimed
940  *      you should not try claiming it again.
941  **/
942
943 void parport_release(struct pardevice *dev)
944 {
945         struct parport *port = dev->port->physport;
946         struct pardevice *pd;
947         unsigned long flags;
948
949         /* Make sure that dev is the current device */
950         write_lock_irqsave(&port->cad_lock, flags);
951         if (port->cad != dev) {
952                 write_unlock_irqrestore (&port->cad_lock, flags);
953                 printk(KERN_WARNING "%s: %s tried to release parport "
954                        "when not owner\n", port->name, dev->name);
955                 return;
956         }
957
958 #ifdef CONFIG_PARPORT_1284
959         /* If this is on a mux port, deselect it. */
960         if (dev->port->muxport >= 0) {
961                 /* FIXME */
962                 port->muxsel = -1;
963         }
964
965         /* If this is a daisy device, deselect it. */
966         if (dev->daisy >= 0) {
967                 parport_daisy_deselect_all (port);
968                 port->daisy = -1;
969         }
970 #endif
971
972         port->cad = NULL;
973         write_unlock_irqrestore(&port->cad_lock, flags);
974
975         /* Save control registers */
976         port->ops->save_state(port, dev->state);
977
978         /* If anybody is waiting, find out who's been there longest and
979            then wake them up. (Note: no locking required) */
980         /* !!! LOCKING IS NEEDED HERE */
981         for (pd = port->waithead; pd; pd = pd->waitnext) {
982                 if (pd->waiting & 2) { /* sleeping in claim_or_block */
983                         parport_claim(pd);
984                         if (waitqueue_active(&pd->wait_q))
985                                 wake_up_interruptible(&pd->wait_q);
986                         return;
987                 } else if (pd->wakeup) {
988                         pd->wakeup(pd->private);
989                         if (dev->port->cad) /* racy but no matter */
990                                 return;
991                 } else {
992                         printk(KERN_ERR "%s: don't know how to wake %s\n", port->name, pd->name);
993                 }
994         }
995
996         /* Nobody was waiting, so walk the list to see if anyone is
997            interested in being woken up. (Note: no locking required) */
998         /* !!! LOCKING IS NEEDED HERE */
999         for (pd = port->devices; (port->cad == NULL) && pd; pd = pd->next) {
1000                 if (pd->wakeup && pd != dev)
1001                         pd->wakeup(pd->private);
1002         }
1003 }
1004
1005 irqreturn_t parport_irq_handler(int irq, void *dev_id)
1006 {
1007         struct parport *port = dev_id;
1008
1009         parport_generic_irq(port);
1010
1011         return IRQ_HANDLED;
1012 }
1013
1014 /* Exported symbols for modules. */
1015
1016 EXPORT_SYMBOL(parport_claim);
1017 EXPORT_SYMBOL(parport_claim_or_block);
1018 EXPORT_SYMBOL(parport_release);
1019 EXPORT_SYMBOL(parport_register_port);
1020 EXPORT_SYMBOL(parport_announce_port);
1021 EXPORT_SYMBOL(parport_remove_port);
1022 EXPORT_SYMBOL(parport_register_driver);
1023 EXPORT_SYMBOL(parport_unregister_driver);
1024 EXPORT_SYMBOL(parport_register_device);
1025 EXPORT_SYMBOL(parport_unregister_device);
1026 EXPORT_SYMBOL(parport_get_port);
1027 EXPORT_SYMBOL(parport_put_port);
1028 EXPORT_SYMBOL(parport_find_number);
1029 EXPORT_SYMBOL(parport_find_base);
1030 EXPORT_SYMBOL(parport_irq_handler);
1031
1032 MODULE_LICENSE("GPL");