[unix-history] / usr / src / sys / net / route.c

/*	route.c	4.2	82/03/28	*/

#include "../h/param.h"
#include "../h/systm.h"
#include "../h/dir.h"
#include "../h/user.h"
#include "../h/proc.h"
#include "../h/file.h"
#include "../h/inode.h"
#include "../h/buf.h"
#include "../h/mbuf.h"
#include "../h/protosw.h"
#include "../h/socket.h"
#include "../h/socketvar.h"
#include "../h/ioctl.h"
#include "../net/in.h"
#include "../net/in_systm.h"
#include "../net/if.h"
#include "../net/af.h"
#include "../net/route.h"

/*
 * Packet routing routines.
 */

/*
 * With much ado about nothing...
 * route the cars that climb halfway to the stars...
 */
route(ro)
	register struct route *ro;
{
	register struct rtentry *rt, *rtmin;
	register struct mbuf *m;
	register int key;
	struct afhash h;
	struct sockaddr *dst = &ro->ro_dst;
	int af = dst->sa_family, doinghost;

COUNT(ROUTE);
	if (ro && ro->ro_rt && ro->ro_rt->rt_ifp)	/* ??? */
		return;
	(*afswitch[af].af_hash)(dst, &h);
	m = routehash[h.afh_hosthash % RTHASHSIZ];
	key = h.afh_hostkey;
	rtmin = 0, doinghost = 1;
again:
	for (; m; m = m->m_next) {
		rt = mtod(m, struct rtentry *);
#define	equal(a1, a2) \
	(bcmp((caddr_t)(a1), (caddr_t)(a2), sizeof(struct sockaddr)) == 0)
		if (rt->rt_key != key)
			continue;
		if (doinghost) {
			if (!equal(&rt->rt_dst, dst))
				continue;
		} else {
			if (rt->rt_dst.sa_family != af)
				continue;
			if ((*afswitch[af].af_netmatch)(&rt->rt_dst, dst) == 0)
				continue;
		}
		if (rtmin == 0 || rt->rt_use < rtmin->rt_use)
			rtmin = rt;
	}
	if (rtmin) {
		ro->ro_dst = rt->rt_dst;
		ro->ro_rt = rt;
		rt->rt_refcnt++;
		return;
	}
	if (doinghost) {
		doinghost = 0;
		m = routehash[h.afh_nethash % RTHASHSIZ];
		key = h.afh_netkey;
		goto again;
	}
	ro->ro_rt = 0;
}

struct rtentry *
reroute(sa)
	register struct sockaddr *sa;
{
	register struct rtentry *rt;
	register struct mbuf *m;
	register int key;
	struct afhash h;

COUNT(REROUTE);
	(*afswitch[sa->sa_family].af_hash)(sa, &h);
	m = routehash[h.afh_hosthash];
	key = h.afh_hostkey;
	for (; m; m = m->m_next) {
		rt = mtod(m, struct rtentry *);
		if (rt->rt_key != key)
			continue;
		if (equal(&rt->rt_gateway, sa))
			return (rt);
	}
	return (0);
}

/*
 * Routing control calls allow a routing daemon
 * to consistenly access the routing data base for updates.
 */
rtcontrol(req, addr)
	caddr_t addr;
{
	register struct rtentry rq;
	int x = splimp(), err = 0;

COUNT(RTCONTROL);
	if (suser())
		goto bad;
	if (copyin(addr, (caddr_t)&rq, sizeof(struct rtentry))) {
		u.u_error = EFAULT;
		goto bad;
	}
	err = rtrequest(req, &rq);
bad:
	splx(x);
	return (err);
}

/*
 * Carry out a user request to modify the data base.
 */
rtrequest(req, new)
	int req;
	register struct rtentry *new;
{
	register struct rtentry *rt;
	register struct mbuf *m, **mprev;
	register int key;
	struct sockaddr *sa = &new->rt_dst;
	struct afhash h;
	int af = sa->sa_family, doinghost;

	(*afswitch[af].af_hash)(sa, &h);
	mprev = &routehash[h.afh_hosthash % RTHASHSIZ];
	key = h.afh_hostkey;
	doinghost = 1;
again:
	for (; m = *mprev; mprev = &m->m_next) {
		rt = mtod(m, struct rtentry *);
		if (rt->rt_key != key)
			continue;
		if (doinghost) {
			if (!equal(&rt->rt_dst, &new->rt_dst))
				continue;
		} else {
			if (rt->rt_dst.sa_family != af)
				continue;
			if ((*afswitch[af].af_netmatch)(&rt->rt_dst, sa) == 0)
				continue;
		}
		break;
	}
	if (m == 0 && doinghost) {
		doinghost = 0;
		mprev = &routehash[h.afh_nethash % RTHASHSIZ];
		key = h.afh_netkey;
		goto again;
	}

	if (m == 0 && req != SIOCADDRT)
		return (ESRCH);
	switch (req) {

	case SIOCDELRT:
		rt->rt_flags &= ~RTF_UP;
		if (rt->rt_refcnt > 0)	/* should we notify protocols? */
			break;
		*mprev = m_free(m);
		break;

	case SIOCCHGRT:
		rt->rt_flags = new->rt_flags;
		if (rt->rt_refcnt > 0)
			return (EBUSY);
		if (!equal(&rt->rt_gateway, &new->rt_gateway))
			goto newneighbor;
		break;

	case SIOCADDRT:
		m = m_getclr(M_DONTWAIT);
		if (m == 0)
			return (ENOBUFS);
		m->m_off = MMINOFF;
		*mprev = m;
		rt = mtod(m, struct rtentry *);
		*rt = *new;
		rt->rt_key = h.afh_nethash | h.afh_hosthash;
newneighbor:
		rt->rt_ifp = if_ifonnetof(&new->rt_gateway);
		if (rt->rt_ifp == 0)
			rt->rt_flags &= ~RTF_UP;
		rt->rt_refcnt = 0;
		break;
	}
	return (0);
}
Commit	Line	Data
ee787340	1	/* route.c 4.2 82/03/28 */
9d03c806 SL	2
9d03c806 SL	3	#include "../h/param.h"
ee787340 SL	4	#include "../h/systm.h"
	5	#include "../h/dir.h"
	6	#include "../h/user.h"
	7	#include "../h/proc.h"
	8	#include "../h/file.h"
	9	#include "../h/inode.h"
	10	#include "../h/buf.h"
9d03c806 SL	11	#include "../h/mbuf.h"
	12	#include "../h/protosw.h"
	13	#include "../h/socket.h"
	14	#include "../h/socketvar.h"
ee787340	15	#include "../h/ioctl.h"
9d03c806 SL	16	#include "../net/in.h"
9d03c806 SL	17	#include "../net/in_systm.h"
ee787340	18	#include "../net/if.h"
9d03c806 SL	19	#include "../net/af.h"
9d03c806 SL	20	#include "../net/route.h"
9d03c806 SL	21
	22	/*
	23	* Packet routing routines.
	24	*/
	25
	26	/*
	27	* With much ado about nothing...
	28	* route the cars that climb halfway to the stars...
	29	*/
	30	route(ro)
	31	register struct route *ro;
	32	{
	33	register struct rtentry rt, rtmin;
	34	register struct mbuf *m;
ee787340	35	register int key;
9d03c806 SL	36	struct afhash h;
9d03c806 SL	37	struct sockaddr *dst = &ro->ro_dst;
ee787340	38	int af = dst->sa_family, doinghost;
9d03c806 SL	39
9d03c806 SL	40	COUNT(ROUTE);
ee787340	41	if (ro && ro->ro_rt && ro->ro_rt->rt_ifp) /* ??? */
9d03c806 SL	42	return;
	43	(*afswitch[af].af_hash)(dst, &h);
	44	m = routehash[h.afh_hosthash % RTHASHSIZ];
	45	key = h.afh_hostkey;
	46	rtmin = 0, doinghost = 1;
	47	again:
	48	for (; m; m = m->m_next) {
	49	rt = mtod(m, struct rtentry *);
	50	#define equal(a1, a2) \
	51	(bcmp((caddr_t)(a1), (caddr_t)(a2), sizeof(struct sockaddr)) == 0)
	52	if (rt->rt_key != key)
	53	continue;
	54	if (doinghost) {
	55	if (!equal(&rt->rt_dst, dst))
	56	continue;
	57	} else {
	58	if (rt->rt_dst.sa_family != af)
	59	continue;
	60	if ((*afswitch[af].af_netmatch)(&rt->rt_dst, dst) == 0)
	61	continue;
	62	}
	63	if (rtmin == 0 \|\| rt->rt_use < rtmin->rt_use)
	64	rtmin = rt;
	65	}
	66	if (rtmin) {
	67	ro->ro_dst = rt->rt_dst;
	68	ro->ro_rt = rt;
	69	rt->rt_refcnt++;
	70	return;
	71	}
	72	if (doinghost) {
	73	doinghost = 0;
ee787340	74	m = routehash[h.afh_nethash % RTHASHSIZ];
9d03c806 SL	75	key = h.afh_netkey;
	76	goto again;
	77	}
9d03c806 SL	78	ro->ro_rt = 0;
	79	}
	80
	81	struct rtentry *
	82	reroute(sa)
	83	register struct sockaddr *sa;
	84	{
	85	register struct rtentry *rt;
	86	register struct mbuf *m;
ee787340	87	register int key;
9d03c806 SL	88	struct afhash h;
	89
	90	COUNT(REROUTE);
	91	(*afswitch[sa->sa_family].af_hash)(sa, &h);
	92	m = routehash[h.afh_hosthash];
	93	key = h.afh_hostkey;
	94	for (; m; m = m->m_next) {
	95	rt = mtod(m, struct rtentry *);
	96	if (rt->rt_key != key)
	97	continue;
	98	if (equal(&rt->rt_gateway, sa))
	99	return (rt);
	100	}
	101	return (0);
	102	}
	103
	104	/*
	105	* Routing control calls allow a routing daemon
	106	* to consistenly access the routing data base for updates.
	107	*/
	108	rtcontrol(req, addr)
	109	caddr_t addr;
	110	{
ee787340	111	register struct rtentry rq;
9d03c806 SL	112	int x = splimp(), err = 0;
	113
	114	COUNT(RTCONTROL);
	115	if (suser())
	116	goto bad;
ee787340	117	if (copyin(addr, (caddr_t)&rq, sizeof(struct rtentry))) {
9d03c806 SL	118	u.u_error = EFAULT;
	119	goto bad;
	120	}
	121	err = rtrequest(req, &rq);
	122	bad:
	123	splx(x);
	124	return (err);
	125	}
	126
	127	/*
	128	* Carry out a user request to modify the data base.
	129	*/
	130	rtrequest(req, new)
	131	int req;
	132	register struct rtentry *new;
	133	{
	134	register struct rtentry *rt;
	135	register struct mbuf m, *mprev;
ee787340	136	register int key;
9d03c806 SL	137	struct sockaddr *sa = &new->rt_dst;
9d03c806 SL	138	struct afhash h;
ee787340	139	int af = sa->sa_family, doinghost;
9d03c806 SL	140
	141	(*afswitch[af].af_hash)(sa, &h);
	142	mprev = &routehash[h.afh_hosthash % RTHASHSIZ];
	143	key = h.afh_hostkey;
	144	doinghost = 1;
	145	again:
	146	for (; m = *mprev; mprev = &m->m_next) {
	147	rt = mtod(m, struct rtentry *);
	148	if (rt->rt_key != key)
	149	continue;
	150	if (doinghost) {
ee787340	151	if (!equal(&rt->rt_dst, &new->rt_dst))
9d03c806 SL	152	continue;
	153	} else {
	154	if (rt->rt_dst.sa_family != af)
	155	continue;
	156	if ((*afswitch[af].af_netmatch)(&rt->rt_dst, sa) == 0)
	157	continue;
	158	}
	159	break;
	160	}
	161	if (m == 0 && doinghost) {
	162	doinghost = 0;
	163	mprev = &routehash[h.afh_nethash % RTHASHSIZ];
	164	key = h.afh_netkey;
	165	goto again;
	166	}
	167
	168	if (m == 0 && req != SIOCADDRT)
ee787340	169	return (ESRCH);
9d03c806 SL	170	switch (req) {
	171
	172	case SIOCDELRT:
	173	rt->rt_flags &= ~RTF_UP;
	174	if (rt->rt_refcnt > 0) /* should we notify protocols? */
	175	break;
	176	*mprev = m_free(m);
	177	break;
	178
	179	case SIOCCHGRT:
	180	rt->rt_flags = new->rt_flags;
	181	if (rt->rt_refcnt > 0)
ee787340	182	return (EBUSY);
9d03c806 SL	183	if (!equal(&rt->rt_gateway, &new->rt_gateway))
	184	goto newneighbor;
	185	break;
	186
	187	case SIOCADDRT:
	188	m = m_getclr(M_DONTWAIT);
	189	if (m == 0)
	190	return (ENOBUFS);
	191	m->m_off = MMINOFF;
	192	*mprev = m;
	193	rt = mtod(m, struct rtentry *);
	194	rt = new;
	195	rt->rt_key = h.afh_nethash \| h.afh_hosthash;
	196	newneighbor:
	197	rt->rt_ifp = if_ifonnetof(&new->rt_gateway);
	198	if (rt->rt_ifp == 0)
	199	rt->rt_flags &= ~RTF_UP;
	200	rt->rt_refcnt = 0;
	201	break;
	202	}
	203	return (0);
	204	}