Full support for Ginger Console
[linux-ginger.git] / arch / xtensa / platforms / iss / network.c
blob2f0b86b37cf9840b47d8281ad6794fab26a757dd
1 /*
3 * arch/xtensa/platforms/iss/network.c
5 * Platform specific initialization.
7 * Authors: Chris Zankel <chris@zankel.net>
8 * Based on work form the UML team.
10 * Copyright 2005 Tensilica Inc.
12 * This program is free software; you can redistribute it and/or modify it
13 * under the terms of the GNU General Public License as published by the
14 * Free Software Foundation; either version 2 of the License, or (at your
15 * option) any later version.
19 #include <linux/list.h>
20 #include <linux/irq.h>
21 #include <linux/spinlock.h>
22 #include <linux/slab.h>
23 #include <linux/timer.h>
24 #include <linux/if_ether.h>
25 #include <linux/inetdevice.h>
26 #include <linux/init.h>
27 #include <linux/if_tun.h>
28 #include <linux/etherdevice.h>
29 #include <linux/interrupt.h>
30 #include <linux/ioctl.h>
31 #include <linux/bootmem.h>
32 #include <linux/ethtool.h>
33 #include <linux/rtnetlink.h>
34 #include <linux/platform_device.h>
36 #include <platform/simcall.h>
38 #define DRIVER_NAME "iss-netdev"
39 #define ETH_MAX_PACKET 1500
40 #define ETH_HEADER_OTHER 14
41 #define ISS_NET_TIMER_VALUE (2 * HZ)
44 static DEFINE_SPINLOCK(opened_lock);
45 static LIST_HEAD(opened);
47 static DEFINE_SPINLOCK(devices_lock);
48 static LIST_HEAD(devices);
50 /* ------------------------------------------------------------------------- */
52 /* We currently only support the TUNTAP transport protocol. */
54 #define TRANSPORT_TUNTAP_NAME "tuntap"
55 #define TRANSPORT_TUNTAP_MTU ETH_MAX_PACKET
57 struct tuntap_info {
58 char dev_name[IFNAMSIZ];
59 int fixed_config;
60 unsigned char gw[ETH_ALEN];
61 int fd;
64 /* ------------------------------------------------------------------------- */
67 /* This structure contains out private information for the driver. */
69 struct iss_net_private {
71 struct list_head device_list;
72 struct list_head opened_list;
74 spinlock_t lock;
75 struct net_device *dev;
76 struct platform_device pdev;
77 struct timer_list tl;
78 struct net_device_stats stats;
80 struct timer_list timer;
81 unsigned int timer_val;
83 int index;
84 int mtu;
86 unsigned char mac[ETH_ALEN];
87 int have_mac;
89 struct {
90 union {
91 struct tuntap_info tuntap;
92 } info;
94 int (*open)(struct iss_net_private *lp);
95 void (*close)(struct iss_net_private *lp);
96 int (*read)(struct iss_net_private *lp, struct sk_buff **skb);
97 int (*write)(struct iss_net_private *lp, struct sk_buff **skb);
98 unsigned short (*protocol)(struct sk_buff *skb);
99 int (*poll)(struct iss_net_private *lp);
100 } tp;
104 /* ======================= ISS SIMCALL INTERFACE =========================== */
106 /* Note: __simc must _not_ be declared inline! */
108 static int errno;
110 static int __simc (int a, int b, int c, int d, int e, int f) __attribute__((__noinline__));
111 static int __simc (int a, int b, int c, int d, int e, int f)
113 int ret;
114 __asm__ __volatile__ ("simcall\n"
115 "mov %0, a2\n"
116 "mov %1, a3\n" : "=a" (ret), "=a" (errno)
117 : : "a2", "a3");
118 return ret;
121 static int inline simc_open(char *file, int flags, int mode)
123 return __simc(SYS_open, (int) file, flags, mode, 0, 0);
126 static int inline simc_close(int fd)
128 return __simc(SYS_close, fd, 0, 0, 0, 0);
131 static int inline simc_ioctl(int fd, int request, void *arg)
133 return __simc(SYS_ioctl, fd, request, (int) arg, 0, 0);
136 static int inline simc_read(int fd, void *buf, size_t count)
138 return __simc(SYS_read, fd, (int) buf, count, 0, 0);
141 static int inline simc_write(int fd, void *buf, size_t count)
143 return __simc(SYS_write, fd, (int) buf, count, 0, 0);
146 static int inline simc_poll(int fd)
148 struct timeval tv = { .tv_sec = 0, .tv_usec = 0 };
150 return __simc(SYS_select_one, fd, XTISS_SELECT_ONE_READ, (int)&tv,0,0);
153 /* ================================ HELPERS ================================ */
156 static char *split_if_spec(char *str, ...)
158 char **arg, *end;
159 va_list ap;
161 va_start(ap, str);
162 while ((arg = va_arg(ap, char**)) != NULL) {
163 if (*str == '\0')
164 return NULL;
165 end = strchr(str, ',');
166 if (end != str)
167 *arg = str;
168 if (end == NULL)
169 return NULL;
170 *end ++ = '\0';
171 str = end;
173 va_end(ap);
174 return str;
178 #if 0
179 /* Adjust SKB. */
181 struct sk_buff *ether_adjust_skb(struct sk_buff *skb, int extra)
183 if ((skb != NULL) && (skb_tailroom(skb) < extra)) {
184 struct sk_buff *skb2;
186 skb2 = skb_copy_expand(skb, 0, extra, GFP_ATOMIC);
187 dev_kfree_skb(skb);
188 skb = skb2;
190 if (skb != NULL)
191 skb_put(skb, extra);
193 return skb;
195 #endif
197 /* Return the IP address as a string for a given device. */
199 static void dev_ip_addr(void *d, char *buf, char *bin_buf)
201 struct net_device *dev = d;
202 struct in_device *ip = dev->ip_ptr;
203 struct in_ifaddr *in;
204 __be32 addr;
206 if ((ip == NULL) || ((in = ip->ifa_list) == NULL)) {
207 printk(KERN_WARNING "Device not assigned an IP address!\n");
208 return;
211 addr = in->ifa_address;
212 sprintf(buf, "%d.%d.%d.%d", addr & 0xff, (addr >> 8) & 0xff,
213 (addr >> 16) & 0xff, addr >> 24);
215 if (bin_buf) {
216 bin_buf[0] = addr & 0xff;
217 bin_buf[1] = (addr >> 8) & 0xff;
218 bin_buf[2] = (addr >> 16) & 0xff;
219 bin_buf[3] = addr >> 24;
223 /* Set Ethernet address of the specified device. */
225 static void inline set_ether_mac(void *d, unsigned char *addr)
227 struct net_device *dev = d;
228 memcpy(dev->dev_addr, addr, ETH_ALEN);
232 /* ======================= TUNTAP TRANSPORT INTERFACE ====================== */
234 static int tuntap_open(struct iss_net_private *lp)
236 struct ifreq ifr;
237 char *dev_name = lp->tp.info.tuntap.dev_name;
238 int err = -EINVAL;
239 int fd;
241 /* We currently only support a fixed configuration. */
243 if (!lp->tp.info.tuntap.fixed_config)
244 return -EINVAL;
246 if ((fd = simc_open("/dev/net/tun", 02, 0)) < 0) { /* O_RDWR */
247 printk("Failed to open /dev/net/tun, returned %d "
248 "(errno = %d)\n", fd, errno);
249 return fd;
252 memset(&ifr, 0, sizeof ifr);
253 ifr.ifr_flags = IFF_TAP | IFF_NO_PI;
254 strlcpy(ifr.ifr_name, dev_name, sizeof ifr.ifr_name);
256 if ((err = simc_ioctl(fd, TUNSETIFF, (void*) &ifr)) < 0) {
257 printk("Failed to set interface, returned %d "
258 "(errno = %d)\n", err, errno);
259 simc_close(fd);
260 return err;
263 lp->tp.info.tuntap.fd = fd;
264 return err;
267 static void tuntap_close(struct iss_net_private *lp)
269 #if 0
270 if (lp->tp.info.tuntap.fixed_config)
271 iter_addresses(lp->tp.info.tuntap.dev, close_addr, lp->host.dev_name);
272 #endif
273 simc_close(lp->tp.info.tuntap.fd);
274 lp->tp.info.tuntap.fd = -1;
277 static int tuntap_read (struct iss_net_private *lp, struct sk_buff **skb)
279 #if 0
280 *skb = ether_adjust_skb(*skb, ETH_HEADER_OTHER);
281 if (*skb == NULL)
282 return -ENOMEM;
283 #endif
285 return simc_read(lp->tp.info.tuntap.fd,
286 (*skb)->data, (*skb)->dev->mtu + ETH_HEADER_OTHER);
289 static int tuntap_write (struct iss_net_private *lp, struct sk_buff **skb)
291 return simc_write(lp->tp.info.tuntap.fd, (*skb)->data, (*skb)->len);
294 unsigned short tuntap_protocol(struct sk_buff *skb)
296 return eth_type_trans(skb, skb->dev);
299 static int tuntap_poll(struct iss_net_private *lp)
301 return simc_poll(lp->tp.info.tuntap.fd);
305 * Currently only a device name is supported.
306 * ethX=tuntap[,[mac address][,[device name]]]
309 static int tuntap_probe(struct iss_net_private *lp, int index, char *init)
311 const int len = strlen(TRANSPORT_TUNTAP_NAME);
312 char *dev_name = NULL, *mac_str = NULL, *rem = NULL;
314 /* Transport should be 'tuntap': ethX=tuntap,mac,dev_name */
316 if (strncmp(init, TRANSPORT_TUNTAP_NAME, len))
317 return 0;
319 if (*(init += strlen(TRANSPORT_TUNTAP_NAME)) == ',') {
320 if ((rem=split_if_spec(init+1, &mac_str, &dev_name)) != NULL) {
321 printk("Extra garbage on specification : '%s'\n", rem);
322 return 0;
324 } else if (*init != '\0') {
325 printk("Invalid argument: %s. Skipping device!\n", init);
326 return 0;
329 if (dev_name) {
330 strncpy(lp->tp.info.tuntap.dev_name, dev_name,
331 sizeof lp->tp.info.tuntap.dev_name);
332 lp->tp.info.tuntap.fixed_config = 1;
333 } else
334 strcpy(lp->tp.info.tuntap.dev_name, TRANSPORT_TUNTAP_NAME);
337 #if 0
338 if (setup_etheraddr(mac_str, lp->mac))
339 lp->have_mac = 1;
340 #endif
341 lp->mtu = TRANSPORT_TUNTAP_MTU;
343 //lp->info.tuntap.gate_addr = gate_addr;
345 lp->tp.info.tuntap.fd = -1;
347 lp->tp.open = tuntap_open;
348 lp->tp.close = tuntap_close;
349 lp->tp.read = tuntap_read;
350 lp->tp.write = tuntap_write;
351 lp->tp.protocol = tuntap_protocol;
352 lp->tp.poll = tuntap_poll;
354 printk("TUN/TAP backend - ");
355 #if 0
356 if (lp->host.gate_addr != NULL)
357 printk("IP = %s", lp->host.gate_addr);
358 #endif
359 printk("\n");
361 return 1;
364 /* ================================ ISS NET ================================ */
366 static int iss_net_rx(struct net_device *dev)
368 struct iss_net_private *lp = netdev_priv(dev);
369 int pkt_len;
370 struct sk_buff *skb;
372 /* Check if there is any new data. */
374 if (lp->tp.poll(lp) == 0)
375 return 0;
377 /* Try to allocate memory, if it fails, try again next round. */
379 if ((skb = dev_alloc_skb(dev->mtu + 2 + ETH_HEADER_OTHER)) == NULL) {
380 lp->stats.rx_dropped++;
381 return 0;
384 skb_reserve(skb, 2);
386 /* Setup skb */
388 skb->dev = dev;
389 skb_reset_mac_header(skb);
390 pkt_len = lp->tp.read(lp, &skb);
391 skb_put(skb, pkt_len);
393 if (pkt_len > 0) {
394 skb_trim(skb, pkt_len);
395 skb->protocol = lp->tp.protocol(skb);
397 lp->stats.rx_bytes += skb->len;
398 lp->stats.rx_packets++;
399 // netif_rx(skb);
400 netif_rx_ni(skb);
401 return pkt_len;
403 kfree_skb(skb);
404 return pkt_len;
407 static int iss_net_poll(void)
409 struct list_head *ele;
410 int err, ret = 0;
412 spin_lock(&opened_lock);
414 list_for_each(ele, &opened) {
415 struct iss_net_private *lp;
417 lp = list_entry(ele, struct iss_net_private, opened_list);
419 if (!netif_running(lp->dev))
420 break;
422 spin_lock(&lp->lock);
424 while ((err = iss_net_rx(lp->dev)) > 0)
425 ret++;
427 spin_unlock(&lp->lock);
429 if (err < 0) {
430 printk(KERN_ERR "Device '%s' read returned %d, "
431 "shutting it down\n", lp->dev->name, err);
432 dev_close(lp->dev);
433 } else {
434 // FIXME reactivate_fd(lp->fd, ISS_ETH_IRQ);
438 spin_unlock(&opened_lock);
439 return ret;
443 static void iss_net_timer(unsigned long priv)
445 struct iss_net_private* lp = (struct iss_net_private*) priv;
447 spin_lock(&lp->lock);
449 iss_net_poll();
451 mod_timer(&lp->timer, jiffies + lp->timer_val);
453 spin_unlock(&lp->lock);
457 static int iss_net_open(struct net_device *dev)
459 struct iss_net_private *lp = netdev_priv(dev);
460 char addr[sizeof "255.255.255.255\0"];
461 int err;
463 spin_lock(&lp->lock);
465 if ((err = lp->tp.open(lp)) < 0)
466 goto out;
468 if (!lp->have_mac) {
469 dev_ip_addr(dev, addr, &lp->mac[2]);
470 set_ether_mac(dev, lp->mac);
473 netif_start_queue(dev);
475 /* clear buffer - it can happen that the host side of the interface
476 * is full when we get here. In this case, new data is never queued,
477 * SIGIOs never arrive, and the net never works.
479 while ((err = iss_net_rx(dev)) > 0)
482 spin_lock(&opened_lock);
483 list_add(&lp->opened_list, &opened);
484 spin_unlock(&opened_lock);
486 init_timer(&lp->timer);
487 lp->timer_val = ISS_NET_TIMER_VALUE;
488 lp->timer.data = (unsigned long) lp;
489 lp->timer.function = iss_net_timer;
490 mod_timer(&lp->timer, jiffies + lp->timer_val);
492 out:
493 spin_unlock(&lp->lock);
494 return err;
497 static int iss_net_close(struct net_device *dev)
499 struct iss_net_private *lp = netdev_priv(dev);
500 printk("iss_net_close!\n");
501 netif_stop_queue(dev);
502 spin_lock(&lp->lock);
504 spin_lock(&opened_lock);
505 list_del(&opened);
506 spin_unlock(&opened_lock);
508 del_timer_sync(&lp->timer);
510 lp->tp.close(lp);
512 spin_unlock(&lp->lock);
513 return 0;
516 static int iss_net_start_xmit(struct sk_buff *skb, struct net_device *dev)
518 struct iss_net_private *lp = netdev_priv(dev);
519 unsigned long flags;
520 int len;
522 netif_stop_queue(dev);
523 spin_lock_irqsave(&lp->lock, flags);
525 len = lp->tp.write(lp, &skb);
527 if (len == skb->len) {
528 lp->stats.tx_packets++;
529 lp->stats.tx_bytes += skb->len;
530 dev->trans_start = jiffies;
531 netif_start_queue(dev);
533 /* this is normally done in the interrupt when tx finishes */
534 netif_wake_queue(dev);
536 } else if (len == 0) {
537 netif_start_queue(dev);
538 lp->stats.tx_dropped++;
540 } else {
541 netif_start_queue(dev);
542 printk(KERN_ERR "iss_net_start_xmit: failed(%d)\n", len);
545 spin_unlock_irqrestore(&lp->lock, flags);
547 dev_kfree_skb(skb);
548 return NETDEV_TX_OK;
552 static struct net_device_stats *iss_net_get_stats(struct net_device *dev)
554 struct iss_net_private *lp = netdev_priv(dev);
555 return &lp->stats;
558 static void iss_net_set_multicast_list(struct net_device *dev)
560 #if 0
561 if (dev->flags & IFF_PROMISC)
562 return;
563 else if (dev->mc_count)
564 dev->flags |= IFF_ALLMULTI;
565 else
566 dev->flags &= ~IFF_ALLMULTI;
567 #endif
570 static void iss_net_tx_timeout(struct net_device *dev)
572 #if 0
573 dev->trans_start = jiffies;
574 netif_wake_queue(dev);
575 #endif
578 static int iss_net_set_mac(struct net_device *dev, void *addr)
580 #if 0
581 struct iss_net_private *lp = netdev_priv(dev);
582 struct sockaddr *hwaddr = addr;
584 spin_lock(&lp->lock);
585 memcpy(dev->dev_addr, hwaddr->sa_data, ETH_ALEN);
586 spin_unlock(&lp->lock);
587 #endif
589 return 0;
592 static int iss_net_change_mtu(struct net_device *dev, int new_mtu)
594 #if 0
595 struct iss_net_private *lp = netdev_priv(dev);
596 int err = 0;
598 spin_lock(&lp->lock);
600 // FIXME not needed new_mtu = transport_set_mtu(new_mtu, &lp->user);
602 if (new_mtu < 0)
603 err = new_mtu;
604 else
605 dev->mtu = new_mtu;
607 spin_unlock(&lp->lock);
608 return err;
609 #endif
610 return -EINVAL;
613 void iss_net_user_timer_expire(unsigned long _conn)
618 static struct platform_driver iss_net_driver = {
619 .driver = {
620 .name = DRIVER_NAME,
624 static int driver_registered;
626 static int iss_net_configure(int index, char *init)
628 struct net_device *dev;
629 struct iss_net_private *lp;
630 int err;
632 if ((dev = alloc_etherdev(sizeof *lp)) == NULL) {
633 printk(KERN_ERR "eth_configure: failed to allocate device\n");
634 return 1;
637 /* Initialize private element. */
639 lp = netdev_priv(dev);
640 *lp = ((struct iss_net_private) {
641 .device_list = LIST_HEAD_INIT(lp->device_list),
642 .opened_list = LIST_HEAD_INIT(lp->opened_list),
643 .lock = __SPIN_LOCK_UNLOCKED(lp.lock),
644 .dev = dev,
645 .index = index,
646 //.fd = -1,
647 .mac = { 0xfe, 0xfd, 0x0, 0x0, 0x0, 0x0 },
648 .have_mac = 0,
652 * Try all transport protocols.
653 * Note: more protocols can be added by adding '&& !X_init(lp, eth)'.
656 if (!tuntap_probe(lp, index, init)) {
657 printk("Invalid arguments. Skipping device!\n");
658 goto errout;
661 printk(KERN_INFO "Netdevice %d ", index);
662 if (lp->have_mac)
663 printk("(%pM) ", lp->mac);
664 printk(": ");
666 /* sysfs register */
668 if (!driver_registered) {
669 platform_driver_register(&iss_net_driver);
670 driver_registered = 1;
673 spin_lock(&devices_lock);
674 list_add(&lp->device_list, &devices);
675 spin_unlock(&devices_lock);
677 lp->pdev.id = index;
678 lp->pdev.name = DRIVER_NAME;
679 platform_device_register(&lp->pdev);
680 SET_NETDEV_DEV(dev,&lp->pdev.dev);
683 * If this name ends up conflicting with an existing registered
684 * netdevice, that is OK, register_netdev{,ice}() will notice this
685 * and fail.
687 snprintf(dev->name, sizeof dev->name, "eth%d", index);
689 dev->mtu = lp->mtu;
690 dev->open = iss_net_open;
691 dev->hard_start_xmit = iss_net_start_xmit;
692 dev->stop = iss_net_close;
693 dev->get_stats = iss_net_get_stats;
694 dev->set_multicast_list = iss_net_set_multicast_list;
695 dev->tx_timeout = iss_net_tx_timeout;
696 dev->set_mac_address = iss_net_set_mac;
697 dev->change_mtu = iss_net_change_mtu;
698 dev->watchdog_timeo = (HZ >> 1);
699 dev->irq = -1;
701 rtnl_lock();
702 err = register_netdevice(dev);
703 rtnl_unlock();
705 if (err) {
706 printk("Error registering net device!\n");
707 /* XXX: should we call ->remove() here? */
708 free_netdev(dev);
709 return 1;
712 init_timer(&lp->tl);
713 lp->tl.function = iss_net_user_timer_expire;
715 #if 0
716 if (lp->have_mac)
717 set_ether_mac(dev, lp->mac);
718 #endif
719 return 0;
721 errout:
722 // FIXME: unregister; free, etc..
723 return -EIO;
727 /* ------------------------------------------------------------------------- */
729 /* Filled in during early boot */
731 struct list_head eth_cmd_line = LIST_HEAD_INIT(eth_cmd_line);
733 struct iss_net_init {
734 struct list_head list;
735 char *init; /* init string */
736 int index;
740 * Parse the command line and look for 'ethX=...' fields, and register all
741 * those fields. They will be later initialized in iss_net_init.
744 #define ERR KERN_ERR "iss_net_setup: "
746 static int iss_net_setup(char *str)
748 struct iss_net_private *device = NULL;
749 struct iss_net_init *new;
750 struct list_head *ele;
751 char *end;
752 int n;
754 n = simple_strtoul(str, &end, 0);
755 if (end == str) {
756 printk(ERR "Failed to parse '%s'\n", str);
757 return 1;
759 if (n < 0) {
760 printk(ERR "Device %d is negative\n", n);
761 return 1;
763 if (*(str = end) != '=') {
764 printk(ERR "Expected '=' after device number\n");
765 return 1;
768 spin_lock(&devices_lock);
770 list_for_each(ele, &devices) {
771 device = list_entry(ele, struct iss_net_private, device_list);
772 if (device->index == n)
773 break;
776 spin_unlock(&devices_lock);
778 if (device && device->index == n) {
779 printk(ERR "Device %d already configured\n", n);
780 return 1;
783 if ((new = alloc_bootmem(sizeof new)) == NULL) {
784 printk("Alloc_bootmem failed\n");
785 return 1;
788 INIT_LIST_HEAD(&new->list);
789 new->index = n;
790 new->init = str + 1;
792 list_add_tail(&new->list, &eth_cmd_line);
793 return 1;
796 #undef ERR
798 __setup("eth=", iss_net_setup);
801 * Initialize all ISS Ethernet devices previously registered in iss_net_setup.
804 static int iss_net_init(void)
806 struct list_head *ele, *next;
808 /* Walk through all Ethernet devices specified in the command line. */
810 list_for_each_safe(ele, next, &eth_cmd_line) {
811 struct iss_net_init *eth;
812 eth = list_entry(ele, struct iss_net_init, list);
813 iss_net_configure(eth->index, eth->init);
816 return 1;
819 module_init(iss_net_init);