xref: /netbsd-src/sys/kern/uipc_domain.c (revision 87d689fb734c654d2486f87f7be32f1b53ecdbec)
1 /*	$NetBSD: uipc_domain.c,v 1.101 2018/01/10 02:50:26 ozaki-r Exp $	*/
2 
3 /*
4  * Copyright (c) 1982, 1986, 1993
5  *	The Regents of the University of California.  All rights reserved.
6  *
7  * Redistribution and use in source and binary forms, with or without
8  * modification, are permitted provided that the following conditions
9  * are met:
10  * 1. Redistributions of source code must retain the above copyright
11  *    notice, this list of conditions and the following disclaimer.
12  * 2. Redistributions in binary form must reproduce the above copyright
13  *    notice, this list of conditions and the following disclaimer in the
14  *    documentation and/or other materials provided with the distribution.
15  * 3. Neither the name of the University nor the names of its contributors
16  *    may be used to endorse or promote products derived from this software
17  *    without specific prior written permission.
18  *
19  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
20  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
21  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
22  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
23  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
24  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
25  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
26  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
27  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
28  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
29  * SUCH DAMAGE.
30  *
31  *	@(#)uipc_domain.c	8.3 (Berkeley) 2/14/95
32  */
33 
34 #include <sys/cdefs.h>
35 __KERNEL_RCSID(0, "$NetBSD: uipc_domain.c,v 1.101 2018/01/10 02:50:26 ozaki-r Exp $");
36 
37 #include <sys/param.h>
38 #include <sys/socket.h>
39 #include <sys/socketvar.h>
40 #include <sys/protosw.h>
41 #include <sys/domain.h>
42 #include <sys/mbuf.h>
43 #include <sys/time.h>
44 #include <sys/kernel.h>
45 #include <sys/systm.h>
46 #include <sys/callout.h>
47 #include <sys/queue.h>
48 #include <sys/proc.h>
49 #include <sys/sysctl.h>
50 #include <sys/un.h>
51 #include <sys/unpcb.h>
52 #include <sys/file.h>
53 #include <sys/filedesc.h>
54 #include <sys/kauth.h>
55 
56 #include <netatalk/at.h>
57 #include <net/if_dl.h>
58 #include <netinet/in.h>
59 
60 MALLOC_DECLARE(M_SOCKADDR);
61 
62 MALLOC_DEFINE(M_SOCKADDR, "sockaddr", "socket endpoints");
63 
64 void	pffasttimo(void *);
65 void	pfslowtimo(void *);
66 
67 struct domainhead domains = STAILQ_HEAD_INITIALIZER(domains);
68 static struct domain *domain_array[AF_MAX];
69 
70 callout_t pffasttimo_ch, pfslowtimo_ch;
71 
72 /*
73  * Current time values for fast and slow timeouts.  We can use u_int
74  * relatively safely.  The fast timer will roll over in 27 years and
75  * the slow timer in 68 years.
76  */
77 u_int	pfslowtimo_now;
78 u_int	pffasttimo_now;
79 
80 static struct sysctllog *domain_sysctllog;
81 static void sysctl_net_setup(void);
82 
83 /* ensure successful linkage even without any domains in link sets */
84 static struct domain domain_dummy;
85 __link_set_add_rodata(domains,domain_dummy);
86 
87 static void
88 domain_init_timers(void)
89 {
90 
91 	callout_init(&pffasttimo_ch, CALLOUT_MPSAFE);
92 	callout_init(&pfslowtimo_ch, CALLOUT_MPSAFE);
93 
94 	callout_reset(&pffasttimo_ch, 1, pffasttimo, NULL);
95 	callout_reset(&pfslowtimo_ch, 1, pfslowtimo, NULL);
96 }
97 
98 void
99 domaininit(bool attach)
100 {
101 	__link_set_decl(domains, struct domain);
102 	struct domain * const * dpp;
103 	struct domain *rt_domain = NULL;
104 
105 	sysctl_net_setup();
106 
107 	/*
108 	 * Add all of the domains.  Make sure the PF_ROUTE
109 	 * domain is added last.
110 	 */
111 	if (attach) {
112 		__link_set_foreach(dpp, domains) {
113 			if (*dpp == &domain_dummy)
114 				continue;
115 			if ((*dpp)->dom_family == PF_ROUTE)
116 				rt_domain = *dpp;
117 			else
118 				domain_attach(*dpp);
119 		}
120 		if (rt_domain)
121 			domain_attach(rt_domain);
122 
123 		domain_init_timers();
124 	}
125 }
126 
127 /*
128  * Must be called only if domaininit has been called with false and
129  * after all domains have been attached.
130  */
131 void
132 domaininit_post(void)
133 {
134 
135 	domain_init_timers();
136 }
137 
138 void
139 domain_attach(struct domain *dp)
140 {
141 	const struct protosw *pr;
142 
143 	STAILQ_INSERT_TAIL(&domains, dp, dom_link);
144 	if (dp->dom_family < __arraycount(domain_array))
145 		domain_array[dp->dom_family] = dp;
146 
147 	if (dp->dom_init)
148 		(*dp->dom_init)();
149 
150 #ifdef MBUFTRACE
151 	if (dp->dom_mowner.mo_name[0] == '\0') {
152 		strncpy(dp->dom_mowner.mo_name, dp->dom_name,
153 		    sizeof(dp->dom_mowner.mo_name));
154 		MOWNER_ATTACH(&dp->dom_mowner);
155 	}
156 #endif
157 	for (pr = dp->dom_protosw; pr < dp->dom_protoswNPROTOSW; pr++) {
158 		if (pr->pr_init)
159 			(*pr->pr_init)();
160 	}
161 
162 	if (max_linkhdr < 16)		/* XXX */
163 		max_linkhdr = 16;
164 	max_hdr = max_linkhdr + max_protohdr;
165 	max_datalen = MHLEN - max_hdr;
166 }
167 
168 struct domain *
169 pffinddomain(int family)
170 {
171 	struct domain *dp;
172 
173 	if (family < __arraycount(domain_array) && domain_array[family] != NULL)
174 		return domain_array[family];
175 
176 	DOMAIN_FOREACH(dp)
177 		if (dp->dom_family == family)
178 			return dp;
179 	return NULL;
180 }
181 
182 const struct protosw *
183 pffindtype(int family, int type)
184 {
185 	struct domain *dp;
186 	const struct protosw *pr;
187 
188 	dp = pffinddomain(family);
189 	if (dp == NULL)
190 		return NULL;
191 
192 	for (pr = dp->dom_protosw; pr < dp->dom_protoswNPROTOSW; pr++)
193 		if (pr->pr_type && pr->pr_type == type)
194 			return pr;
195 
196 	return NULL;
197 }
198 
199 const struct protosw *
200 pffindproto(int family, int protocol, int type)
201 {
202 	struct domain *dp;
203 	const struct protosw *pr;
204 	const struct protosw *maybe = NULL;
205 
206 	if (family == 0)
207 		return NULL;
208 
209 	dp = pffinddomain(family);
210 	if (dp == NULL)
211 		return NULL;
212 
213 	for (pr = dp->dom_protosw; pr < dp->dom_protoswNPROTOSW; pr++) {
214 		if ((pr->pr_protocol == protocol) && (pr->pr_type == type))
215 			return pr;
216 
217 		if (type == SOCK_RAW && pr->pr_type == SOCK_RAW &&
218 		    pr->pr_protocol == 0 && maybe == NULL)
219 			maybe = pr;
220 	}
221 	return maybe;
222 }
223 
224 void *
225 sockaddr_addr(struct sockaddr *sa, socklen_t *slenp)
226 {
227 	const struct domain *dom;
228 
229 	if ((dom = pffinddomain(sa->sa_family)) == NULL ||
230 	    dom->dom_sockaddr_addr == NULL)
231 		return NULL;
232 
233 	return (*dom->dom_sockaddr_addr)(sa, slenp);
234 }
235 
236 const void *
237 sockaddr_const_addr(const struct sockaddr *sa, socklen_t *slenp)
238 {
239 	const struct domain *dom;
240 
241 	if ((dom = pffinddomain(sa->sa_family)) == NULL ||
242 	    dom->dom_sockaddr_const_addr == NULL)
243 		return NULL;
244 
245 	return (*dom->dom_sockaddr_const_addr)(sa, slenp);
246 }
247 
248 const struct sockaddr *
249 sockaddr_any_by_family(sa_family_t family)
250 {
251 	const struct domain *dom;
252 
253 	if ((dom = pffinddomain(family)) == NULL)
254 		return NULL;
255 
256 	return dom->dom_sa_any;
257 }
258 
259 const struct sockaddr *
260 sockaddr_any(const struct sockaddr *sa)
261 {
262 	return sockaddr_any_by_family(sa->sa_family);
263 }
264 
265 const void *
266 sockaddr_anyaddr(const struct sockaddr *sa, socklen_t *slenp)
267 {
268 	const struct sockaddr *any;
269 
270 	if ((any = sockaddr_any(sa)) == NULL)
271 		return NULL;
272 
273 	return sockaddr_const_addr(any, slenp);
274 }
275 
276 socklen_t
277 sockaddr_getsize_by_family(sa_family_t af)
278 {
279 	switch (af) {
280 	case AF_INET:
281 		return sizeof(struct sockaddr_in);
282 	case AF_INET6:
283 		return sizeof(struct sockaddr_in6);
284 	case AF_UNIX:
285 		return sizeof(struct sockaddr_un);
286 	case AF_LINK:
287 		return sizeof(struct sockaddr_dl);
288 	case AF_APPLETALK:
289 		return sizeof(struct sockaddr_at);
290 	default:
291 #ifdef DIAGNOSTIC
292 		printf("%s: Unhandled address family=%hhu\n", __func__, af);
293 #endif
294 		return 0;
295 	}
296 }
297 
298 #ifdef DIAGNOSTIC
299 static void
300 sockaddr_checklen(const struct sockaddr *sa)
301 {
302 	// Can't tell how much was allocated, if it was allocated.
303 	if (sa->sa_family == AF_LINK)
304 		return;
305 
306 	socklen_t len = sockaddr_getsize_by_family(sa->sa_family);
307 	if (len == 0 || len == sa->sa_len)
308 		return;
309 
310 	char buf[512];
311 	sockaddr_format(sa, buf, sizeof(buf));
312 	printf("%s: %p bad len af=%hhu socklen=%hhu len=%u [%s]\n",
313 	    __func__, sa, sa->sa_family, sa->sa_len, (unsigned)len, buf);
314 }
315 #else
316 #define sockaddr_checklen(sa) ((void)0)
317 #endif
318 
319 struct sockaddr *
320 sockaddr_alloc(sa_family_t af, socklen_t socklen, int flags)
321 {
322 	struct sockaddr *sa;
323 	socklen_t reallen = MAX(socklen, offsetof(struct sockaddr, sa_data[0]));
324 
325 	if ((sa = malloc(reallen, M_SOCKADDR, flags)) == NULL)
326 		return NULL;
327 
328 	sa->sa_family = af;
329 	sa->sa_len = reallen;
330 	sockaddr_checklen(sa);
331 	return sa;
332 }
333 
334 struct sockaddr *
335 sockaddr_copy(struct sockaddr *dst, socklen_t socklen,
336     const struct sockaddr *src)
337 {
338 	if (__predict_false(socklen < src->sa_len)) {
339 		panic("%s: source too long, %d < %d bytes", __func__, socklen,
340 		    src->sa_len);
341 	}
342 	sockaddr_checklen(src);
343 	return memcpy(dst, src, src->sa_len);
344 }
345 
346 struct sockaddr *
347 sockaddr_externalize(struct sockaddr *dst, socklen_t socklen,
348     const struct sockaddr *src)
349 {
350 	struct domain *dom;
351 
352 	dom = pffinddomain(src->sa_family);
353 
354 	if (dom != NULL && dom->dom_sockaddr_externalize != NULL)
355 		return (*dom->dom_sockaddr_externalize)(dst, socklen, src);
356 
357 	return sockaddr_copy(dst, socklen, src);
358 }
359 
360 int
361 sockaddr_cmp(const struct sockaddr *sa1, const struct sockaddr *sa2)
362 {
363 	int len, rc;
364 	struct domain *dom;
365 
366 	if (sa1->sa_family != sa2->sa_family)
367 		return sa1->sa_family - sa2->sa_family;
368 
369 	dom = pffinddomain(sa1->sa_family);
370 
371 	if (dom != NULL && dom->dom_sockaddr_cmp != NULL)
372 		return (*dom->dom_sockaddr_cmp)(sa1, sa2);
373 
374 	len = MIN(sa1->sa_len, sa2->sa_len);
375 
376 	if (dom == NULL || dom->dom_sa_cmplen == 0) {
377 		if ((rc = memcmp(sa1, sa2, len)) != 0)
378 			return rc;
379 		return sa1->sa_len - sa2->sa_len;
380 	}
381 
382 	if ((rc = memcmp((const char *)sa1 + dom->dom_sa_cmpofs,
383 		         (const char *)sa2 + dom->dom_sa_cmpofs,
384 			 MIN(dom->dom_sa_cmplen,
385 			     len - MIN(len, dom->dom_sa_cmpofs)))) != 0)
386 		return rc;
387 
388 	return MIN(dom->dom_sa_cmplen + dom->dom_sa_cmpofs, sa1->sa_len) -
389 	       MIN(dom->dom_sa_cmplen + dom->dom_sa_cmpofs, sa2->sa_len);
390 }
391 
392 struct sockaddr *
393 sockaddr_dup(const struct sockaddr *src, int flags)
394 {
395 	struct sockaddr *dst;
396 
397 	if ((dst = sockaddr_alloc(src->sa_family, src->sa_len, flags)) == NULL)
398 		return NULL;
399 
400 	return sockaddr_copy(dst, dst->sa_len, src);
401 }
402 
403 void
404 sockaddr_free(struct sockaddr *sa)
405 {
406 	free(sa, M_SOCKADDR);
407 }
408 
409 static int
410 sun_print(char *buf, size_t len, const void *v)
411 {
412 	const struct sockaddr_un *sun = v;
413 	return snprintf(buf, len, "%s", sun->sun_path);
414 }
415 
416 int
417 sockaddr_format(const struct sockaddr *sa, char *buf, size_t len)
418 {
419 	size_t plen = 0;
420 
421 	if (sa == NULL)
422 		return strlcpy(buf, "(null)", len);
423 
424 	switch (sa->sa_family) {
425 	case AF_LOCAL:
426 		plen = strlcpy(buf, "unix: ", len);
427 		break;
428 	case AF_INET:
429 		plen = strlcpy(buf, "inet: ", len);
430 		break;
431 	case AF_INET6:
432 		plen = strlcpy(buf, "inet6: ", len);
433 		break;
434 	case AF_LINK:
435 		plen = strlcpy(buf, "link: ", len);
436 		break;
437 	case AF_APPLETALK:
438 		plen = strlcpy(buf, "atalk: ", len);
439 		break;
440 	default:
441 		return snprintf(buf, len, "(unknown socket family %d)",
442 		    (int)sa->sa_family);
443 	}
444 
445 	buf += plen;
446 	if (plen > len)
447 		len = 0;
448 	else
449 		len -= plen;
450 
451 	switch (sa->sa_family) {
452 	case AF_LOCAL:
453 		return sun_print(buf, len, sa);
454 	case AF_INET:
455 		return sin_print(buf, len, sa);
456 	case AF_INET6:
457 		return sin6_print(buf, len, sa);
458 	case AF_LINK:
459 		return sdl_print(buf, len, sa);
460 	case AF_APPLETALK:
461 		return sat_print(buf, len, sa);
462 	default:
463 		panic("bad family %hhu", sa->sa_family);
464 	}
465 }
466 
467 /*
468  * sysctl helper to stuff PF_LOCAL pcbs into sysctl structures
469  */
470 static void
471 sysctl_dounpcb(struct kinfo_pcb *pcb, const struct socket *so)
472 {
473 	struct unpcb *unp = sotounpcb(so);
474 	struct sockaddr_un *un = unp->unp_addr;
475 
476 	memset(pcb, 0, sizeof(*pcb));
477 
478 	pcb->ki_family = so->so_proto->pr_domain->dom_family;
479 	pcb->ki_type = so->so_proto->pr_type;
480 	pcb->ki_protocol = so->so_proto->pr_protocol;
481 	pcb->ki_pflags = unp->unp_flags;
482 
483 	pcb->ki_pcbaddr = PTRTOUINT64(unp);
484 	/* pcb->ki_ppcbaddr = unp has no ppcb... */
485 	pcb->ki_sockaddr = PTRTOUINT64(so);
486 
487 	pcb->ki_sostate = so->so_state;
488 	/* pcb->ki_prstate = unp has no state... */
489 
490 	pcb->ki_rcvq = so->so_rcv.sb_cc;
491 	pcb->ki_sndq = so->so_snd.sb_cc;
492 
493 	un = (struct sockaddr_un *)pcb->ki_spad;
494 	/*
495 	 * local domain sockets may bind without having a local
496 	 * endpoint.  bleah!
497 	 */
498 	if (unp->unp_addr != NULL) {
499 		/*
500 		 * We've added one to sun_len when allocating to
501 		 * hold terminating NUL which we want here.  See
502 		 * makeun().
503 		 */
504 		memcpy(un, unp->unp_addr,
505 		    min(sizeof(pcb->ki_spad), unp->unp_addr->sun_len + 1));
506 	}
507 	else {
508 		un->sun_len = offsetof(struct sockaddr_un, sun_path);
509 		un->sun_family = pcb->ki_family;
510 	}
511 	if (unp->unp_conn != NULL) {
512 		un = (struct sockaddr_un *)pcb->ki_dpad;
513 		if (unp->unp_conn->unp_addr != NULL) {
514 			memcpy(un, unp->unp_conn->unp_addr,
515 			    min(sizeof(pcb->ki_dpad), unp->unp_conn->unp_addr->sun_len + 1));
516 		}
517 		else {
518 			un->sun_len = offsetof(struct sockaddr_un, sun_path);
519 			un->sun_family = pcb->ki_family;
520 		}
521 	}
522 
523 	pcb->ki_inode = unp->unp_ino;
524 	pcb->ki_vnode = PTRTOUINT64(unp->unp_vnode);
525 	pcb->ki_conn = PTRTOUINT64(unp->unp_conn);
526 	pcb->ki_refs = PTRTOUINT64(unp->unp_refs);
527 	pcb->ki_nextref = PTRTOUINT64(unp->unp_nextref);
528 }
529 
530 static int
531 sysctl_unpcblist(SYSCTLFN_ARGS)
532 {
533 	struct file *fp, *dfp;
534 	struct socket *so;
535 	struct kinfo_pcb pcb;
536 	char *dp;
537 	size_t len, needed, elem_size, out_size;
538 	int error, elem_count, pf, type;
539 
540 	if (namelen == 1 && name[0] == CTL_QUERY)
541 		return sysctl_query(SYSCTLFN_CALL(rnode));
542 
543 	if (namelen != 4)
544 		return EINVAL;
545 
546 	if (oldp != NULL) {
547 		len = *oldlenp;
548 		elem_size = name[2];
549 		elem_count = name[3];
550 		if (elem_size != sizeof(pcb))
551 			return EINVAL;
552 	} else {
553 		len = 0;
554 		elem_size = sizeof(pcb);
555 		elem_count = INT_MAX;
556 	}
557 	error = 0;
558 	dp = oldp;
559 	out_size = elem_size;
560 	needed = 0;
561 
562 	if (name - oname != 4)
563 		return EINVAL;
564 
565 	pf = oname[1];
566 	type = oname[2];
567 
568 	/*
569 	 * allocate dummy file descriptor to make position in list.
570 	 */
571 	sysctl_unlock();
572 	if ((dfp = fgetdummy()) == NULL) {
573 	 	sysctl_relock();
574 		return ENOMEM;
575 	}
576 
577 	/*
578 	 * there's no "list" of local domain sockets, so we have
579 	 * to walk the file list looking for them.  :-/
580 	 */
581 	mutex_enter(&filelist_lock);
582 	LIST_FOREACH(fp, &filehead, f_list) {
583 		if (fp->f_count == 0 || fp->f_type != DTYPE_SOCKET ||
584 		    fp->f_socket == NULL)
585 			continue;
586 		so = fp->f_socket;
587 		if (so->so_type != type)
588 			continue;
589 		if (so->so_proto->pr_domain->dom_family != pf)
590 			continue;
591 		if (kauth_authorize_network(l->l_cred, KAUTH_NETWORK_SOCKET,
592 		    KAUTH_REQ_NETWORK_SOCKET_CANSEE, so, NULL, NULL) != 0)
593 			continue;
594 		if (len >= elem_size && elem_count > 0) {
595 			mutex_enter(&fp->f_lock);
596 			/*
597 			 * Do not add references, if the count reached 0.
598 			 * Since the check above has been performed without
599 			 * locking, it must be rechecked here as a concurrent
600 			 * closef could have reduced it.
601 			 */
602 			if (fp->f_count == 0) {
603 				mutex_exit(&fp->f_lock);
604 				continue;
605 			}
606 			fp->f_count++;
607 			mutex_exit(&fp->f_lock);
608 			LIST_INSERT_AFTER(fp, dfp, f_list);
609 			mutex_exit(&filelist_lock);
610 			sysctl_dounpcb(&pcb, so);
611 			error = copyout(&pcb, dp, out_size);
612 			closef(fp);
613 			mutex_enter(&filelist_lock);
614 			LIST_REMOVE(dfp, f_list);
615 			if (error)
616 				break;
617 			dp += elem_size;
618 			len -= elem_size;
619 		}
620 		needed += elem_size;
621 		if (elem_count > 0 && elem_count != INT_MAX)
622 			elem_count--;
623 	}
624 	mutex_exit(&filelist_lock);
625 	fputdummy(dfp);
626  	*oldlenp = needed;
627 	if (oldp == NULL)
628 		*oldlenp += PCB_SLOP * sizeof(struct kinfo_pcb);
629  	sysctl_relock();
630 
631 	return error;
632 }
633 
634 static void
635 sysctl_net_setup(void)
636 {
637 
638 	KASSERT(domain_sysctllog == NULL);
639 	sysctl_createv(&domain_sysctllog, 0, NULL, NULL,
640 		       CTLFLAG_PERMANENT,
641 		       CTLTYPE_NODE, "local",
642 		       SYSCTL_DESCR("PF_LOCAL related settings"),
643 		       NULL, 0, NULL, 0,
644 		       CTL_NET, PF_LOCAL, CTL_EOL);
645 	sysctl_createv(&domain_sysctllog, 0, NULL, NULL,
646 		       CTLFLAG_PERMANENT,
647 		       CTLTYPE_NODE, "stream",
648 		       SYSCTL_DESCR("SOCK_STREAM settings"),
649 		       NULL, 0, NULL, 0,
650 		       CTL_NET, PF_LOCAL, SOCK_STREAM, CTL_EOL);
651 	sysctl_createv(&domain_sysctllog, 0, NULL, NULL,
652 		       CTLFLAG_PERMANENT,
653 		       CTLTYPE_NODE, "seqpacket",
654 		       SYSCTL_DESCR("SOCK_SEQPACKET settings"),
655 		       NULL, 0, NULL, 0,
656 		       CTL_NET, PF_LOCAL, SOCK_SEQPACKET, CTL_EOL);
657 	sysctl_createv(&domain_sysctllog, 0, NULL, NULL,
658 		       CTLFLAG_PERMANENT,
659 		       CTLTYPE_NODE, "dgram",
660 		       SYSCTL_DESCR("SOCK_DGRAM settings"),
661 		       NULL, 0, NULL, 0,
662 		       CTL_NET, PF_LOCAL, SOCK_DGRAM, CTL_EOL);
663 
664 	sysctl_createv(&domain_sysctllog, 0, NULL, NULL,
665 		       CTLFLAG_PERMANENT,
666 		       CTLTYPE_STRUCT, "pcblist",
667 		       SYSCTL_DESCR("SOCK_STREAM protocol control block list"),
668 		       sysctl_unpcblist, 0, NULL, 0,
669 		       CTL_NET, PF_LOCAL, SOCK_STREAM, CTL_CREATE, CTL_EOL);
670 	sysctl_createv(&domain_sysctllog, 0, NULL, NULL,
671 		       CTLFLAG_PERMANENT,
672 		       CTLTYPE_STRUCT, "pcblist",
673 		       SYSCTL_DESCR("SOCK_SEQPACKET protocol control "
674 				    "block list"),
675 		       sysctl_unpcblist, 0, NULL, 0,
676 		       CTL_NET, PF_LOCAL, SOCK_SEQPACKET, CTL_CREATE, CTL_EOL);
677 	sysctl_createv(&domain_sysctllog, 0, NULL, NULL,
678 		       CTLFLAG_PERMANENT,
679 		       CTLTYPE_STRUCT, "pcblist",
680 		       SYSCTL_DESCR("SOCK_DGRAM protocol control block list"),
681 		       sysctl_unpcblist, 0, NULL, 0,
682 		       CTL_NET, PF_LOCAL, SOCK_DGRAM, CTL_CREATE, CTL_EOL);
683 }
684 
685 void
686 pfctlinput(int cmd, const struct sockaddr *sa)
687 {
688 	struct domain *dp;
689 	const struct protosw *pr;
690 
691 	DOMAIN_FOREACH(dp) {
692 		for (pr = dp->dom_protosw; pr < dp->dom_protoswNPROTOSW; pr++) {
693 			if (pr->pr_ctlinput != NULL)
694 				(*pr->pr_ctlinput)(cmd, sa, NULL);
695 		}
696 	}
697 }
698 
699 void
700 pfctlinput2(int cmd, const struct sockaddr *sa, void *ctlparam)
701 {
702 	struct domain *dp;
703 	const struct protosw *pr;
704 
705 	if (sa == NULL)
706 		return;
707 
708 	DOMAIN_FOREACH(dp) {
709 		/*
710 		 * the check must be made by xx_ctlinput() anyways, to
711 		 * make sure we use data item pointed to by ctlparam in
712 		 * correct way.  the following check is made just for safety.
713 		 */
714 		if (dp->dom_family != sa->sa_family)
715 			continue;
716 
717 		for (pr = dp->dom_protosw; pr < dp->dom_protoswNPROTOSW; pr++) {
718 			if (pr->pr_ctlinput != NULL)
719 				(*pr->pr_ctlinput)(cmd, sa, ctlparam);
720 		}
721 	}
722 }
723 
724 void
725 pfslowtimo(void *arg)
726 {
727 	struct domain *dp;
728 	const struct protosw *pr;
729 
730 	pfslowtimo_now++;
731 
732 	DOMAIN_FOREACH(dp) {
733 		for (pr = dp->dom_protosw; pr < dp->dom_protoswNPROTOSW; pr++)
734 			if (pr->pr_slowtimo)
735 				(*pr->pr_slowtimo)();
736 	}
737 	callout_schedule(&pfslowtimo_ch, hz / PR_SLOWHZ);
738 }
739 
740 void
741 pffasttimo(void *arg)
742 {
743 	struct domain *dp;
744 	const struct protosw *pr;
745 
746 	pffasttimo_now++;
747 
748 	DOMAIN_FOREACH(dp) {
749 		for (pr = dp->dom_protosw; pr < dp->dom_protoswNPROTOSW; pr++)
750 			if (pr->pr_fasttimo)
751 				(*pr->pr_fasttimo)();
752 	}
753 	callout_schedule(&pffasttimo_ch, hz / PR_FASTHZ);
754 }
755