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