Merge tag 'split-asm_system_h-for-linus-20120328' of git://git.kernel.org/pub/scm...
[linux-2.6.git] / drivers / input / serio / sa1111ps2.c
1 /*
2  *  linux/drivers/input/serio/sa1111ps2.c
3  *
4  *  Copyright (C) 2002 Russell King
5  *
6  * This program is free software; you can redistribute it and/or modify
7  * it under the terms of the GNU General Public License as published by
8  * the Free Software Foundation; either version 2 of the License.
9  */
10 #include <linux/module.h>
11 #include <linux/init.h>
12 #include <linux/input.h>
13 #include <linux/serio.h>
14 #include <linux/errno.h>
15 #include <linux/interrupt.h>
16 #include <linux/ioport.h>
17 #include <linux/delay.h>
18 #include <linux/device.h>
19 #include <linux/slab.h>
20 #include <linux/spinlock.h>
21
22 #include <asm/io.h>
23
24 #include <asm/hardware/sa1111.h>
25
26 #define PS2CR           0x0000
27 #define PS2STAT         0x0004
28 #define PS2DATA         0x0008
29 #define PS2CLKDIV       0x000c
30 #define PS2PRECNT       0x0010
31
32 #define PS2CR_ENA       0x08
33 #define PS2CR_FKD       0x02
34 #define PS2CR_FKC       0x01
35
36 #define PS2STAT_STP     0x0100
37 #define PS2STAT_TXE     0x0080
38 #define PS2STAT_TXB     0x0040
39 #define PS2STAT_RXF     0x0020
40 #define PS2STAT_RXB     0x0010
41 #define PS2STAT_ENA     0x0008
42 #define PS2STAT_RXP     0x0004
43 #define PS2STAT_KBD     0x0002
44 #define PS2STAT_KBC     0x0001
45
46 struct ps2if {
47         struct serio            *io;
48         struct sa1111_dev       *dev;
49         void __iomem            *base;
50         unsigned int            open;
51         spinlock_t              lock;
52         unsigned int            head;
53         unsigned int            tail;
54         unsigned char           buf[4];
55 };
56
57 /*
58  * Read all bytes waiting in the PS2 port.  There should be
59  * at the most one, but we loop for safety.  If there was a
60  * framing error, we have to manually clear the status.
61  */
62 static irqreturn_t ps2_rxint(int irq, void *dev_id)
63 {
64         struct ps2if *ps2if = dev_id;
65         unsigned int scancode, flag, status;
66
67         status = sa1111_readl(ps2if->base + PS2STAT);
68         while (status & PS2STAT_RXF) {
69                 if (status & PS2STAT_STP)
70                         sa1111_writel(PS2STAT_STP, ps2if->base + PS2STAT);
71
72                 flag = (status & PS2STAT_STP ? SERIO_FRAME : 0) |
73                        (status & PS2STAT_RXP ? 0 : SERIO_PARITY);
74
75                 scancode = sa1111_readl(ps2if->base + PS2DATA) & 0xff;
76
77                 if (hweight8(scancode) & 1)
78                         flag ^= SERIO_PARITY;
79
80                 serio_interrupt(ps2if->io, scancode, flag);
81
82                 status = sa1111_readl(ps2if->base + PS2STAT);
83         }
84
85         return IRQ_HANDLED;
86 }
87
88 /*
89  * Completion of ps2 write
90  */
91 static irqreturn_t ps2_txint(int irq, void *dev_id)
92 {
93         struct ps2if *ps2if = dev_id;
94         unsigned int status;
95
96         spin_lock(&ps2if->lock);
97         status = sa1111_readl(ps2if->base + PS2STAT);
98         if (ps2if->head == ps2if->tail) {
99                 disable_irq_nosync(irq);
100                 /* done */
101         } else if (status & PS2STAT_TXE) {
102                 sa1111_writel(ps2if->buf[ps2if->tail], ps2if->base + PS2DATA);
103                 ps2if->tail = (ps2if->tail + 1) & (sizeof(ps2if->buf) - 1);
104         }
105         spin_unlock(&ps2if->lock);
106
107         return IRQ_HANDLED;
108 }
109
110 /*
111  * Write a byte to the PS2 port.  We have to wait for the
112  * port to indicate that the transmitter is empty.
113  */
114 static int ps2_write(struct serio *io, unsigned char val)
115 {
116         struct ps2if *ps2if = io->port_data;
117         unsigned long flags;
118         unsigned int head;
119
120         spin_lock_irqsave(&ps2if->lock, flags);
121
122         /*
123          * If the TX register is empty, we can go straight out.
124          */
125         if (sa1111_readl(ps2if->base + PS2STAT) & PS2STAT_TXE) {
126                 sa1111_writel(val, ps2if->base + PS2DATA);
127         } else {
128                 if (ps2if->head == ps2if->tail)
129                         enable_irq(ps2if->dev->irq[1]);
130                 head = (ps2if->head + 1) & (sizeof(ps2if->buf) - 1);
131                 if (head != ps2if->tail) {
132                         ps2if->buf[ps2if->head] = val;
133                         ps2if->head = head;
134                 }
135         }
136
137         spin_unlock_irqrestore(&ps2if->lock, flags);
138         return 0;
139 }
140
141 static int ps2_open(struct serio *io)
142 {
143         struct ps2if *ps2if = io->port_data;
144         int ret;
145
146         ret = sa1111_enable_device(ps2if->dev);
147         if (ret)
148                 return ret;
149
150         ret = request_irq(ps2if->dev->irq[0], ps2_rxint, 0,
151                           SA1111_DRIVER_NAME(ps2if->dev), ps2if);
152         if (ret) {
153                 printk(KERN_ERR "sa1111ps2: could not allocate IRQ%d: %d\n",
154                         ps2if->dev->irq[0], ret);
155                 sa1111_disable_device(ps2if->dev);
156                 return ret;
157         }
158
159         ret = request_irq(ps2if->dev->irq[1], ps2_txint, 0,
160                           SA1111_DRIVER_NAME(ps2if->dev), ps2if);
161         if (ret) {
162                 printk(KERN_ERR "sa1111ps2: could not allocate IRQ%d: %d\n",
163                         ps2if->dev->irq[1], ret);
164                 free_irq(ps2if->dev->irq[0], ps2if);
165                 sa1111_disable_device(ps2if->dev);
166                 return ret;
167         }
168
169         ps2if->open = 1;
170
171         enable_irq_wake(ps2if->dev->irq[0]);
172
173         sa1111_writel(PS2CR_ENA, ps2if->base + PS2CR);
174         return 0;
175 }
176
177 static void ps2_close(struct serio *io)
178 {
179         struct ps2if *ps2if = io->port_data;
180
181         sa1111_writel(0, ps2if->base + PS2CR);
182
183         disable_irq_wake(ps2if->dev->irq[0]);
184
185         ps2if->open = 0;
186
187         free_irq(ps2if->dev->irq[1], ps2if);
188         free_irq(ps2if->dev->irq[0], ps2if);
189
190         sa1111_disable_device(ps2if->dev);
191 }
192
193 /*
194  * Clear the input buffer.
195  */
196 static void __devinit ps2_clear_input(struct ps2if *ps2if)
197 {
198         int maxread = 100;
199
200         while (maxread--) {
201                 if ((sa1111_readl(ps2if->base + PS2DATA) & 0xff) == 0xff)
202                         break;
203         }
204 }
205
206 static unsigned int __devinit ps2_test_one(struct ps2if *ps2if,
207                                            unsigned int mask)
208 {
209         unsigned int val;
210
211         sa1111_writel(PS2CR_ENA | mask, ps2if->base + PS2CR);
212
213         udelay(2);
214
215         val = sa1111_readl(ps2if->base + PS2STAT);
216         return val & (PS2STAT_KBC | PS2STAT_KBD);
217 }
218
219 /*
220  * Test the keyboard interface.  We basically check to make sure that
221  * we can drive each line to the keyboard independently of each other.
222  */
223 static int __devinit ps2_test(struct ps2if *ps2if)
224 {
225         unsigned int stat;
226         int ret = 0;
227
228         stat = ps2_test_one(ps2if, PS2CR_FKC);
229         if (stat != PS2STAT_KBD) {
230                 printk("PS/2 interface test failed[1]: %02x\n", stat);
231                 ret = -ENODEV;
232         }
233
234         stat = ps2_test_one(ps2if, 0);
235         if (stat != (PS2STAT_KBC | PS2STAT_KBD)) {
236                 printk("PS/2 interface test failed[2]: %02x\n", stat);
237                 ret = -ENODEV;
238         }
239
240         stat = ps2_test_one(ps2if, PS2CR_FKD);
241         if (stat != PS2STAT_KBC) {
242                 printk("PS/2 interface test failed[3]: %02x\n", stat);
243                 ret = -ENODEV;
244         }
245
246         sa1111_writel(0, ps2if->base + PS2CR);
247
248         return ret;
249 }
250
251 /*
252  * Add one device to this driver.
253  */
254 static int __devinit ps2_probe(struct sa1111_dev *dev)
255 {
256         struct ps2if *ps2if;
257         struct serio *serio;
258         int ret;
259
260         ps2if = kzalloc(sizeof(struct ps2if), GFP_KERNEL);
261         serio = kzalloc(sizeof(struct serio), GFP_KERNEL);
262         if (!ps2if || !serio) {
263                 ret = -ENOMEM;
264                 goto free;
265         }
266
267
268         serio->id.type          = SERIO_8042;
269         serio->write            = ps2_write;
270         serio->open             = ps2_open;
271         serio->close            = ps2_close;
272         strlcpy(serio->name, dev_name(&dev->dev), sizeof(serio->name));
273         strlcpy(serio->phys, dev_name(&dev->dev), sizeof(serio->phys));
274         serio->port_data        = ps2if;
275         serio->dev.parent       = &dev->dev;
276         ps2if->io               = serio;
277         ps2if->dev              = dev;
278         sa1111_set_drvdata(dev, ps2if);
279
280         spin_lock_init(&ps2if->lock);
281
282         /*
283          * Request the physical region for this PS2 port.
284          */
285         if (!request_mem_region(dev->res.start,
286                                 dev->res.end - dev->res.start + 1,
287                                 SA1111_DRIVER_NAME(dev))) {
288                 ret = -EBUSY;
289                 goto free;
290         }
291
292         /*
293          * Our parent device has already mapped the region.
294          */
295         ps2if->base = dev->mapbase;
296
297         sa1111_enable_device(ps2if->dev);
298
299         /* Incoming clock is 8MHz */
300         sa1111_writel(0, ps2if->base + PS2CLKDIV);
301         sa1111_writel(127, ps2if->base + PS2PRECNT);
302
303         /*
304          * Flush any pending input.
305          */
306         ps2_clear_input(ps2if);
307
308         /*
309          * Test the keyboard interface.
310          */
311         ret = ps2_test(ps2if);
312         if (ret)
313                 goto out;
314
315         /*
316          * Flush any pending input.
317          */
318         ps2_clear_input(ps2if);
319
320         sa1111_disable_device(ps2if->dev);
321         serio_register_port(ps2if->io);
322         return 0;
323
324  out:
325         sa1111_disable_device(ps2if->dev);
326         release_mem_region(dev->res.start, resource_size(&dev->res));
327  free:
328         sa1111_set_drvdata(dev, NULL);
329         kfree(ps2if);
330         kfree(serio);
331         return ret;
332 }
333
334 /*
335  * Remove one device from this driver.
336  */
337 static int __devexit ps2_remove(struct sa1111_dev *dev)
338 {
339         struct ps2if *ps2if = sa1111_get_drvdata(dev);
340
341         serio_unregister_port(ps2if->io);
342         release_mem_region(dev->res.start, resource_size(&dev->res));
343         sa1111_set_drvdata(dev, NULL);
344
345         kfree(ps2if);
346
347         return 0;
348 }
349
350 /*
351  * Our device driver structure
352  */
353 static struct sa1111_driver ps2_driver = {
354         .drv = {
355                 .name   = "sa1111-ps2",
356                 .owner  = THIS_MODULE,
357         },
358         .devid          = SA1111_DEVID_PS2,
359         .probe          = ps2_probe,
360         .remove         = __devexit_p(ps2_remove),
361 };
362
363 static int __init ps2_init(void)
364 {
365         return sa1111_driver_register(&ps2_driver);
366 }
367
368 static void __exit ps2_exit(void)
369 {
370         sa1111_driver_unregister(&ps2_driver);
371 }
372
373 module_init(ps2_init);
374 module_exit(ps2_exit);
375
376 MODULE_AUTHOR("Russell King <rmk@arm.linux.org.uk>");
377 MODULE_DESCRIPTION("SA1111 PS2 controller driver");
378 MODULE_LICENSE("GPL");