xref: /original-bsd/sys/net/rtsock.c (revision deff14a8)
1 /*
2  * Copyright (c) 1988, 1991, 1993
3  *	The Regents of the University of California.  All rights reserved.
4  *
5  * %sccs.include.redist.c%
6  *
7  *	@(#)rtsock.c	8.3.1.1 (Berkeley) 10/09/94
8  */
9 
10 #include <sys/param.h>
11 #include <sys/systm.h>
12 #include <sys/proc.h>
13 #include <sys/mbuf.h>
14 #include <sys/socket.h>
15 #include <sys/socketvar.h>
16 #include <sys/domain.h>
17 #include <sys/protosw.h>
18 
19 #include <net/if.h>
20 #include <net/route.h>
21 #include <net/raw_cb.h>
22 
23 struct	sockaddr route_dst = { 2, PF_ROUTE, };
24 struct	sockaddr route_src = { 2, PF_ROUTE, };
25 struct	sockproto route_proto = { PF_ROUTE, };
26 
27 struct walkarg {
28 	int	w_op, w_arg, w_given, w_needed, w_tmemsize;
29 	caddr_t	w_where, w_tmem;
30 };
31 
32 static struct mbuf *
33 		rt_msg1 __P((int, struct rt_addrinfo *));
34 static int	rt_msg2 __P((int,
35 		    struct rt_addrinfo *, caddr_t, struct walkarg *));
36 static void	rt_xaddrs __P((caddr_t, caddr_t, struct rt_addrinfo *));
37 
38 /* Sleazy use of local variables throughout file, warning!!!! */
39 #define dst	info.rti_info[RTAX_DST]
40 #define gate	info.rti_info[RTAX_GATEWAY]
41 #define netmask	info.rti_info[RTAX_NETMASK]
42 #define genmask	info.rti_info[RTAX_GENMASK]
43 #define ifpaddr	info.rti_info[RTAX_IFP]
44 #define ifaaddr	info.rti_info[RTAX_IFA]
45 #define brdaddr	info.rti_info[RTAX_BRD]
46 
47 /*ARGSUSED*/
48 int
49 route_usrreq(so, req, m, nam, control)
50 	register struct socket *so;
51 	int req;
52 	struct mbuf *m, *nam, *control;
53 {
54 	register int error = 0;
55 	register struct rawcb *rp = sotorawcb(so);
56 	int s;
57 
58 	if (req == PRU_ATTACH) {
59 		MALLOC(rp, struct rawcb *, sizeof(*rp), M_PCB, M_WAITOK);
60 		if (so->so_pcb = (caddr_t)rp)
61 			bzero(so->so_pcb, sizeof(*rp));
62 
63 	}
64 	if (req == PRU_DETACH && rp) {
65 		int af = rp->rcb_proto.sp_protocol;
66 		if (af == AF_INET)
67 			route_cb.ip_count--;
68 		else if (af == AF_NS)
69 			route_cb.ns_count--;
70 		else if (af == AF_ISO)
71 			route_cb.iso_count--;
72 		route_cb.any_count--;
73 	}
74 	s = splnet();
75 	error = raw_usrreq(so, req, m, nam, control);
76 	rp = sotorawcb(so);
77 	if (req == PRU_ATTACH && rp) {
78 		int af = rp->rcb_proto.sp_protocol;
79 		if (error) {
80 			free((caddr_t)rp, M_PCB);
81 			splx(s);
82 			return (error);
83 		}
84 		if (af == AF_INET)
85 			route_cb.ip_count++;
86 		else if (af == AF_NS)
87 			route_cb.ns_count++;
88 		else if (af == AF_ISO)
89 			route_cb.iso_count++;
90 		rp->rcb_faddr = &route_src;
91 		route_cb.any_count++;
92 		soisconnected(so);
93 		so->so_options |= SO_USELOOPBACK;
94 	}
95 	splx(s);
96 	return (error);
97 }
98 
99 /*ARGSUSED*/
100 int
101 route_output(m, so)
102 	register struct mbuf *m;
103 	struct socket *so;
104 {
105 	register struct rt_msghdr *rtm = 0;
106 	register struct rtentry *rt = 0;
107 	struct rtentry *saved_nrt = 0;
108 	struct radix_node_head *rnh;
109 	struct rt_addrinfo info;
110 	int len, error = 0;
111 	struct ifnet *ifp = 0;
112 	struct ifaddr *ifa = 0;
113 
114 #define senderr(e) { error = e; goto flush;}
115 	if (m == 0 || ((m->m_len < sizeof(long)) &&
116 		       (m = m_pullup(m, sizeof(long))) == 0))
117 		return (ENOBUFS);
118 	if ((m->m_flags & M_PKTHDR) == 0)
119 		panic("route_output");
120 	len = m->m_pkthdr.len;
121 	if (len < sizeof(*rtm) ||
122 	    len != mtod(m, struct rt_msghdr *)->rtm_msglen) {
123 		dst = 0;
124 		senderr(EINVAL);
125 	}
126 	R_Malloc(rtm, struct rt_msghdr *, len);
127 	if (rtm == 0) {
128 		dst = 0;
129 		senderr(ENOBUFS);
130 	}
131 	m_copydata(m, 0, len, (caddr_t)rtm);
132 	if (rtm->rtm_version != RTM_VERSION) {
133 		dst = 0;
134 		senderr(EPROTONOSUPPORT);
135 	}
136 	rtm->rtm_pid = curproc->p_pid;
137 	info.rti_addrs = rtm->rtm_addrs;
138 	rt_xaddrs((caddr_t)(rtm + 1), len + (caddr_t)rtm, &info);
139 	if (dst == 0)
140 		senderr(EINVAL);
141 	if (genmask) {
142 		struct radix_node *t;
143 		t = rn_addmask((caddr_t)genmask, 0, 1);
144 		if (t && Bcmp(genmask, t->rn_key, *(u_char *)genmask) == 0)
145 			genmask = (struct sockaddr *)(t->rn_key);
146 		else
147 			senderr(ENOBUFS);
148 	}
149 	switch (rtm->rtm_type) {
150 
151 	case RTM_ADD:
152 		if (gate == 0)
153 			senderr(EINVAL);
154 		error = rtrequest(RTM_ADD, dst, gate, netmask,
155 					rtm->rtm_flags, &saved_nrt);
156 		if (error == 0 && saved_nrt) {
157 			rt_setmetrics(rtm->rtm_inits,
158 				&rtm->rtm_rmx, &saved_nrt->rt_rmx);
159 			saved_nrt->rt_refcnt--;
160 			saved_nrt->rt_genmask = genmask;
161 		}
162 		break;
163 
164 	case RTM_DELETE:
165 		error = rtrequest(RTM_DELETE, dst, gate, netmask,
166 				rtm->rtm_flags, (struct rtentry **)0);
167 		break;
168 
169 	case RTM_GET:
170 	case RTM_CHANGE:
171 	case RTM_LOCK:
172 		if ((rnh = rt_tables[dst->sa_family]) == 0)
173 			senderr(EAFNOSUPPORT);
174 		else if (rt = (struct rtentry *)
175 				rnh->rnh_lookup(dst, netmask, rnh))
176 			rt->rt_refcnt++;
177 		else
178 			senderr(ESRCH);
179 		switch(rtm->rtm_type) {
180 
181 		case RTM_GET:
182 			dst = rt_key(rt);
183 			gate = rt->rt_gateway;
184 			netmask = rt_mask(rt);
185 			genmask = rt->rt_genmask;
186 			if (rtm->rtm_addrs & (RTA_IFP | RTA_IFA)) {
187 				if (ifp = rt->rt_ifp) {
188 					ifpaddr = ifp->if_addrlist->ifa_addr;
189 					ifaaddr = rt->rt_ifa->ifa_addr;
190 					rtm->rtm_index = ifp->if_index;
191 				} else {
192 					ifpaddr = 0;
193 					ifaaddr = 0;
194 			    }
195 			}
196 			len = rt_msg2(RTM_GET, &info, (caddr_t)0,
197 				(struct walkarg *)0);
198 			if (len > rtm->rtm_msglen) {
199 				struct rt_msghdr *new_rtm;
200 				R_Malloc(new_rtm, struct rt_msghdr *, len);
201 				if (new_rtm == 0)
202 					senderr(ENOBUFS);
203 				Bcopy(rtm, new_rtm, rtm->rtm_msglen);
204 				Free(rtm); rtm = new_rtm;
205 			}
206 			(void)rt_msg2(RTM_GET, &info, (caddr_t)rtm,
207 				(struct walkarg *)0);
208 			rtm->rtm_flags = rt->rt_flags;
209 			rtm->rtm_rmx = rt->rt_rmx;
210 			rtm->rtm_addrs = info.rti_addrs;
211 			break;
212 
213 		case RTM_CHANGE:
214 			if (gate && rt_setgate(rt, rt_key(rt), gate))
215 				senderr(EDQUOT);
216 			/* new gateway could require new ifaddr, ifp;
217 			   flags may also be different; ifp may be specified
218 			   by ll sockaddr when protocol address is ambiguous */
219 			if (ifpaddr && (ifa = ifa_ifwithnet(ifpaddr)) &&
220 			    (ifp = ifa->ifa_ifp))
221 				ifa = ifaof_ifpforaddr(ifaaddr ? ifaaddr : gate,
222 							ifp);
223 			else if ((ifaaddr && (ifa = ifa_ifwithaddr(ifaaddr))) ||
224 				 (ifa = ifa_ifwithroute(rt->rt_flags,
225 							rt_key(rt), gate)))
226 				ifp = ifa->ifa_ifp;
227 			if (ifa) {
228 				register struct ifaddr *oifa = rt->rt_ifa;
229 				if (oifa != ifa) {
230 				    if (oifa && oifa->ifa_rtrequest)
231 					oifa->ifa_rtrequest(RTM_DELETE,
232 								rt, gate);
233 				    IFAFREE(rt->rt_ifa);
234 				    rt->rt_ifa = ifa;
235 				    ifa->ifa_refcnt++;
236 				    rt->rt_ifp = ifp;
237 				}
238 			}
239 			rt_setmetrics(rtm->rtm_inits, &rtm->rtm_rmx,
240 					&rt->rt_rmx);
241 			if (rt->rt_ifa && rt->rt_ifa->ifa_rtrequest)
242 			       rt->rt_ifa->ifa_rtrequest(RTM_ADD, rt, gate);
243 			if (genmask)
244 				rt->rt_genmask = genmask;
245 			/*
246 			 * Fall into
247 			 */
248 		case RTM_LOCK:
249 			rt->rt_rmx.rmx_locks &= ~(rtm->rtm_inits);
250 			rt->rt_rmx.rmx_locks |=
251 				(rtm->rtm_inits & rtm->rtm_rmx.rmx_locks);
252 			break;
253 		}
254 		break;
255 
256 	default:
257 		senderr(EOPNOTSUPP);
258 	}
259 
260 flush:
261 	if (rtm) {
262 		if (error)
263 			rtm->rtm_errno = error;
264 		else
265 			rtm->rtm_flags |= RTF_DONE;
266 	}
267 	if (rt)
268 		rtfree(rt);
269     {
270 	register struct rawcb *rp = 0;
271 	/*
272 	 * Check to see if we don't want our own messages.
273 	 */
274 	if ((so->so_options & SO_USELOOPBACK) == 0) {
275 		if (route_cb.any_count <= 1) {
276 			if (rtm)
277 				Free(rtm);
278 			m_freem(m);
279 			return (error);
280 		}
281 		/* There is another listener, so construct message */
282 		rp = sotorawcb(so);
283 	}
284 	if (rtm) {
285 		m_copyback(m, 0, rtm->rtm_msglen, (caddr_t)rtm);
286 		Free(rtm);
287 	}
288 	if (rp)
289 		rp->rcb_proto.sp_family = 0; /* Avoid us */
290 	if (dst)
291 		route_proto.sp_protocol = dst->sa_family;
292 	raw_input(m, &route_proto, &route_src, &route_dst);
293 	if (rp)
294 		rp->rcb_proto.sp_family = PF_ROUTE;
295     }
296 	return (error);
297 }
298 
299 void
300 rt_setmetrics(which, in, out)
301 	u_long which;
302 	register struct rt_metrics *in, *out;
303 {
304 #define metric(f, e) if (which & (f)) out->e = in->e;
305 	metric(RTV_RPIPE, rmx_recvpipe);
306 	metric(RTV_SPIPE, rmx_sendpipe);
307 	metric(RTV_SSTHRESH, rmx_ssthresh);
308 	metric(RTV_RTT, rmx_rtt);
309 	metric(RTV_RTTVAR, rmx_rttvar);
310 	metric(RTV_HOPCOUNT, rmx_hopcount);
311 	metric(RTV_MTU, rmx_mtu);
312 	metric(RTV_EXPIRE, rmx_expire);
313 #undef metric
314 }
315 
316 #define ROUNDUP(a) \
317 	((a) > 0 ? (1 + (((a) - 1) | (sizeof(long) - 1))) : sizeof(long))
318 #define ADVANCE(x, n) (x += ROUNDUP((n)->sa_len))
319 
320 static void
321 rt_xaddrs(cp, cplim, rtinfo)
322 	register caddr_t cp, cplim;
323 	register struct rt_addrinfo *rtinfo;
324 {
325 	register struct sockaddr *sa;
326 	register int i;
327 
328 	bzero(rtinfo->rti_info, sizeof(rtinfo->rti_info));
329 	for (i = 0; (i < RTAX_MAX) && (cp < cplim); i++) {
330 		if ((rtinfo->rti_addrs & (1 << i)) == 0)
331 			continue;
332 		rtinfo->rti_info[i] = sa = (struct sockaddr *)cp;
333 		ADVANCE(cp, sa);
334 	}
335 }
336 
337 /*
338  * Copy data from a buffer back into the indicated mbuf chain,
339  * starting "off" bytes from the beginning, extending the mbuf
340  * chain if necessary.
341  */
342 void
343 m_copyback(m0, off, len, cp)
344 	struct	mbuf *m0;
345 	register int off;
346 	register int len;
347 	caddr_t cp;
348 {
349 	register int mlen;
350 	register struct mbuf *m = m0, *n;
351 	int totlen = 0;
352 
353 	if (m0 == 0)
354 		return;
355 	while (off > (mlen = m->m_len)) {
356 		off -= mlen;
357 		totlen += mlen;
358 		if (m->m_next == 0) {
359 			n = m_getclr(M_DONTWAIT, m->m_type);
360 			if (n == 0)
361 				goto out;
362 			n->m_len = min(MLEN, len + off);
363 			m->m_next = n;
364 		}
365 		m = m->m_next;
366 	}
367 	while (len > 0) {
368 		mlen = min (m->m_len - off, len);
369 		bcopy(cp, off + mtod(m, caddr_t), (unsigned)mlen);
370 		cp += mlen;
371 		len -= mlen;
372 		mlen += off;
373 		off = 0;
374 		totlen += mlen;
375 		if (len == 0)
376 			break;
377 		if (m->m_next == 0) {
378 			n = m_get(M_DONTWAIT, m->m_type);
379 			if (n == 0)
380 				break;
381 			n->m_len = min(MLEN, len);
382 			m->m_next = n;
383 		}
384 		m = m->m_next;
385 	}
386 out:	if (((m = m0)->m_flags & M_PKTHDR) && (m->m_pkthdr.len < totlen))
387 		m->m_pkthdr.len = totlen;
388 }
389 
390 static struct mbuf *
391 rt_msg1(type, rtinfo)
392 	int type;
393 	register struct rt_addrinfo *rtinfo;
394 {
395 	register struct rt_msghdr *rtm;
396 	register struct mbuf *m;
397 	register int i;
398 	register struct sockaddr *sa;
399 	int len, dlen;
400 
401 	m = m_gethdr(M_DONTWAIT, MT_DATA);
402 	if (m == 0)
403 		return (m);
404 	switch (type) {
405 
406 	case RTM_DELADDR:
407 	case RTM_NEWADDR:
408 		len = sizeof(struct ifa_msghdr);
409 		break;
410 
411 	case RTM_IFINFO:
412 		len = sizeof(struct if_msghdr);
413 		break;
414 
415 	default:
416 		len = sizeof(struct rt_msghdr);
417 	}
418 	if (len > MHLEN)
419 		panic("rt_msg1");
420 	m->m_pkthdr.len = m->m_len = len;
421 	m->m_pkthdr.rcvif = 0;
422 	rtm = mtod(m, struct rt_msghdr *);
423 	bzero((caddr_t)rtm, len);
424 	for (i = 0; i < RTAX_MAX; i++) {
425 		if ((sa = rtinfo->rti_info[i]) == NULL)
426 			continue;
427 		rtinfo->rti_addrs |= (1 << i);
428 		dlen = ROUNDUP(sa->sa_len);
429 		m_copyback(m, len, dlen, (caddr_t)sa);
430 		len += dlen;
431 	}
432 	if (m->m_pkthdr.len != len) {
433 		m_freem(m);
434 		return (NULL);
435 	}
436 	rtm->rtm_msglen = len;
437 	rtm->rtm_version = RTM_VERSION;
438 	rtm->rtm_type = type;
439 	return (m);
440 }
441 
442 static int
443 rt_msg2(type, rtinfo, cp, w)
444 	int type;
445 	register struct rt_addrinfo *rtinfo;
446 	caddr_t cp;
447 	struct walkarg *w;
448 {
449 	register int i;
450 	int len, dlen, second_time = 0;
451 	caddr_t cp0;
452 
453 	rtinfo->rti_addrs = 0;
454 again:
455 	switch (type) {
456 
457 	case RTM_DELADDR:
458 	case RTM_NEWADDR:
459 		len = sizeof(struct ifa_msghdr);
460 		break;
461 
462 	case RTM_IFINFO:
463 		len = sizeof(struct if_msghdr);
464 		break;
465 
466 	default:
467 		len = sizeof(struct rt_msghdr);
468 	}
469 	if (cp0 = cp)
470 		cp += len;
471 	for (i = 0; i < RTAX_MAX; i++) {
472 		register struct sockaddr *sa;
473 
474 		if ((sa = rtinfo->rti_info[i]) == 0)
475 			continue;
476 		rtinfo->rti_addrs |= (1 << i);
477 		dlen = ROUNDUP(sa->sa_len);
478 		if (cp) {
479 			bcopy((caddr_t)sa, cp, (unsigned)dlen);
480 			cp += dlen;
481 		}
482 		len += dlen;
483 	}
484 	if (cp == 0 && w != NULL && !second_time) {
485 		register struct walkarg *rw = w;
486 
487 		rw->w_needed += len;
488 		if (rw->w_needed <= 0 && rw->w_where) {
489 			if (rw->w_tmemsize < len) {
490 				if (rw->w_tmem)
491 					free(rw->w_tmem, M_RTABLE);
492 				if (rw->w_tmem = (caddr_t)
493 						malloc(len, M_RTABLE, M_NOWAIT))
494 					rw->w_tmemsize = len;
495 			}
496 			if (rw->w_tmem) {
497 				cp = rw->w_tmem;
498 				second_time = 1;
499 				goto again;
500 			} else
501 				rw->w_where = 0;
502 		}
503 	}
504 	if (cp) {
505 		register struct rt_msghdr *rtm = (struct rt_msghdr *)cp0;
506 
507 		rtm->rtm_version = RTM_VERSION;
508 		rtm->rtm_type = type;
509 		rtm->rtm_msglen = len;
510 	}
511 	return (len);
512 }
513 
514 /*
515  * This routine is called to generate a message from the routing
516  * socket indicating that a redirect has occured, a routing lookup
517  * has failed, or that a protocol has detected timeouts to a particular
518  * destination.
519  */
520 void
521 rt_missmsg(type, rtinfo, flags, error)
522 	int type, flags, error;
523 	register struct rt_addrinfo *rtinfo;
524 {
525 	register struct rt_msghdr *rtm;
526 	register struct mbuf *m;
527 	struct sockaddr *sa = rtinfo->rti_info[RTAX_DST];
528 
529 	if (route_cb.any_count == 0)
530 		return;
531 	m = rt_msg1(type, rtinfo);
532 	if (m == 0)
533 		return;
534 	rtm = mtod(m, struct rt_msghdr *);
535 	rtm->rtm_flags = RTF_DONE | flags;
536 	rtm->rtm_errno = error;
537 	rtm->rtm_addrs = rtinfo->rti_addrs;
538 	route_proto.sp_protocol = sa ? sa->sa_family : 0;
539 	raw_input(m, &route_proto, &route_src, &route_dst);
540 }
541 
542 /*
543  * This routine is called to generate a message from the routing
544  * socket indicating that the status of a network interface has changed.
545  */
546 void
547 rt_ifmsg(ifp)
548 	register struct ifnet *ifp;
549 {
550 	register struct if_msghdr *ifm;
551 	struct mbuf *m;
552 	struct rt_addrinfo info;
553 
554 	if (route_cb.any_count == 0)
555 		return;
556 	bzero((caddr_t)&info, sizeof(info));
557 	m = rt_msg1(RTM_IFINFO, &info);
558 	if (m == 0)
559 		return;
560 	ifm = mtod(m, struct if_msghdr *);
561 	ifm->ifm_index = ifp->if_index;
562 	ifm->ifm_flags = ifp->if_flags;
563 	ifm->ifm_data = ifp->if_data;
564 	ifm->ifm_addrs = 0;
565 	route_proto.sp_protocol = 0;
566 	raw_input(m, &route_proto, &route_src, &route_dst);
567 }
568 
569 /*
570  * This is called to generate messages from the routing socket
571  * indicating a network interface has had addresses associated with it.
572  * if we ever reverse the logic and replace messages TO the routing
573  * socket indicate a request to configure interfaces, then it will
574  * be unnecessary as the routing socket will automatically generate
575  * copies of it.
576  */
577 void
578 rt_newaddrmsg(cmd, ifa, error, rt)
579 	int cmd, error;
580 	register struct ifaddr *ifa;
581 	register struct rtentry *rt;
582 {
583 	struct rt_addrinfo info;
584 	struct sockaddr *sa;
585 	int pass;
586 	struct mbuf *m;
587 	struct ifnet *ifp = ifa->ifa_ifp;
588 
589 	if (route_cb.any_count == 0)
590 		return;
591 	for (pass = 1; pass < 3; pass++) {
592 		bzero((caddr_t)&info, sizeof(info));
593 		if ((cmd == RTM_ADD && pass == 1) ||
594 		    (cmd == RTM_DELETE && pass == 2)) {
595 			register struct ifa_msghdr *ifam;
596 			int ncmd = cmd == RTM_ADD ? RTM_NEWADDR : RTM_DELADDR;
597 
598 			ifaaddr = sa = ifa->ifa_addr;
599 			ifpaddr = ifp->if_addrlist->ifa_addr;
600 			netmask = ifa->ifa_netmask;
601 			brdaddr = ifa->ifa_dstaddr;
602 			if ((m = rt_msg1(ncmd, &info)) == NULL)
603 				continue;
604 			ifam = mtod(m, struct ifa_msghdr *);
605 			ifam->ifam_index = ifp->if_index;
606 			ifam->ifam_metric = ifa->ifa_metric;
607 			ifam->ifam_flags = ifa->ifa_flags;
608 			ifam->ifam_addrs = info.rti_addrs;
609 		}
610 		if ((cmd == RTM_ADD && pass == 2) ||
611 		    (cmd == RTM_DELETE && pass == 1)) {
612 			register struct rt_msghdr *rtm;
613 
614 			if (rt == 0)
615 				continue;
616 			netmask = rt_mask(rt);
617 			dst = sa = rt_key(rt);
618 			gate = rt->rt_gateway;
619 			if ((m = rt_msg1(cmd, &info)) == NULL)
620 				continue;
621 			rtm = mtod(m, struct rt_msghdr *);
622 			rtm->rtm_index = ifp->if_index;
623 			rtm->rtm_flags |= rt->rt_flags;
624 			rtm->rtm_errno = error;
625 			rtm->rtm_addrs = info.rti_addrs;
626 		}
627 		route_proto.sp_protocol = sa ? sa->sa_family : 0;
628 		raw_input(m, &route_proto, &route_src, &route_dst);
629 	}
630 }
631 
632 /*
633  * This is used in dumping the kernel table via sysctl().
634  */
635 int
636 sysctl_dumpentry(rn, w)
637 	struct radix_node *rn;
638 	register struct walkarg *w;
639 {
640 	register struct rtentry *rt = (struct rtentry *)rn;
641 	int error = 0, size;
642 	struct rt_addrinfo info;
643 
644 	if (w->w_op == NET_RT_FLAGS && !(rt->rt_flags & w->w_arg))
645 		return 0;
646 	bzero((caddr_t)&info, sizeof(info));
647 	dst = rt_key(rt);
648 	gate = rt->rt_gateway;
649 	netmask = rt_mask(rt);
650 	genmask = rt->rt_genmask;
651 	size = rt_msg2(RTM_GET, &info, 0, w);
652 	if (w->w_where && w->w_tmem) {
653 		register struct rt_msghdr *rtm = (struct rt_msghdr *)w->w_tmem;
654 
655 		rtm->rtm_flags = rt->rt_flags;
656 		rtm->rtm_use = rt->rt_use;
657 		rtm->rtm_rmx = rt->rt_rmx;
658 		rtm->rtm_index = rt->rt_ifp->if_index;
659 		rtm->rtm_errno = rtm->rtm_pid = rtm->rtm_seq = 0;
660 		rtm->rtm_addrs = info.rti_addrs;
661 		if (error = copyout((caddr_t)rtm, w->w_where, size))
662 			w->w_where = NULL;
663 		else
664 			w->w_where += size;
665 	}
666 	return (error);
667 }
668 
669 int
670 sysctl_iflist(af, w)
671 	int	af;
672 	register struct	walkarg *w;
673 {
674 	register struct ifnet *ifp;
675 	register struct ifaddr *ifa;
676 	struct	rt_addrinfo info;
677 	int	len, error = 0;
678 
679 	bzero((caddr_t)&info, sizeof(info));
680 	for (ifp = ifnet; ifp; ifp = ifp->if_next) {
681 		if (w->w_arg && w->w_arg != ifp->if_index)
682 			continue;
683 		ifa = ifp->if_addrlist;
684 		ifpaddr = ifa->ifa_addr;
685 		len = rt_msg2(RTM_IFINFO, &info, (caddr_t)0, w);
686 		ifpaddr = 0;
687 		if (w->w_where && w->w_tmem) {
688 			register struct if_msghdr *ifm;
689 
690 			ifm = (struct if_msghdr *)w->w_tmem;
691 			ifm->ifm_index = ifp->if_index;
692 			ifm->ifm_flags = ifp->if_flags;
693 			ifm->ifm_data = ifp->if_data;
694 			ifm->ifm_addrs = info.rti_addrs;
695 			if (error = copyout((caddr_t)ifm, w->w_where, len))
696 				return (error);
697 			w->w_where += len;
698 		}
699 		while (ifa = ifa->ifa_next) {
700 			if (af && af != ifa->ifa_addr->sa_family)
701 				continue;
702 			ifaaddr = ifa->ifa_addr;
703 			netmask = ifa->ifa_netmask;
704 			brdaddr = ifa->ifa_dstaddr;
705 			len = rt_msg2(RTM_NEWADDR, &info, 0, w);
706 			if (w->w_where && w->w_tmem) {
707 				register struct ifa_msghdr *ifam;
708 
709 				ifam = (struct ifa_msghdr *)w->w_tmem;
710 				ifam->ifam_index = ifa->ifa_ifp->if_index;
711 				ifam->ifam_flags = ifa->ifa_flags;
712 				ifam->ifam_metric = ifa->ifa_metric;
713 				ifam->ifam_addrs = info.rti_addrs;
714 				if (error = copyout(w->w_tmem, w->w_where, len))
715 					return (error);
716 				w->w_where += len;
717 			}
718 		}
719 		ifaaddr = netmask = brdaddr = 0;
720 	}
721 	return (0);
722 }
723 
724 int
725 sysctl_rtable(name, namelen, where, given, new, newlen)
726 	int	*name;
727 	int	namelen;
728 	caddr_t	where;
729 	size_t	*given;
730 	caddr_t	*new;
731 	size_t	newlen;
732 {
733 	register struct radix_node_head *rnh;
734 	int	i, s, error = EINVAL;
735 	u_char  af;
736 	struct	walkarg w;
737 
738 	if (new)
739 		return (EPERM);
740 	if (namelen != 3)
741 		return (EINVAL);
742 	af = name[0];
743 	Bzero(&w, sizeof(w));
744 	w.w_where = where;
745 	w.w_given = *given;
746 	w.w_needed = 0 - w.w_given;
747 	w.w_op = name[1];
748 	w.w_arg = name[2];
749 
750 	s = splnet();
751 	switch (w.w_op) {
752 
753 	case NET_RT_DUMP:
754 	case NET_RT_FLAGS:
755 		for (i = 1; i <= AF_MAX; i++)
756 			if ((rnh = rt_tables[i]) && (af == 0 || af == i) &&
757 			    (error = rnh->rnh_walktree(rnh,
758 							sysctl_dumpentry, &w)))
759 				break;
760 		break;
761 
762 	case NET_RT_IFLIST:
763 		error = sysctl_iflist(af, &w);
764 	}
765 	splx(s);
766 	if (w.w_tmem)
767 		free(w.w_tmem, M_RTABLE);
768 	w.w_needed += w.w_given;
769 	if (where) {
770 		*given = w.w_where - where;
771 		if (*given < w.w_needed)
772 			return (ENOMEM);
773 	} else {
774 		*given = (11 * w.w_needed) / 10;
775 	}
776 	return (error);
777 }
778 
779 /*
780  * Definitions of protocols supported in the ROUTE domain.
781  */
782 
783 extern	struct domain routedomain;		/* or at least forward */
784 
785 struct protosw routesw[] = {
786 { SOCK_RAW,	&routedomain,	0,		PR_ATOMIC|PR_ADDR,
787   raw_input,	route_output,	raw_ctlinput,	0,
788   route_usrreq,
789   raw_init,	0,		0,		0,
790   sysctl_rtable,
791 }
792 };
793 
794 struct domain routedomain =
795     { PF_ROUTE, "route", route_init, 0, 0,
796       routesw, &routesw[sizeof(routesw)/sizeof(routesw[0])] };
797