/***********************************************************
		Copyright IBM Corporation 1987

                      All Rights Reserved

Permission to use, copy, modify, and distribute this software and its 
documentation for any purpose and without fee is hereby granted, 
provided that the above copyright notice appear in all copies and that
both that copyright notice and this permission notice appear in 
supporting documentation, and that the name of IBM not be
used in advertising or publicity pertaining to distribution of the
software without specific, written prior permission.  

IBM DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING
ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL
IBM BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR
ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
SOFTWARE.

******************************************************************/

/*
 * ARGO Project, Computer Sciences Dept., University of Wisconsin - Madison
 */
#ifndef lint
static char *rcsid = "$Header: esis.c,v 4.10 88/09/15 18:57:03 hagens Exp $";
#endif

#ifdef ISO

#include "../h/types.h"
#include "../h/param.h"
#include "../h/mbuf.h"
#include "../h/domain.h"
#include "../h/protosw.h"
#include "../h/dir.h"
#include "../h/user.h"
#include "../h/socket.h"
#include "../h/socketvar.h"
#include "../h/errno.h"
#include "../h/kernel.h"

#include "../net/if.h"
#include "../net/route.h"

#include "../netiso/iso.h"
#include "../netiso/iso_pcb.h"
#include "../netiso/iso_var.h"
#include "../netiso/iso_snpac.h"
#include "../netiso/clnl.h"
#include "../netiso/clnp.h"
#include "../netiso/clnp_stat.h"
#include "../netiso/argo_debug.h"
#include "../netiso/esis.h"

/*
 *	Global variables to esis implementation
 *
 *	esis_holding_time - the holding time (sec) parameter for outgoing pdus
 *	esis_config_time  - the frequency (sec) that hellos are generated
 *
 */
struct isopcb	esis_pcb;
int				esis_sendspace = 2048;
int				esis_recvspace = 2048;
short			esis_holding_time = ESIS_HT;
short			esis_config_time = ESIS_CONFIG;
extern int		iso_systype;
extern struct snpa_cache	all_es, all_is;

#define EXTEND_PACKET(m, mhdr, len, cp)\
	if (((m)->m_next = m_getclr(M_DONTWAIT, MT_HEADER)) == NULL) {\
		esis_stat.es_nomem++;\
		m_freem(mhdr);\
		return;\
	} else {\
		(m)->m_len = (len);\
		(m) = (m)->m_next;\
		(len) = 0;\
		(cp) = mtod((m), caddr_t);\
	}
/*
 * FUNCTION:		esis_init
 *
 * PURPOSE:			Initialize the kernel portion of esis protocol
 *
 * RETURNS:			nothing
 *
 * SIDE EFFECTS:	
 *
 * NOTES:			
 */
esis_init()
{
	extern struct clnl_protosw clnl_protox[256];
	int esis_input();
	int snpac_age();
	int	esis_config();
#ifdef	ISO_X25ESIS
	x25esis_input();
#endif	ISO_X25ESIS

	esis_pcb.isop_next = esis_pcb.isop_prev = &esis_pcb;

	clnl_protox[ISO9542_ESIS].clnl_input = esis_input;
	timeout(snpac_age, (caddr_t)0, hz);
	timeout(esis_config, (caddr_t)0, hz);

#ifdef	ISO_X25ESIS
	clnl_protox[ISO9542X25_ESIS].clnl_input = x25esis_input;
#endif	ISO_X25ESIS
}

/*
 * FUNCTION:		esis_usrreq
 *
 * PURPOSE:			Handle user level esis requests
 *
 * RETURNS:			0 or appropriate errno
 *
 * SIDE EFFECTS:	
 *
 * NOTES:			This is here only so esis gets initialized.
 */
esis_usrreq(so, req, m, nam, rights)
struct socket	*so;		/* socket: used only to get to this code */
int				req;		/* request */
struct mbuf		*m;			/* data for request */
struct mbuf		*nam;		/* optional name */
struct mbuf		*rights;	/* optional rights */
{
	if (m != NULL)
		m_freem(m);

	return(EOPNOTSUPP);
}

/*
 * FUNCTION:		esis_input
 *
 * PURPOSE:			Process an incoming esis packet
 *
 * RETURNS:			nothing
 *
 * SIDE EFFECTS:	
 *
 * NOTES:			
 */
esis_input(m0, shp)
struct mbuf		*m0;		/* ptr to first mbuf of pkt */
struct snpa_hdr	*shp;	/* subnetwork header */
{
	struct isopcb		*isop;
	struct esis_fixed	*pdu = mtod(m0, struct esis_fixed *);

	IFDEBUG(D_ESISINPUT)
		int i;

		printf("esis_input: pdu on ifp x%x (%s%d): from:", shp->snh_ifp, 
			shp->snh_ifp->if_name, shp->snh_ifp->if_unit);
		for (i=0; i<6; i++)
			printf("%x%c", shp->snh_shost[i]&0xff, (i<5) ? ':' : ' ');
		printf(" to:");
		for (i=0; i<6; i++)
			printf("%x%c", shp->snh_dhost[i]&0xff, (i<5) ? ':' : ' ');
		printf("\n");
	ENDDEBUG

	/*
	 *	check checksum if necessary
	 */
	if (ESIS_CKSUM_REQUIRED(pdu) && iso_check_csum(m0, pdu->esis_hdr_len)) {
		esis_stat.es_badcsum++;
		goto bad;
	}

	/* check version */
	if (pdu->esis_vers != ESIS_VERSION) {
		esis_stat.es_badvers++;
		goto bad;
	}

	switch(pdu->esis_type) {
		case ESIS_ESH:
			esis_eshinput(m0, shp);
			return;

		case ESIS_ISH:
			esis_ishinput(m0, shp);
			return;

		case ESIS_RD:
			esis_rdinput(m0, shp);
			return;

		default: {
			esis_stat.es_badtype++;
			goto bad;
		}
	}

bad:
	m_freem(m0);
}

/*
 * FUNCTION:		esis_rdoutput
 *
 * PURPOSE:			Transmit a redirect pdu
 *
 * RETURNS:			nothing
 *
 * SIDE EFFECTS:	
 *
 * NOTES:			Assumes there is enough space for fixed part of header,
 *					DA, BSNPA and NET in first mbuf.
 */
esis_rdoutput(inbound_shp, inbound_m, inbound_oidx, rd_dstnsap, nhop_sc)
struct snpa_hdr		*inbound_shp;	/* snpa hdr from incoming packet */
struct mbuf			*inbound_m;		/* incoming pkt itself */
struct clnp_optidx	*inbound_oidx;	/* clnp options assoc with incoming pkt */
struct iso_addr		*rd_dstnsap;	/* ultimate destination of pkt */
struct snpa_cache	*nhop_sc;		/* snpa cache info regarding next hop of
										pkt */
{
	struct mbuf			*m, *m0;
	caddr_t				cp;
	struct esis_fixed	*pdu;
	int					len, total_len = 0;
	struct sockaddr_iso	siso;
	struct ifnet 		*ifp = inbound_shp->snh_ifp;

	esis_stat.es_rdsent++;

	IFDEBUG(D_ESISOUTPUT)
		int	i;
		printf("esis_rdoutput: ifp x%x (%s%d), ht %d, m x%x, oidx x%x\n",
			ifp, ifp->if_name, ifp->if_unit, esis_holding_time, inbound_m,
			inbound_oidx);
		printf("\tdestination: %s\n", clnp_iso_addrp(rd_dstnsap));
		printf("\tredirected toward:%s\n", clnp_iso_addrp(&nhop_sc->sc_nsap));
	ENDDEBUG

	if ((m0 = m = m_getclr(M_DONTWAIT, MT_HEADER)) == NULL) {
		esis_stat.es_nomem++;
		return;
	}

	pdu = mtod(m, struct esis_fixed *);
	cp = (caddr_t)pdu + sizeof(struct esis_fixed);
	len = sizeof(struct esis_fixed);

	/*
	 *	Build fixed part of header
	 */
	pdu->esis_proto_id = ISO9542_ESIS;
	pdu->esis_vers = ESIS_VERSION;
	pdu->esis_type = ESIS_RD;
	HTOC(pdu->esis_ht_msb, pdu->esis_ht_lsb, esis_holding_time);

	/* Insert destination address */
	(void) esis_insert_addr(&cp, &len, rd_dstnsap, MLEN - len);

	/* Insert the snpa of better next hop */
	*cp++ = nhop_sc->sc_len;
	bcopy(nhop_sc->sc_snpa, cp, nhop_sc->sc_len);
	len += (nhop_sc->sc_len + 1);

	/* 
	 *	If the next hop is not the destination, then it ought to be
	 *	an IS and it should be inserted next. Else, set the
	 *	NETL to 0
	 */
	/* PHASE2 use mask from ifp of outgoing interface */
	if (!iso_addrmatch1(rd_dstnsap, &nhop_sc->sc_nsap)) {
		if ((nhop_sc->sc_flags & SNPA_IS) == 0) {
			/* this should not happen */
			printf("esis_rdoutput: next hop is not dst and not an IS\n");
			m_freem(m0);
			return;
		}
		(void) esis_insert_addr(&cp, &len, &nhop_sc->sc_nsap, MLEN - len);
	} else {
		*cp++ = 0;	/* NETL */
		len++;
	}

	/*
	 *	PHASE2
	 *	If redirect is to an IS, add an address mask. The mask to be
	 *	used should be the mask present in the routing entry used to
	 *	forward the original data packet.
	 */
	
	/*
	 *	Copy Qos, priority, or security options present in original npdu
	 */
	if (inbound_oidx) {
		/* THIS CODE IS CURRENTLY UNTESTED */
		int optlen = 0;
		if (inbound_oidx->cni_qos_formatp)
			optlen += (inbound_oidx->cni_qos_len + 2);
		if (inbound_oidx->cni_priorp)	/* priority option is 1 byte long */
			optlen += 3;
		if (inbound_oidx->cni_securep)
			optlen += (inbound_oidx->cni_secure_len + 2);
		if (MLEN-len < optlen) {
			total_len += len;
			EXTEND_PACKET(m, m0, len, cp);
			/* assumes MLEN > optlen */
		}
		/* assume MLEN-len > optlen */
		/* 
		 *	When copying options, copy from ptr - 2 in order to grab
		 *	the option code and length
		 */
		if (inbound_oidx->cni_qos_formatp) {
			bcopy(inbound_m + inbound_oidx->cni_qos_formatp - 2, cp, 
				inbound_oidx->cni_qos_len + 2);
			len += inbound_oidx->cni_qos_len + 2;
		}
		if (inbound_oidx->cni_priorp) {
			bcopy(inbound_m + inbound_oidx->cni_priorp - 2, cp, 3);
			len += 3;
		}
		if (inbound_oidx->cni_securep) {
			bcopy(inbound_m + inbound_oidx->cni_securep - 2, cp, 
				inbound_oidx->cni_secure_len + 2);
			len += inbound_oidx->cni_secure_len + 2;
		}
	}

	m->m_len = len;
	total_len += len;
	pdu->esis_hdr_len = total_len;
	iso_gen_csum(m0, ESIS_CKSUM_OFF, (int)pdu->esis_hdr_len);

	siso.siso_family = AF_ISO;
	siso.siso_addr.isoa_afi = AFI_SNA;
	siso.siso_addr.isoa_len = 6 + 1;	/* should be taken from snpa_hdr */
										/* +1 is for AFI */
	bcopy(inbound_shp->snh_shost, siso.siso_addr.sna_idi, 6);
	(ifp->if_output)(ifp, m0, &siso);
}

/*
 * FUNCTION:		esis_extract_addr
 *
 * PURPOSE:			Remove an addr from a buffer, and stuff in iso_addr
 *
 * RETURNS:			true if the address was complete, else false
 *
 * SIDE EFFECTS:	Increment buf and decrement len according to the
 *					size of the iso_addr
 *
 * NOTES:			
 */
esis_extract_addr(buf, isoa, len)
caddr_t			*buf;		/* ptr to buffer to put address into */
struct iso_addr	*isoa;		/* ptr to address */
int				*len;		/* ptr to length of buffer */
{
	caddr_t		bp = *buf;

	if (*len <= 0)
		return(0);

	bzero((caddr_t)isoa, sizeof (struct iso_addr));
	isoa->isoa_len = *bp++;
	*len -= 1;
	if (isoa->isoa_len > *len)
		return(0);	/* too big */
	bcopy(bp, (caddr_t)isoa, isoa->isoa_len);
	*len -= isoa->isoa_len;
	bp += isoa->isoa_len;
	*buf = bp;

	return(1);
}

/*
 * FUNCTION:		esis_insert_addr
 *
 * PURPOSE:			Insert an iso_addr into a buffer
 *
 * RETURNS:			true if buffer was big enough, else false
 *
 * SIDE EFFECTS:	Increment buf & len according to size of iso_addr
 *
 * NOTES:			Plus 1 here is for length byte
 */
esis_insert_addr(buf, len, isoa, remaining)
caddr_t			*buf;		/* ptr to buffer to put address into */
int				*len;		/* ptr to length of buffer so far */
struct iso_addr	*isoa;		/* ptr to address */
int				remaining;	/* length of buffer */
{
	caddr_t		bp = *buf;

	if ((isoa->isoa_len+1) > remaining)
		return(0);
	*bp++ = isoa->isoa_len;
	*len += 1;
	bcopy((caddr_t)isoa, bp, isoa->isoa_len);
	bp += isoa->isoa_len;
	*len += isoa->isoa_len;
	*buf = bp;
	return(1);
}

/*
 
/*
 * FUNCTION:		esis_eshinput
 *
 * PURPOSE:			Process an incoming ESH pdu
 *
 * RETURNS:			nothing
 *
 * SIDE EFFECTS:	
 *
 * NOTES:			
 */
esis_eshinput(m, shp)
struct mbuf		*m;	/* esh pdu */
struct snpa_hdr	*shp;	/* subnetwork header */
{
	struct esis_fixed	*pdu = mtod(m, struct esis_fixed *);
	u_short				ht;		/* holding time */
	struct iso_addr		nsap;
	int					naddr;
	caddr_t				buf = (caddr_t)pdu + sizeof(struct esis_fixed);
	int					len = pdu->esis_hdr_len - sizeof(struct esis_fixed);

	esis_stat.es_eshrcvd++;

	CTOH(pdu->esis_ht_msb, pdu->esis_ht_lsb, ht);

	if (len > 0) {
		naddr = *buf++;
		len--;
	} else
		goto bad;

	IFDEBUG(D_ESISINPUT)
		printf("esis_eshinput: esh: ht %d, naddr %d\n", ht, naddr);
	ENDDEBUG

	while (naddr-- > 0) {
		if (esis_extract_addr(&buf, &nsap, &len)) {
			int new_entry = (snpac_look(&nsap) == NULL);

			IFDEBUG(D_ESISINPUT)
				printf("esis_eshinput: nsap %s is %s\n", 
					clnp_iso_addrp(&nsap), new_entry ? "new" : "old");
			ENDDEBUG

			snpac_add(shp->snh_ifp, &nsap, shp->snh_shost, 6, SNPA_ES, ht);
			if (new_entry)
				esis_shoutput(shp->snh_ifp, 
					iso_systype & SNPA_ES ? ESIS_ESH : ESIS_ISH,
					esis_holding_time, shp->snh_shost, 6);
		} else {
			esis_stat.es_toosmall++;
			break;
		}
	}

bad:
	m_freem(m);
}

/*
 * FUNCTION:		esis_ishinput
 *
 * PURPOSE:			process an incoming ISH pdu
 *
 * RETURNS:			
 *
 * SIDE EFFECTS:	
 *
 * NOTES:			
 */
esis_ishinput(m, shp)
struct mbuf		*m;	/* esh pdu */
struct snpa_hdr	*shp;	/* subnetwork header */
{
	struct esis_fixed	*pdu = mtod(m, struct esis_fixed *);
	u_short				ht;		/* holding time */
	struct iso_addr		nsap;
	caddr_t				buf = (caddr_t)pdu + sizeof(struct esis_fixed);
	int					len = pdu->esis_hdr_len - sizeof(struct esis_fixed);

	esis_stat.es_ishrcvd++;
	CTOH(pdu->esis_ht_msb, pdu->esis_ht_lsb, ht);

	IFDEBUG(D_ESISINPUT)
		printf("esis_ishinput: ish: ht %d\n", ht);
	ENDDEBUG

	if (esis_extract_addr(&buf, &nsap, &len)) {
		int new_entry = (snpac_look(&nsap) == NULL);

		IFDEBUG(D_ESISINPUT)
			printf("esis_ishinput: nsap %s is %s\n", 
				clnp_iso_addrp(&nsap), new_entry ? "new" : "old");
		ENDDEBUG

		snpac_add(shp->snh_ifp, &nsap, shp->snh_shost, 6, SNPA_IS, ht);
		if (new_entry)
			esis_shoutput(shp->snh_ifp, 
				iso_systype & SNPA_ES ? ESIS_ESH : ESIS_ISH,
				esis_holding_time, shp->snh_shost, 6);
	} else {
		esis_stat.es_toosmall++;
	}
	m_freem(m);
}

/*
 * FUNCTION:		esis_rdinput
 *
 * PURPOSE:			Process an incoming RD pdu
 *
 * RETURNS:			
 *
 * SIDE EFFECTS:	
 *
 * NOTES:			
 */
esis_rdinput(m0, shp)
struct mbuf		*m0;	/* esh pdu */
struct snpa_hdr	*shp;	/* subnetwork header */
{
	struct esis_fixed	*pdu = mtod(m0, struct esis_fixed *);
	u_short				ht;		/* holding time */
	struct iso_addr		da;
	caddr_t				bsnpa;
	int					bsnpalen;
	struct iso_addr		net;
	int					netl;
	caddr_t				buf = (caddr_t)pdu + sizeof(struct esis_fixed);
	int					len = pdu->esis_hdr_len - sizeof(struct esis_fixed);

	esis_stat.es_rdrcvd++;

	/* intermediate systems ignore redirects */
	if (iso_systype & SNPA_IS)
		goto bad;

	CTOH(pdu->esis_ht_msb, pdu->esis_ht_lsb, ht);

	/* Extract DA */
	if (!esis_extract_addr(&buf, &da, &len)) {
		esis_stat.es_toosmall++;
		goto bad;
	}
	
	/* Extract better snpa */
	bsnpalen = *buf++;
	if (bsnpalen > len) {
		esis_stat.es_toosmall++;
		goto bad;
	} else {
		bsnpa = buf;
		buf += bsnpalen;
		len -= bsnpalen;
	}

	/* Extract NET if present */
	if ((netl = *buf) > 0) {
		if (!esis_extract_addr(&buf, &net, &len)) {
			esis_stat.es_toosmall++;
			goto bad;
		}
	}

	IFDEBUG(D_ESISINPUT)
		printf("esis_rdinput: rd: ht %d, da %s\n", ht, clnp_iso_addrp(&da));
		if (netl)
			printf("\t: net %s\n", clnp_iso_addrp(&net));
	ENDDEBUG

	/*
	 *	If netl is zero, then redirect is to an ES. We need to add an entry
	 *	to the snpa cache for (destination, better snpa).
	 *	If netl is not zero, then the redirect is to an IS. In this
	 *	case, add an snpa cache entry for (net, better snpa).
	 *
	 *	If the redirect is to an IS, add a route entry towards that
	 *	IS.
	 */
	if (netl == 0) {
		/* redirect to an ES */
		snpac_add(shp->snh_ifp, &da, bsnpa, bsnpalen, SNPA_ES, ht);
	} else {
		snpac_add(shp->snh_ifp, &net, bsnpa, bsnpalen, SNPA_IS, ht);
		snpac_addrt(&da, &net);
	}
bad:
	m_freem(m0);
}

/*
 * FUNCTION:		esis_config
 *
 * PURPOSE:			Report configuration
 *
 * RETURNS:			
 *
 * SIDE EFFECTS:	
 *
 * NOTES:			Called every esis_config_time seconds
 */
esis_config()
{
	register struct ifnet	*ifp;

	timeout(esis_config, (caddr_t)0, hz * esis_config_time);

	/* 
	 *	Report configuration for each interface that 
	 *	- is UP
	 *	- is not loopback
	 *	- has broadcast capabilities
	 *	- has an ISO address
	 */
	
	for (ifp = ifnet; ifp; ifp = ifp->if_next) {
		if ((ifp->if_flags & IFF_UP) &&
			(ifp->if_flags & IFF_BROADCAST) &&
			((ifp->if_flags & IFF_LOOPBACK) == 0)) {
			/* search for an ISO address family */
			struct ifaddr	*ia;

			for (ia = ifp->if_addrlist; ia; ia = ia->ifa_next) {
				if (ia->ifa_addr.sa_family == AF_ISO) {
					esis_shoutput(ifp, 
						iso_systype & SNPA_ES ? ESIS_ESH : ESIS_ISH,
						esis_holding_time,
						iso_systype & SNPA_ES ? all_is.sc_snpa : 
						all_es.sc_snpa, 6);
					break;
				}
			}
		}
	}
}

/*
 * FUNCTION:		esis_shoutput
 *
 * PURPOSE:			Transmit an esh or ish pdu
 *
 * RETURNS:			nothing
 *
 * SIDE EFFECTS:	
 *
 * NOTES:			
 */
esis_shoutput(ifp, type, ht, sn_addr, sn_len)
struct ifnet	*ifp;
int				type;
short			ht;
caddr_t 		sn_addr;
int				sn_len;
{
	struct mbuf			*m, *m0;
	caddr_t				cp, naddrp;
	int					naddr = 0;
	struct esis_fixed	*pdu;
	struct ifaddr		*ifa;
	int					len, total_len = 0;
	struct sockaddr_iso	siso;

	if (type == ESIS_ESH)
		esis_stat.es_eshsent++;
	else if (type == ESIS_ISH) 
		esis_stat.es_ishsent++;
	else {
		printf("esis_shoutput: bad pdu type\n");
		return;
	}

	IFDEBUG(D_ESISOUTPUT)
		int	i;
		printf("esis_shoutput: ifp x%x (%s%d), %s, ht %d, to: [%d] ",
			ifp, ifp->if_name, ifp->if_unit, type == ESIS_ESH ? "esh" : "ish",
			ht, sn_len);
		for (i=0; i<sn_len; i++)
			printf("%x%c", *(sn_addr+i), i < (sn_len-1) ? ':' : ' ');
		printf("\n");
	ENDDEBUG

	if ((m0 = m = m_getclr(M_DONTWAIT, MT_HEADER)) == NULL) {
		esis_stat.es_nomem++;
		return;
	}

	pdu = mtod(m, struct esis_fixed *);
	naddrp = cp = (caddr_t)pdu + sizeof(struct esis_fixed);
	len = sizeof(struct esis_fixed);

	/*
	 *	Build fixed part of header
	 */
	pdu->esis_proto_id = ISO9542_ESIS;
	pdu->esis_vers = ESIS_VERSION;
	pdu->esis_type = type;
	HTOC(pdu->esis_ht_msb, pdu->esis_ht_lsb, ht);

	if (type == ESIS_ESH) {
		cp++;
		len++;
	}

	for (ifa = ifp->if_addrlist; ifa; ifa=ifa->ifa_next) {
		if (ifa->ifa_addr.sa_family == AF_ISO) {
			IFDEBUG(D_ESISOUTPUT)
				printf("esis_shoutput: adding nsap %s\n", 
					clnp_iso_addrp(&IA_SIS(ifa)->siso_addr));
			ENDDEBUG
			if (!esis_insert_addr(&cp, &len, &IA_SIS(ifa)->siso_addr, 
				MLEN - len)) {
				total_len += len;
				EXTEND_PACKET(m, m0, len, cp);
				(void) esis_insert_addr(&cp, &len, &IA_SIS(ifa)->siso_addr, 
					MLEN - len);
			}
			naddr++;
			if (type == ESIS_ISH)
				break;
		}
	}

	if (type == ESIS_ESH)
		*naddrp = naddr;

	m->m_len = len;
	total_len += len;
	pdu->esis_hdr_len = total_len;
	iso_gen_csum(m0, ESIS_CKSUM_OFF, (int)pdu->esis_hdr_len);

	siso.siso_family = AF_ISO;
	siso.siso_addr.isoa_afi = AFI_SNA;
	siso.siso_addr.isoa_len = sn_len + 1;
	bcopy(sn_addr, siso.siso_addr.sna_idi, sn_len);
	(ifp->if_output)(ifp, m0, &siso);
}

/*
 * FUNCTION:		esis_ctlinput
 *
 * PURPOSE:			Handle the PRC_IFDOWN transition
 *
 * RETURNS:			nothing
 *
 * SIDE EFFECTS:	
 *
 * NOTES:			Calls snpac_flush for interface specified.
 *					The loop through iso_ifaddr is stupid because
 *					back in if_down, we knew the ifp...
 */
esis_ctlinput(req, siso)
int						req;		/* request: we handle only PRC_IFDOWN */
struct sockaddr_iso		*siso;		/* address of ifp */
{
	register struct iso_ifaddr *ia;	/* scan through interface addresses */

	for (ia = iso_ifaddr; ia; ia = ia->ia_next) {
		if (iso_addrmatch(IA_SIS(ia), siso))
			snpac_flushifp(ia->ia_ifp);
	}
}

#endif	ISO