patch-2.0.36 linux/drivers/net/wic.c
Next file: linux/drivers/pci/pci.c
Previous file: linux/drivers/net/wavelan.c
Back to the patch index
Back to the overall index
- Lines: 1460
- Date:
Wed Dec 31 16:00:00 1969
- Orig file:
v2.0.35/linux/drivers/net/wic.c
- Orig date:
Tue Apr 8 08:47:46 1997
diff -u --recursive --new-file v2.0.35/linux/drivers/net/wic.c linux/drivers/net/wic.c
@@ -1,1459 +0,0 @@
-/* $Id: wic.c,v 1.3.2.1 1997/03/09 02:14:40 davem Exp $ */
-/* WIC: A parallel port "network" driver for Linux. */
-/* based on the plip network driver */
-/* Modified for Linux 1.3.x by Alan Cox <Alan.Cox@linux.org> */
-
-char *version = "NET3 WIC version 0.9 hayes@netplumbing.com";
-
-/*
- Sources:
- Ideas and protocols came from Russ Nelson's <nelson@crynwr.com>
- "parallel.asm" parallel port packet driver and from the plip.c
- parallel networking linux driver from the 1.2.13 Linux
- distribution.
-
- The packet is encapsulated as if it were ethernet.
-
-*/
-
-#ifdef MODULE
-#include <linux/module.h>
-#include <linux/version.h>
-#else
-#define MOD_INC_USE_COUNT
-#define MOD_DEC_USE_COUNT
-#endif
-
-#include <linux/kernel.h>
-#include <linux/sched.h>
-#include <linux/types.h>
-#include <linux/fcntl.h>
-#include <linux/interrupt.h>
-#include <linux/string.h>
-#include <linux/ptrace.h>
-#include <linux/if_ether.h>
-#include <asm/system.h>
-#include <asm/io.h>
-#include <linux/in.h>
-#include <linux/errno.h>
-#include <linux/delay.h>
-#include <linux/lp.h>
-
-#include <linux/netdevice.h>
-#include <linux/etherdevice.h>
-#include <linux/skbuff.h>
-#include <linux/if_wic.h>
-
-#include <linux/tqueue.h>
-#include <linux/ioport.h>
-#include <asm/bitops.h>
-#include <asm/irq.h>
-#include <asm/byteorder.h>
-#include <linux/string.h>
-
-#define NET_DEBUG 1
-/* Use 0 for production, 1 for verification, >2 for debug */
-#ifndef NET_DEBUG
-#define NET_DEBUG 1
-#endif
-unsigned int net_debug = NET_DEBUG;
-
-/* Connection time out = WIC_TRIGGER_WAIT * WIC_DELAY_UNIT usec */
-#define WIC_TRIGGER_WAIT 500
-
-/* Nibble time out = WIC_NIBBLE_WAIT * WIC_DELAY_UNIT usec */
-#define WIC_NIBBLE_WAIT 3000
-
-#define PAR_DATA(dev) ((dev)->base_addr+0)
-#define PAR_STATUS(dev) ((dev)->base_addr+1)
-#define PAR_CONTROL(dev) ((dev)->base_addr+2)
-
-/* Bottom halfs */
-void wic_kick_bh(struct device *dev);
-void wic_bh(struct device *dev);
-
-/* Interrupt handler */
-void wic_interrupt(int irq, void *dev_ptr, struct pt_regs *regs);
-
-/* Functions for DEV methods */
-int wic_rebuild_header(void *buff, struct device *dev,
- unsigned long raddr, struct sk_buff *skb);
-int wic_tx_packet(struct sk_buff *skb, struct device *dev);
-int wic_open(struct device *dev);
-int wic_close(struct device *dev);
-struct enet_statistics *wic_get_stats(struct device *dev);
-int wic_config(struct device *dev, struct ifmap *map);
-int wic_ioctl(struct device *dev, struct ifreq *ifr, int cmd);
-int send_cmd(struct device *dev, unsigned char *cmd, char len);
-int recv_cmd_resp(struct device *dev, unsigned char *cmd);
-int send_byte(struct device *dev, unsigned char c);
-int get_byte(struct device *dev, unsigned char *c);
-int ack_resp(struct device *dev);
-int check_bfr(struct device *dev);
-void wic_reset(struct device *dev);
-void wic_set_multicast_list(struct device *dev);
-
-#define LOOPCNT 30000
-unsigned char tog = 3;
-unsigned char save = 0;
-
-enum wic_connection_state {
- WIC_CN_NONE=0,
- WIC_CN_RECEIVE,
- WIC_CN_SEND,
- WIC_CN_CLOSING,
- WIC_CN_ERROR
-};
-
-enum wic_packet_state {
- WIC_PK_DONE=0,
- WIC_PK_TRIGGER,
- WIC_PK_LENGTH_LSB,
- WIC_PK_LENGTH_MSB,
- WIC_PK_DATA,
- WIC_PK_CHECKSUM
-};
-
-enum wic_nibble_state {
- WIC_NB_BEGIN,
- WIC_NB_1,
- WIC_NB_2,
-};
-
-struct wic_local {
- enum wic_packet_state state;
- enum wic_nibble_state nibble;
- union {
- struct {
-#if defined(__LITTLE_ENDIAN)
- unsigned char lsb;
- unsigned char msb;
-#elif defined(__BIG_ENDIAN)
- unsigned char msb;
- unsigned char lsb;
-#else
-#error "Please fix the endianness defines in <asm/byteorder.h>"
-#endif
- } b;
- unsigned short h;
- } length;
- unsigned short byte;
- unsigned char checksum;
- unsigned char data;
- struct sk_buff *skb;
-};
-
-struct net_local {
- struct enet_statistics enet_stats;
- struct tq_struct immediate;
- struct tq_struct deferred;
- struct wic_local snd_data;
- struct wic_local rcv_data;
- unsigned long trigger;
- unsigned long nibble;
- enum wic_connection_state connection;
- unsigned short timeout_count;
- char is_deferred;
- int (*orig_rebuild_header)(void *eth, struct device *dev,
- unsigned long raddr, struct sk_buff *skb);
-};
-
-/* Entry point of WIC driver.
- Probe the hardware, and register/initialize the driver. */
-int
-wic_init(struct device *dev)
-{
- struct net_local *nl;
- struct wicconf wc;
- int i;
-
- /* Check region before the probe */
- if (check_region(PAR_DATA(dev), 3) < 0)
- return -ENODEV;
-
- /* Check that there is something at base_addr. */
- outb(0, PAR_DATA(dev));
- udelay(1000);
- if (inb(PAR_DATA(dev)) != 0)
- return -ENODEV;
-
- printk("%s\n",version);
- printk("%s: Parallel port at %#3lx, ", dev->name, dev->base_addr);
- if (dev->irq) {
- printk("using assigned IRQ %d.\n", dev->irq);
- } else {
- int irq = 0;
-#ifdef MODULE
- /* dev->irq==0 means autoprobe, but we don't try to do so
- with module. We can change it by ifconfig */
-#else
- unsigned int irqs = probe_irq_on();
-
- outb(0x00, PAR_CONTROL(dev));
- udelay(1000);
- udelay(1000);
- irq = probe_irq_off(irqs);
-#endif
- if (irq > 0) {
- dev->irq = irq;
- printk("using probed IRQ %d.\n", dev->irq);
- } else
- printk("failed to detect IRQ(%d) --"
- " Please set IRQ by ifconfig.\n", irq);
- }
-
- request_region(PAR_DATA(dev), 3, dev->name);
-
- /* Fill in the generic fields of the device structure. */
- ether_setup(dev);
-
- /* Then, override parts of it */
- dev->hard_start_xmit = wic_tx_packet;
- dev->open = wic_open;
- dev->stop = wic_close;
- dev->get_stats = wic_get_stats;
- dev->set_config = wic_config;
- dev->do_ioctl = wic_ioctl;
- dev->mtu = 1514;
- dev->set_multicast_list = wic_set_multicast_list;
- dev->flags = IFF_BROADCAST | IFF_RUNNING | IFF_NOTRAILERS;
-
- /* get the MAC address from the controller */
- wc.len = 1;
- wc.pcmd = WIC_GETNET;
- check_bfr(dev);
- send_cmd(dev, (unsigned char *)&wc, 1);
- wc.len = recv_cmd_resp(dev, (unsigned char *)&wc.data);
- while ((wc.len == 1) && (wc.data[0] == 0x7)) /* controller int */
- wc.len = recv_cmd_resp(dev, (unsigned char *)&wc.data);
-
- printk("%s:MAC address: ",dev->name);
- for (i=0; i < ETH_ALEN ; i++) {
- dev->dev_addr[i] = wc.data[i];
- printk("%2x ",dev->dev_addr[i]);
- }
- printk("\n");
-
- /* Set the private structure */
- dev->priv = kmalloc(sizeof (struct net_local), GFP_KERNEL);
- if (dev->priv == NULL)
- return EAGAIN;
- memset(dev->priv, 0, sizeof(struct net_local));
- nl = (struct net_local *) dev->priv;
-
- nl->orig_rebuild_header = dev->rebuild_header;
- dev->rebuild_header = wic_rebuild_header;
-
- /* Initialize constants */
- nl->trigger = WIC_TRIGGER_WAIT;
- nl->nibble = WIC_NIBBLE_WAIT;
-
- /* Initialize task queue structures */
- nl->immediate.next = NULL;
- nl->immediate.sync = 0;
- nl->immediate.routine = (void *)(void *)wic_bh;
- nl->immediate.data = dev;
-
- nl->deferred.next = NULL;
- nl->deferred.sync = 0;
- nl->deferred.routine = (void *)(void *)wic_kick_bh;
- nl->deferred.data = dev;
-
- return 0;
-}
-
-/* Bottom half handler for the delayed request.
- This routine is kicked by do_timer().
- Request `wic_bh' to be invoked. */
-void
-wic_kick_bh(struct device *dev)
-{
- struct net_local *nl = (struct net_local *)dev->priv;
-
- if (nl->is_deferred) {
- queue_task(&nl->immediate, &tq_immediate);
- mark_bh(IMMEDIATE_BH);
- }
-}
-
-/* Forward declarations of internal routines */
-int wic_none(struct device *, struct net_local *,
- struct wic_local *, struct wic_local *);
-int wic_receive_packet(struct device *, struct net_local *,
- struct wic_local *, struct wic_local *);
-int wic_send_packet(struct device *, struct net_local *,
- struct wic_local *, struct wic_local *);
-int wic_connection_close(struct device *, struct net_local *,
- struct wic_local *, struct wic_local *);
-int wic_error(struct device *, struct net_local *,
- struct wic_local *, struct wic_local *);
-int wic_bh_timeout_error(struct device *dev, struct net_local *nl,
- struct wic_local *snd,
- struct wic_local *rcv,
- int error);
-
-#define OK 0
-#define TIMEOUT 1
-#define ERROR 2
-
-typedef int (*wic_func)(struct device *dev, struct net_local *nl,
- struct wic_local *snd, struct wic_local *rcv);
-
-wic_func connection_state_table[] =
-{
- wic_none,
- wic_receive_packet,
- wic_send_packet,
- wic_connection_close,
- wic_error
-};
-
-void
-wic_set_multicast_list(struct device *dev)
-{
- struct wicconf wc;
- struct wic_net *wn;
-
- disable_irq(dev->irq);
- save &= 0xef; /* disable */
- outb(save, PAR_CONTROL(dev));
-
- wc.len = 1;
- wc.pcmd = WIC_GETNET;
- check_bfr(dev);
- tog = 3;
- send_cmd(dev, (unsigned char *)&wc, 1);
- wc.len = recv_cmd_resp(dev, (unsigned char *)&wc.data);
- while ((wc.len == 1) && (wc.data[0] == 0x7)) /* controller int */
- wc.len = recv_cmd_resp(dev, (unsigned char *)&wc.data);
- wn = (struct wic_net *)&wc.data;
- if(dev->flags&IFF_PROMISC)
- {
- /* promiscuous mode */
- wn->mode |= (NET_MODE_ME | NET_MODE_BCAST |
- NET_MODE_MCAST | NET_MODE_PROM);
- printk("%s: Setting promiscuous mode\n", dev->name);
- }
- else if((dev->flags&IFF_ALLMULTI) || dev->mc_count)
- {
- wn->mode &= ~NET_MODE_PROM;
- wn->mode |= (NET_MODE_MCAST | NET_MODE_ME | NET_MODE_BCAST);
- }
- else
- {
- wn->mode &= ~(NET_MODE_PROM | NET_MODE_MCAST);
- wn->mode |= (NET_MODE_ME | NET_MODE_BCAST);
- }
- wc.len = 23;
- wc.pcmd = WIC_SETNET;
- check_bfr(dev);
- tog = 3;
- send_cmd(dev, (unsigned char *)&wc, wc.len);
-
- save |= 0x10; /* enable */
- outb(save, PAR_CONTROL(dev));
- enable_irq(dev->irq);
- return;
-}
-
-/* Bottom half handler of WIC. */
-void
-wic_bh(struct device *dev)
-{
- struct net_local *nl = (struct net_local *)dev->priv;
- struct wic_local *snd = &nl->snd_data;
- struct wic_local *rcv = &nl->rcv_data;
- wic_func f;
- int r;
-
- nl->is_deferred = 0;
- f = connection_state_table[nl->connection];
- if ((r = (*f)(dev, nl, snd, rcv)) != OK
- && (r = wic_bh_timeout_error(dev, nl, snd, rcv, r)) != OK) {
- nl->is_deferred = 1;
- queue_task(&nl->deferred, &tq_timer);
- }
-}
-
-int
-wic_bh_timeout_error(struct device *dev, struct net_local *nl,
- struct wic_local *snd, struct wic_local *rcv,
- int error)
-{
- unsigned char c0;
- unsigned long flags;
-
- save_flags(flags);
- cli();
- if (nl->connection == WIC_CN_SEND) {
-
- if (error != ERROR) { /* Timeout */
- nl->timeout_count++;
- if ((snd->state == WIC_PK_TRIGGER
- && nl->timeout_count <= 10)
- || nl->timeout_count <= 3) {
- restore_flags(flags);
- /* Try again later */
- return TIMEOUT;
- }
- c0 = inb(PAR_STATUS(dev));
- printk("%s: transmit timeout(%d,%02x)\n",
- dev->name, snd->state, c0);
- }
- nl->enet_stats.tx_errors++;
- nl->enet_stats.tx_aborted_errors++;
- } else if (nl->connection == WIC_CN_RECEIVE) {
- if (rcv->state == WIC_PK_TRIGGER) {
- /* Transmission was interrupted. */
- restore_flags(flags);
- return OK;
- }
- if (error != ERROR) { /* Timeout */
- if (++nl->timeout_count <= 3) {
- restore_flags(flags);
- /* Try again later */
- return TIMEOUT;
- }
- c0 = inb(PAR_STATUS(dev));
- printk("%s: receive timeout(%d,%02x)\n",
- dev->name, rcv->state, c0);
- }
- nl->enet_stats.rx_dropped++;
- }
- rcv->state = WIC_PK_DONE;
- if (rcv->skb) {
- rcv->skb->free = 1;
- kfree_skb(rcv->skb, FREE_READ);
- rcv->skb = NULL;
- }
- snd->state = WIC_PK_DONE;
- if (snd->skb) {
- snd->skb->free = 1;
- dev_kfree_skb(snd->skb, FREE_WRITE);
- snd->skb = NULL;
- }
-#if (0)
- disable_irq(dev->irq);
- save &= 0xef; /* disable */
- outb(save, PAR_CONTROL(dev));
- dev->tbusy = 1;
- outb(0x00, PAR_DATA(dev));
-#endif /* (0) */
- nl->connection = WIC_CN_ERROR;
- restore_flags(flags);
-
- return TIMEOUT;
-}
-
-int
-wic_none(struct device *dev, struct net_local *nl,
- struct wic_local *snd, struct wic_local *rcv)
-{
- return OK;
-}
-
-/* WIC_RECEIVE --- receive a byte(two nibbles)
- Returns OK on success, TIMEOUT on timeout */
-inline int
-wic_receive(unsigned short nibble_timeout, unsigned short status_addr,
- enum wic_nibble_state *ns_p, unsigned char *data_p)
-{
-unsigned int cx;
-
- cx = LOOPCNT;
- while ((inb(status_addr) & 0x08) != ((tog<<3) & 0x08)) {
- if (--cx == 0) {
- return TIMEOUT;
- }
- }
- *data_p = inb(status_addr-1);
- tog ^= 0x01;
- outb(tog| save, status_addr+1);
- return OK;
-}
-
-/* WIC_RECEIVE_PACKET --- receive a packet */
-int
-wic_receive_packet(struct device *dev, struct net_local *nl,
- struct wic_local *snd, struct wic_local *rcv)
-{
- unsigned short status_addr = PAR_STATUS(dev);
- unsigned short nibble_timeout = nl->nibble;
- unsigned char *lbuf;
- unsigned char junk;
- unsigned long flags;
-
- save_flags(flags);
- cli();
- switch (rcv->state) {
- case WIC_PK_TRIGGER:
- disable_irq(dev->irq);
- save &= 0xef; /* disable */
- outb(save, PAR_CONTROL(dev));
-
- dev->interrupt = 0;
-
- tog &= 0xfe;
- ack_resp(dev);
- if (net_debug > 2)
- printk("%s: receive start\n", dev->name);
- rcv->state = WIC_PK_LENGTH_LSB;
- rcv->nibble = WIC_NB_BEGIN;
-
- case WIC_PK_LENGTH_LSB:
- if (net_debug > 2)
- printk("%s: WIC_PK_LENGTH_LSB\n", dev->name);
- if (snd->state != WIC_PK_DONE) {
- if (wic_receive(nl->trigger, status_addr,
- &rcv->nibble, &rcv->length.b.lsb)) {
- /* collision, here dev->tbusy == 1 */
- rcv->state = WIC_PK_DONE;
- nl->is_deferred = 1;
- nl->connection = WIC_CN_SEND;
- restore_flags(flags);
- queue_task(&nl->deferred, &tq_timer);
- save |= 0x10; /* enable */
- outb(save, PAR_CONTROL(dev));
- enable_irq(dev->irq);
- return OK;
- }
- } else {
- if (wic_receive(nibble_timeout, status_addr,
- &rcv->nibble, &rcv->length.b.lsb)) {
- restore_flags(flags);
- return TIMEOUT;
- }
- }
- rcv->state = WIC_PK_LENGTH_MSB;
-
- case WIC_PK_LENGTH_MSB:
- if (net_debug > 2)
- printk("%s: WIC_PK_LENGTH_MSB\n", dev->name);
- if (wic_receive(nibble_timeout, status_addr,
- &rcv->nibble, &rcv->length.b.msb)) {
- restore_flags(flags);
- return TIMEOUT;
- }
- if (rcv->length.h > dev->mtu || rcv->length.h < 8) {
- printk("%s: bad packet size %d.\n", dev->name, rcv->length.h);
- restore_flags(flags);
- return ERROR;
- }
- /* Malloc up new buffer. */
- rcv->skb = dev_alloc_skb(rcv->length.h);
- if (rcv->skb == NULL) {
- printk("%s: Memory squeeze.\n", dev->name);
- restore_flags(flags);
- return ERROR;
- }
- skb_put(rcv->skb,rcv->length.h);
- rcv->skb->dev = dev;
-
- rcv->state = WIC_PK_DATA;
- rcv->byte = 0;
- rcv->checksum = 0;
-
- /* sequence numbers */
- if (net_debug > 2)
- printk("%s: WIC_PK_SEQ\n", dev->name);
- if (wic_receive(nibble_timeout, status_addr,
- &rcv->nibble, &junk)) {
- restore_flags(flags);
- return TIMEOUT;
- }
- if (wic_receive(nibble_timeout, status_addr,
- &rcv->nibble, &junk)) {
- restore_flags(flags);
- return TIMEOUT;
- }
-
- case WIC_PK_DATA:
- if (net_debug > 2)
- printk("%s: WIC_PK_DATA: length %i\n", dev->name,
- rcv->length.h);
- lbuf = rcv->skb->data;
- do {
- if (wic_receive(nibble_timeout, status_addr,
- &rcv->nibble, &lbuf[rcv->byte])) {
- restore_flags(flags);
- return TIMEOUT;
- }
- } while (++rcv->byte < (rcv->length.h - 4));
-
- /* receive pad byte */
- if (rcv->length.h & 0x01)
- wic_receive(nibble_timeout, status_addr,
- &rcv->nibble, &lbuf[rcv->byte]);
-
- do {
- rcv->checksum += lbuf[--rcv->byte];
- } while (rcv->byte);
-
- rcv->state = WIC_PK_CHECKSUM;
-
- case WIC_PK_CHECKSUM:
- if (net_debug > 2)
- printk("%s: WIC_PK_CHECKSUM\n", dev->name);
- if (wic_receive(nibble_timeout, status_addr,
- &rcv->nibble, &junk)) {
- restore_flags(flags);
- return TIMEOUT;
- }
- outb(0, PAR_DATA(dev));
- rcv->state = WIC_PK_DONE;
-
- case WIC_PK_DONE:
- if (net_debug > 2)
- printk("%s: WIC_PK_DONE\n", dev->name);
- /* Inform the upper layer for the arrival of a packet. */
- netif_rx(rcv->skb);
- nl->enet_stats.rx_packets++;
- rcv->skb = NULL;
- if (net_debug > 2)
- printk("%s: receive end\n", dev->name);
-
- /* Close the connection. */
- if (snd->state != WIC_PK_DONE) {
- nl->connection = WIC_CN_SEND;
- restore_flags(flags);
- queue_task(&nl->immediate, &tq_immediate);
- save |= 0x10; /* enable */
- outb(save, PAR_CONTROL(dev));
- enable_irq(dev->irq);
- return OK;
- } else {
- nl->connection = WIC_CN_NONE;
- restore_flags(flags);
- save |= 0x10; /* enable */
- outb(save, PAR_CONTROL(dev));
- enable_irq(dev->irq);
- return OK;
- }
- }
- restore_flags(flags);
- return OK;
-}
-
-/* WIC_SEND --- send a byte (two nibbles)
- Returns OK on success, TIMEOUT when timeout */
-inline int
-wic_send(unsigned short nibble_timeout, unsigned short data_addr,
- enum wic_nibble_state *ns_p, unsigned char data)
-{
-unsigned int cx;
-
- cx = LOOPCNT;
- while ((inb(data_addr+1) & 0x80) == ((tog<<7) & 0x80)) {
- if (--cx == 0) {
- return -TIMEOUT;
- }
- }
- outb(data, data_addr);
- outb(tog | save, data_addr+2);
- tog ^= 0x01;
- return OK;
-}
-
-/* WIC_SEND_PACKET --- send a packet */
-int
-wic_send_packet(struct device *dev, struct net_local *nl,
- struct wic_local *snd, struct wic_local *rcv)
-{
- unsigned short data_addr = PAR_DATA(dev);
- unsigned short nibble_timeout = nl->nibble;
- unsigned char *lbuf;
- unsigned int cx;
- unsigned int pad = 2;
- unsigned long flags;
-
- if (snd->skb == NULL || (lbuf = snd->skb->data) == NULL) {
- printk("%s: send skb lost\n", dev->name);
- snd->state = WIC_PK_DONE;
- snd->skb = NULL;
- save |= 0x10; /* enable */
- outb(save, PAR_CONTROL(dev));
- enable_irq(dev->irq);
- return ERROR;
- }
-
- save_flags(flags);
- cli();
- switch (snd->state) {
- case WIC_PK_TRIGGER:
-
- if (nl->connection == WIC_CN_RECEIVE) {
- /* interrupted */
- nl->enet_stats.collisions++;
- restore_flags(flags);
- if (net_debug > 1)
- printk("%s: collision.\n", dev->name);
- save |= 0x10; /* enable */
- outb(save, PAR_CONTROL(dev));
- enable_irq(dev->irq);
- return OK;
- }
-
- disable_irq(dev->irq);
- save &= 0xef; /* disable */
- outb(save, PAR_CONTROL(dev));
-
- /* interrupt controller */
- tog = 3;
- outb(0x06 | save, PAR_CONTROL(dev));
-
- cx = LOOPCNT;
- while ((inb(PAR_STATUS(dev)) & 0xe8) != 0xc0) {
- if (--cx == 0) {
- restore_flags(flags);
- return TIMEOUT;
- }
- if (cx == 10)
- outb(0x02, PAR_CONTROL(dev));
- }
-
- if (net_debug > 2)
- printk("%s: send start\n", dev->name);
- snd->state = WIC_PK_LENGTH_LSB;
- snd->nibble = WIC_NB_BEGIN;
- nl->timeout_count = 0;
-
- case WIC_PK_LENGTH_LSB:
- if (snd->length.h & 0x01)
- pad = 3;
- else
- pad = 2;
- snd->length.h += (4 + pad); /* len + seq + data + pad */
- if (net_debug > 2)
- printk("%s: WIC_PK_LENGTH_LSB: length = %i\n",
- dev->name, snd->length.h);
-
- if (wic_send(nibble_timeout, data_addr,
- &snd->nibble, snd->length.b.lsb)) {
- restore_flags(flags);
- return TIMEOUT;
- }
- snd->state = WIC_PK_LENGTH_MSB;
-
- case WIC_PK_LENGTH_MSB:
- if (net_debug > 2)
- printk("%s: WIC_PK_LENGTH_MSB\n", dev->name);
- if (wic_send(nibble_timeout, data_addr,
- &snd->nibble, snd->length.b.msb)) {
- restore_flags(flags);
- return TIMEOUT;
- }
- snd->state = WIC_PK_DATA;
- snd->byte = 0;
- snd->checksum = 0;
-
- case WIC_PK_DATA:
- /* adjust length back to data only */
- snd->length.h -= (4 + pad); /* len + seq + data + pad */
- /* send 2 byte sequence number */
- if (net_debug > 2)
- printk("%s: WIC_SEQ\n", dev->name);
- if (wic_send(nibble_timeout, data_addr,
- &snd->nibble, 0)) {
- restore_flags(flags);
- return TIMEOUT;
- }
- if (wic_send(nibble_timeout, data_addr,
- &snd->nibble, 0)) {
- restore_flags(flags);
- return TIMEOUT;
- }
- if (net_debug > 2)
- printk("%s: WIC_PK_DATA\n", dev->name);
-
- do {
- if (wic_send(nibble_timeout, data_addr,
- &snd->nibble, lbuf[snd->byte])) {
- restore_flags(flags);
- return TIMEOUT;
- }
- }
- while (++snd->byte < snd->length.h);
-
- do
- snd->checksum += lbuf[--snd->byte];
- while (snd->byte);
-
- snd->state = WIC_PK_CHECKSUM;
-
- case WIC_PK_CHECKSUM:
- /* send pad bytes */
- if (net_debug > 2)
- printk("%s: WIC_PK_PAD: %i bytes\n",
- dev->name, pad);
- while(pad--)
- if (wic_send(nibble_timeout, data_addr,
- &snd->nibble, 0)) {
- restore_flags(flags);
- return TIMEOUT;
- }
- dev_kfree_skb(snd->skb, FREE_WRITE);
- nl->enet_stats.tx_packets++;
- snd->state = WIC_PK_DONE;
-
- case WIC_PK_DONE:
- if (net_debug > 2)
- printk("%s: WIC_PK_DONE\n", dev->name);
- /* Close the connection */
- outb (0x00, PAR_DATA(dev));
- outb(save, PAR_CONTROL(dev));
-
- snd->skb = NULL;
- if (net_debug > 2)
- printk("%s: send end\n", dev->name);
- nl->connection = WIC_CN_CLOSING;
- nl->is_deferred = 1;
- restore_flags(flags);
- queue_task(&nl->deferred, &tq_timer);
- save |= 0x10; /* enable */
- outb(save, PAR_CONTROL(dev));
- enable_irq(dev->irq);
- return OK;
- }
- restore_flags(flags);
- return OK;
-}
-
-int
-wic_connection_close(struct device *dev, struct net_local *nl,
- struct wic_local *snd, struct wic_local *rcv)
-{
-unsigned long flags;
-
- save_flags(flags);
- cli();
- if (nl->connection == WIC_CN_CLOSING) {
- nl->connection = WIC_CN_NONE;
- dev->tbusy = 0;
- mark_bh(NET_BH);
- }
- restore_flags(flags);
- return OK;
-}
-
-/* WIC_ERROR --- wait till other end settled */
-int
-wic_error(struct device *dev, struct net_local *nl,
- struct wic_local *snd, struct wic_local *rcv)
-{
- unsigned char status;
-
- status = inb(PAR_STATUS(dev));
- if ((status & 0xf8) == 0x80) {
- if (net_debug > 2)
- printk("%s: reset interface.\n", dev->name);
- nl->connection = WIC_CN_NONE;
- dev->tbusy = 0;
- dev->interrupt = 0;
- save |= 0x10; /* enable */
- outb(save, PAR_CONTROL(dev));
- enable_irq(dev->irq);
- mark_bh(NET_BH);
- } else {
- nl->is_deferred = 1;
- queue_task(&nl->deferred, &tq_timer);
- }
-
- return OK;
-}
-
-/* Handle the parallel port interrupts. */
-void
-wic_interrupt(int irq, void *dev_ptr, struct pt_regs * regs)
-{
- struct device *dev = (struct device *) irq2dev_map[irq];
- struct net_local *nl = (struct net_local *)dev->priv;
- struct wic_local *rcv = &nl->rcv_data;
- unsigned long flags;
-
- if (dev == NULL) {
- printk ("wic_interrupt: irq %d for unknown device.\n", irq);
- return;
- }
-
- if (dev->interrupt) {
- return;
- }
-
- if (check_bfr(dev) < 0) {
- return;
- }
-
- dev->interrupt = 1;
- if (net_debug > 3)
- printk("%s: interrupt.\n", dev->name);
-
- save_flags(flags);
- cli();
- switch (nl->connection) {
- case WIC_CN_CLOSING:
- dev->tbusy = 0;
- case WIC_CN_NONE:
- case WIC_CN_SEND:
- dev->last_rx = jiffies;
- rcv->state = WIC_PK_TRIGGER;
- nl->connection = WIC_CN_RECEIVE;
- nl->timeout_count = 0;
- restore_flags(flags);
- queue_task(&nl->immediate, &tq_immediate);
- mark_bh(IMMEDIATE_BH);
- break;
-
- case WIC_CN_RECEIVE:
- printk("%s: receive interrupt when receiving packet\n", dev->name);
- restore_flags(flags);
- break;
-
- case WIC_CN_ERROR:
- printk("%s: receive interrupt in error state\n", dev->name);
- restore_flags(flags);
- break;
- }
-}
-
-int
-wic_rebuild_header(void *buff, struct device *dev, unsigned long dst,
- struct sk_buff *skb)
-{
- struct net_local *nl = (struct net_local *)dev->priv;
- struct ethhdr *eth = (struct ethhdr *)buff;
- int i;
-
- if ((dev->flags & IFF_NOARP)==0)
- return nl->orig_rebuild_header(buff, dev, dst, skb);
-
- if (eth->h_proto != htons(ETH_P_IP)) {
- printk("wic_rebuild_header: Don't know how to resolve type %d addresses?\n", (int)eth->h_proto);
- memcpy(eth->h_source, dev->dev_addr, dev->addr_len);
- return 0;
- }
-
- for (i=0; i < ETH_ALEN - sizeof(unsigned long); i++)
- eth->h_dest[i] = 0xfc;
- memcpy(&(eth->h_dest[i]), &dst, sizeof(unsigned long));
- return 0;
-}
-
-int
-wic_tx_packet(struct sk_buff *skb, struct device *dev)
-{
- struct net_local *nl = (struct net_local *)dev->priv;
- struct wic_local *snd = &nl->snd_data;
- unsigned long flags;
-
- if (dev->tbusy)
- return 1;
-
- /* If some higher layer thinks we've missed an tx-done interrupt
- we are passed NULL. Caution: dev_tint() handles the cli()/sti()
- itself. */
- if (skb == NULL) {
- dev_tint(dev);
- return 0;
- }
-
- if (set_bit(0, (void*)&dev->tbusy) != 0) {
- printk("%s: Transmitter access conflict.\n", dev->name);
- return 1;
- }
-
- if (skb->len > dev->mtu) {
- printk("%s: packet too big, %d.\n", dev->name, (int)skb->len);
- dev->tbusy = 0;
- dev_kfree_skb(skb, FREE_WRITE);
- return 0;
- }
-
- if (net_debug > 2)
- printk("%s: send request\n", dev->name);
-
- save_flags(flags);
- cli();
- dev->trans_start = jiffies;
- snd->skb = skb;
- snd->length.h = skb->len;
- snd->state = WIC_PK_TRIGGER;
- if (nl->connection == WIC_CN_NONE) {
- nl->connection = WIC_CN_SEND;
- nl->timeout_count = 0;
- }
- restore_flags(flags);
- queue_task(&nl->immediate, &tq_immediate);
- mark_bh(IMMEDIATE_BH);
-
- return 0;
-}
-
-/* Open/initialize the board. This is called (in the current kernel)
- sometime after booting when the 'ifconfig' program is run.
-
- This routine gets exclusive access to the parallel port by allocating
- its IRQ line.
- */
-int
-wic_open(struct device *dev)
-{
- struct net_local *nl = (struct net_local *)dev->priv;
- unsigned long flags;
-
- if (dev->irq == 0) {
- printk("%s: IRQ is not set. Please set it by ifconfig.\n", dev->name);
- return -EAGAIN;
- }
- save_flags(flags);
- cli();
- check_bfr(dev);
- if (request_irq(dev->irq , wic_interrupt, 0, dev->name, NULL) != 0) {
- sti();
- printk("%s: couldn't get IRQ %d.\n", dev->name, dev->irq);
- return -EAGAIN;
- }
- irq2dev_map[dev->irq] = dev;
- restore_flags(flags);
-
- save |= 0x10; /* enable */
- outb(save, PAR_CONTROL(dev));
- /* Initialize the state machine. */
- nl->rcv_data.state = nl->snd_data.state = WIC_PK_DONE;
- nl->rcv_data.skb = nl->snd_data.skb = NULL;
- nl->connection = WIC_CN_NONE;
- nl->is_deferred = 0;
-
- dev->interrupt = 0;
- dev->start = 1;
- dev->tbusy = 0;
- MOD_INC_USE_COUNT;
- return 0;
-}
-
-/* The inverse routine to wic_open (). */
-int
-wic_close(struct device *dev)
-{
- struct net_local *nl = (struct net_local *)dev->priv;
- struct wic_local *snd = &nl->snd_data;
- struct wic_local *rcv = &nl->rcv_data;
-
- dev->tbusy = 1;
- dev->start = 0;
- cli();
- free_irq(dev->irq, NULL);
- irq2dev_map[dev->irq] = NULL;
- nl->is_deferred = 0;
- nl->connection = WIC_CN_NONE;
- sti();
- outb(0x00, PAR_DATA(dev));
-
- snd->state = WIC_PK_DONE;
- if (snd->skb) {
- snd->skb->free = 1;
- dev_kfree_skb(snd->skb, FREE_WRITE);
- snd->skb = NULL;
- }
- rcv->state = WIC_PK_DONE;
- if (rcv->skb) {
- rcv->skb->free = 1;
- kfree_skb(rcv->skb, FREE_READ);
- rcv->skb = NULL;
- }
-
- MOD_DEC_USE_COUNT;
- return 0;
-}
-
-struct enet_statistics *
-wic_get_stats(struct device *dev)
-{
- struct net_local *nl = (struct net_local *)dev->priv;
- struct enet_statistics *r = &nl->enet_stats;
-
- return r;
-}
-
-int
-wic_config(struct device *dev, struct ifmap *map)
-{
- if (dev->flags & IFF_UP)
- return -EBUSY;
-
- if (map->base_addr != (unsigned long)-1
- && map->base_addr != dev->base_addr)
- printk("%s: You cannot change base_addr of this interface (ignored).\n", dev->name);
-
- if (map->irq != (unsigned char)-1)
- dev->irq = map->irq;
- return 0;
-}
-
-int
-wic_ioctl(struct device *dev, struct ifreq *rq, int cmd)
-{
- struct wicconf wc;
- int err;
- char len = 0;
- unsigned long flags;
-
- err=verify_area(VERIFY_WRITE, rq->ifr_data, sizeof(struct wicconf));
- if (err)
- return err;
- memcpy_fromfs(&wc, rq->ifr_data, sizeof(struct wicconf));
- switch(wc.pcmd) {
- case WIC_AYT:
- strcpy(wc.data, version);
- wc.len = strlen(wc.data);
- memcpy_tofs(rq->ifr_data, &wc, sizeof(struct wicconf));
- /* return 0; */
- break;
- case WIC_RESET:
- wic_reset(dev);
- return(0);
- /* break; */
- case WIC_SETSN:
- len = 17;
- break;
- case WIC_SETPS:
- len = 3;
- break;
- case WIC_SETAF:
- case WIC_SETGPF:
- len = 2;
- break;
- case WIC_SETNET:
- len = 23;
- break;
- case WIC_SETSYS:
- len = 15;
- break;
- case WIC_GETVERH:
- case WIC_GETNL:
- case WIC_GETSN:
- case WIC_CLRSTATS:
- case WIC_GETSTATS:
- case WIC_GETVERM:
- case WIC_GETNET:
- case WIC_GETSYS:
- len = 1;
- break;
- default:
- return -EOPNOTSUPP;
- }
-
- /* Wait for lock to free */
- while (set_bit(0, (void *)&dev->tbusy) != 0);
- save_flags(flags);
- cli();
-
- disable_irq(dev->irq);
- save &= 0xef; /* disable */
- outb(save, PAR_CONTROL(dev));
- err = check_bfr(dev);
- tog = 3;
- err = send_cmd(dev, (unsigned char *)&wc, len);
-
- if (wc.pcmd & 0x40) { /* response */
- len = (char)recv_cmd_resp(dev, wc.data);
- while ((len == 1) && (wc.data[0] == 0x7)) { /* controller int */
- len = (char)recv_cmd_resp(dev, wc.data);
- }
- save |= 0x10; /* enable */
- outb(save, PAR_CONTROL(dev));
- enable_irq(dev->irq);
- wc.len = (len <0) ? 0 : len;
- memcpy_tofs(rq->ifr_data, &wc, sizeof(struct wicconf));
- } else {
- save |= 0x10; /* enable */
- outb(save, PAR_CONTROL(dev));
- enable_irq(dev->irq);
- }
- restore_flags(flags);
-
- outb(0, PAR_DATA(dev));
- dev->tbusy = 0;
- return 0;
-}
-
-int
-get_byte(struct device *dev, unsigned char *c)
-{
-unsigned int cx;
-
- cx = LOOPCNT;
- while ((inb(PAR_STATUS(dev)) & 0x08) != ((tog << 3)&0x08)) {
- if (--cx == 0) {
- return(-TIMEOUT);
- }
- }
- /* receive a byte of data */
- *c = inb(PAR_DATA(dev));
- tog ^= 0x01;
- /* ack reception of data */
- outb(tog| save, PAR_CONTROL(dev));
- return OK;
-}
-
-int
-ack_resp(struct device *dev)
-{
-unsigned int cx;
-
- outb(save | 0x27, PAR_CONTROL(dev));
-
- /* wait for controller to remove interrupt [Ack(low), Busy(low)] */
- cx = LOOPCNT;
- while ((inb(PAR_STATUS(dev)) & 0xc0) != 0x80) {
- if (--cx == 0) {
- return -TIMEOUT;
- }
- }
-
- outb(save | 0x22, PAR_CONTROL(dev));
- cx = LOOPCNT;
- while ((inb(PAR_STATUS(dev)) & 0x08) == 0x08) {
- if (--cx == 0) {
- return TIMEOUT;
- }
- }
- tog |= 0x20;
- tog &= 0xfe;
- return OK;
-}
-
-void
-wic_reset(struct device *dev)
-{
-unsigned char stat;
-
- stat = inb(PAR_CONTROL(dev));
- outb(0, PAR_DATA(dev));
- outb(stat | 0x08, PAR_CONTROL(dev));
- outb(stat & 0xf7, PAR_CONTROL(dev));
- dev->tbusy = 0;
- dev->interrupt = 0;
- tog = 3;
- save = 0;
- return;
-}
-
-int
-check_bfr(struct device *dev)
-{
-unsigned char c0, l;
-
- if ((inb(PAR_STATUS(dev)) & 0xc8) == 0x48) {
- save |= 0x80;
- outb(0x23| save, PAR_CONTROL(dev));
- ack_resp(dev);
- get_byte(dev, &l); /* len */
- while (l--) {
- get_byte(dev, &c0);
- }
- get_byte(dev, &c0);
- save &=0x7f;
- outb(0, PAR_DATA(dev));
- return -l;
- } else
- return (0);
-}
-
-
-int
-recv_cmd_resp(struct device *dev, unsigned char *buf)
-{
-unsigned char cksum = 0;
-int err;
-unsigned char c0 = 0;
-int len;
-int savelen;
-unsigned int cx;
-int i;
-
- tog &= 0xfe;
- cx = LOOPCNT;
- while ((inb(PAR_STATUS(dev)) & 0xc8) != 0x48) {
- if (--cx == 0) {
- /* clear Busy */
- outb(0, PAR_DATA(dev));
- printk("rcv_cmd_resp: timeout\n");
- return -TIMEOUT;
- }
- }
-
- /* acknowledge the interrupt */
- i = ack_resp(dev);
-
- /* get length */
- err = get_byte(dev, &c0);
- if (err < 0) {
- printk("get_byte1: failed\n");
- return(err);
- }
- len = c0;
- savelen = len;
-
- /* get data */
- while(len--) {
- err = get_byte(dev, &c0);
- if (err < 0) {
- printk("get_byte2: failed\n");
- return(err);
- }
- outb(0, PAR_DATA(dev));
- *buf = c0;
- cksum += c0;
- buf++;
- }
- /* get cksum */
- err = get_byte(dev, &c0);
- if (err < 0) {
- printk("get_byte3: failed\n");
- return(err);
- }
- if (cksum != c0) {
- printk("cksum failed\n");
- return(-3);
- }
- /* get trailing byte, if any... */
- get_byte(dev, &c0);
- return(savelen);
-}
-
-int
-send_byte(struct device *dev, unsigned char c)
-{
-unsigned int cx;
-
- cx = LOOPCNT;
- while ((inb(PAR_STATUS(dev)) & 0x80) == ((tog<<7) & 0x80)) {
- if (--cx == 0) {
- return(-TIMEOUT);
- }
- }
- outb(c, PAR_DATA(dev));
- outb(save |tog, PAR_CONTROL(dev));
- tog ^= 0x01;
- return OK;
-}
-
-
-int
-send_cmd(struct device *dev, unsigned char *cmd, char len)
-{
-unsigned char cksum = 0;
-int err = 0;
-unsigned int cx;
-
- /* interrupt controller */
- outb(save | 0x04, PAR_CONTROL(dev));
- /* wait for ACK */
- cx = LOOPCNT;
- while ((inb(PAR_STATUS(dev)) & 0xe8) != 0xc0) {
- if (--cx == 0)
- return -TIMEOUT;
- if (cx == 10)
- outb(0x02, PAR_CONTROL(dev));
- }
- /* cmd coming... */
- outb(save | 0x02, PAR_CONTROL(dev));
- /* send length byte */
- err = send_byte(dev, (unsigned char)len);
-
- /* send data */
- while (len--) {
- err = send_byte(dev, *cmd);
- if (err < 0) {
- return err;
- }
- cksum += *cmd;
- cmd++;
- }
-
- /* send cksum byte */
- err = send_byte(dev, cksum);
- if (err < 0)
- return err;
-
- cx = LOOPCNT;
- while ((inb(PAR_STATUS(dev)) & 0x80) == ((tog <<7)&0x80)) {
- if (--cx == 0)
- return -TIMEOUT;
- }
- save |= 0x80;
- outb(save | 0x23, PAR_CONTROL(dev));
- outb(0, PAR_DATA(dev));
- return OK;
-}
-
-#ifdef MODULE
-struct device dev_wic0 =
-{
- "wic0" /*"wic"*/,
- 0, 0, 0, 0, /* memory */
- 0x3BC, 5, /* base, irq */
- 0, 0, 0, NULL, wic_init
-};
-
-struct device dev_wic1 =
-{
- "wic1" /*"wic"*/,
- 0, 0, 0, 0, /* memory */
- 0x378, 7, /* base, irq */
- 0, 0, 0, NULL, wic_init
-};
-
-struct device dev_wic2 =
-{
- "wic2" /*"wic"*/,
- 0, 0, 0, 0, /* memory */
- 0x278, 2, /* base, irq */
- 0, 0, 0, NULL, wic_init
-};
-
-int
-init_module(void)
-{
- int devices=0;
-
- if (register_netdev(&dev_wic0) != 0)
- devices++;
- if (register_netdev(&dev_wic1) != 0)
- devices++;
- if (register_netdev(&dev_wic2) != 0)
- devices++;
- if (devices == 0)
- return -EIO;
- return 0;
-}
-
-void
-cleanup_module(void)
-{
- if (dev_wic0.priv) {
- unregister_netdev(&dev_wic0);
- release_region(PAR_DATA(&dev_wic0), 3);
- kfree_s(dev_wic0.priv, sizeof(struct net_local));
- dev_wic0.priv = NULL;
- }
- if (dev_wic1.priv) {
- unregister_netdev(&dev_wic1);
- release_region(PAR_DATA(&dev_wic1), 3);
- kfree_s(dev_wic1.priv, sizeof(struct net_local));
- dev_wic1.priv = NULL;
- }
- if (dev_wic2.priv) {
- unregister_netdev(&dev_wic2);
- release_region(PAR_DATA(&dev_wic2), 3);
- kfree_s(dev_wic2.priv, sizeof(struct net_local));
- dev_wic2.priv = NULL;
- }
-}
-#endif /* MODULE */
-
-/*
- * Local variables:
- * compile-command: "gcc -DMODULE -DCONFIG_MODVERSIONS -D__KERNEL__ -Wall -Wstrict-prototypes -O2 -g -fomit-frame-pointer -pipe -m486 -c wic.c"
- * End:
- */
FUNET's LINUX-ADM group, linux-adm@nic.funet.fi
TCL-scripts by Sam Shen, slshen@lbl.gov