File /code/strss7/drivers/m2ua/m2ua_nsp.c

static char const ident[] = "$Name:  $($Revision: 0.8.2.1 $) $Date: 2002/10/18 03:28:38 $";

/*
 *  =========================================================================
 *
 *  N-Provider --> M2UA  (Upstream) Primitives
 *
 *  =========================================================================
 */
/*
 *  N_DISCON_IND
 *  -------------------------------------------------------------------------
 *  Inform management and force the asp down immediately; we don't have time
 *  to wait for management to decide to do this for us.
 */
static int n_discon_ind(queue_t * q, mblk_t * pdu)
{
	int err;
	/* give it to management */
	if ((err = m_event_ind(q, pdu)))
		return (err);
	if ((err = m2ua_sp_down(q)))
		return (err);
	return (0);
}

/*
 *  N_DATA_IND
 *  -------------------------------------------------------------------------
 *  This is translated into SUA messages and fed to the state machines.
 */
static int n_data_ind(queue_t * q, mblk_t * pdu)
{
	int err;
	mblk_t *mp;
	N_data_ind_t *p;
	p = (N_data_ind_t *) pdu->b_rptr;
	if (p->DATA_xfer_flags & N_MORE_DATA_FLAG) {
		/* aaargh! */
		/* give it to management */
		if ((err = m_event_ind(q, pdu)))
			return (err);
		if ((err = m2ua_sp_down(q)))
			return (err);
		qdisable(q);
		return (0);
	}
	if (p->DATA_xfer_flags & N_RC_FLAG) {
		/* need to send receipt confirmation */
		if (!(mp = n_datack_ind()))
			return (-ENOBUFS);
		qreply(q, mp);
	}
	/* only need the M_DATA block */
	mp = pdu->b_cont;
	mp->b_band = 0;
	freeb(pdu);
	if ((err = m2ua_recv_msg(q, mp)))
		return (err);
	return (0);
}

/*
 *  N_EXDATA_IND
 *  -------------------------------------------------------------------------
 *  This is translated into SUA messages and fed to the state machines.
 */
static int n_exdata_ind(queue_t * q, mblk_t * pdu)
{
	int err;
	mblk_t *mp;
	N_exdata_ind_t *p;
	p = (N_exdata_ind_t *) pdu->b_rptr;
	if (p->DATA_xfer_flags & N_MORE_DATA_FLAG) {
		int err;
		if ((err = m_event_ind(q, pdu)))
			return (err);
		if ((err = m2ua_sp_down(q)))
			return (err);
		qdisable(q);
		return (0);
	}
	mp = pdu->b_cont;
	mp->b_band = 1;
	freeb(pdu);
	if ((err = m2ua_recv_msg(q, mp)))
		return (err);
	return (0);
}

/*
 *  N_INFO_ACK
 *  -------------------------------------------------------------------------
 */
static int n_info_ack(queue_t * q, mblk_t * pdu)
{
	/* 
	 *  NOTE:- We might later want to copy out some of the pertinent
	 *  information for ourselves.
	 */
	/* give it to management */
	return m_event_ind(q, pdu);
}

/*
 *  N_UNITDATA_IND
 *  -------------------------------------------------------------------------
 *  I don't know why we would get these, but maybe this is a connection-less
 *  transport which is sequenced...
 */
static int n_unitdata_ind(queue_t * q, mblk_t * pdu)
{
	int err;
	mblk_t *mp;
	mp = pdu->b_cont;
	mp->b_band = 0;
	freeb(pdu);
	if ((err = m2ua_recv_msg(q, mp)))
		return (err);
	return (0);
}

/*
 *  N_UDERROR_IND
 *  -------------------------------------------------------------------------
 *  I don't know why we would get these but they are bad...
 */
static int n_uderror_ind(queue_t * q, mblk_t * pdu)
{
	int err;
	if ((err = m_event_ind(q, mp)))
		return (err);
	if ((err = m2ua_sp_down(q)))
		return (err);
	qdisable(q);
	return (0);
}

/*
 *  N_DATACK_IND
 *  -------------------------------------------------------------------------
 *  If we've got receipt confirmation enabled we need to strike a message from
 *  our fail-over buffer.
 */
static int n_datack_ind(queue_t * q, mblk_t * pdu)
{
	switch (Q_CLASS(q)) {
	case Q_CLASS_SCTP:
	case Q_CLASS_SSCOP:
		/* 
		 *  It is better if the underlying layer supports retrieval
		 *  instead (our Network Service Providers, SCTP, SCCOP do)
		 *  (that way we can distinguish between sent and unsent
		 *  unacknolwedged messages to avoid duplication).
		 */
		freemsg(pdu);
		return (0);
	}
	return (-EFAULT);
}

/*
 *  N_RESET_IND
 *  -------------------------------------------------------------------------
 *  We have lost and resetalished communication.  This results from an SCTP
 *  Restart or from an SSCOP Reset.  The N-Provider should have flushed the
 *  read queue up to us.  We should have responded to that an flushed read
 *  queues to the SCCP-Users, however, we also need to place the state of the
 *  ASP into the down state so that everything is in a known state.
 */
static int n_reset_ind(queue_t * q, mblk_t * pdu)
{
	if ((err = m_event_ind(q, mp)))
		return (err);
	if ((err = m2ua_sp_down(q)))
		return (err);
	return (0);
}

/*
 *  N_RESET_CON
 *  -------------------------------------------------------------------------
 *  Same as N_RESET_IND, but Layer Management must have provoked it.
 */
static int n_reset_con(queue_t * q, mblk_t * pdu)
{
	if ((err = m_event_ind(q, mp)))
		return (err);
	if ((err = m2ua_sp_down(q)))
		return (err);
	return (0);
}
static int (*n_prim[]) (queue_t * q, mblk_t * mp) = {
	NULL,			/* N_CONN_REQ 0 */
	    NULL,		/* N_CONN_RES 1 */
	    NULL,		/* N_DISCON_REQ 2 */
	    NULL,		/* N_DATA_REQ 3 */
	    NULL,		/* N_EXDATA_REQ 4 */
	    NULL,		/* N_INFO_REQ 5 */
	    NULL,		/* N_BIND_REQ 6 */
	    NULL,		/* N_UNBIND_REQ 7 */
	    NULL,		/* N_UNITDATA_REQ 8 */
	    NULL,		/* N_OPTMGMT_REQ 9 */
	    NULL,		/* (unused) 10 */
	    m_event_ind,	/* N_CONN_IND 11 */
	    m_event_ind,	/* N_CONN_CON 12 */
	    n_discon_ind,	/* N_DISCON_IND 13 */
	    n_data_ind,		/* N_DATA_IND 14 */
	    n_exdata_ind,	/* N_EXDATA_IND 15 */
	    n_info_ack,		/* N_INFO_ACK 16 */
	    m_event_ind,	/* N_BIND_ACK 17 */
	    m_event_ind,	/* N_ERROR_ACK 18 */
	    m_event_ind,	/* N_OK_ACK 19 */
	    n_unitdata_ind,	/* N_UNITDATA_IND 20 */
	    n_uderror_ind,	/* N_UDERROR_IND 21 */
	    NULL,		/* (unused) 22 */
	    NULL,		/* N_DATACK_REQ 23 */
	    n_datack_ind,	/* N_DATACK_IND 24 */
	    NULL,		/* N_RESET_REQ 25 */
	    n_reset_ind,	/* N_RESET_IND 26 */
	    NULL,		/* N_RESET_RES 27 */
	    n_reset_con		/* N_RESET_CON 28 */
};
static __inline__ int n_l_r_data(q, mp)
	const queue_t *q;
	const mblk_t *mp;
{
	int err;
	if ((err = m2ua_recv_msg(q, mp)))
		return (err);
	return (0);
}
static __inline__ int n_l_r_proto(q, mp)
	const queue_t *q;
	const mblk_t *mp;
{
	int prim = *((t_scalar_t *) mp->b_rptr);
	if (0 <= prim && prim <= sizeof(n_prim) / sizeof(int (*)(void)) && n_prim[prim])
		return ((*n_prim[prim]) (q, mp));
	return (-EOPNOTSUPP);
}
static __inline__ int n_l_r_error(q, mp)
	const queue_t *q;
	const mblk_t *mp;
{
	/* 
	 *  FIXME: The network stream is toast.  Do whatever we need to do to
	 *  tear it down and notify management.  We want to pass this M_ERROR
	 *  to each application server which is being serviced by this network
	 *  stream.
	 */
	sp_t *sp = ((link_info_t *) q->q_ptr)->sp;
	gp_t *gp;
	for (gp = sp->as_list; gp; gp = gp->next) {
		mblk_t *dp;
		if ((dp = allocb(q, BPRI_HI))) {
			db->b_datap->db_type = M_HANGUP;
			m2ua_u_rput(as->link->q, dp);
		}
	}
}
static __inline__ int n_l_r_hangup(q, mp)
	const queue_t *q;
	const mblk_t *mp;
{
	/* 
	 *  The network provider has hung up on us.  This stream would be
	 *  toast, but we can still use it.  We tell Layer Management what is
	 *  going on.  Layer Management can start with the stream again from
	 *  its reset state.
	 */
	int err;
	if ((err = m_event_ind(q, mp)))
		return (err);
	if ((err = m2ua_sp_down(q)))
		return (err);
	qdisable(q);
	return (0);
}