drivers/net/irda/irport.c

   1 /*********************************************************************
   2  *
   3  * Filename:      irport.c
   4  * Version:       1.0
   5  * Description:   Half duplex serial port SIR driver for IrDA.
   6  * Status:        Experimental.
   7  * Author:        Dag Brattli <dagb@cs.uit.no>
   8  * Created at:    Sun Aug  3 13:49:59 1997
   9  * Modified at:   Fri Jan 28 20:22:38 2000
  10  * Modified by:   Dag Brattli <dagb@cs.uit.no>
  11  * Sources:       serial.c by Linus Torvalds
  12  *
  13  *     Copyright (c) 1997, 1998, 1999-2000 Dag Brattli, All Rights Reserved.
  14  *     Copyright (c) 2000-2003 Jean Tourrilhes, All Rights Reserved.
  15  *
  16  *     This program is free software; you can redistribute it and/or
  17  *     modify it under the terms of the GNU General Public License as
  18  *     published by the Free Software Foundation; either version 2 of
  19  *     the License, or (at your option) any later version.
  20  *
  21  *     This program is distributed in the hope that it will be useful,
  22  *     but WITHOUT ANY WARRANTY; without even the implied warranty of
  23  *     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  24  *     GNU General Public License for more details.
  25  *
  26  *     You should have received a copy of the GNU General Public License
  27  *     along with this program; if not, write to the Free Software
  28  *     Foundation, Inc., 59 Temple Place, Suite 330, Boston,
  29  *     MA 02111-1307 USA
  30  *
  31  *     This driver is ment to be a small half duplex serial driver to be
  32  *     used for IR-chipsets that has a UART (16550) compatibility mode.
  33  *     Eventually it will replace irtty, because of irtty has some
  34  *     problems that is hard to get around when we don't have control
  35  *     over the serial driver. This driver may also be used by FIR
  36  *     drivers to handle SIR mode for them.
  37  *
  38  ********************************************************************/
  39
  40 #include <linux/module.h>
  41
  42 #include <linux/kernel.h>
  43 #include <linux/types.h>
  44 #include <linux/ioport.h>
  45 #include <linux/slab.h>
  46 #include <linux/string.h>
  47 #include <linux/skbuff.h>
  48 #include <linux/serial_reg.h>
  49 #include <linux/errno.h>
  50 #include <linux/init.h>
  51 #include <linux/spinlock.h>
  52 #include <linux/delay.h>
  53 #include <linux/rtnetlink.h>
  54 #include <linux/bitops.h>
  55
  56 #include <asm/system.h>
  57 #include <asm/io.h>
  58
  59 #include <net/irda/irda.h>
  60 #include <net/irda/wrapper.h>
  61 #include "irport.h"
  62
  63 #define IO_EXTENT 8
  64
  65 /*
  66  * Currently you'll need to set these values using insmod like this:
  67  * insmod irport io=0x3e8 irq=11
  68  */
  69 static unsigned int io[]  = { ~0, ~0, ~0, ~0 };
  70 static unsigned int irq[] = { 0, 0, 0, 0 };
  71
  72 static unsigned int qos_mtt_bits = 0x03;
  73
  74 static struct irport_cb *dev_self[] = { NULL, NULL, NULL, NULL};
  75 static char *driver_name = "irport";
  76
  77 static inline void irport_write_wakeup(struct irport_cb *self);
  78 static inline int  irport_write(int iobase, int fifo_size, __u8 *buf, int len);
  79 static inline void irport_receive(struct irport_cb *self);
  80
  81 static int  irport_net_ioctl(struct net_device *dev, struct ifreq *rq,
  82                              int cmd);
  83 static inline int  irport_is_receiving(struct irport_cb *self);
  84 static int  irport_set_dtr_rts(struct net_device *dev, int dtr, int rts);
  85 static int  irport_raw_write(struct net_device *dev, __u8 *buf, int len);
  86 static struct net_device_stats *irport_net_get_stats(struct net_device *dev);
  87 static int irport_change_speed_complete(struct irda_task *task);
  88 static void irport_timeout(struct net_device *dev);
  89
  90 static irqreturn_t irport_interrupt(int irq, void *dev_id);
  91 static int irport_hard_xmit(struct sk_buff *skb, struct net_device *dev);
  92 static void irport_change_speed(void *priv, __u32 speed);
  93 static int irport_net_open(struct net_device *dev);
  94 static int irport_net_close(struct net_device *dev);
  95
  96 static struct irport_cb *
  97 irport_open(int i, unsigned int iobase, unsigned int irq)
  98 {
  99         struct net_device *dev;
 100         struct irport_cb *self;
 101
 102         IRDA_DEBUG(1, "%s()\n", __FUNCTION__);
 103
 104         /* Lock the port that we need */
 105         if (!request_region(iobase, IO_EXTENT, driver_name)) {
 106                 IRDA_DEBUG(0, "%s(), can't get iobase of 0x%03x\n",
 107                            __FUNCTION__, iobase);
 108                 goto err_out1;
 109         }
 110
 111         /*
 112          *  Allocate new instance of the driver
 113          */
 114         dev = alloc_irdadev(sizeof(struct irport_cb));
 115         if (!dev) {
 116                 IRDA_ERROR("%s(), can't allocate memory for "
 117                            "irda device!\n", __FUNCTION__);
 118                 goto err_out2;
 119         }
 120
 121         self = dev->priv;
 122         spin_lock_init(&self->lock);
 123
 124         /* Need to store self somewhere */
 125         dev_self[i] = self;
 126         self->priv = self;
 127         self->index = i;
 128
 129         /* Initialize IO */
 130         self->io.sir_base  = iobase;
 131         self->io.sir_ext   = IO_EXTENT;
 132         self->io.irq       = irq;
 133         self->io.fifo_size = 16;                /* 16550A and compatible */
 134
 135         /* Initialize QoS for this device */
 136         irda_init_max_qos_capabilies(&self->qos);
 137
 138         self->qos.baud_rate.bits = IR_9600|IR_19200|IR_38400|IR_57600|
 139                 IR_115200;
 140
 141         self->qos.min_turn_time.bits = qos_mtt_bits;
 142         irda_qos_bits_to_value(&self->qos);
 143
 144         /* Bootstrap ZeroCopy Rx */
 145         self->rx_buff.truesize = IRDA_SKB_MAX_MTU;
 146         self->rx_buff.skb = __dev_alloc_skb(self->rx_buff.truesize,
 147                                             GFP_KERNEL);
 148         if (self->rx_buff.skb == NULL) {
 149                 IRDA_ERROR("%s(), can't allocate memory for "
 150                            "receive buffer!\n", __FUNCTION__);
 151                 goto err_out3;
 152         }
 153         skb_reserve(self->rx_buff.skb, 1);
 154         self->rx_buff.head = self->rx_buff.skb->data;
 155         /* No need to memset the buffer, unless you are really pedantic */
 156
 157         /* Finish setup the Rx buffer descriptor */
 158         self->rx_buff.in_frame = FALSE;
 159         self->rx_buff.state = OUTSIDE_FRAME;
 160         self->rx_buff.data = self->rx_buff.head;
 161
 162         /* Specify how much memory we want */
 163         self->tx_buff.truesize = 4000;
 164
 165         /* Allocate memory if needed */
 166         if (self->tx_buff.truesize > 0) {
 167                 self->tx_buff.head = (__u8 *) kmalloc(self->tx_buff.truesize,
 168                                                       GFP_KERNEL);
 169                 if (self->tx_buff.head == NULL) {
 170                         IRDA_ERROR("%s(), can't allocate memory for "
 171                                    "transmit buffer!\n", __FUNCTION__);
 172                         goto err_out4;
 173                 }
 174                 memset(self->tx_buff.head, 0, self->tx_buff.truesize);
 175         }
 176         self->tx_buff.data = self->tx_buff.head;
 177
 178         self->netdev = dev;
 179         /* Keep track of module usage */
 180         SET_MODULE_OWNER(dev);
 181
 182         /* May be overridden by piggyback drivers */
 183         self->interrupt    = irport_interrupt;
 184         self->change_speed = irport_change_speed;
 185
 186         /* Override the network functions we need to use */
 187         dev->hard_start_xmit = irport_hard_xmit;
 188         dev->tx_timeout      = irport_timeout;
 189         dev->watchdog_timeo  = HZ;  /* Allow time enough for speed change */
 190         dev->open            = irport_net_open;
 191         dev->stop            = irport_net_close;
 192         dev->get_stats       = irport_net_get_stats;
 193         dev->do_ioctl        = irport_net_ioctl;
 194
 195         /* Make ifconfig display some details */
 196         dev->base_addr = iobase;
 197         dev->irq = irq;
 198
 199         if (register_netdev(dev)) {
 200                 IRDA_ERROR("%s(), register_netdev() failed!\n", __FUNCTION__);
 201                 goto err_out5;
 202         }
 203         IRDA_MESSAGE("IrDA: Registered device %s (irport io=0x%X irq=%d)\n",
 204                 dev->name, iobase, irq);
 205
 206         return self;
 207  err_out5:
 208         kfree(self->tx_buff.head);
 209  err_out4:
 210         kfree_skb(self->rx_buff.skb);
 211  err_out3:
 212         free_netdev(dev);
 213         dev_self[i] = NULL;
 214  err_out2:
 215         release_region(iobase, IO_EXTENT);
 216  err_out1:
 217         return NULL;
 218 }
 219
 220 static int irport_close(struct irport_cb *self)
 221 {
 222         IRDA_ASSERT(self != NULL, return -1;);
 223
 224         /* We are not using any dongle anymore! */
 225         if (self->dongle)
 226                 irda_device_dongle_cleanup(self->dongle);
 227         self->dongle = NULL;
 228
 229         /* Remove netdevice */
 230         unregister_netdev(self->netdev);
 231
 232         /* Release the IO-port that this driver is using */
 233         IRDA_DEBUG(0 , "%s(), Releasing Region %03x\n",
 234                    __FUNCTION__, self->io.sir_base);
 235         release_region(self->io.sir_base, self->io.sir_ext);
 236
 237         kfree(self->tx_buff.head);
 238
 239         if (self->rx_buff.skb)
 240                 kfree_skb(self->rx_buff.skb);
 241         self->rx_buff.skb = NULL;
 242
 243         /* Remove ourselves */
 244         dev_self[self->index] = NULL;
 245         free_netdev(self->netdev);
 246
 247         return 0;
 248 }
 249
 250 static void irport_stop(struct irport_cb *self)
 251 {
 252         int iobase;
 253
 254         iobase = self->io.sir_base;
 255
 256         /* We can't lock, we may be called from a FIR driver - Jean II */
 257
 258         /* We are not transmitting any more */
 259         self->transmitting = 0;
 260
 261         /* Reset UART */
 262         outb(0, iobase+UART_MCR);
 263
 264         /* Turn off interrupts */
 265         outb(0, iobase+UART_IER);
 266 }
 267
 268 static void irport_start(struct irport_cb *self)
 269 {
 270         int iobase;
 271
 272         iobase = self->io.sir_base;
 273
 274         irport_stop(self);
 275
 276         /* We can't lock, we may be called from a FIR driver - Jean II */
 277
 278         /* Initialize UART */
 279         outb(UART_LCR_WLEN8, iobase+UART_LCR);  /* Reset DLAB */
 280         outb((UART_MCR_DTR | UART_MCR_RTS | UART_MCR_OUT2), iobase+UART_MCR);
 281
 282         /* Turn on interrups */
 283         outb(UART_IER_RLSI | UART_IER_RDI |UART_IER_THRI, iobase+UART_IER);
 284 }
 285
 286 /*
 287  * Function irport_get_fcr (speed)
 288  *
 289  *    Compute value of fcr
 290  *
 291  */
 292 static inline unsigned int irport_get_fcr(__u32 speed)
 293 {
 294         unsigned int fcr;    /* FIFO control reg */
 295
 296         /* Enable fifos */
 297         fcr = UART_FCR_ENABLE_FIFO;
 298
 299         /*
 300          * Use trigger level 1 to avoid 3 ms. timeout delay at 9600 bps, and
 301          * almost 1,7 ms at 19200 bps. At speeds above that we can just forget
 302          * about this timeout since it will always be fast enough.
 303          */
 304         if (speed < 38400)
 305                 fcr |= UART_FCR_TRIGGER_1;
 306         else
 307                 //fcr |= UART_FCR_TRIGGER_14;
 308                 fcr |= UART_FCR_TRIGGER_8;
 309
 310         return(fcr);
 311 }
 312
 313 /*
 314  * Function irport_change_speed (self, speed)
 315  *
 316  *    Set speed of IrDA port to specified baudrate
 317  *
 318  * This function should be called with irq off and spin-lock.
 319  */
 320 static void irport_change_speed(void *priv, __u32 speed)
 321 {
 322         struct irport_cb *self = (struct irport_cb *) priv;
 323         int iobase;
 324         unsigned int fcr;    /* FIFO control reg */
 325         unsigned int lcr;    /* Line control reg */
 326         int divisor;
 327
 328         IRDA_ASSERT(self != NULL, return;);
 329         IRDA_ASSERT(speed != 0, return;);
 330
 331         IRDA_DEBUG(1, "%s(), Setting speed to: %d - iobase=%#x\n",
 332                     __FUNCTION__, speed, self->io.sir_base);
 333
 334         /* We can't lock, we may be called from a FIR driver - Jean II */
 335
 336         iobase = self->io.sir_base;
 337
 338         /* Update accounting for new speed */
 339         self->io.speed = speed;
 340
 341         /* Turn off interrupts */
 342         outb(0, iobase+UART_IER);
 343
 344         divisor = SPEED_MAX/speed;
 345
 346         /* Get proper fifo configuration */
 347         fcr = irport_get_fcr(speed);
 348
 349         /* IrDA ports use 8N1 */
 350         lcr = UART_LCR_WLEN8;
 351
 352         outb(UART_LCR_DLAB | lcr, iobase+UART_LCR); /* Set DLAB */
 353         outb(divisor & 0xff,      iobase+UART_DLL); /* Set speed */
 354         outb(divisor >> 8,        iobase+UART_DLM);
 355         outb(lcr,                 iobase+UART_LCR); /* Set 8N1  */
 356         outb(fcr,                 iobase+UART_FCR); /* Enable FIFO's */
 357
 358         /* Turn on interrups */
 359         /* This will generate a fatal interrupt storm.
 360          * People calling us will do that properly - Jean II */
 361         //outb(/*UART_IER_RLSI|*/UART_IER_RDI/*|UART_IER_THRI*/, iobase+UART_IER);
 362 }
 363
 364 /*
 365  * Function __irport_change_speed (instance, state, param)
 366  *
 367  *    State machine for changing speed of the device. We do it this way since
 368  *    we cannot use schedule_timeout() when we are in interrupt context
 369  *
 370  */
 371 static int __irport_change_speed(struct irda_task *task)
 372 {
 373         struct irport_cb *self;
 374         __u32 speed = (__u32) task->param;
 375         unsigned long flags = 0;
 376         int wasunlocked = 0;
 377         int ret = 0;
 378
 379         IRDA_DEBUG(2, "%s(), <%ld>\n", __FUNCTION__, jiffies);
 380
 381         self = (struct irport_cb *) task->instance;
 382
 383         IRDA_ASSERT(self != NULL, return -1;);
 384
 385         /* Locking notes : this function may be called from irq context with
 386          * spinlock, via irport_write_wakeup(), or from non-interrupt without
 387          * spinlock (from the task timer). Yuck !
 388          * This is ugly, and unsafe is the spinlock is not already acquired.
 389          * This will be fixed when irda-task get rewritten.
 390          * Jean II */
 391         if (!spin_is_locked(&self->lock)) {
 392                 spin_lock_irqsave(&self->lock, flags);
 393                 wasunlocked = 1;
 394         }
 395
 396         switch (task->state) {
 397         case IRDA_TASK_INIT:
 398         case IRDA_TASK_WAIT:
 399                 /* Are we ready to change speed yet? */
 400                 if (self->tx_buff.len > 0) {
 401                         task->state = IRDA_TASK_WAIT;
 402
 403                         /* Try again later */
 404                         ret = msecs_to_jiffies(20);
 405                         break;
 406                 }
 407
 408                 if (self->dongle)
 409                         irda_task_next_state(task, IRDA_TASK_CHILD_INIT);
 410                 else
 411                         irda_task_next_state(task, IRDA_TASK_CHILD_DONE);
 412                 break;
 413         case IRDA_TASK_CHILD_INIT:
 414                 /* Go to default speed */
 415                 self->change_speed(self->priv, 9600);
 416
 417                 /* Change speed of dongle */
 418                 if (irda_task_execute(self->dongle,
 419                                       self->dongle->issue->change_speed,
 420                                       NULL, task, (void *) speed))
 421                 {
 422                         /* Dongle need more time to change its speed */
 423                         irda_task_next_state(task, IRDA_TASK_CHILD_WAIT);
 424
 425                         /* Give dongle 1 sec to finish */
 426                         ret = msecs_to_jiffies(1000);
 427                 } else
 428                         /* Child finished immediately */
 429                         irda_task_next_state(task, IRDA_TASK_CHILD_DONE);
 430                 break;
 431         case IRDA_TASK_CHILD_WAIT:
 432                 IRDA_WARNING("%s(), changing speed of dongle timed out!\n", __FUNCTION__);
 433                 ret = -1;
 434                 break;
 435         case IRDA_TASK_CHILD_DONE:
 436                 /* Finally we are ready to change the speed */
 437                 self->change_speed(self->priv, speed);
 438
 439                 irda_task_next_state(task, IRDA_TASK_DONE);
 440                 break;
 441         default:
 442                 IRDA_ERROR("%s(), unknown state %d\n",
 443                            __FUNCTION__, task->state);
 444                 irda_task_next_state(task, IRDA_TASK_DONE);
 445                 ret = -1;
 446                 break;
 447         }
 448         /* Put stuff in the state we found them - Jean II */
 449         if(wasunlocked) {
 450                 spin_unlock_irqrestore(&self->lock, flags);
 451         }
 452
 453         return ret;
 454 }
 455
 456 /*
 457  * Function irport_change_speed_complete (task)
 458  *
 459  *    Called when the change speed operation completes
 460  *
 461  */
 462 static int irport_change_speed_complete(struct irda_task *task)
 463 {
 464         struct irport_cb *self;
 465
 466         IRDA_DEBUG(1, "%s()\n", __FUNCTION__);
 467
 468         self = (struct irport_cb *) task->instance;
 469
 470         IRDA_ASSERT(self != NULL, return -1;);
 471         IRDA_ASSERT(self->netdev != NULL, return -1;);
 472
 473         /* Finished changing speed, so we are not busy any longer */
 474         /* Signal network layer so it can try to send the frame */
 475
 476         netif_wake_queue(self->netdev);
 477
 478         return 0;
 479 }
 480
 481 /*
 482  * Function irport_timeout (struct net_device *dev)
 483  *
 484  *    The networking layer thinks we timed out.
 485  *
 486  */
 487
 488 static void irport_timeout(struct net_device *dev)
 489 {
 490         struct irport_cb *self;
 491         int iobase;
 492         int iir, lsr;
 493         unsigned long flags;
 494
 495         self = (struct irport_cb *) dev->priv;
 496         IRDA_ASSERT(self != NULL, return;);
 497         iobase = self->io.sir_base;
 498
 499         IRDA_WARNING("%s: transmit timed out, jiffies = %ld, trans_start = %ld\n",
 500                 dev->name, jiffies, dev->trans_start);
 501         spin_lock_irqsave(&self->lock, flags);
 502
 503         /* Debug what's happening... */
 504
 505         /* Get interrupt status */
 506         lsr = inb(iobase+UART_LSR);
 507         /* Read interrupt register */
 508         iir = inb(iobase+UART_IIR);
 509         IRDA_DEBUG(0, "%s(), iir=%02x, lsr=%02x, iobase=%#x\n",
 510                    __FUNCTION__, iir, lsr, iobase);
 511
 512         IRDA_DEBUG(0, "%s(), transmitting=%d, remain=%d, done=%d\n",
 513                    __FUNCTION__, self->transmitting, self->tx_buff.len,
 514                    self->tx_buff.data - self->tx_buff.head);
 515
 516         /* Now, restart the port */
 517         irport_start(self);
 518         self->change_speed(self->priv, self->io.speed);
 519         /* This will re-enable irqs */
 520         outb(/*UART_IER_RLSI|*/UART_IER_RDI/*|UART_IER_THRI*/, iobase+UART_IER);
 521         dev->trans_start = jiffies;
 522         spin_unlock_irqrestore(&self->lock, flags);
 523
 524         netif_wake_queue(dev);
 525 }
 526
 527 /*
 528  * Function irport_wait_hw_transmitter_finish ()
 529  *
 530  *    Wait for the real end of HW transmission
 531  *
 532  * The UART is a strict FIFO, and we get called only when we have finished
 533  * pushing data to the FIFO, so the maximum amount of time we must wait
 534  * is only for the FIFO to drain out.
 535  *
 536  * We use a simple calibrated loop. We may need to adjust the loop
 537  * delay (udelay) to balance I/O traffic and latency. And we also need to
 538  * adjust the maximum timeout.
 539  * It would probably be better to wait for the proper interrupt,
 540  * but it doesn't seem to be available.
 541  *
 542  * We can't use jiffies or kernel timers because :
 543  * 1) We are called from the interrupt handler, which disable softirqs,
 544  * so jiffies won't be increased
 545  * 2) Jiffies granularity is usually very coarse (10ms), and we don't
 546  * want to wait that long to detect stuck hardware.
 547  * Jean II
 548  */
 549
 550 static void irport_wait_hw_transmitter_finish(struct irport_cb *self)
 551 {
 552         int iobase;
 553         int count = 1000;       /* 1 ms */
 554
 555         iobase = self->io.sir_base;
 556
 557         /* Calibrated busy loop */
 558         while((count-- > 0) && !(inb(iobase+UART_LSR) & UART_LSR_TEMT))
 559                 udelay(1);
 560
 561         if(count == 0)
 562                 IRDA_DEBUG(0, "%s(): stuck transmitter\n", __FUNCTION__);
 563 }
 564
 565 /*
 566  * Function irport_hard_start_xmit (struct sk_buff *skb, struct net_device *dev)
 567  *
 568  *    Transmits the current frame until FIFO is full, then
 569  *    waits until the next transmitt interrupt, and continues until the
 570  *    frame is transmitted.
 571  */
 572 static int irport_hard_xmit(struct sk_buff *skb, struct net_device *dev)
 573 {
 574         struct irport_cb *self;
 575         unsigned long flags;
 576         int iobase;
 577         s32 speed;
 578
 579         IRDA_DEBUG(1, "%s()\n", __FUNCTION__);
 580
 581         IRDA_ASSERT(dev != NULL, return 0;);
 582
 583         self = (struct irport_cb *) dev->priv;
 584         IRDA_ASSERT(self != NULL, return 0;);
 585
 586         iobase = self->io.sir_base;
 587
 588         netif_stop_queue(dev);
 589
 590         /* Make sure tests & speed change are atomic */
 591         spin_lock_irqsave(&self->lock, flags);
 592
 593         /* Check if we need to change the speed */
 594         speed = irda_get_next_speed(skb);
 595         if ((speed != self->io.speed) && (speed != -1)) {
 596                 /* Check for empty frame */
 597                 if (!skb->len) {
 598                         /*
 599                          * We send frames one by one in SIR mode (no
 600                          * pipelining), so at this point, if we were sending
 601                          * a previous frame, we just received the interrupt
 602                          * telling us it is finished (UART_IIR_THRI).
 603                          * Therefore, waiting for the transmitter to really
 604                          * finish draining the fifo won't take too long.
 605                          * And the interrupt handler is not expected to run.
 606                          * - Jean II */
 607                         irport_wait_hw_transmitter_finish(self);
 608                         /* Better go there already locked - Jean II */
 609                         irda_task_execute(self, __irport_change_speed,
 610                                           irport_change_speed_complete,
 611                                           NULL, (void *) speed);
 612                         dev->trans_start = jiffies;
 613                         spin_unlock_irqrestore(&self->lock, flags);
 614                         dev_kfree_skb(skb);
 615                         return 0;
 616                 } else
 617                         self->new_speed = speed;
 618         }
 619
 620         /* Init tx buffer */
 621         self->tx_buff.data = self->tx_buff.head;
 622
 623         /* Copy skb to tx_buff while wrapping, stuffing and making CRC */
 624         self->tx_buff.len = async_wrap_skb(skb, self->tx_buff.data,
 625                                            self->tx_buff.truesize);
 626
 627         self->stats.tx_bytes += self->tx_buff.len;
 628
 629         /* We are transmitting */
 630         self->transmitting = 1;
 631
 632         /* Turn on transmit finished interrupt. Will fire immediately!  */
 633         outb(UART_IER_THRI, iobase+UART_IER);
 634
 635         dev->trans_start = jiffies;
 636         spin_unlock_irqrestore(&self->lock, flags);
 637
 638         dev_kfree_skb(skb);
 639
 640         return 0;
 641 }
 642
 643 /*
 644  * Function irport_write (driver)
 645  *
 646  *    Fill Tx FIFO with transmit data
 647  *
 648  * Called only from irport_write_wakeup()
 649  */
 650 static inline int irport_write(int iobase, int fifo_size, __u8 *buf, int len)
 651 {
 652         int actual = 0;
 653
 654         /* Fill FIFO with current frame */
 655         while ((actual < fifo_size) && (actual < len)) {
 656                 /* Transmit next byte */
 657                 outb(buf[actual], iobase+UART_TX);
 658
 659                 actual++;
 660         }
 661
 662         return actual;
 663 }
 664
 665 /*
 666  * Function irport_write_wakeup (tty)
 667  *
 668  *    Called by the driver when there's room for more data.  If we have
 669  *    more packets to send, we send them here.
 670  *
 671  * Called only from irport_interrupt()
 672  * Make sure this function is *not* called while we are receiving,
 673  * otherwise we will reset fifo and loose data :-(
 674  */
 675 static inline void irport_write_wakeup(struct irport_cb *self)
 676 {
 677         int actual = 0;
 678         int iobase;
 679         unsigned int fcr;
 680
 681         IRDA_ASSERT(self != NULL, return;);
 682
 683         IRDA_DEBUG(4, "%s()\n", __FUNCTION__);
 684
 685         iobase = self->io.sir_base;
 686
 687         /* Finished with frame?  */
 688         if (self->tx_buff.len > 0)  {
 689                 /* Write data left in transmit buffer */
 690                 actual = irport_write(iobase, self->io.fifo_size,
 691                                       self->tx_buff.data, self->tx_buff.len);
 692                 self->tx_buff.data += actual;
 693                 self->tx_buff.len  -= actual;
 694         } else {
 695                 /*
 696                  *  Now serial buffer is almost free & we can start
 697                  *  transmission of another packet. But first we must check
 698                  *  if we need to change the speed of the hardware
 699                  */
 700                 if (self->new_speed) {
 701                         irport_wait_hw_transmitter_finish(self);
 702                         irda_task_execute(self, __irport_change_speed,
 703                                           irport_change_speed_complete,
 704                                           NULL, (void *) self->new_speed);
 705                         self->new_speed = 0;
 706                 } else {
 707                         /* Tell network layer that we want more frames */
 708                         netif_wake_queue(self->netdev);
 709                 }
 710                 self->stats.tx_packets++;
 711
 712                 /*
 713                  * Reset Rx FIFO to make sure that all reflected transmit data
 714                  * is discarded. This is needed for half duplex operation
 715                  */
 716                 fcr = irport_get_fcr(self->io.speed);
 717                 fcr |= UART_FCR_CLEAR_RCVR;
 718                 outb(fcr, iobase+UART_FCR);
 719
 720                 /* Finished transmitting */
 721                 self->transmitting = 0;
 722
 723                 /* Turn on receive interrupts */
 724                 outb(UART_IER_RDI, iobase+UART_IER);
 725
 726                 IRDA_DEBUG(1, "%s() : finished Tx\n", __FUNCTION__);
 727         }
 728 }
 729
 730 /*
 731  * Function irport_receive (self)
 732  *
 733  *    Receive one frame from the infrared port
 734  *
 735  * Called only from irport_interrupt()
 736  */
 737 static inline void irport_receive(struct irport_cb *self)
 738 {
 739         int boguscount = 0;
 740         int iobase;
 741
 742         IRDA_ASSERT(self != NULL, return;);
 743
 744         iobase = self->io.sir_base;
 745
 746         /*
 747          * Receive all characters in Rx FIFO, unwrap and unstuff them.
 748          * async_unwrap_char will deliver all found frames
 749          */
 750         do {
 751                 async_unwrap_char(self->netdev, &self->stats, &self->rx_buff,
 752                                   inb(iobase+UART_RX));
 753
 754                 /* Make sure we don't stay here too long */
 755                 if (boguscount++ > 32) {
 756                         IRDA_DEBUG(2,"%s(), breaking!\n", __FUNCTION__);
 757                         break;
 758                 }
 759         } while (inb(iobase+UART_LSR) & UART_LSR_DR);
 760 }
 761
 762 /*
 763  * Function irport_interrupt (irq, dev_id)
 764  *
 765  *    Interrupt handler
 766  */
 767 static irqreturn_t irport_interrupt(int irq, void *dev_id)
 768 {
 769         struct net_device *dev = dev_id;
 770         struct irport_cb *self;
 771         int boguscount = 0;
 772         int iobase;
 773         int iir, lsr;
 774         int handled = 0;
 775
 776         self = dev->priv;
 777
 778         spin_lock(&self->lock);
 779
 780         iobase = self->io.sir_base;
 781
 782         /* Cut'n'paste interrupt routine from serial.c
 783          * This version try to minimise latency and I/O operations.
 784          * Simplified and modified to enforce half duplex operation.
 785          * - Jean II */
 786
 787         /* Check status even is iir reg is cleared, more robust and
 788          * eliminate a read on the I/O bus - Jean II */
 789         do {
 790                 /* Get interrupt status ; Clear interrupt */
 791                 lsr = inb(iobase+UART_LSR);
 792
 793                 /* Are we receiving or transmitting ? */
 794                 if(!self->transmitting) {
 795                         /* Received something ? */
 796                         if (lsr & UART_LSR_DR)
 797                                 irport_receive(self);
 798                 } else {
 799                         /* Room in Tx fifo ? */
 800                         if (lsr & (UART_LSR_THRE | UART_LSR_TEMT))
 801                                 irport_write_wakeup(self);
 802                 }
 803
 804                 /* A bit hackish, but working as expected... Jean II */
 805                 if(lsr & (UART_LSR_THRE | UART_LSR_TEMT | UART_LSR_DR))
 806                         handled = 1;
 807
 808                 /* Make sure we don't stay here to long */
 809                 if (boguscount++ > 10) {
 810                         IRDA_WARNING("%s() irq handler looping : lsr=%02x\n",
 811                                      __FUNCTION__, lsr);
 812                         break;
 813                 }
 814
 815                 /* Read interrupt register */
 816                 iir = inb(iobase+UART_IIR);
 817
 818                 /* Enable this debug only when no other options and at low
 819                  * bit rates, otherwise it may cause Rx overruns (lsr=63).
 820                  * - Jean II */
 821                 IRDA_DEBUG(6, "%s(), iir=%02x, lsr=%02x, iobase=%#x\n",
 822                             __FUNCTION__, iir, lsr, iobase);
 823
 824                 /* As long as interrupt pending... */
 825         } while ((iir & UART_IIR_NO_INT) == 0);
 826
 827         spin_unlock(&self->lock);
 828         return IRQ_RETVAL(handled);
 829 }
 830
 831 /*
 832  * Function irport_net_open (dev)
 833  *
 834  *    Network device is taken up. Usually this is done by "ifconfig irda0 up"
 835  *
 836  */
 837 static int irport_net_open(struct net_device *dev)
 838 {
 839         struct irport_cb *self;
 840         int iobase;
 841         char hwname[16];
 842         unsigned long flags;
 843
 844         IRDA_DEBUG(2, "%s()\n", __FUNCTION__);
 845
 846         IRDA_ASSERT(dev != NULL, return -1;);
 847         self = (struct irport_cb *) dev->priv;
 848
 849         iobase = self->io.sir_base;
 850
 851         if (request_irq(self->io.irq, self->interrupt, 0, dev->name,
 852                         (void *) dev)) {
 853                 IRDA_DEBUG(0, "%s(), unable to allocate irq=%d\n",
 854                            __FUNCTION__, self->io.irq);
 855                 return -EAGAIN;
 856         }
 857
 858         spin_lock_irqsave(&self->lock, flags);
 859         /* Init uart */
 860         irport_start(self);
 861         /* Set 9600 bauds per default, including at the dongle */
 862         irda_task_execute(self, __irport_change_speed,
 863                           irport_change_speed_complete,
 864                           NULL, (void *) 9600);
 865         spin_unlock_irqrestore(&self->lock, flags);
 866
 867
 868         /* Give self a hardware name */
 869         sprintf(hwname, "SIR @ 0x%03x", self->io.sir_base);
 870
 871         /*
 872          * Open new IrLAP layer instance, now that everything should be
 873          * initialized properly
 874          */
 875         self->irlap = irlap_open(dev, &self->qos, hwname);
 876
 877         /* Ready to play! */
 878
 879         netif_start_queue(dev);
 880
 881         return 0;
 882 }
 883
 884 /*
 885  * Function irport_net_close (self)
 886  *
 887  *    Network device is taken down. Usually this is done by
 888  *    "ifconfig irda0 down"
 889  */
 890 static int irport_net_close(struct net_device *dev)
 891 {
 892         struct irport_cb *self;
 893         int iobase;
 894         unsigned long flags;
 895
 896         IRDA_DEBUG(4, "%s()\n", __FUNCTION__);
 897
 898         IRDA_ASSERT(dev != NULL, return -1;);
 899         self = (struct irport_cb *) dev->priv;
 900
 901         IRDA_ASSERT(self != NULL, return -1;);
 902
 903         iobase = self->io.sir_base;
 904
 905         /* Stop device */
 906         netif_stop_queue(dev);
 907
 908         /* Stop and remove instance of IrLAP */
 909         if (self->irlap)
 910                 irlap_close(self->irlap);
 911         self->irlap = NULL;
 912
 913         spin_lock_irqsave(&self->lock, flags);
 914         irport_stop(self);
 915         spin_unlock_irqrestore(&self->lock, flags);
 916
 917         free_irq(self->io.irq, dev);
 918
 919         return 0;
 920 }
 921
 922 /*
 923  * Function irport_is_receiving (self)
 924  *
 925  *    Returns true is we are currently receiving data
 926  *
 927  */
 928 static inline int irport_is_receiving(struct irport_cb *self)
 929 {
 930         return (self->rx_buff.state != OUTSIDE_FRAME);
 931 }
 932
 933 /*
 934  * Function irport_set_dtr_rts (tty, dtr, rts)
 935  *
 936  *    This function can be used by dongles etc. to set or reset the status
 937  *    of the dtr and rts lines
 938  */
 939 static int irport_set_dtr_rts(struct net_device *dev, int dtr, int rts)
 940 {
 941         struct irport_cb *self = dev->priv;
 942         int iobase;
 943
 944         IRDA_ASSERT(self != NULL, return -1;);
 945
 946         iobase = self->io.sir_base;
 947
 948         if (dtr)
 949                 dtr = UART_MCR_DTR;
 950         if (rts)
 951                 rts = UART_MCR_RTS;
 952
 953         outb(dtr|rts|UART_MCR_OUT2, iobase+UART_MCR);
 954
 955         return 0;
 956 }
 957
 958 static int irport_raw_write(struct net_device *dev, __u8 *buf, int len)
 959 {
 960         struct irport_cb *self = (struct irport_cb *) dev->priv;
 961         int actual = 0;
 962         int iobase;
 963
 964         IRDA_ASSERT(self != NULL, return -1;);
 965
 966         iobase = self->io.sir_base;
 967
 968         /* Tx FIFO should be empty! */
 969         if (!(inb(iobase+UART_LSR) & UART_LSR_THRE)) {
 970                 IRDA_DEBUG( 0, "%s(), failed, fifo not empty!\n", __FUNCTION__);
 971                 return -1;
 972         }
 973
 974         /* Fill FIFO with current frame */
 975         while (actual < len) {
 976                 /* Transmit next byte */
 977                 outb(buf[actual], iobase+UART_TX);
 978                 actual++;
 979         }
 980
 981         return actual;
 982 }
 983
 984 /*
 985  * Function irport_net_ioctl (dev, rq, cmd)
 986  *
 987  *    Process IOCTL commands for this device
 988  *
 989  */
 990 static int irport_net_ioctl(struct net_device *dev, struct ifreq *rq, int cmd)
 991 {
 992         struct if_irda_req *irq = (struct if_irda_req *) rq;
 993         struct irport_cb *self;
 994         dongle_t *dongle;
 995         unsigned long flags;
 996         int ret = 0;
 997
 998         IRDA_ASSERT(dev != NULL, return -1;);
 999
1000         self = dev->priv;
1001
1002         IRDA_ASSERT(self != NULL, return -1;);
1003
1004         IRDA_DEBUG(2, "%s(), %s, (cmd=0x%X)\n", __FUNCTION__, dev->name, cmd);
1005
1006         switch (cmd) {
1007         case SIOCSBANDWIDTH: /* Set bandwidth */
1008                 if (!capable(CAP_NET_ADMIN))
1009                         ret = -EPERM;
1010                 else
1011                         irda_task_execute(self, __irport_change_speed, NULL,
1012                                           NULL, (void *) irq->ifr_baudrate);
1013                 break;
1014         case SIOCSDONGLE: /* Set dongle */
1015                 if (!capable(CAP_NET_ADMIN)) {
1016                         ret = -EPERM;
1017                         break;
1018                 }
1019
1020                 /* Locking :
1021                  * irda_device_dongle_init() can't be locked.
1022                  * irda_task_execute() doesn't need to be locked.
1023                  * Jean II
1024                  */
1025
1026                 /* Initialize dongle */
1027                 dongle = irda_device_dongle_init(dev, irq->ifr_dongle);
1028                 if (!dongle)
1029                         break;
1030
1031                 dongle->set_mode    = NULL;
1032                 dongle->read        = NULL;
1033                 dongle->write       = irport_raw_write;
1034                 dongle->set_dtr_rts = irport_set_dtr_rts;
1035
1036                 /* Now initialize the dongle!  */
1037                 dongle->issue->open(dongle, &self->qos);
1038
1039                 /* Reset dongle */
1040                 irda_task_execute(dongle, dongle->issue->reset, NULL, NULL,
1041                                   NULL);
1042
1043                 /* Make dongle available to driver only now to avoid
1044                  * race conditions - Jean II */
1045                 self->dongle = dongle;
1046                 break;
1047         case SIOCSMEDIABUSY: /* Set media busy */
1048                 if (!capable(CAP_NET_ADMIN)) {
1049                         ret = -EPERM;
1050                         break;
1051                 }
1052
1053                 irda_device_set_media_busy(self->netdev, TRUE);
1054                 break;
1055         case SIOCGRECEIVING: /* Check if we are receiving right now */
1056                 irq->ifr_receiving = irport_is_receiving(self);
1057                 break;
1058         case SIOCSDTRRTS:
1059                 if (!capable(CAP_NET_ADMIN)) {
1060                         ret = -EPERM;
1061                         break;
1062                 }
1063
1064                 /* No real need to lock... */
1065                 spin_lock_irqsave(&self->lock, flags);
1066                 irport_set_dtr_rts(dev, irq->ifr_dtr, irq->ifr_rts);
1067                 spin_unlock_irqrestore(&self->lock, flags);
1068                 break;
1069         default:
1070                 ret = -EOPNOTSUPP;
1071         }
1072
1073         return ret;
1074 }
1075
1076 static struct net_device_stats *irport_net_get_stats(struct net_device *dev)
1077 {
1078         struct irport_cb *self = (struct irport_cb *) dev->priv;
1079
1080         return &self->stats;
1081 }
1082
1083 static int __init irport_init(void)
1084 {
1085         int i;
1086
1087         for (i=0; (io[i] < 2000) && (i < ARRAY_SIZE(dev_self)); i++) {
1088                 if (irport_open(i, io[i], irq[i]) != NULL)
1089                         return 0;
1090         }
1091         /*
1092          * Maybe something failed, but we can still be usable for FIR drivers
1093          */
1094         return 0;
1095 }
1096
1097 /*
1098  * Function irport_cleanup ()
1099  *
1100  *    Close all configured ports
1101  *
1102  */
1103 static void __exit irport_cleanup(void)
1104 {
1105         int i;
1106
1107         IRDA_DEBUG( 4, "%s()\n", __FUNCTION__);
1108
1109         for (i=0; i < ARRAY_SIZE(dev_self); i++) {
1110                 if (dev_self[i])
1111                         irport_close(dev_self[i]);
1112         }
1113 }
1114
1115 module_param_array(io, int, NULL, 0);
1116 MODULE_PARM_DESC(io, "Base I/O addresses");
1117 module_param_array(irq, int, NULL, 0);
1118 MODULE_PARM_DESC(irq, "IRQ lines");
1119
1120 MODULE_AUTHOR("Dag Brattli <dagb@cs.uit.no>");
1121 MODULE_DESCRIPTION("Half duplex serial driver for IrDA SIR mode");
1122 MODULE_LICENSE("GPL");
1123
1124 module_init(irport_init);
1125 module_exit(irport_cleanup);
1126