/*********************************************************************
   *
   * Filename:      irlap_event.c
   * Version:       0.9
   * Description:   IrLAP state machine implementation
   * Status:        Experimental.
   * Author:        Dag Brattli <dag@brattli.net>
   * Created at:    Sat Aug 16 00:59:29 1997
   * Modified at:   Sat Dec 25 21:07:57 1999
   * Modified by:   Dag Brattli <dag@brattli.net>
   *
   *     Copyright (c) 1998-2000 Dag Brattli <dag@brattli.net>,
   *     Copyright (c) 1998      Thomas Davis <ratbert@radiks.net>
   *     All Rights Reserved.
   *     Copyright (c) 2000-2003 Jean Tourrilhes <jt@hpl.hp.com>
   *
   *     This program is free software; you can redistribute it and/or
   *     modify it under the terms of the GNU General Public License as
   *     published by the Free Software Foundation; either version 2 of
   *     the License, or (at your option) any later version.
   *

   *     Neither Dag Brattli nor University of Tromsø admit liability nor

   *     provide warranty for any of this software. This material is
   *     provided "AS-IS" and at no charge.
   *
   ********************************************************************/

  #include <linux/string.h>
  #include <linux/kernel.h>
  #include <linux/delay.h>
  #include <linux/skbuff.h>

  #include <linux/slab.h>

  
  #include <net/irda/irda.h>
  #include <net/irda/irlap_event.h>
  
  #include <net/irda/timer.h>
  #include <net/irda/irlap.h>
  #include <net/irda/irlap_frame.h>
  #include <net/irda/qos.h>
  #include <net/irda/parameters.h>
  #include <net/irda/irlmp.h>		/* irlmp_flow_indication(), ... */
  
  #include <net/irda/irda_device.h>
  
  #ifdef CONFIG_IRDA_FAST_RR
  int sysctl_fast_poll_increase = 50;
  #endif
  
  static int irlap_state_ndm    (struct irlap_cb *self, IRLAP_EVENT event,
  			       struct sk_buff *skb, struct irlap_info *info);
  static int irlap_state_query  (struct irlap_cb *self, IRLAP_EVENT event,
  			       struct sk_buff *skb, struct irlap_info *info);
  static int irlap_state_reply  (struct irlap_cb *self, IRLAP_EVENT event,
  			       struct sk_buff *skb, struct irlap_info *info);
  static int irlap_state_conn   (struct irlap_cb *self, IRLAP_EVENT event,
  			       struct sk_buff *skb, struct irlap_info *info);
  static int irlap_state_setup  (struct irlap_cb *self, IRLAP_EVENT event,
  			       struct sk_buff *skb, struct irlap_info *info);
  static int irlap_state_offline(struct irlap_cb *self, IRLAP_EVENT event,
  			       struct sk_buff *skb, struct irlap_info *info);
  static int irlap_state_xmit_p (struct irlap_cb *self, IRLAP_EVENT event,
  			       struct sk_buff *skb, struct irlap_info *info);
  static int irlap_state_pclose (struct irlap_cb *self, IRLAP_EVENT event,
  			       struct sk_buff *skb, struct irlap_info *info);
  static int irlap_state_nrm_p  (struct irlap_cb *self, IRLAP_EVENT event,
  			       struct sk_buff *skb, struct irlap_info *info);
  static int irlap_state_reset_wait(struct irlap_cb *self, IRLAP_EVENT event,
  				  struct sk_buff *skb, struct irlap_info *info);
  static int irlap_state_reset  (struct irlap_cb *self, IRLAP_EVENT event,
  			       struct sk_buff *skb, struct irlap_info *info);
  static int irlap_state_nrm_s  (struct irlap_cb *self, IRLAP_EVENT event,
  			       struct sk_buff *skb, struct irlap_info *info);
  static int irlap_state_xmit_s (struct irlap_cb *self, IRLAP_EVENT event,
  			       struct sk_buff *skb, struct irlap_info *info);
  static int irlap_state_sclose (struct irlap_cb *self, IRLAP_EVENT event,
  			       struct sk_buff *skb, struct irlap_info *info);
  static int irlap_state_reset_check(struct irlap_cb *, IRLAP_EVENT event,
  				   struct sk_buff *, struct irlap_info *);
  
  #ifdef CONFIG_IRDA_DEBUG

  static const char *const irlap_event[] = {

  	"DISCOVERY_REQUEST",
  	"CONNECT_REQUEST",
  	"CONNECT_RESPONSE",
  	"DISCONNECT_REQUEST",
  	"DATA_REQUEST",
  	"RESET_REQUEST",
  	"RESET_RESPONSE",
  	"SEND_I_CMD",
  	"SEND_UI_FRAME",
  	"RECV_DISCOVERY_XID_CMD",
  	"RECV_DISCOVERY_XID_RSP",
  	"RECV_SNRM_CMD",
  	"RECV_TEST_CMD",
  	"RECV_TEST_RSP",
  	"RECV_UA_RSP",
  	"RECV_DM_RSP",
  	"RECV_RD_RSP",
  	"RECV_I_CMD",
  	"RECV_I_RSP",
  	"RECV_UI_FRAME",
  	"RECV_FRMR_RSP",
  	"RECV_RR_CMD",
  	"RECV_RR_RSP",
  	"RECV_RNR_CMD",
  	"RECV_RNR_RSP",
  	"RECV_REJ_CMD",
  	"RECV_REJ_RSP",
  	"RECV_SREJ_CMD",
  	"RECV_SREJ_RSP",
  	"RECV_DISC_CMD",
  	"SLOT_TIMER_EXPIRED",
  	"QUERY_TIMER_EXPIRED",
  	"FINAL_TIMER_EXPIRED",
  	"POLL_TIMER_EXPIRED",
  	"DISCOVERY_TIMER_EXPIRED",
  	"WD_TIMER_EXPIRED",
  	"BACKOFF_TIMER_EXPIRED",
  	"MEDIA_BUSY_TIMER_EXPIRED",
  };
  #endif	/* CONFIG_IRDA_DEBUG */

  const char *const irlap_state[] = {

  	"LAP_NDM",
  	"LAP_QUERY",
  	"LAP_REPLY",
  	"LAP_CONN",
  	"LAP_SETUP",
  	"LAP_OFFLINE",
  	"LAP_XMIT_P",
  	"LAP_PCLOSE",
  	"LAP_NRM_P",
  	"LAP_RESET_WAIT",
  	"LAP_RESET",
  	"LAP_NRM_S",
  	"LAP_XMIT_S",
  	"LAP_SCLOSE",
  	"LAP_RESET_CHECK",
  };
  
  static int (*state[])(struct irlap_cb *self, IRLAP_EVENT event,
  		      struct sk_buff *skb, struct irlap_info *info) =
  {
  	irlap_state_ndm,
  	irlap_state_query,
  	irlap_state_reply,
  	irlap_state_conn,
  	irlap_state_setup,
  	irlap_state_offline,
  	irlap_state_xmit_p,
  	irlap_state_pclose,
  	irlap_state_nrm_p,
  	irlap_state_reset_wait,
  	irlap_state_reset,
  	irlap_state_nrm_s,
  	irlap_state_xmit_s,
  	irlap_state_sclose,
  	irlap_state_reset_check,
  };
  
  /*
   * Function irda_poll_timer_expired (data)
   *
   *    Poll timer has expired. Normally we must now send a RR frame to the
   *    remote device
   */
  static void irlap_poll_timer_expired(void *data)
  {
  	struct irlap_cb *self = (struct irlap_cb *) data;
  
  	IRDA_ASSERT(self != NULL, return;);
  	IRDA_ASSERT(self->magic == LAP_MAGIC, return;);
  
  	irlap_do_event(self, POLL_TIMER_EXPIRED, NULL, NULL);
  }
  
  /*
   * Calculate and set time before we will have to send back the pf bit
   * to the peer. Use in primary.
   * Make sure that state is XMIT_P/XMIT_S when calling this function
   * (and that nobody messed up with the state). - Jean II
   */
  static void irlap_start_poll_timer(struct irlap_cb *self, int timeout)
  {
  	IRDA_ASSERT(self != NULL, return;);
  	IRDA_ASSERT(self->magic == LAP_MAGIC, return;);
  
  #ifdef CONFIG_IRDA_FAST_RR
  	/*
  	 * Send out the RR frames faster if our own transmit queue is empty, or
  	 * if the peer is busy. The effect is a much faster conversation
  	 */

  	if (skb_queue_empty(&self->txq) || self->remote_busy) {

  		if (self->fast_RR == TRUE) {
  			/*
  			 *  Assert that the fast poll timer has not reached the
  			 *  normal poll timer yet
  			 */
  			if (self->fast_RR_timeout < timeout) {
  				/*
  				 *  FIXME: this should be a more configurable
  				 *         function
  				 */
  				self->fast_RR_timeout +=
  					(sysctl_fast_poll_increase * HZ/1000);
  
  				/* Use this fast(er) timeout instead */
  				timeout = self->fast_RR_timeout;
  			}
  		} else {
  			self->fast_RR = TRUE;
  
  			/* Start with just 0 ms */
  			self->fast_RR_timeout = 0;
  			timeout = 0;
  		}
  	} else
  		self->fast_RR = FALSE;

  	IRDA_DEBUG(3, "%s(), timeout=%d (%ld)
  ", __func__, timeout, jiffies);

  #endif /* CONFIG_IRDA_FAST_RR */
  
  	if (timeout == 0)
  		irlap_do_event(self, POLL_TIMER_EXPIRED, NULL, NULL);
  	else
  		irda_start_timer(&self->poll_timer, timeout, self,
  				 irlap_poll_timer_expired);
  }
  
  /*
   * Function irlap_do_event (event, skb, info)
   *
   *    Rushes through the state machine without any delay. If state == XMIT
   *    then send queued data frames.
   */
  void irlap_do_event(struct irlap_cb *self, IRLAP_EVENT event,
  		    struct sk_buff *skb, struct irlap_info *info)
  {
  	int ret;
  
  	if (!self || self->magic != LAP_MAGIC)
  		return;

  	IRDA_DEBUG(3, "%s(), event = %s, state = %s
  ", __func__,

  		   irlap_event[event], irlap_state[self->state]);
  
  	ret = (*state[self->state])(self, event, skb, info);
  
  	/*
  	 *  Check if there are any pending events that needs to be executed
  	 */
  	switch (self->state) {
  	case LAP_XMIT_P: /* FALLTHROUGH */
  	case LAP_XMIT_S:
  		/*
  		 * We just received the pf bit and are at the beginning
  		 * of a new LAP transmit window.
  		 * Check if there are any queued data frames, and do not
  		 * try to disconnect link if we send any data frames, since
  		 * that will change the state away form XMIT
  		 */

  		IRDA_DEBUG(2, "%s() : queue len = %d
  ", __func__,

  			   skb_queue_len(&self->txq));

  		if (!skb_queue_empty(&self->txq)) {

  			/* Prevent race conditions with irlap_data_request() */
  			self->local_busy = TRUE;
  
  			/* Theory of operation.
  			 * We send frames up to when we fill the window or
  			 * reach line capacity. Those frames will queue up
  			 * in the device queue, and the driver will slowly
  			 * send them.
  			 * After each frame that we send, we poll the higher
  			 * layer for more data. It's the right time to do
  			 * that because the link layer need to perform the mtt
  			 * and then send the first frame, so we can afford
  			 * to send a bit of time in kernel space.
  			 * The explicit flow indication allow to minimise
  			 * buffers (== lower latency), to avoid higher layer
  			 * polling via timers (== less context switches) and
  			 * to implement a crude scheduler - Jean II */
  
  			/* Try to send away all queued data frames */
  			while ((skb = skb_dequeue(&self->txq)) != NULL) {
  				/* Send one frame */
  				ret = (*state[self->state])(self, SEND_I_CMD,
  							    skb, NULL);
  				/* Drop reference count.
  				 * It will be increase as needed in
  				 * irlap_send_data_xxx() */
  				kfree_skb(skb);
  
  				/* Poll the higher layers for one more frame */
  				irlmp_flow_indication(self->notify.instance,
  						      FLOW_START);
  
  				if (ret == -EPROTO)
  					break; /* Try again later! */
  			}
  			/* Finished transmitting */
  			self->local_busy = FALSE;
  		} else if (self->disconnect_pending) {
  			self->disconnect_pending = FALSE;
  
  			ret = (*state[self->state])(self, DISCONNECT_REQUEST,
  						    NULL, NULL);
  		}
  		break;
  /*	case LAP_NDM: */
  /*	case LAP_CONN: */
  /*	case LAP_RESET_WAIT: */
  /*	case LAP_RESET_CHECK: */
  	default:
  		break;
  	}
  }
  
  /*

   * Function irlap_state_ndm (event, skb, frame)
   *
   *    NDM (Normal Disconnected Mode) state
   *
   */
  static int irlap_state_ndm(struct irlap_cb *self, IRLAP_EVENT event,
  			   struct sk_buff *skb, struct irlap_info *info)
  {
  	discovery_t *discovery_rsp;
  	int ret = 0;
  
  	IRDA_ASSERT(self != NULL, return -1;);
  	IRDA_ASSERT(self->magic == LAP_MAGIC, return -1;);
  
  	switch (event) {
  	case CONNECT_REQUEST:
  		IRDA_ASSERT(self->netdev != NULL, return -1;);
  
  		if (self->media_busy) {
  			/* Note : this will never happen, because we test
  			 * media busy in irlap_connect_request() and
  			 * postpone the event... - Jean II */
  			IRDA_DEBUG(0, "%s(), CONNECT_REQUEST: media busy!
  ",

  				   __func__);

  
  			/* Always switch state before calling upper layers */
  			irlap_next_state(self, LAP_NDM);
  
  			irlap_disconnect_indication(self, LAP_MEDIA_BUSY);
  		} else {
  			irlap_send_snrm_frame(self, &self->qos_rx);
  
  			/* Start Final-bit timer */
  			irlap_start_final_timer(self, self->final_timeout);
  
  			self->retry_count = 0;
  			irlap_next_state(self, LAP_SETUP);
  		}
  		break;
  	case RECV_SNRM_CMD:
  		/* Check if the frame contains and I field */
  		if (info) {
  			self->daddr = info->daddr;
  			self->caddr = info->caddr;
  
  			irlap_next_state(self, LAP_CONN);
  
  			irlap_connect_indication(self, skb);
  		} else {
  			IRDA_DEBUG(0, "%s(), SNRM frame does not "

  				   "contain an I field!
  ", __func__);

  		}
  		break;
  	case DISCOVERY_REQUEST:
  		IRDA_ASSERT(info != NULL, return -1;);
  
  		if (self->media_busy) {
  			IRDA_DEBUG(1, "%s(), DISCOVERY_REQUEST: media busy!
  ",

  				   __func__);

  			/* irlap->log.condition = MEDIA_BUSY; */
  
  			/* This will make IrLMP try again */
  			irlap_discovery_confirm(self, NULL);
  			/* Note : the discovery log is not cleaned up here,
  			 * it will be done in irlap_discovery_request()
  			 * Jean II */
  			return 0;
  		}
  
  		self->S = info->S;
  		self->s = info->s;
  		irlap_send_discovery_xid_frame(self, info->S, info->s, TRUE,
  					       info->discovery);
  		self->frame_sent = FALSE;
  		self->s++;
  
  		irlap_start_slot_timer(self, self->slot_timeout);
  		irlap_next_state(self, LAP_QUERY);
  		break;
  	case RECV_DISCOVERY_XID_CMD:
  		IRDA_ASSERT(info != NULL, return -1;);
  
  		/* Assert that this is not the final slot */
  		if (info->s <= info->S) {
  			self->slot = irlap_generate_rand_time_slot(info->S,
  								   info->s);
  			if (self->slot == info->s) {
  				discovery_rsp = irlmp_get_discovery_response();
  				discovery_rsp->data.daddr = info->daddr;
  
  				irlap_send_discovery_xid_frame(self, info->S,
  							       self->slot,
  							       FALSE,
  							       discovery_rsp);
  				self->frame_sent = TRUE;
  			} else
  				self->frame_sent = FALSE;
  
  			/*
  			 * Go to reply state until end of discovery to
  			 * inhibit our own transmissions. Set the timer
  			 * to not stay forever there... Jean II
  			 */
  			irlap_start_query_timer(self, info->S, info->s);
  			irlap_next_state(self, LAP_REPLY);
  		} else {
  		/* This is the final slot. How is it possible ?
  		 * This would happen is both discoveries are just slightly
  		 * offset (if they are in sync, all packets are lost).
  		 * Most often, all the discovery requests will be received
  		 * in QUERY state (see my comment there), except for the
  		 * last frame that will come here.
  		 * The big trouble when it happen is that active discovery
  		 * doesn't happen, because nobody answer the discoveries
  		 * frame of the other guy, so the log shows up empty.
  		 * What should we do ?
  		 * Not much. It's too late to answer those discovery frames,
  		 * so we just pass the info to IrLMP who will put it in the
  		 * log (and post an event).
  		 * Another cause would be devices that do discovery much
  		 * slower than us, however the latest fixes should minimise
  		 * those cases...
  		 * Jean II
  		 */

  			IRDA_DEBUG(1, "%s(), Receiving final discovery request, missed the discovery slots :-(
  ", __func__);

  
  			/* Last discovery request -> in the log */
  			irlap_discovery_indication(self, info->discovery);
  		}
  		break;
  	case MEDIA_BUSY_TIMER_EXPIRED:
  		/* A bunch of events may be postponed because the media is
  		 * busy (usually immediately after we close a connection),
  		 * or while we are doing discovery (state query/reply).
  		 * In all those cases, the media busy flag will be cleared
  		 * when it's OK for us to process those postponed events.
  		 * This event is not mentioned in the state machines in the
  		 * IrLAP spec. It's because they didn't consider Ultra and
  		 * postponing connection request is optional.
  		 * Jean II */
  #ifdef CONFIG_IRDA_ULTRA
  		/* Send any pending Ultra frames if any */
  		if (!skb_queue_empty(&self->txq_ultra)) {
  			/* We don't send the frame, just post an event.
  			 * Also, previously this code was in timer.c...
  			 * Jean II */
  			ret = (*state[self->state])(self, SEND_UI_FRAME,
  						    NULL, NULL);
  		}
  #endif /* CONFIG_IRDA_ULTRA */
  		/* Check if we should try to connect.
  		 * This code was previously in irlap_do_event() */
  		if (self->connect_pending) {
  			self->connect_pending = FALSE;
  
  			/* This one *should* not pend in this state, except
  			 * if a socket try to connect and immediately
  			 * disconnect. - clear - Jean II */
  			if (self->disconnect_pending)
  				irlap_disconnect_indication(self, LAP_DISC_INDICATION);
  			else
  				ret = (*state[self->state])(self,
  							    CONNECT_REQUEST,
  							    NULL, NULL);
  			self->disconnect_pending = FALSE;
  		}
  		/* Note : one way to test if this code works well (including
  		 * media busy and small busy) is to create a user space
  		 * application generating an Ultra packet every 3.05 sec (or
  		 * 2.95 sec) and to see how it interact with discovery.
  		 * It's fairly easy to check that no packet is lost, that the
  		 * packets are postponed during discovery and that after
  		 * discovery indication you have a 100ms "gap".
  		 * As connection request and Ultra are now processed the same
  		 * way, this avoid the tedious job of trying IrLAP connection
  		 * in all those cases...
  		 * Jean II */
  		break;
  #ifdef CONFIG_IRDA_ULTRA
  	case SEND_UI_FRAME:
  	{
  		int i;
  		/* Only allowed to repeat an operation twice */
  		for (i=0; ((i<2) && (self->media_busy == FALSE)); i++) {
  			skb = skb_dequeue(&self->txq_ultra);
  			if (skb)
  				irlap_send_ui_frame(self, skb, CBROADCAST,
  						    CMD_FRAME);
  			else
  				break;
  			/* irlap_send_ui_frame() won't increase skb reference
  			 * count, so no dev_kfree_skb() - Jean II */
  		}
  		if (i == 2) {
  			/* Force us to listen 500 ms again */
  			irda_device_set_media_busy(self->netdev, TRUE);
  		}
  		break;
  	}
  	case RECV_UI_FRAME:
  		/* Only accept broadcast frames in NDM mode */
  		if (info->caddr != CBROADCAST) {
  			IRDA_DEBUG(0, "%s(), not a broadcast frame!
  ",

  				   __func__);

  		} else
  			irlap_unitdata_indication(self, skb);
  		break;
  #endif /* CONFIG_IRDA_ULTRA */
  	case RECV_TEST_CMD:
  		/* Remove test frame header */
  		skb_pull(skb, sizeof(struct test_frame));
  
  		/*
  		 * Send response. This skb will not be sent out again, and
  		 * will only be used to send out the same info as the cmd
  		 */
  		irlap_send_test_frame(self, CBROADCAST, info->daddr, skb);
  		break;
  	case RECV_TEST_RSP:

  		IRDA_DEBUG(0, "%s() not implemented!
  ", __func__);

  		break;
  	default:

  		IRDA_DEBUG(2, "%s(), Unknown event %s
  ", __func__,

  			   irlap_event[event]);
  
  		ret = -1;
  		break;
  	}
  	return ret;
  }
  
  /*
   * Function irlap_state_query (event, skb, info)
   *
   *    QUERY state
   *
   */
  static int irlap_state_query(struct irlap_cb *self, IRLAP_EVENT event,
  			     struct sk_buff *skb, struct irlap_info *info)
  {
  	int ret = 0;
  
  	IRDA_ASSERT(self != NULL, return -1;);
  	IRDA_ASSERT(self->magic == LAP_MAGIC, return -1;);
  
  	switch (event) {
  	case RECV_DISCOVERY_XID_RSP:
  		IRDA_ASSERT(info != NULL, return -1;);
  		IRDA_ASSERT(info->discovery != NULL, return -1;);

  		IRDA_DEBUG(4, "%s(), daddr=%08x
  ", __func__,

  			   info->discovery->data.daddr);
  
  		if (!self->discovery_log) {
  			IRDA_WARNING("%s: discovery log is gone! "
  				     "maybe the discovery timeout has been set"

  				     " too short?
  ", __func__);

  			break;
  		}
  		hashbin_insert(self->discovery_log,
  			       (irda_queue_t *) info->discovery,
  			       info->discovery->data.daddr, NULL);
  
  		/* Keep state */
  		/* irlap_next_state(self, LAP_QUERY);  */
  
  		break;
  	case RECV_DISCOVERY_XID_CMD:
  		/* Yes, it is possible to receive those frames in this mode.
  		 * Note that most often the last discovery request won't
  		 * occur here but in NDM state (see my comment there).
  		 * What should we do ?
  		 * Not much. We are currently performing our own discovery,
  		 * therefore we can't answer those frames. We don't want
  		 * to change state either. We just pass the info to
  		 * IrLMP who will put it in the log (and post an event).
  		 * Jean II
  		 */
  
  		IRDA_ASSERT(info != NULL, return -1;);

  		IRDA_DEBUG(1, "%s(), Receiving discovery request (s = %d) while performing discovery :-(
  ", __func__, info->s);

  
  		/* Last discovery request ? */
  		if (info->s == 0xff)
  			irlap_discovery_indication(self, info->discovery);
  		break;
  	case SLOT_TIMER_EXPIRED:
  		/*
  		 * Wait a little longer if we detect an incoming frame. This
  		 * is not mentioned in the spec, but is a good thing to do,
  		 * since we want to work even with devices that violate the
  		 * timing requirements.
  		 */
  		if (irda_device_is_receiving(self->netdev) && !self->add_wait) {
  			IRDA_DEBUG(2, "%s(), device is slow to answer, "

  				   "waiting some more!
  ", __func__);

  			irlap_start_slot_timer(self, msecs_to_jiffies(10));
  			self->add_wait = TRUE;
  			return ret;
  		}
  		self->add_wait = FALSE;
  
  		if (self->s < self->S) {
  			irlap_send_discovery_xid_frame(self, self->S,
  						       self->s, TRUE,
  						       self->discovery_cmd);
  			self->s++;
  			irlap_start_slot_timer(self, self->slot_timeout);
  
  			/* Keep state */
  			irlap_next_state(self, LAP_QUERY);
  		} else {
  			/* This is the final slot! */
  			irlap_send_discovery_xid_frame(self, self->S, 0xff,
  						       TRUE,
  						       self->discovery_cmd);
  
  			/* Always switch state before calling upper layers */
  			irlap_next_state(self, LAP_NDM);
  
  			/*
  			 *  We are now finished with the discovery procedure,
  			 *  so now we must return the results
  			 */
  			irlap_discovery_confirm(self, self->discovery_log);
  
  			/* IrLMP should now have taken care of the log */
  			self->discovery_log = NULL;
  		}
  		break;
  	default:

  		IRDA_DEBUG(2, "%s(), Unknown event %s
  ", __func__,

  			   irlap_event[event]);
  
  		ret = -1;
  		break;
  	}
  	return ret;
  }
  
  /*
   * Function irlap_state_reply (self, event, skb, info)
   *
   *    REPLY, we have received a XID discovery frame from a device and we
   *    are waiting for the right time slot to send a response XID frame
   *
   */
  static int irlap_state_reply(struct irlap_cb *self, IRLAP_EVENT event,
  			     struct sk_buff *skb, struct irlap_info *info)
  {
  	discovery_t *discovery_rsp;
  	int ret=0;

  	IRDA_DEBUG(4, "%s()
  ", __func__);

  
  	IRDA_ASSERT(self != NULL, return -1;);
  	IRDA_ASSERT(self->magic == LAP_MAGIC, return -1;);
  
  	switch (event) {
  	case QUERY_TIMER_EXPIRED:
  		IRDA_DEBUG(0, "%s(), QUERY_TIMER_EXPIRED <%ld>
  ",

  			   __func__, jiffies);

  		irlap_next_state(self, LAP_NDM);
  		break;
  	case RECV_DISCOVERY_XID_CMD:
  		IRDA_ASSERT(info != NULL, return -1;);
  		/* Last frame? */
  		if (info->s == 0xff) {
  			del_timer(&self->query_timer);
  
  			/* info->log.condition = REMOTE; */
  
  			/* Always switch state before calling upper layers */
  			irlap_next_state(self, LAP_NDM);
  
  			irlap_discovery_indication(self, info->discovery);
  		} else {
  			/* If it's our slot, send our reply */
  			if ((info->s >= self->slot) && (!self->frame_sent)) {
  				discovery_rsp = irlmp_get_discovery_response();
  				discovery_rsp->data.daddr = info->daddr;
  
  				irlap_send_discovery_xid_frame(self, info->S,
  							       self->slot,
  							       FALSE,
  							       discovery_rsp);
  
  				self->frame_sent = TRUE;
  			}

  			/* Readjust our timer to accommodate devices

  			 * doing faster or slower discovery than us...
  			 * Jean II */
  			irlap_start_query_timer(self, info->S, info->s);
  
  			/* Keep state */
  			//irlap_next_state(self, LAP_REPLY);
  		}
  		break;
  	default:

  		IRDA_DEBUG(1, "%s(), Unknown event %d, %s
  ", __func__,

  			   event, irlap_event[event]);
  
  		ret = -1;
  		break;
  	}
  	return ret;
  }
  
  /*
   * Function irlap_state_conn (event, skb, info)
   *
   *    CONN, we have received a SNRM command and is waiting for the upper
   *    layer to accept or refuse connection
   *
   */
  static int irlap_state_conn(struct irlap_cb *self, IRLAP_EVENT event,
  			    struct sk_buff *skb, struct irlap_info *info)
  {
  	int ret = 0;

  	IRDA_DEBUG(4, "%s(), event=%s
  ", __func__, irlap_event[ event]);

  
  	IRDA_ASSERT(self != NULL, return -1;);
  	IRDA_ASSERT(self->magic == LAP_MAGIC, return -1;);
  
  	switch (event) {
  	case CONNECT_RESPONSE:
  		skb_pull(skb, sizeof(struct snrm_frame));
  
  		IRDA_ASSERT(self->netdev != NULL, return -1;);
  
  		irlap_qos_negotiate(self, skb);
  
  		irlap_initiate_connection_state(self);
  
  		/*
  		 * Applying the parameters now will make sure we change speed
  		 * *after* we have sent the next frame
  		 */
  		irlap_apply_connection_parameters(self, FALSE);
  
  		/*
  		 * Sending this frame will force a speed change after it has
  		 * been sent (i.e. the frame will be sent at 9600).
  		 */
  		irlap_send_ua_response_frame(self, &self->qos_rx);
  
  #if 0
  		/*
  		 * We are allowed to send two frames, but this may increase
  		 * the connect latency, so lets not do it for now.
  		 */
  		/* This is full of good intentions, but doesn't work in
  		 * practice.
  		 * After sending the first UA response, we switch the
  		 * dongle to the negotiated speed, which is usually
  		 * different than 9600 kb/s.
  		 * From there, there is two solutions :
  		 * 1) The other end has received the first UA response :
  		 * it will set up the connection, move to state LAP_NRM_P,
  		 * and will ignore and drop the second UA response.
  		 * Actually, it's even worse : the other side will almost
  		 * immediately send a RR that will likely collide with the
  		 * UA response (depending on negotiated turnaround).
  		 * 2) The other end has not received the first UA response,
  		 * will stay at 9600 and will never see the second UA response.
  		 * Jean II */
  		irlap_send_ua_response_frame(self, &self->qos_rx);
  #endif
  
  		/*
  		 *  The WD-timer could be set to the duration of the P-timer
  		 *  for this case, but it is recommended to use twice the
  		 *  value (note 3 IrLAP p. 60).
  		 */
  		irlap_start_wd_timer(self, self->wd_timeout);
  		irlap_next_state(self, LAP_NRM_S);
  
  		break;
  	case RECV_DISCOVERY_XID_CMD:
  		IRDA_DEBUG(3, "%s(), event RECV_DISCOVER_XID_CMD!
  ",

  			   __func__);

  		irlap_next_state(self, LAP_NDM);
  
  		break;
  	case DISCONNECT_REQUEST:

  		IRDA_DEBUG(0, "%s(), Disconnect request!
  ", __func__);

  		irlap_send_dm_frame(self);
  		irlap_next_state( self, LAP_NDM);
  		irlap_disconnect_indication(self, LAP_DISC_INDICATION);
  		break;
  	default:

  		IRDA_DEBUG(1, "%s(), Unknown event %d, %s
  ", __func__,

  			   event, irlap_event[event]);
  
  		ret = -1;
  		break;
  	}
  
  	return ret;
  }
  
  /*
   * Function irlap_state_setup (event, skb, frame)
   *
   *    SETUP state, The local layer has transmitted a SNRM command frame to
   *    a remote peer layer and is awaiting a reply .
   *
   */
  static int irlap_state_setup(struct irlap_cb *self, IRLAP_EVENT event,
  			     struct sk_buff *skb, struct irlap_info *info)
  {
  	int ret = 0;

  	IRDA_DEBUG(4, "%s()
  ", __func__);

  
  	IRDA_ASSERT(self != NULL, return -1;);
  	IRDA_ASSERT(self->magic == LAP_MAGIC, return -1;);
  
  	switch (event) {
  	case FINAL_TIMER_EXPIRED:
  		if (self->retry_count < self->N3) {
  /*
   *  Perform random backoff, Wait a random number of time units, minimum
   *  duration half the time taken to transmitt a SNRM frame, maximum duration
   *  1.5 times the time taken to transmit a SNRM frame. So this time should
   *  between 15 msecs and 45 msecs.
   */
  			irlap_start_backoff_timer(self, msecs_to_jiffies(20 +

  							(jiffies % 30)));

  		} else {
  			/* Always switch state before calling upper layers */
  			irlap_next_state(self, LAP_NDM);
  
  			irlap_disconnect_indication(self, LAP_FOUND_NONE);
  		}
  		break;
  	case BACKOFF_TIMER_EXPIRED:
  		irlap_send_snrm_frame(self, &self->qos_rx);
  		irlap_start_final_timer(self, self->final_timeout);
  		self->retry_count++;
  		break;
  	case RECV_SNRM_CMD:

  		IRDA_DEBUG(4, "%s(), SNRM battle!
  ", __func__);

  
  		IRDA_ASSERT(skb != NULL, return 0;);
  		IRDA_ASSERT(info != NULL, return 0;);
  
  		/*
  		 *  The device with the largest device address wins the battle
  		 *  (both have sent a SNRM command!)
  		 */
  		if (info &&(info->daddr > self->saddr)) {
  			del_timer(&self->final_timer);
  			irlap_initiate_connection_state(self);
  
  			IRDA_ASSERT(self->netdev != NULL, return -1;);
  
  			skb_pull(skb, sizeof(struct snrm_frame));
  
  			irlap_qos_negotiate(self, skb);
  
  			/* Send UA frame and then change link settings */
  			irlap_apply_connection_parameters(self, FALSE);
  			irlap_send_ua_response_frame(self, &self->qos_rx);
  
  			irlap_next_state(self, LAP_NRM_S);
  			irlap_connect_confirm(self, skb);
  
  			/*
  			 *  The WD-timer could be set to the duration of the
  			 *  P-timer for this case, but it is recommended
  			 *  to use twice the value (note 3 IrLAP p. 60).
  			 */
  			irlap_start_wd_timer(self, self->wd_timeout);
  		} else {
  			/* We just ignore the other device! */
  			irlap_next_state(self, LAP_SETUP);
  		}
  		break;
  	case RECV_UA_RSP:
  		/* Stop F-timer */
  		del_timer(&self->final_timer);
  
  		/* Initiate connection state */
  		irlap_initiate_connection_state(self);
  
  		/* Negotiate connection parameters */
  		IRDA_ASSERT(skb->len > 10, return -1;);
  
  		skb_pull(skb, sizeof(struct ua_frame));
  
  		IRDA_ASSERT(self->netdev != NULL, return -1;);
  
  		irlap_qos_negotiate(self, skb);
  
  		/* Set the new link setting *now* (before the rr frame) */
  		irlap_apply_connection_parameters(self, TRUE);
  		self->retry_count = 0;
  
  		/* Wait for turnaround time to give a chance to the other
  		 * device to be ready to receive us.
  		 * Note : the time to switch speed is typically larger
  		 * than the turnaround time, but as we don't have the other
  		 * side speed switch time, that's our best guess...
  		 * Jean II */
  		irlap_wait_min_turn_around(self, &self->qos_tx);
  
  		/* This frame will actually be sent at the new speed */
  		irlap_send_rr_frame(self, CMD_FRAME);
  
  		/* The timer is set to half the normal timer to quickly

  		 * detect a failure to negotiate the new connection

  		 * parameters. IrLAP 6.11.3.2, note 3.
  		 * Note that currently we don't process this failure
  		 * properly, as we should do a quick disconnect.
  		 * Jean II */
  		irlap_start_final_timer(self, self->final_timeout/2);
  		irlap_next_state(self, LAP_NRM_P);
  
  		irlap_connect_confirm(self, skb);
  		break;
  	case RECV_DM_RSP:     /* FALLTHROUGH */
  	case RECV_DISC_CMD:
  		del_timer(&self->final_timer);
  		irlap_next_state(self, LAP_NDM);
  
  		irlap_disconnect_indication(self, LAP_DISC_INDICATION);
  		break;
  	default:

  		IRDA_DEBUG(1, "%s(), Unknown event %d, %s
  ", __func__,

  			   event, irlap_event[event]);
  
  		ret = -1;
  		break;
  	}
  	return ret;
  }
  
  /*
   * Function irlap_state_offline (self, event, skb, info)
   *
   *    OFFLINE state, not used for now!
   *
   */
  static int irlap_state_offline(struct irlap_cb *self, IRLAP_EVENT event,
  			       struct sk_buff *skb, struct irlap_info *info)
  {

  	IRDA_DEBUG( 0, "%s(), Unknown event
  ", __func__);

  
  	return -1;
  }
  
  /*
   * Function irlap_state_xmit_p (self, event, skb, info)
   *
   *    XMIT, Only the primary station has right to transmit, and we
   *    therefore do not expect to receive any transmissions from other
   *    stations.
   *
   */
  static int irlap_state_xmit_p(struct irlap_cb *self, IRLAP_EVENT event,
  			      struct sk_buff *skb, struct irlap_info *info)
  {
  	int ret = 0;
  
  	switch (event) {
  	case SEND_I_CMD:
  		/*
  		 *  Only send frame if send-window > 0.
  		 */
  		if ((self->window > 0) && (!self->remote_busy)) {
  			int nextfit;
  #ifdef CONFIG_IRDA_DYNAMIC_WINDOW
  			struct sk_buff *skb_next;
  
  			/* With DYNAMIC_WINDOW, we keep the window size
  			 * maximum, and adapt on the packets we are sending.
  			 * At 115k, we can send only 2 packets of 2048 bytes
  			 * in a 500 ms turnaround. Without this option, we
  			 * would always limit the window to 2. With this
  			 * option, if we send smaller packets, we can send
  			 * up to 7 of them (always depending on QoS).
  			 * Jean II */
  
  			/* Look at the next skb. This is safe, as we are
  			 * the only consumer of the Tx queue (if we are not,
  			 * we have other problems) - Jean II */
  			skb_next = skb_peek(&self->txq);
  
  			/* Check if a subsequent skb exist and would fit in
  			 * the current window (with respect to turnaround
  			 * time).
  			 * This allow us to properly mark the current packet
  			 * with the pf bit, to avoid falling back on the
  			 * second test below, and avoid waiting the
  			 * end of the window and sending a extra RR.
  			 * Note : (skb_next != NULL) <=> (skb_queue_len() > 0)
  			 * Jean II */
  			nextfit = ((skb_next != NULL) &&
  				   ((skb_next->len + skb->len) <=
  				    self->bytes_left));
  
  			/*
  			 * The current packet may not fit ! Because of test
  			 * above, this should not happen any more !!!
  			 *  Test if we have transmitted more bytes over the
  			 *  link than its possible to do with the current
  			 *  speed and turn-around-time.
  			 */
  			if((!nextfit) && (skb->len > self->bytes_left)) {
  				IRDA_DEBUG(0, "%s(), Not allowed to transmit"

  					   " more bytes!
  ", __func__);

  				/* Requeue the skb */
  				skb_queue_head(&self->txq, skb_get(skb));
  				/*
  				 *  We should switch state to LAP_NRM_P, but
  				 *  that is not possible since we must be sure
  				 *  that we poll the other side. Since we have
  				 *  used up our time, the poll timer should
  				 *  trigger anyway now, so we just wait for it
  				 *  DB
  				 */
  				/*
  				 * Sorry, but that's not totally true. If
  				 * we send 2000B packets, we may wait another
  				 * 1000B until our turnaround expire. That's
  				 * why we need to be proactive in avoiding
  				 * coming here. - Jean II
  				 */
  				return -EPROTO;
  			}

  			/* Subtract space used by this skb */

  			self->bytes_left -= skb->len;
  #else	/* CONFIG_IRDA_DYNAMIC_WINDOW */
  			/* Window has been adjusted for the max packet
  			 * size, so much simpler... - Jean II */

  			nextfit = !skb_queue_empty(&self->txq);

  #endif	/* CONFIG_IRDA_DYNAMIC_WINDOW */
  			/*
  			 *  Send data with poll bit cleared only if window > 1
  			 *  and there is more frames after this one to be sent
  			 */
  			if ((self->window > 1) && (nextfit)) {
  				/* More packet to send in current window */
  				irlap_send_data_primary(self, skb);
  				irlap_next_state(self, LAP_XMIT_P);
  			} else {
  				/* Final packet of window */
  				irlap_send_data_primary_poll(self, skb);

  
  				/*
  				 * Make sure state machine does not try to send
  				 * any more frames
  				 */
  				ret = -EPROTO;
  			}
  #ifdef CONFIG_IRDA_FAST_RR
  			/* Peer may want to reply immediately */
  			self->fast_RR = FALSE;
  #endif /* CONFIG_IRDA_FAST_RR */
  		} else {
  			IRDA_DEBUG(4, "%s(), Unable to send! remote busy?
  ",

  				   __func__);

  			skb_queue_head(&self->txq, skb_get(skb));
  
  			/*
  			 *  The next ret is important, because it tells
  			 *  irlap_next_state _not_ to deliver more frames
  			 */
  			ret = -EPROTO;
  		}
  		break;
  	case POLL_TIMER_EXPIRED:
  		IRDA_DEBUG(3, "%s(), POLL_TIMER_EXPIRED <%ld>
  ",

  			    __func__, jiffies);

  		irlap_send_rr_frame(self, CMD_FRAME);
  		/* Return to NRM properly - Jean II  */
  		self->window = self->window_size;
  #ifdef CONFIG_IRDA_DYNAMIC_WINDOW
  		/* Allowed to transmit a maximum number of bytes again. */
  		self->bytes_left = self->line_capacity;
  #endif /* CONFIG_IRDA_DYNAMIC_WINDOW */
  		irlap_start_final_timer(self, self->final_timeout);
  		irlap_next_state(self, LAP_NRM_P);
  		break;
  	case DISCONNECT_REQUEST:
  		del_timer(&self->poll_timer);
  		irlap_wait_min_turn_around(self, &self->qos_tx);
  		irlap_send_disc_frame(self);
  		irlap_flush_all_queues(self);
  		irlap_start_final_timer(self, self->final_timeout);
  		self->retry_count = 0;
  		irlap_next_state(self, LAP_PCLOSE);
  		break;
  	case DATA_REQUEST:
  		/* Nothing to do, irlap_do_event() will send the packet
  		 * when we return... - Jean II */
  		break;
  	default:
  		IRDA_DEBUG(0, "%s(), Unknown event %s
  ",

  			   __func__, irlap_event[event]);

  
  		ret = -EINVAL;
  		break;
  	}
  	return ret;
  }
  
  /*
   * Function irlap_state_pclose (event, skb, info)
   *
   *    PCLOSE state
   */
  static int irlap_state_pclose(struct irlap_cb *self, IRLAP_EVENT event,
  			      struct sk_buff *skb, struct irlap_info *info)
  {
  	int ret = 0;

  	IRDA_DEBUG(1, "%s()
  ", __func__);

  
  	IRDA_ASSERT(self != NULL, return -1;);
  	IRDA_ASSERT(self->magic == LAP_MAGIC, return -1;);
  
  	switch (event) {
  	case RECV_UA_RSP: /* FALLTHROUGH */
  	case RECV_DM_RSP:
  		del_timer(&self->final_timer);
  
  		/* Set new link parameters */
  		irlap_apply_default_connection_parameters(self);
  
  		/* Always switch state before calling upper layers */
  		irlap_next_state(self, LAP_NDM);
  
  		irlap_disconnect_indication(self, LAP_DISC_INDICATION);
  		break;
  	case FINAL_TIMER_EXPIRED:
  		if (self->retry_count < self->N3) {
  			irlap_wait_min_turn_around(self, &self->qos_tx);
  			irlap_send_disc_frame(self);
  			irlap_start_final_timer(self, self->final_timeout);
  			self->retry_count++;
  			/* Keep state */
  		} else {
  			irlap_apply_default_connection_parameters(self);
  
  			/*  Always switch state before calling upper layers */
  			irlap_next_state(self, LAP_NDM);
  
  			irlap_disconnect_indication(self, LAP_NO_RESPONSE);
  		}
  		break;
  	default:

  		IRDA_DEBUG(1, "%s(), Unknown event %d
  ", __func__, event);

  
  		ret = -1;
  		break;
  	}
  	return ret;
  }
  
  /*
   * Function irlap_state_nrm_p (self, event, skb, info)
   *
   *   NRM_P (Normal Response Mode as Primary), The primary station has given
   *   permissions to a secondary station to transmit IrLAP resonse frames
   *   (by sending a frame with the P bit set). The primary station will not
   *   transmit any frames and is expecting to receive frames only from the
   *   secondary to which transmission permissions has been given.
   */
  static int irlap_state_nrm_p(struct irlap_cb *self, IRLAP_EVENT event,
  			     struct sk_buff *skb, struct irlap_info *info)
  {
  	int ret = 0;
  	int ns_status;
  	int nr_status;
  
  	switch (event) {
  	case RECV_I_RSP: /* Optimize for the common case */

  		if (unlikely(skb->len <= LAP_ADDR_HEADER + LAP_CTRL_HEADER)) {
  			/*
  			 * Input validation check: a stir4200/mcp2150
  			 * combination sometimes results in an empty i:rsp.
  			 * This makes no sense; we can just ignore the frame
  			 * and send an rr:cmd immediately. This happens before
  			 * changing nr or ns so triggers a retransmit
  			 */
  			irlap_wait_min_turn_around(self, &self->qos_tx);
  			irlap_send_rr_frame(self, CMD_FRAME);
  			/* Keep state */
  			break;
  		}

  		/* FIXME: must check for remote_busy below */
  #ifdef CONFIG_IRDA_FAST_RR
  		/*
  		 *  Reset the fast_RR so we can use the fast RR code with
  		 *  full speed the next time since peer may have more frames
  		 *  to transmitt
  		 */
  		self->fast_RR = FALSE;
  #endif /* CONFIG_IRDA_FAST_RR */
  		IRDA_ASSERT( info != NULL, return -1;);
  
  		ns_status = irlap_validate_ns_received(self, info->ns);
  		nr_status = irlap_validate_nr_received(self, info->nr);
  
  		/*
  		 *  Check for expected I(nformation) frame
  		 */
  		if ((ns_status == NS_EXPECTED) && (nr_status == NR_EXPECTED)) {
  
  			/* Update Vr (next frame for us to receive) */
  			self->vr = (self->vr + 1) % 8;
  
  			/* Update Nr received, cleanup our retry queue */
  			irlap_update_nr_received(self, info->nr);
  
  			/*
  			 *  Got expected NR, so reset the
  			 *  retry_count. This is not done by IrLAP spec,
  			 *  which is strange!
  			 */
  			self->retry_count = 0;
  			self->ack_required = TRUE;
  
  			/*  poll bit cleared?  */
  			if (!info->pf) {
  				/* Keep state, do not move this line */
  				irlap_next_state(self, LAP_NRM_P);
  
  				irlap_data_indication(self, skb, FALSE);
  			} else {
  				/* No longer waiting for pf */
  				del_timer(&self->final_timer);
  
  				irlap_wait_min_turn_around(self, &self->qos_tx);
  
  				/* Call higher layer *before* changing state
  				 * to give them a chance to send data in the
  				 * next LAP frame.
  				 * Jean II */
  				irlap_data_indication(self, skb, FALSE);
  
  				/* XMIT states are the most dangerous state
  				 * to be in, because user requests are
  				 * processed directly and may change state.
  				 * On the other hand, in NDM_P, those
  				 * requests are queued and we will process
  				 * them when we return to irlap_do_event().
  				 * Jean II
  				 */
  				irlap_next_state(self, LAP_XMIT_P);
  
  				/* This is the last frame.
  				 * Make sure it's always called in XMIT state.
  				 * - Jean II */
  				irlap_start_poll_timer(self, self->poll_timeout);
  			}
  			break;
  
  		}
  		/* Unexpected next to send (Ns) */
  		if ((ns_status == NS_UNEXPECTED) && (nr_status == NR_EXPECTED))
  		{
  			if (!info->pf) {
  				irlap_update_nr_received(self, info->nr);
  
  				/*
  				 *  Wait until the last frame before doing
  				 *  anything
  				 */
  
  				/* Keep state */
  				irlap_next_state(self, LAP_NRM_P);
  			} else {
  				IRDA_DEBUG(4,
  				       "%s(), missing or duplicate frame!
  ",

  					   __func__);

  
  				/* Update Nr received */
  				irlap_update_nr_received(self, info->nr);
  
  				irlap_wait_min_turn_around(self, &self->qos_tx);
  				irlap_send_rr_frame(self, CMD_FRAME);
  
  				self->ack_required = FALSE;
  
  				irlap_start_final_timer(self, self->final_timeout);
  				irlap_next_state(self, LAP_NRM_P);
  			}
  			break;
  		}
  		/*
  		 *  Unexpected next to receive (Nr)
  		 */
  		if ((ns_status == NS_EXPECTED) && (nr_status == NR_UNEXPECTED))
  		{
  			if (info->pf) {
  				self->vr = (self->vr + 1) % 8;
  
  				/* Update Nr received */
  				irlap_update_nr_received(self, info->nr);
  
  				/* Resend rejected frames */
  				irlap_resend_rejected_frames(self, CMD_FRAME);
  
  				self->ack_required = FALSE;
  
  				/* Make sure we account for the time
  				 * to transmit our frames. See comemnts
  				 * in irlap_send_data_primary_poll().
  				 * Jean II */
  				irlap_start_final_timer(self, 2 * self->final_timeout);
  
  				/* Keep state, do not move this line */
  				irlap_next_state(self, LAP_NRM_P);
  
  				irlap_data_indication(self, skb, FALSE);
  			} else {
  				/*
  				 *  Do not resend frames until the last
  				 *  frame has arrived from the other
  				 *  device. This is not documented in
  				 *  IrLAP!!
  				 */
  				self->vr = (self->vr + 1) % 8;
  
  				/* Update Nr received */
  				irlap_update_nr_received(self, info->nr);
  
  				self->ack_required = FALSE;
  
  				/* Keep state, do not move this line!*/
  				irlap_next_state(self, LAP_NRM_P);
  
  				irlap_data_indication(self, skb, FALSE);
  			}
  			break;
  		}
  		/*
  		 *  Unexpected next to send (Ns) and next to receive (Nr)
  		 *  Not documented by IrLAP!
  		 */
  		if ((ns_status == NS_UNEXPECTED) &&
  		    (nr_status == NR_UNEXPECTED))
  		{
  			IRDA_DEBUG(4, "%s(), unexpected nr and ns!
  ",

  				   __func__);

  			if (info->pf) {
  				/* Resend rejected frames */
  				irlap_resend_rejected_frames(self, CMD_FRAME);

  				/* Give peer some time to retransmit!

  				 * But account for our own Tx. */
  				irlap_start_final_timer(self, 2 * self->final_timeout);
  
  				/* Keep state, do not move this line */
  				irlap_next_state(self, LAP_NRM_P);
  			} else {
  				/* Update Nr received */
  				/* irlap_update_nr_received( info->nr); */
  
  				self->ack_required = FALSE;
  			}
  			break;
  		}
  
  		/*
  		 *  Invalid NR or NS
  		 */
  		if ((nr_status == NR_INVALID) || (ns_status == NS_INVALID)) {
  			if (info->pf) {
  				del_timer(&self->final_timer);
  
  				irlap_next_state(self, LAP_RESET_WAIT);
  
  				irlap_disconnect_indication(self, LAP_RESET_INDICATION);
  				self->xmitflag = TRUE;
  			} else {
  				del_timer(&self->final_timer);
  
  				irlap_disconnect_indication(self, LAP_RESET_INDICATION);
  
  				self->xmitflag = FALSE;
  			}
  			break;
  		}

  		IRDA_DEBUG(1, "%s(), Not implemented!
  ", __func__);

  		IRDA_DEBUG(1, "%s(), event=%s, ns_status=%d, nr_status=%d
  ",

  		       __func__, irlap_event[event], ns_status, nr_status);

  		break;
  	case RECV_UI_FRAME:
  		/* Poll bit cleared? */
  		if (!info->pf) {
  			irlap_data_indication(self, skb, TRUE);
  			irlap_next_state(self, LAP_NRM_P);
  		} else {
  			del_timer(&self->final_timer);
  			irlap_data_indication(self, skb, TRUE);
  			irlap_next_state(self, LAP_XMIT_P);

  			IRDA_DEBUG(1, "%s: RECV_UI_FRAME: next state %s
  ", __func__, irlap_state[self->state]);

  			irlap_start_poll_timer(self, self->poll_timeout);
  		}
  		break;
  	case RECV_RR_RSP:
  		/*
  		 *  If you get a RR, the remote isn't busy anymore,
  		 *  no matter what the NR
  		 */
  		self->remote_busy = FALSE;

  		/* Stop final timer */
  		del_timer(&self->final_timer);

  		/*
  		 *  Nr as expected?
  		 */
  		ret = irlap_validate_nr_received(self, info->nr);
  		if (ret == NR_EXPECTED) {

  			/* Update Nr received */
  			irlap_update_nr_received(self, info->nr);
  
  			/*
  			 *  Got expected NR, so reset the retry_count. This
  			 *  is not done by the IrLAP standard , which is
  			 *  strange! DB.
  			 */
  			self->retry_count = 0;
  			irlap_wait_min_turn_around(self, &self->qos_tx);
  
  			irlap_next_state(self, LAP_XMIT_P);
  
  			/* Start poll timer */
  			irlap_start_poll_timer(self, self->poll_timeout);
  		} else if (ret == NR_UNEXPECTED) {
  			IRDA_ASSERT(info != NULL, return -1;);
  			/*
  			 *  Unexpected nr!
  			 */
  
  			/* Update Nr received */
  			irlap_update_nr_received(self, info->nr);
  
  			IRDA_DEBUG(4, "RECV_RR_FRAME: Retrans:%d, nr=%d, va=%d, "
  			      "vs=%d, vr=%d
  ",
  			      self->retry_count, info->nr, self->va,
  			      self->vs, self->vr);
  
  			/* Resend rejected frames */
  			irlap_resend_rejected_frames(self, CMD_FRAME);

  			irlap_start_final_timer(self, self->final_timeout * 2);

  
  			irlap_next_state(self, LAP_NRM_P);
  		} else if (ret == NR_INVALID) {
  			IRDA_DEBUG(1, "%s(), Received RR with "

  				   "invalid nr !
  ", __func__);

  
  			irlap_next_state(self, LAP_RESET_WAIT);
  
  			irlap_disconnect_indication(self, LAP_RESET_INDICATION);
  			self->xmitflag = TRUE;
  		}
  		break;
  	case RECV_RNR_RSP:
  		IRDA_ASSERT(info != NULL, return -1;);
  
  		/* Stop final timer */
  		del_timer(&self->final_timer);
  		self->remote_busy = TRUE;
  
  		/* Update Nr received */
  		irlap_update_nr_received(self, info->nr);
  		irlap_next_state(self, LAP_XMIT_P);
  
  		/* Start poll timer */
  		irlap_start_poll_timer(self, self->poll_timeout);
  		break;
  	case RECV_FRMR_RSP:
  		del_timer(&self->final_timer);
  		self->xmitflag = TRUE;
  		irlap_next_state(self, LAP_RESET_WAIT);
  		irlap_reset_indication(self);
  		break;
  	case FINAL_TIMER_EXPIRED:
  		/*
  		 *  We are allowed to wait for additional 300 ms if
  		 *  final timer expires when we are in the middle
  		 *  of receiving a frame (page 45, IrLAP). Check that
  		 *  we only do this once for each frame.
  		 */
  		if (irda_device_is_receiving(self->netdev) && !self->add_wait) {
  			IRDA_DEBUG(1, "FINAL_TIMER_EXPIRED when receiving a "
  			      "frame! Waiting a little bit more!
  ");
  			irlap_start_final_timer(self, msecs_to_jiffies(300));
  
  			/*
  			 *  Don't allow this to happen one more time in a row,
  			 *  or else we can get a pretty tight loop here if
  			 *  if we only receive half a frame. DB.
  			 */
  			self->add_wait = TRUE;
  			break;
  		}
  		self->add_wait = FALSE;
  
  		/* N2 is the disconnect timer. Until we reach it, we retry */
  		if (self->retry_count < self->N2) {

  			if (skb_peek(&self->wx_list) == NULL) {
  				/* Retry sending the pf bit to the secondary */
  				IRDA_DEBUG(4, "nrm_p: resending rr");
  				irlap_wait_min_turn_around(self, &self->qos_tx);
  				irlap_send_rr_frame(self, CMD_FRAME);
  			} else {
  				IRDA_DEBUG(4, "nrm_p: resend frames");
  				irlap_resend_rejected_frames(self, CMD_FRAME);
  			}

  
  			irlap_start_final_timer(self, self->final_timeout);
  			self->retry_count++;
  			IRDA_DEBUG(4, "irlap_state_nrm_p: FINAL_TIMER_EXPIRED:"
  				   " retry_count=%d
  ", self->retry_count);
  
  			/* Early warning event. I'm using a pretty liberal
  			 * interpretation of the spec and generate an event
  			 * every time the timer is multiple of N1 (and not
  			 * only the first time). This allow application
  			 * to know precisely if connectivity restart...
  			 * Jean II */
  			if((self->retry_count % self->N1) == 0)
  				irlap_status_indication(self,
  							STATUS_NO_ACTIVITY);
  
  			/* Keep state */
  		} else {
  			irlap_apply_default_connection_parameters(self);
  
  			/* Always switch state before calling upper layers */
  			irlap_next_state(self, LAP_NDM);
  			irlap_disconnect_indication(self, LAP_NO_RESPONSE);
  		}
  		break;
  	case RECV_REJ_RSP:
  		irlap_update_nr_received(self, info->nr);
  		if (self->remote_busy) {
  			irlap_wait_min_turn_around(self, &self->qos_tx);
  			irlap_send_rr_frame(self, CMD_FRAME);
  		} else
  			irlap_resend_rejected_frames(self, CMD_FRAME);
  		irlap_start_final_timer(self, 2 * self->final_timeout);
  		break;
  	case RECV_SREJ_RSP:
  		irlap_update_nr_received(self, info->nr);
  		if (self->remote_busy) {
  			irlap_wait_min_turn_around(self, &self->qos_tx);
  			irlap_send_rr_frame(self, CMD_FRAME);
  		} else
  			irlap_resend_rejected_frame(self, CMD_FRAME);
  		irlap_start_final_timer(self, 2 * self->final_timeout);
  		break;
  	case RECV_RD_RSP:

  		IRDA_DEBUG(1, "%s(), RECV_RD_RSP
  ", __func__);

  
  		irlap_flush_all_queues(self);
  		irlap_next_state(self, LAP_XMIT_P);
  		/* Call back the LAP state machine to do a proper disconnect */
  		irlap_disconnect_request(self);
  		break;
  	default:
  		IRDA_DEBUG(1, "%s(), Unknown event %s
  ",

  			    __func__, irlap_event[event]);

  
  		ret = -1;
  		break;
  	}
  	return ret;
  }
  
  /*
   * Function irlap_state_reset_wait (event, skb, info)
   *
   *    We have informed the service user of a reset condition, and is
   *    awaiting reset of disconnect request.
   *
   */
  static int irlap_state_reset_wait(struct irlap_cb *self, IRLAP_EVENT event,
  				  struct sk_buff *skb, struct irlap_info *info)
  {
  	int ret = 0;

  	IRDA_DEBUG(3, "%s(), event = %s
  ", __func__, irlap_event[event]);

  
  	IRDA_ASSERT(self != NULL, return -1;);
  	IRDA_ASSERT(self->magic == LAP_MAGIC, return -1;);
  
  	switch (event) {
  	case RESET_REQUEST:
  		if (self->xmitflag) {
  			irlap_wait_min_turn_around(self, &self->qos_tx);
  			irlap_send_snrm_frame(self, NULL);
  			irlap_start_final_timer(self, self->final_timeout);
  			irlap_next_state(self, LAP_RESET);
  		} else {
  			irlap_start_final_timer(self, self->final_timeout);
  			irlap_next_state(self, LAP_RESET);
  		}
  		break;
  	case DISCONNECT_REQUEST:
  		irlap_wait_min_turn_around( self, &self->qos_tx);
  		irlap_send_disc_frame( self);
  		irlap_flush_all_queues( self);
  		irlap_start_final_timer( self, self->final_timeout);
  		self->retry_count = 0;
  		irlap_next_state( self, LAP_PCLOSE);
  		break;
  	default:

  		IRDA_DEBUG(2, "%s(), Unknown event %s
  ", __func__,

  			   irlap_event[event]);
  
  		ret = -1;
  		break;
  	}
  	return ret;
  }
  
  /*
   * Function irlap_state_reset (self, event, skb, info)
   *
   *    We have sent a SNRM reset command to the peer layer, and is awaiting
   *    reply.
   *
   */
  static int irlap_state_reset(struct irlap_cb *self, IRLAP_EVENT event,
  			     struct sk_buff *skb, struct irlap_info *info)
  {
  	int ret = 0;

  	IRDA_DEBUG(3, "%s(), event = %s
  ", __func__, irlap_event[event]);

  
  	IRDA_ASSERT(self != NULL, return -1;);
  	IRDA_ASSERT(self->magic == LAP_MAGIC, return -1;);
  
  	switch (event) {
  	case RECV_DISC_CMD:
  		del_timer(&self->final_timer);
  
  		irlap_apply_default_connection_parameters(self);
  
  		/* Always switch state before calling upper layers */
  		irlap_next_state(self, LAP_NDM);
  
  		irlap_disconnect_indication(self, LAP_NO_RESPONSE);
  
  		break;
  	case RECV_UA_RSP:
  		del_timer(&self->final_timer);
  
  		/* Initiate connection state */
  		irlap_initiate_connection_state(self);
  
  		irlap_reset_confirm();
  
  		self->remote_busy = FALSE;
  
  		irlap_next_state(self, LAP_XMIT_P);
  
  		irlap_start_poll_timer(self, self->poll_timeout);
  
  		break;
  	case FINAL_TIMER_EXPIRED:
  		if (self->retry_count < 3) {
  			irlap_wait_min_turn_around(self, &self->qos_tx);
  
  			IRDA_ASSERT(self->netdev != NULL, return -1;);
  			irlap_send_snrm_frame(self, self->qos_dev);
  
  			self->retry_count++; /* Experimental!! */
  
  			irlap_start_final_timer(self, self->final_timeout);
  			irlap_next_state(self, LAP_RESET);
  		} else if (self->retry_count >= self->N3) {
  			irlap_apply_default_connection_parameters(self);
  
  			/* Always switch state before calling upper layers */
  			irlap_next_state(self, LAP_NDM);
  
  			irlap_disconnect_indication(self, LAP_NO_RESPONSE);
  		}
  		break;
  	case RECV_SNRM_CMD:
  		/*
  		 * SNRM frame is not allowed to contain an I-field in this
  		 * state
  		 */
  		if (!info) {

  			IRDA_DEBUG(3, "%s(), RECV_SNRM_CMD
  ", __func__);

  			irlap_initiate_connection_state(self);
  			irlap_wait_min_turn_around(self, &self->qos_tx);
  			irlap_send_ua_response_frame(self, &self->qos_rx);
  			irlap_reset_confirm();
  			irlap_start_wd_timer(self, self->wd_timeout);
  			irlap_next_state(self, LAP_NDM);
  		} else {
  			IRDA_DEBUG(0,
  				   "%s(), SNRM frame contained an I field!
  ",

  				   __func__);

  		}
  		break;
  	default:
  		IRDA_DEBUG(1, "%s(), Unknown event %s
  ",

  			   __func__, irlap_event[event]);

  
  		ret = -1;
  		break;
  	}
  	return ret;
  }
  
  /*
   * Function irlap_state_xmit_s (event, skb, info)
   *
   *   XMIT_S, The secondary station has been given the right to transmit,

   *   and we therefore do not expect to receive any transmissions from other

   *   stations.
   */
  static int irlap_state_xmit_s(struct irlap_cb *self, IRLAP_EVENT event,
  			      struct sk_buff *skb, struct irlap_info *info)
  {
  	int ret = 0;

  	IRDA_DEBUG(4, "%s(), event=%s
  ", __func__, irlap_event[event]);

  
  	IRDA_ASSERT(self != NULL, return -ENODEV;);
  	IRDA_ASSERT(self->magic == LAP_MAGIC, return -EBADR;);
  
  	switch (event) {
  	case SEND_I_CMD:
  		/*
  		 *  Send frame only if send window > 0
  		 */
  		if ((self->window > 0) && (!self->remote_busy)) {
  			int nextfit;
  #ifdef CONFIG_IRDA_DYNAMIC_WINDOW
  			struct sk_buff *skb_next;
  
  			/*
  			 * Same deal as in irlap_state_xmit_p(), so see
  			 * the comments at that point.
  			 * We are the secondary, so there are only subtle
  			 * differences. - Jean II
  			 */
  
  			/* Check if a subsequent skb exist and would fit in
  			 * the current window (with respect to turnaround
  			 * time). - Jean II */
  			skb_next = skb_peek(&self->txq);
  			nextfit = ((skb_next != NULL) &&
  				   ((skb_next->len + skb->len) <=
  				    self->bytes_left));
  
  			/*
  			 *  Test if we have transmitted more bytes over the
  			 *  link than its possible to do with the current
  			 *  speed and turn-around-time.
  			 */
  			if((!nextfit) && (skb->len > self->bytes_left)) {
  				IRDA_DEBUG(0, "%s(), Not allowed to transmit"

  					   " more bytes!
  ", __func__);

  				/* Requeue the skb */
  				skb_queue_head(&self->txq, skb_get(skb));
  
  				/*
  				 *  Switch to NRM_S, this is only possible
  				 *  when we are in secondary mode, since we
  				 *  must be sure that we don't miss any RR
  				 *  frames
  				 */
  				self->window = self->window_size;
  				self->bytes_left = self->line_capacity;
  				irlap_start_wd_timer(self, self->wd_timeout);
  
  				irlap_next_state(self, LAP_NRM_S);
  				/* Slight difference with primary :
  				 * here we would wait for the other side to
  				 * expire the turnaround. - Jean II */
  
  				return -EPROTO; /* Try again later */
  			}

  			/* Subtract space used by this skb */

  			self->bytes_left -= skb->len;
  #else	/* CONFIG_IRDA_DYNAMIC_WINDOW */
  			/* Window has been adjusted for the max packet
  			 * size, so much simpler... - Jean II */

  			nextfit = !skb_queue_empty(&self->txq);

  #endif /* CONFIG_IRDA_DYNAMIC_WINDOW */
  			/*
  			 *  Send data with final bit cleared only if window > 1
  			 *  and there is more frames to be sent
  			 */
  			if ((self->window > 1) && (nextfit)) {
  				irlap_send_data_secondary(self, skb);
  				irlap_next_state(self, LAP_XMIT_S);
  			} else {
  				irlap_send_data_secondary_final(self, skb);
  				irlap_next_state(self, LAP_NRM_S);
  
  				/*
  				 * Make sure state machine does not try to send
  				 * any more frames
  				 */
  				ret = -EPROTO;
  			}
  		} else {

  			IRDA_DEBUG(2, "%s(), Unable to send!
  ", __func__);

  			skb_queue_head(&self->txq, skb_get(skb));
  			ret = -EPROTO;
  		}
  		break;
  	case DISCONNECT_REQUEST:
  		irlap_send_rd_frame(self);
  		irlap_flush_all_queues(self);
  		irlap_start_wd_timer(self, self->wd_timeout);
  		irlap_next_state(self, LAP_SCLOSE);
  		break;
  	case DATA_REQUEST:
  		/* Nothing to do, irlap_do_event() will send the packet
  		 * when we return... - Jean II */
  		break;
  	default:

  		IRDA_DEBUG(2, "%s(), Unknown event %s
  ", __func__,

  			   irlap_event[event]);
  
  		ret = -EINVAL;
  		break;
  	}
  	return ret;
  }
  
  /*
   * Function irlap_state_nrm_s (event, skb, info)
   *
   *    NRM_S (Normal Response Mode as Secondary) state, in this state we are
   *    expecting to receive frames from the primary station
   *
   */
  static int irlap_state_nrm_s(struct irlap_cb *self, IRLAP_EVENT event,
  			     struct sk_buff *skb, struct irlap_info *info)
  {
  	int ns_status;
  	int nr_status;
  	int ret = 0;

  	IRDA_DEBUG(4, "%s(), event=%s
  ", __func__, irlap_event[ event]);

  
  	IRDA_ASSERT(self != NULL, return -1;);
  	IRDA_ASSERT(self->magic == LAP_MAGIC, return -1;);
  
  	switch (event) {
  	case RECV_I_CMD: /* Optimize for the common case */
  		/* FIXME: must check for remote_busy below */
  		IRDA_DEBUG(4, "%s(), event=%s nr=%d, vs=%d, ns=%d, "

  			   "vr=%d, pf=%d
  ", __func__,

  			   irlap_event[event], info->nr,
  			   self->vs, info->ns, self->vr, info->pf);
  
  		self->retry_count = 0;
  
  		ns_status = irlap_validate_ns_received(self, info->ns);
  		nr_status = irlap_validate_nr_received(self, info->nr);
  		/*
  		 *  Check for expected I(nformation) frame
  		 */
  		if ((ns_status == NS_EXPECTED) && (nr_status == NR_EXPECTED)) {
  
  			/* Update Vr (next frame for us to receive) */
  			self->vr = (self->vr + 1) % 8;
  
  			/* Update Nr received */
  			irlap_update_nr_received(self, info->nr);
  
  			/*
  			 *  poll bit cleared?
  			 */
  			if (!info->pf) {
  
  				self->ack_required = TRUE;
  
  				/*
  				 *  Starting WD-timer here is optional, but
  				 *  not recommended. Note 6 IrLAP p. 83
  				 */
  #if 0
  				irda_start_timer(WD_TIMER, self->wd_timeout);
  #endif
  				/* Keep state, do not move this line */
  				irlap_next_state(self, LAP_NRM_S);
  
  				irlap_data_indication(self, skb, FALSE);
  				break;
  			} else {
  				/*
  				 *  We should wait before sending RR, and
  				 *  also before changing to XMIT_S
  				 *  state. (note 1, IrLAP p. 82)
  				 */
  				irlap_wait_min_turn_around(self, &self->qos_tx);
  
  				/*
  				 * Give higher layers a chance to
  				 * immediately reply with some data before
  				 * we decide if we should send a RR frame
  				 * or not
  				 */
  				irlap_data_indication(self, skb, FALSE);
  
  				/* Any pending data requests?  */

  				if (!skb_queue_empty(&self->txq) &&

  				    (self->window > 0))
  				{
  					self->ack_required = TRUE;
  
  					del_timer(&self->wd_timer);
  
  					irlap_next_state(self, LAP_XMIT_S);
  				} else {
  					irlap_send_rr_frame(self, RSP_FRAME);
  					irlap_start_wd_timer(self,
  							     self->wd_timeout);
  
  					/* Keep the state */
  					irlap_next_state(self, LAP_NRM_S);
  				}
  				break;
  			}
  		}
  		/*
  		 *  Check for Unexpected next to send (Ns)
  		 */
  		if ((ns_status == NS_UNEXPECTED) && (nr_status == NR_EXPECTED))
  		{
  			/* Unexpected next to send, with final bit cleared */
  			if (!info->pf) {
  				irlap_update_nr_received(self, info->nr);
  
  				irlap_start_wd_timer(self, self->wd_timeout);
  			} else {
  				/* Update Nr received */
  				irlap_update_nr_received(self, info->nr);
  
  				irlap_wait_min_turn_around(self, &self->qos_tx);
  				irlap_send_rr_frame(self, RSP_FRAME);
  
  				irlap_start_wd_timer(self, self->wd_timeout);
  			}
  			break;
  		}
  
  		/*
  		 *  Unexpected Next to Receive(NR) ?
  		 */
  		if ((ns_status == NS_EXPECTED) && (nr_status == NR_UNEXPECTED))
  		{
  			if (info->pf) {
  				IRDA_DEBUG(4, "RECV_I_RSP: frame(s) lost
  ");
  
  				self->vr = (self->vr + 1) % 8;
  
  				/* Update Nr received */
  				irlap_update_nr_received(self, info->nr);
  
  				/* Resend rejected frames */
  				irlap_resend_rejected_frames(self, RSP_FRAME);
  
  				/* Keep state, do not move this line */
  				irlap_next_state(self, LAP_NRM_S);
  
  				irlap_data_indication(self, skb, FALSE);
  				irlap_start_wd_timer(self, self->wd_timeout);
  				break;
  			}
  			/*
  			 *  This is not documented in IrLAP!! Unexpected NR
  			 *  with poll bit cleared
  			 */
  			if (!info->pf) {
  				self->vr = (self->vr + 1) % 8;
  
  				/* Update Nr received */
  				irlap_update_nr_received(self, info->nr);
  
  				/* Keep state, do not move this line */
  				irlap_next_state(self, LAP_NRM_S);
  
  				irlap_data_indication(self, skb, FALSE);
  				irlap_start_wd_timer(self, self->wd_timeout);
  			}
  			break;
  		}
  
  		if (ret == NR_INVALID) {
  			IRDA_DEBUG(0, "NRM_S, NR_INVALID not implemented!
  ");
  		}
  		if (ret == NS_INVALID) {
  			IRDA_DEBUG(0, "NRM_S, NS_INVALID not implemented!
  ");
  		}
  		break;
  	case RECV_UI_FRAME:
  		/*
  		 *  poll bit cleared?
  		 */
  		if (!info->pf) {
  			irlap_data_indication(self, skb, TRUE);
  			irlap_next_state(self, LAP_NRM_S); /* Keep state */
  		} else {
  			/*
  			 *  Any pending data requests?
  			 */

  			if (!skb_queue_empty(&self->txq) &&

  			    (self->window > 0) && !self->remote_busy)
  			{
  				irlap_data_indication(self, skb, TRUE);
  
  				del_timer(&self->wd_timer);
  
  				irlap_next_state(self, LAP_XMIT_S);
  			} else {
  				irlap_data_indication(self, skb, TRUE);
  
  				irlap_wait_min_turn_around(self, &self->qos_tx);
  
  				irlap_send_rr_frame(self, RSP_FRAME);
  				self->ack_required = FALSE;
  
  				irlap_start_wd_timer(self, self->wd_timeout);
  
  				/* Keep the state */
  				irlap_next_state(self, LAP_NRM_S);
  			}
  		}
  		break;
  	case RECV_RR_CMD:
  		self->retry_count = 0;
  
  		/*
  		 *  Nr as expected?
  		 */
  		nr_status = irlap_validate_nr_received(self, info->nr);
  		if (nr_status == NR_EXPECTED) {

  			if (!skb_queue_empty(&self->txq) &&

  			    (self->window > 0)) {
  				self->remote_busy = FALSE;
  
  				/* Update Nr received */
  				irlap_update_nr_received(self, info->nr);
  				del_timer(&self->wd_timer);
  
  				irlap_wait_min_turn_around(self, &self->qos_tx);
  				irlap_next_state(self, LAP_XMIT_S);
  			} else {
  				self->remote_busy = FALSE;
  				/* Update Nr received */
  				irlap_update_nr_received(self, info->nr);
  				irlap_wait_min_turn_around(self, &self->qos_tx);
  				irlap_start_wd_timer(self, self->wd_timeout);
  
  				/* Note : if the link is idle (this case),
  				 * we never go in XMIT_S, so we never get a
  				 * chance to process any DISCONNECT_REQUEST.
  				 * Do it now ! - Jean II */
  				if (self->disconnect_pending) {
  					/* Disconnect */
  					irlap_send_rd_frame(self);
  					irlap_flush_all_queues(self);
  
  					irlap_next_state(self, LAP_SCLOSE);
  				} else {
  					/* Just send back pf bit */
  					irlap_send_rr_frame(self, RSP_FRAME);
  
  					irlap_next_state(self, LAP_NRM_S);
  				}
  			}
  		} else if (nr_status == NR_UNEXPECTED) {
  			self->remote_busy = FALSE;
  			irlap_update_nr_received(self, info->nr);
  			irlap_resend_rejected_frames(self, RSP_FRAME);
  
  			irlap_start_wd_timer(self, self->wd_timeout);
  
  			/* Keep state */
  			irlap_next_state(self, LAP_NRM_S);
  		} else {
  			IRDA_DEBUG(1, "%s(), invalid nr not implemented!
  ",

  				   __func__);

  		}
  		break;
  	case RECV_SNRM_CMD:
  		/* SNRM frame is not allowed to contain an I-field */
  		if (!info) {
  			del_timer(&self->wd_timer);

  			IRDA_DEBUG(1, "%s(), received SNRM cmd
  ", __func__);

  			irlap_next_state(self, LAP_RESET_CHECK);
  
  			irlap_reset_indication(self);
  		} else {
  			IRDA_DEBUG(0,
  				   "%s(), SNRM frame contained an I-field!
  ",

  				   __func__);

  
  		}
  		break;
  	case RECV_REJ_CMD:
  		irlap_update_nr_received(self, info->nr);
  		if (self->remote_busy) {
  			irlap_wait_min_turn_around(self, &self->qos_tx);
  			irlap_send_rr_frame(self, RSP_FRAME);
  		} else
  			irlap_resend_rejected_frames(self, RSP_FRAME);
  		irlap_start_wd_timer(self, self->wd_timeout);
  		break;
  	case RECV_SREJ_CMD:
  		irlap_update_nr_received(self, info->nr);
  		if (self->remote_busy) {
  			irlap_wait_min_turn_around(self, &self->qos_tx);
  			irlap_send_rr_frame(self, RSP_FRAME);
  		} else
  			irlap_resend_rejected_frame(self, RSP_FRAME);
  		irlap_start_wd_timer(self, self->wd_timeout);
  		break;
  	case WD_TIMER_EXPIRED:
  		/*
  		 *  Wait until retry_count * n matches negotiated threshold/
  		 *  disconnect time (note 2 in IrLAP p. 82)
  		 *
  		 * Similar to irlap_state_nrm_p() -> FINAL_TIMER_EXPIRED
  		 * Note : self->wd_timeout = (self->final_timeout * 2),
  		 *   which explain why we use (self->N2 / 2) here !!!
  		 * Jean II
  		 */

  		IRDA_DEBUG(1, "%s(), retry_count = %d
  ", __func__,

  			   self->retry_count);
  
  		if (self->retry_count < (self->N2 / 2)) {
  			/* No retry, just wait for primary */
  			irlap_start_wd_timer(self, self->wd_timeout);
  			self->retry_count++;
  
  			if((self->retry_count % (self->N1 / 2)) == 0)
  				irlap_status_indication(self,
  							STATUS_NO_ACTIVITY);
  		} else {
  			irlap_apply_default_connection_parameters(self);
  
  			/* Always switch state before calling upper layers */
  			irlap_next_state(self, LAP_NDM);
  			irlap_disconnect_indication(self, LAP_NO_RESPONSE);
  		}
  		break;
  	case RECV_DISC_CMD:
  		/* Always switch state before calling upper layers */
  		irlap_next_state(self, LAP_NDM);
  
  		/* Send disconnect response */
  		irlap_wait_min_turn_around(self, &self->qos_tx);
  		irlap_send_ua_response_frame(self, NULL);
  
  		del_timer(&self->wd_timer);
  		irlap_flush_all_queues(self);
  		/* Set default link parameters */
  		irlap_apply_default_connection_parameters(self);
  
  		irlap_disconnect_indication(self, LAP_DISC_INDICATION);
  		break;
  	case RECV_DISCOVERY_XID_CMD:
  		irlap_wait_min_turn_around(self, &self->qos_tx);
  		irlap_send_rr_frame(self, RSP_FRAME);
  		self->ack_required = TRUE;
  		irlap_start_wd_timer(self, self->wd_timeout);
  		irlap_next_state(self, LAP_NRM_S);
  
  		break;
  	case RECV_TEST_CMD:
  		/* Remove test frame header (only LAP header in NRM) */
  		skb_pull(skb, LAP_ADDR_HEADER + LAP_CTRL_HEADER);
  
  		irlap_wait_min_turn_around(self, &self->qos_tx);
  		irlap_start_wd_timer(self, self->wd_timeout);
  
  		/* Send response (info will be copied) */
  		irlap_send_test_frame(self, self->caddr, info->daddr, skb);
  		break;
  	default:

  		IRDA_DEBUG(1, "%s(), Unknown event %d, (%s)
  ", __func__,

  			   event, irlap_event[event]);
  
  		ret = -EINVAL;
  		break;
  	}
  	return ret;
  }
  
  /*
   * Function irlap_state_sclose (self, event, skb, info)
   */
  static int irlap_state_sclose(struct irlap_cb *self, IRLAP_EVENT event,
  			      struct sk_buff *skb, struct irlap_info *info)
  {

  	IRDA_DEBUG(1, "%s()
  ", __func__);

  
  	IRDA_ASSERT(self != NULL, return -ENODEV;);
  	IRDA_ASSERT(self->magic == LAP_MAGIC, return -EBADR;);
  
  	switch (event) {
  	case RECV_DISC_CMD:
  		/* Always switch state before calling upper layers */
  		irlap_next_state(self, LAP_NDM);
  
  		/* Send disconnect response */
  		irlap_wait_min_turn_around(self, &self->qos_tx);
  		irlap_send_ua_response_frame(self, NULL);
  
  		del_timer(&self->wd_timer);
  		/* Set default link parameters */
  		irlap_apply_default_connection_parameters(self);
  
  		irlap_disconnect_indication(self, LAP_DISC_INDICATION);
  		break;
  	case RECV_DM_RSP:
  		/* IrLAP-1.1 p.82: in SCLOSE, S and I type RSP frames
  		 * shall take us down into default NDM state, like DM_RSP
  		 */
  	case RECV_RR_RSP:
  	case RECV_RNR_RSP:
  	case RECV_REJ_RSP:
  	case RECV_SREJ_RSP:
  	case RECV_I_RSP:
  		/* Always switch state before calling upper layers */
  		irlap_next_state(self, LAP_NDM);
  
  		del_timer(&self->wd_timer);
  		irlap_apply_default_connection_parameters(self);
  
  		irlap_disconnect_indication(self, LAP_DISC_INDICATION);
  		break;
  	case WD_TIMER_EXPIRED:
  		/* Always switch state before calling upper layers */
  		irlap_next_state(self, LAP_NDM);
  
  		irlap_apply_default_connection_parameters(self);
  
  		irlap_disconnect_indication(self, LAP_DISC_INDICATION);
  		break;
  	default:
  		/* IrLAP-1.1 p.82: in SCLOSE, basically any received frame
  		 * with pf=1 shall restart the wd-timer and resend the rd:rsp
  		 */
  		if (info != NULL  &&  info->pf) {
  			del_timer(&self->wd_timer);
  			irlap_wait_min_turn_around(self, &self->qos_tx);
  			irlap_send_rd_frame(self);
  			irlap_start_wd_timer(self, self->wd_timeout);
  			break;		/* stay in SCLOSE */
  		}

  		IRDA_DEBUG(1, "%s(), Unknown event %d, (%s)
  ", __func__,

  			   event, irlap_event[event]);

  		break;
  	}
  
  	return -1;
  }
  
  static int irlap_state_reset_check( struct irlap_cb *self, IRLAP_EVENT event,
  				   struct sk_buff *skb,
  				   struct irlap_info *info)
  {
  	int ret = 0;

  	IRDA_DEBUG(1, "%s(), event=%s
  ", __func__, irlap_event[event]);

  
  	IRDA_ASSERT(self != NULL, return -ENODEV;);
  	IRDA_ASSERT(self->magic == LAP_MAGIC, return -EBADR;);
  
  	switch (event) {
  	case RESET_RESPONSE:
  		irlap_send_ua_response_frame(self, &self->qos_rx);
  		irlap_initiate_connection_state(self);
  		irlap_start_wd_timer(self, WD_TIMEOUT);
  		irlap_flush_all_queues(self);
  
  		irlap_next_state(self, LAP_NRM_S);
  		break;
  	case DISCONNECT_REQUEST:
  		irlap_wait_min_turn_around(self, &self->qos_tx);
  		irlap_send_rd_frame(self);
  		irlap_start_wd_timer(self, WD_TIMEOUT);
  		irlap_next_state(self, LAP_SCLOSE);
  		break;
  	default:

  		IRDA_DEBUG(1, "%s(), Unknown event %d, (%s)
  ", __func__,

  			   event, irlap_event[event]);
  
  		ret = -EINVAL;
  		break;
  	}
  	return ret;
  }