xref: /netbsd-src/usr.bin/netstat/main.c (revision b1c86f5f087524e68db12794ee9c3e3da1ab17a0)
1 /*	$NetBSD: main.c,v 1.76 2010/06/29 12:38:12 kefren Exp $	*/
2 
3 /*
4  * Copyright (c) 1983, 1988, 1993
5  *	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 
32 #include <sys/cdefs.h>
33 #ifndef lint
34 __COPYRIGHT("@(#) Copyright (c) 1983, 1988, 1993\
35  Regents of the University of California.  All rights reserved.");
36 #endif /* not lint */
37 
38 #ifndef lint
39 #if 0
40 static char sccsid[] = "from: @(#)main.c	8.4 (Berkeley) 3/1/94";
41 #else
42 __RCSID("$NetBSD: main.c,v 1.76 2010/06/29 12:38:12 kefren Exp $");
43 #endif
44 #endif /* not lint */
45 
46 #include <sys/param.h>
47 #include <sys/file.h>
48 #include <sys/protosw.h>
49 #include <sys/socket.h>
50 
51 #include <net/if.h>
52 #include <netinet/in.h>
53 
54 #include <ctype.h>
55 #include <err.h>
56 #include <errno.h>
57 #include <kvm.h>
58 #include <limits.h>
59 #include <netdb.h>
60 #include <nlist.h>
61 #include <paths.h>
62 #include <stdio.h>
63 #include <stdlib.h>
64 #include <string.h>
65 #include <unistd.h>
66 #include "netstat.h"
67 
68 struct nlist nl[] = {
69 #define	N_MBSTAT	0
70 	{ "_mbstat", 0, 0, 0, 0 },
71 #define	N_IPSTAT	1
72 	{ "_ipstat", 0, 0, 0, 0 },	/* not available via kvm */
73 #define	N_TCBTABLE	2
74 	{ "_tcbtable", 0, 0, 0, 0 },
75 #define	N_TCPSTAT	3
76 	{ "_tcpstat", 0, 0, 0, 0 },	/* not available via kvm */
77 #define	N_UDBTABLE	4
78 	{ "_udbtable", 0, 0, 0, 0 },
79 #define	N_UDPSTAT	5
80 	{ "_udpstat", 0, 0, 0, 0 },	/* not available via kvm */
81 #define	N_IFNET		6
82 	{ "_ifnet", 0, 0, 0, 0 },
83 #define	N_IMP		7
84 	{ "_imp_softc", 0, 0, 0, 0 },
85 #define	N_ICMPSTAT	8
86 	{ "_icmpstat", 0, 0, 0, 0 },	/* not available via kvm */
87 #define	N_RTSTAT	9
88 	{ "_rtstat", 0, 0, 0, 0 },
89 #define	N_UNIXSW	10
90 	{ "_unixsw", 0, 0, 0, 0 },
91 #define	N_CLNPSTAT	11
92 	{ "_clnp_stat", 0, 0, 0, 0 },
93 #define	IN_NOTUSED	12
94 	{ "_tp_inpcb", 0, 0, 0, 0 },
95 #define	ISO_TP		13
96 	{ "_tp_refinfo", 0, 0, 0, 0 },
97 #define	N_TPSTAT	14
98 	{ "_tp_stat", 0, 0, 0, 0 },
99 #define	N_ESISSTAT	15
100 	{ "_esis_stat", 0, 0, 0, 0 },
101 #define N_NIMP		16
102 	{ "_nimp", 0, 0, 0, 0 },
103 #define N_RTREE		17
104 	{ "_rt_tables", 0, 0, 0, 0 },
105 #define N_CLTP		18
106 	{ "_cltb", 0, 0, 0, 0 },
107 #define N_CLTPSTAT	19
108 	{ "_cltpstat", 0, 0, 0, 0 },
109 #define	N_NFILE		20
110 	{ "_nfile", 0, 0, 0, 0 },
111 #define	N_FILE		21
112 	{ "_file", 0, 0, 0, 0 },
113 #define N_IGMPSTAT	22
114 	{ "_igmpstat", 0, 0, 0, 0 },	/* not available via kvm */
115 #define N_MRTPROTO	23
116 	{ "_ip_mrtproto", 0, 0, 0, 0 },
117 #define N_MRTSTAT	24
118 	{ "_mrtstat", 0, 0, 0, 0 },
119 #define N_MFCHASHTBL	25
120 	{ "_mfchashtbl", 0, 0, 0, 0 },
121 #define	N_MFCHASH	26
122 	{ "_mfchash", 0, 0, 0, 0 },
123 #define N_VIFTABLE	27
124 	{ "_viftable", 0, 0, 0, 0 },
125 #define N_MSIZE		28
126 	{ "_msize", 0, 0, 0, 0 },
127 #define N_MCLBYTES	29
128 	{ "_mclbytes", 0, 0, 0, 0 },
129 #define N_DDPSTAT	30
130 	{ "_ddpstat", 0, 0, 0, 0 },	/* not available via kvm */
131 #define N_DDPCB		31
132 	{ "_ddpcb", 0, 0, 0, 0 },
133 #define N_MBPOOL	32
134 	{ "_mbpool", 0, 0, 0, 0 },
135 #define N_MCLPOOL	33
136 	{ "_mclpool", 0, 0, 0, 0 },
137 #define N_DIVPCB	34
138 	{ "_divcb", 0, 0, 0, 0 },
139 #define N_DIVSTAT	35
140 	{ "_divstat", 0, 0, 0, 0 },
141 #define N_IP6STAT	36
142 	{ "_ip6stat", 0, 0, 0, 0 },	/* not available via kvm */
143 #define N_TCP6STAT	37
144 	{ "_tcp6stat", 0, 0, 0, 0 },	/* not available via kvm */
145 #define N_UDP6STAT	38
146 	{ "_udp6stat", 0, 0, 0, 0 },	/* not available via kvm */
147 #define N_ICMP6STAT	39
148 	{ "_icmp6stat", 0, 0, 0, 0 },	/* not available via kvm */
149 #define N_IPSECSTAT	40
150 	{ "_ipsecstat", 0, 0, 0, 0 },	/* not available via kvm */
151 #define N_IPSEC6STAT	41
152 	{ "_ipsec6stat", 0, 0, 0, 0 },	/* not available via kvm */
153 #define N_PIM6STAT	42
154 	{ "_pim6stat", 0, 0, 0, 0 },	/* not available via kvm */
155 #define N_MRT6PROTO	43
156 	{ "_ip6_mrtproto", 0, 0, 0, 0 },
157 #define N_MRT6STAT	44
158 	{ "_mrt6stat", 0, 0, 0, 0 },
159 #define N_MF6CTABLE	45
160 	{ "_mf6ctable", 0, 0, 0, 0 },
161 #define N_MIF6TABLE	46
162 	{ "_mif6table", 0, 0, 0, 0 },
163 #define N_PFKEYSTAT	47
164 	{ "_pfkeystat", 0, 0, 0, 0 },	/* not available via kvm */
165 #define N_ARPSTAT	48
166 	{ "_arpstat", 0, 0, 0, 0 },	/* not available via kvm */
167 #define N_RIP6STAT	49
168 	{ "_rip6stat", 0, 0, 0, 0 },	/* not available via kvm */
169 #define	N_ARPINTRQ	50
170 	{ "_arpintrq", 0, 0, 0, 0 },
171 #define	N_IPINTRQ	51
172 	{ "_ipintrq", 0, 0, 0, 0 },
173 #define	N_IP6INTRQ	52
174 	{ "_ip6intrq", 0, 0, 0, 0 },
175 #define	N_ATINTRQ1	53
176 	{ "_atintrq1", 0, 0, 0, 0 },
177 #define	N_ATINTRQ2	54
178 	{ "_atintrq2", 0, 0, 0, 0 },
179 #define	N_NSINTRQ	55
180 	{ "_nsintrq", 0, 0, 0, 0 },
181 #define	N_CLNLINTRQ	56
182 	{ "_clnlintrq", 0, 0, 0, 0 },
183 #define	N_LLCINTRQ	57
184 	{ "_llcintrq", 0, 0, 0, 0 },
185 #define	N_HDINTRQ	58
186 	{ "_hdintrq", 0, 0, 0, 0 },
187 #define	N_NATMINTRQ	59
188 	{ "_natmintrq", 0, 0, 0, 0 },
189 #define	N_PPPOEDISCINQ	61
190 	{ "_ppoediscinq", 0, 0, 0, 0 },
191 #define	N_PPPOEINQ	61
192 	{ "_ppoeinq", 0, 0, 0, 0 },
193 #define	N_PKINTRQ	62
194 	{ "_pkintrq", 0, 0, 0, 0 },
195 #define	N_HARDCLOCK_TICKS 63
196 	{ "_hardclock_ticks", 0, 0, 0, 0 },
197 #define N_PIMSTAT	64
198 	{ "_pimstat", 0, 0, 0, 0 },
199 #define N_CARPSTAT	65
200 	{ "_carpstats", 0, 0, 0, 0 },	/* not available via kvm */
201 #define N_PFSYNCSTAT	66
202 	{ "_pfsyncstats", 0, 0, 0, 0},  /* not available via kvm */
203 	{ "", 0, 0, 0, 0 },
204 };
205 
206 struct protox {
207 	u_char	pr_index;		/* index into nlist of cb head */
208 	u_char	pr_sindex;		/* index into nlist of stat block */
209 	u_char	pr_wanted;		/* 1 if wanted, 0 otherwise */
210 	void	(*pr_cblocks)		/* control blocks printing routine */
211 			__P((u_long, const char *));
212 	void	(*pr_stats)		/* statistics printing routine */
213 			__P((u_long, const char *));
214 	void	(*pr_istats)
215 			__P((const char *));	/* per/if statistics printing routine */
216 	void	(*pr_dump)		/* PCB state dump routine */
217 			__P((u_long));
218 	const char *pr_name;		/* well-known name */
219 } protox[] = {
220 	{ N_TCBTABLE,	N_TCPSTAT,	1,	protopr,
221 	  tcp_stats,	NULL,		tcp_dump,	"tcp" },
222 	{ N_UDBTABLE,	N_UDPSTAT,	1,	protopr,
223 	  udp_stats,	NULL,		0,	"udp" },
224 	{ -1,		N_IPSTAT,	1,	0,
225 	  ip_stats,	NULL,		0,	"ip" },
226 	{ -1,		N_ICMPSTAT,	1,	0,
227 	  icmp_stats,	NULL,		0,	"icmp" },
228 	{ -1,		N_IGMPSTAT,	1,	0,
229 	  igmp_stats,	NULL,		0,	"igmp" },
230 	{ -1,		N_CARPSTAT,	1,	0,
231 	  carp_stats,	NULL,		0,	"carp" },
232 #ifdef IPSEC
233 	{ -1,		N_IPSECSTAT,	1,	0,
234 	  ipsec_switch,	NULL,		0,	"ipsec" },
235 #endif
236 	{ -1,		N_PIMSTAT,	1,	0,
237 	  pim_stats,	NULL,		0,	"pim" },
238 	{ -1,		N_PFSYNCSTAT,  1,  0,
239 	  pfsync_stats,  NULL,		0,  "pfsync" },
240 	{ -1,		-1,		0,	0,
241 	  0,		NULL,		0,	0 }
242 };
243 
244 #ifdef INET6
245 struct protox ip6protox[] = {
246 	{ -1,		N_IP6STAT,	1,	0,
247 	  ip6_stats,	ip6_ifstats,	0,	"ip6" },
248 	{ -1,		N_ICMP6STAT,	1,	0,
249 	  icmp6_stats,	icmp6_ifstats,	0,	"icmp6" },
250 #ifdef TCP6
251 	{ N_TCBTABLE,	N_TCP6STAT,	1,	ip6protopr,
252 	  tcp6_stats,	NULL,		tcp6_dump,	"tcp6" },
253 #else
254 	{ N_TCBTABLE,	N_TCP6STAT,	1,	ip6protopr,
255 	  tcp_stats,	NULL,		tcp_dump,	"tcp6" },
256 #endif
257 	{ N_UDBTABLE,	N_UDP6STAT,	1,	ip6protopr,
258 	  udp6_stats,	NULL,		0,	"udp6" },
259 #ifdef IPSEC
260 	{ -1,		N_IPSEC6STAT,	1,	0,
261 	  ipsec_switch,	NULL,		0,	"ipsec6" },
262 #endif
263 	{ -1,		N_PIM6STAT,	1,	0,
264 	  pim6_stats,	NULL,		0,	"pim6" },
265 	{ -1,		N_RIP6STAT,	1,	0,
266 	  rip6_stats,	NULL,		0,	"rip6" },
267 	{ -1,		-1,		0,	0,
268 	  0,		NULL,		0,	0 }
269 };
270 #endif
271 
272 struct protox arpprotox[] = {
273 	{ -1,		N_ARPSTAT,	1,	0,
274 	  arp_stats,	NULL,		0,	"arp" },
275 	{ -1,		-1,		0,	0,
276 	  0,		NULL,		0,	0 }
277 };
278 
279 #ifdef IPSEC
280 struct protox pfkeyprotox[] = {
281 	{ -1,		N_PFKEYSTAT,	1,	0,
282 	  pfkey_stats,	NULL,		0,	"pfkey" },
283 	{ -1,		-1,		0,	0,
284 	  0,		NULL,		0,	0 }
285 };
286 #endif
287 
288 #ifndef SMALL
289 struct protox atalkprotox[] = {
290 	{ N_DDPCB,	N_DDPSTAT,	1,	atalkprotopr,
291 	  ddp_stats,	NULL,		0,	"ddp" },
292 	{ -1,		-1,		0,	0,
293 	  0,		NULL,		0,	NULL }
294 };
295 
296 struct protox isoprotox[] = {
297 	{ ISO_TP,	N_TPSTAT,	1,	iso_protopr,
298 	  tp_stats,	NULL,		0,	"tp" },
299 	{ N_CLTP,	N_CLTPSTAT,	1,	iso_protopr,
300 	  cltp_stats,	NULL,		0,	"cltp" },
301 	{ -1,		N_CLNPSTAT,	1,	 0,
302 	  clnp_stats,	NULL,		0,	"clnp"},
303 	{ -1,		N_ESISSTAT,	1,	 0,
304 	  esis_stats,	NULL,		0,	"esis"},
305 	{ -1,		-1,		0,	0,
306 	  0,		NULL,		0,	0 }
307 };
308 #endif
309 
310 struct protox *protoprotox[] = { protox,
311 #ifdef INET6
312 				 ip6protox,
313 #endif
314 				 arpprotox,
315 #ifdef IPSEC
316 				 pfkeyprotox,
317 #endif
318 #ifndef SMALL
319 				 atalkprotox,
320 				 isoprotox,
321 #endif
322 				 NULL };
323 
324 const struct softintrq {
325 	const char *siq_name;
326 	int siq_index;
327 } softintrq[] = {
328 	{ "arpintrq", N_ARPINTRQ },
329 	{ "ipintrq", N_IPINTRQ },
330 	{ "ip6intrq", N_IP6INTRQ },
331 	{ "atintrq1", N_ATINTRQ1 },
332 	{ "atintrq2", N_ATINTRQ2 },
333 	{ "clnlintrq", N_CLNLINTRQ },
334 	{ "llcintrq", N_LLCINTRQ },
335 	{ "hdintrq", N_HDINTRQ },
336 	{ "natmintrq", N_NATMINTRQ },
337 	{ "ppoediscinq", N_PPPOEDISCINQ },
338 	{ "ppoeinq", N_PPPOEINQ },
339 	{ "pkintrq", N_PKINTRQ },
340 	{ NULL, -1 },
341 };
342 
343 int main __P((int, char *[]));
344 static void printproto __P((struct protox *, const char *));
345 static void print_softintrq __P((void));
346 static void usage __P((void));
347 static struct protox *name2protox __P((const char *));
348 static struct protox *knownname __P((const char *));
349 static void prepare(char *, char *, struct protox *tp);
350 
351 kvm_t *kvmd;
352 gid_t egid;
353 int interval;	/* repeat interval for i/f stats */
354 
355 void
356 prepare(char *nlistf, char *memf, struct protox *tp)
357 {
358 	char buf[_POSIX2_LINE_MAX];
359 
360 	/*
361 	 * Try to figure out if we can use sysctl or not.
362 	 */
363 	if (nlistf != NULL && memf != NULL) {
364 		/* Of course, we can't use sysctl with dumps. */
365 		if (force_sysctl)
366 			errx(EXIT_FAILURE, "can't use sysctl with dumps");
367 
368 		/* If we have -M and -N, we're not dealing with live memory. */
369 		use_sysctl = 0;
370 	} else if (qflag ||
371 		   rflag ||
372 		   iflag ||
373 #ifndef SMALL
374 		   gflag ||
375 		   (pflag && tp->pr_sindex == N_TPSTAT) ||
376 		   (pflag && tp->pr_sindex == N_CLTPSTAT) ||
377 		   (pflag && tp->pr_sindex == N_CLNPSTAT) ||
378 		   (pflag && tp->pr_sindex == N_ESISSTAT) ||
379 #endif
380 		   (pflag && tp->pr_sindex == N_PIMSTAT) ||
381 		   Pflag) {
382 		/* These flags are not yet supported via sysctl(3). */
383 		use_sysctl = 0;
384 	} else {
385 		/* We can use sysctl(3). */
386 		use_sysctl = 1;
387 	}
388 
389 	if (force_sysctl && !use_sysctl) {
390 		/* Let the user know what's about to happen. */
391 		warnx("forcing sysctl usage even though it might not be "\
392 		    "supported");
393 		use_sysctl = 1;
394 	}
395 
396 	if (!use_sysctl) {
397 		(void)setegid(egid);
398 		kvmd = kvm_openfiles(nlistf, memf, NULL, O_RDONLY, buf);
399 		(void)setgid(getgid());
400 		if (kvmd == NULL)
401 			err(1, "kvm error: %s", buf);
402 
403 		if (kvm_nlist(kvmd, nl) < 0 || nl[0].n_type == 0) {
404 			if (nlistf)
405 				errx(1, "%s: no namelist", nlistf);
406 			else
407 				errx(1, "no namelist");
408 		}
409 	} else
410 		(void)setgid(getgid());
411 }
412 
413 int
414 main(argc, argv)
415 	int argc;
416 	char *argv[];
417 {
418 	struct protoent *p;
419 	struct protox *tp;	/* for printing cblocks & stats */
420 	int ch;
421 	char *nlistf = NULL, *memf = NULL;
422 	char *cp;
423 	u_long pcbaddr;
424 
425 	egid = getegid();
426 	(void)setegid(getgid());
427 	tp = NULL;
428 	af = AF_UNSPEC;
429 	pcbaddr = 0;
430 
431 	while ((ch = getopt(argc, argv,
432 	    "AabBdf:ghI:LliM:mN:nP:p:qrsStTuvw:X")) != -1)
433 		switch (ch) {
434 		case 'A':
435 			Aflag = 1;
436 			break;
437 		case 'a':
438 			aflag = 1;
439 			break;
440 		case 'b':
441 			bflag = 1;
442 			break;
443 		case 'B':
444 			Bflag = 1;
445 			break;
446 		case 'd':
447 			dflag = 1;
448 			break;
449 		case 'f':
450 			if (strcmp(optarg, "inet") == 0)
451 				af = AF_INET;
452 			else if (strcmp(optarg, "inet6") == 0)
453 				af = AF_INET6;
454 			else if (strcmp(optarg, "arp") == 0)
455 				af = AF_ARP;
456 			else if (strcmp(optarg, "pfkey") == 0)
457 				af = PF_KEY;
458 			else if (strcmp(optarg, "unix") == 0
459 			    || strcmp(optarg, "local") == 0)
460 				af = AF_LOCAL;
461 			else if (strcmp(optarg, "iso") == 0)
462 				af = AF_ISO;
463 			else if (strcmp(optarg, "atalk") == 0)
464 				af = AF_APPLETALK;
465 			else if (strcmp(optarg, "mpls") == 0)
466 				af = AF_MPLS;
467 			else
468 				errx(1, "%s: unknown address family",
469 				    optarg);
470 			break;
471 #ifndef SMALL
472 		case 'g':
473 			gflag = 1;
474 			break;
475 #endif
476 		case 'h':
477 			hflag = 1;
478 			break;
479 		case 'I':
480 			iflag = 1;
481 			interface = optarg;
482 			break;
483 		case 'i':
484 			iflag = 1;
485 			break;
486 		case 'L':
487 			Lflag = 1;
488 			break;
489 		case 'l':
490 			lflag = 1;
491 			break;
492 		case 'M':
493 			memf = optarg;
494 			break;
495 		case 'm':
496 			mflag = 1;
497 			break;
498 		case 'N':
499 			nlistf = optarg;
500 			break;
501 		case 'n':
502 			numeric_addr = numeric_port = nflag = 1;
503 			break;
504 		case 'P':
505 			errno = 0;
506 			pcbaddr = strtoul(optarg, &cp, 16);
507 			if (*cp != '\0' || errno == ERANGE)
508 				errx(1, "invalid PCB address %s",
509 				    optarg);
510 			Pflag = 1;
511 			break;
512 		case 'p':
513 			if ((tp = name2protox(optarg)) == NULL)
514 				errx(1, "%s: unknown or uninstrumented protocol",
515 				    optarg);
516 			pflag = 1;
517 			break;
518 		case 'q':
519 			qflag = 1;
520 			break;
521 		case 'r':
522 			rflag = 1;
523 			break;
524 		case 's':
525 			++sflag;
526 			break;
527 		case 'S':
528 			numeric_addr = 1;
529 			break;
530 		case 't':
531 			tflag = 1;
532 			break;
533 		case 'T':
534 			tagflag = 1;
535 			break;
536 		case 'u':
537 			af = AF_LOCAL;
538 			break;
539 		case 'v':
540 			vflag++;
541 			break;
542 		case 'w':
543 			interval = atoi(optarg);
544 			iflag = 1;
545 			break;
546 		case 'X':
547 			force_sysctl = 1;
548 			break;
549 		case '?':
550 		default:
551 			usage();
552 		}
553 	argv += optind;
554 	argc -= optind;
555 
556 #define	BACKWARD_COMPATIBILITY
557 #ifdef	BACKWARD_COMPATIBILITY
558 	if (*argv) {
559 		if (isdigit((unsigned char)**argv)) {
560 			interval = atoi(*argv);
561 			if (interval <= 0)
562 				usage();
563 			++argv;
564 			iflag = 1;
565 		}
566 		if (*argv) {
567 			nlistf = *argv;
568 			if (*++argv)
569 				memf = *argv;
570 		}
571 	}
572 #endif
573 
574 	prepare(nlistf, memf, tp);
575 
576 #ifndef SMALL
577 	if (Bflag) {
578 		if (sflag)
579 			bpf_stats();
580 		else
581 			bpf_dump(interface);
582 		exit(0);
583 	}
584 #endif
585 
586 	if (mflag) {
587 		mbpr(nl[N_MBSTAT].n_value,  nl[N_MSIZE].n_value,
588 		    nl[N_MCLBYTES].n_value, nl[N_MBPOOL].n_value,
589 		    nl[N_MCLPOOL].n_value);
590 		exit(0);
591 	}
592 	if (Pflag) {
593 		if (tp == NULL) {
594 			/* Default to TCP. */
595 			tp = name2protox("tcp");
596 		}
597 		if (tp->pr_dump)
598 			(*tp->pr_dump)(pcbaddr);
599 		else
600 			printf("%s: no PCB dump routine\n", tp->pr_name);
601 		exit(0);
602 	}
603 	if (pflag) {
604 		if (iflag && tp->pr_istats)
605 			intpr(interval, nl[N_IFNET].n_value, tp->pr_istats);
606 		else if (tp->pr_stats)
607 			(*tp->pr_stats)(nl[tp->pr_sindex].n_value,
608 				tp->pr_name);
609 		else
610 			printf("%s: no stats routine\n", tp->pr_name);
611 		exit(0);
612 	}
613 	if (qflag) {
614 		print_softintrq();
615 		exit(0);
616 	}
617 	/*
618 	 * Keep file descriptors open to avoid overhead
619 	 * of open/close on each call to get* routines.
620 	 */
621 	sethostent(1);
622 	setnetent(1);
623 	if (iflag) {
624 		if (af != AF_UNSPEC)
625 			goto protostat;
626 
627 		intpr(interval, nl[N_IFNET].n_value, NULL);
628 		exit(0);
629 	}
630 	if (rflag) {
631 		if (sflag)
632 			rt_stats(use_sysctl ? 0 : nl[N_RTSTAT].n_value);
633 		else {
634 			if (use_sysctl)
635 				p_rttables(af);
636 			else
637 				routepr(nl[N_RTREE].n_value);
638 		}
639 		exit(0);
640 	}
641 #ifndef SMALL
642 	if (gflag) {
643 		if (sflag) {
644 			if (af == AF_INET || af == AF_UNSPEC)
645 				mrt_stats(nl[N_MRTPROTO].n_value,
646 					  nl[N_MRTSTAT].n_value);
647 #ifdef INET6
648 			if (af == AF_INET6 || af == AF_UNSPEC)
649 				mrt6_stats(nl[N_MRT6PROTO].n_value,
650 					   nl[N_MRT6STAT].n_value);
651 #endif
652 		}
653 		else {
654 			if (af == AF_INET || af == AF_UNSPEC)
655 				mroutepr(nl[N_MRTPROTO].n_value,
656 					 nl[N_MFCHASHTBL].n_value,
657 					 nl[N_MFCHASH].n_value,
658 					 nl[N_VIFTABLE].n_value);
659 #ifdef INET6
660 			if (af == AF_INET6 || af == AF_UNSPEC)
661 				mroute6pr(nl[N_MRT6PROTO].n_value,
662 					  nl[N_MF6CTABLE].n_value,
663 					  nl[N_MIF6TABLE].n_value);
664 #endif
665 		}
666 		exit(0);
667 	}
668 #endif
669   protostat:
670 	if (af == AF_INET || af == AF_UNSPEC) {
671 		setprotoent(1);
672 		setservent(1);
673 		/* ugh, this is O(MN) ... why do we do this? */
674 		while ((p = getprotoent()) != NULL) {
675 			for (tp = protox; tp->pr_name; tp++)
676 				if (strcmp(tp->pr_name, p->p_name) == 0)
677 					break;
678 			if (tp->pr_name == 0 || tp->pr_wanted == 0)
679 				continue;
680 			printproto(tp, p->p_name);
681 			tp->pr_wanted = 0;
682 		}
683 		endprotoent();
684 		for (tp = protox; tp->pr_name; tp++)
685 			if (tp->pr_wanted)
686 				printproto(tp, tp->pr_name);
687 	}
688 #ifdef INET6
689 	if (af == AF_INET6 || af == AF_UNSPEC)
690 		for (tp = ip6protox; tp->pr_name; tp++)
691 			printproto(tp, tp->pr_name);
692 #endif
693 	if (af == AF_ARP || af == AF_UNSPEC)
694 		for (tp = arpprotox; tp->pr_name; tp++)
695 			printproto(tp, tp->pr_name);
696 #ifdef IPSEC
697 	if (af == PF_KEY || af == AF_UNSPEC)
698 		for (tp = pfkeyprotox; tp->pr_name; tp++)
699 			printproto(tp, tp->pr_name);
700 #endif
701 #ifndef SMALL
702 	if (af == AF_APPLETALK || af == AF_UNSPEC)
703 		for (tp = atalkprotox; tp->pr_name; tp++)
704 			printproto(tp, tp->pr_name);
705 	if (af == AF_ISO || af == AF_UNSPEC)
706 		for (tp = isoprotox; tp->pr_name; tp++)
707 			printproto(tp, tp->pr_name);
708 	if ((af == AF_LOCAL || af == AF_UNSPEC) && !sflag)
709 		unixpr(nl[N_UNIXSW].n_value);
710 #endif
711 	exit(0);
712 }
713 
714 /*
715  * Print out protocol statistics or control blocks (per sflag).
716  * If the interface was not specifically requested, and the symbol
717  * is not in the namelist, ignore this one.
718  */
719 static void
720 printproto(tp, name)
721 	struct protox *tp;
722 	const char *name;
723 {
724 	void (*pr) __P((u_long, const char *));
725 	u_long off;
726 
727 	if (sflag) {
728 		if (iflag) {
729 			if (tp->pr_istats)
730 				intpr(interval, nl[N_IFNET].n_value,
731 				      tp->pr_istats);
732 			return;
733 		}
734 		else {
735 			pr = tp->pr_stats;
736 			off = nl[tp->pr_sindex].n_value;
737 		}
738 	} else {
739 		pr = tp->pr_cblocks;
740 		off = nl[tp->pr_index].n_value;
741 	}
742 	if (pr != NULL && ((off || af != AF_UNSPEC) || use_sysctl)) {
743 		(*pr)(off, name);
744 	}
745 }
746 
747 /*
748  * Print softintrq status.
749  */
750 void
751 print_softintrq()
752 {
753 	struct ifqueue intrq, *ifq = &intrq;
754 	const struct softintrq *siq;
755 	u_long off;
756 
757 	for (siq = softintrq; siq->siq_name != NULL; siq++) {
758 		off = nl[siq->siq_index].n_value;
759 		if (off == 0)
760 			continue;
761 
762 		kread(off, (char *)ifq, sizeof(*ifq));
763 		printf("%s:\n", siq->siq_name);
764 		printf("\tqueue length: %d\n", ifq->ifq_len);
765 		printf("\tmaximum queue length: %d\n", ifq->ifq_maxlen);
766 		printf("\tpackets dropped: %d\n", ifq->ifq_drops);
767 	}
768 }
769 
770 /*
771  * Read kernel memory, return 0 on success.
772  */
773 int
774 kread(addr, buf, size)
775 	u_long addr;
776 	char *buf;
777 	int size;
778 {
779 
780 	if (kvm_read(kvmd, addr, buf, size) != size) {
781 		warnx("%s", kvm_geterr(kvmd));
782 		return (-1);
783 	}
784 	return (0);
785 }
786 
787 const char *
788 plural(n)
789 	int n;
790 {
791 
792 	return (n != 1 ? "s" : "");
793 }
794 
795 const char *
796 plurales(n)
797 	int n;
798 {
799 
800 	return (n != 1 ? "es" : "");
801 }
802 
803 int
804 get_hardticks(void)
805 {
806 	int hardticks;
807 
808 	kread(nl[N_HARDCLOCK_TICKS].n_value, (char *)&hardticks,
809 	    sizeof(hardticks));
810 	return (hardticks);
811 }
812 
813 /*
814  * Find the protox for the given "well-known" name.
815  */
816 static struct protox *
817 knownname(name)
818 	const char *name;
819 {
820 	struct protox **tpp, *tp;
821 
822 	for (tpp = protoprotox; *tpp; tpp++)
823 		for (tp = *tpp; tp->pr_name; tp++)
824 			if (strcmp(tp->pr_name, name) == 0)
825 				return (tp);
826 	return (NULL);
827 }
828 
829 /*
830  * Find the protox corresponding to name.
831  */
832 static struct protox *
833 name2protox(name)
834 	const char *name;
835 {
836 	struct protox *tp;
837 	char **alias;			/* alias from p->aliases */
838 	struct protoent *p;
839 
840 	/*
841 	 * Try to find the name in the list of "well-known" names. If that
842 	 * fails, check if name is an alias for an Internet protocol.
843 	 */
844 	if ((tp = knownname(name)) != NULL)
845 		return (tp);
846 
847 	setprotoent(1);			/* make protocol lookup cheaper */
848 	while ((p = getprotoent()) != NULL) {
849 		/* assert: name not same as p->name */
850 		for (alias = p->p_aliases; *alias; alias++)
851 			if (strcmp(name, *alias) == 0) {
852 				endprotoent();
853 				return (knownname(p->p_name));
854 			}
855 	}
856 	endprotoent();
857 	return (NULL);
858 }
859 
860 static void
861 usage()
862 {
863 	const char *progname = getprogname();
864 
865 	(void)fprintf(stderr,
866 "usage: %s [-Aan] [-f address_family] [-M core] [-N system]\n", progname);
867 	(void)fprintf(stderr,
868 "       %s [-bdgiLmnqrsSv] [-f address_family] [-M core] [-N system]\n",
869 	progname);
870 	(void)fprintf(stderr,
871 "       %s [-dn] [-I interface] [-M core] [-N system] [-w wait]\n", progname);
872 	(void)fprintf(stderr,
873 "       %s [-p protocol] [-M core] [-N system]\n", progname);
874 	(void)fprintf(stderr,
875 "       %s [-p protocol] [-M core] [-N system] -P pcbaddr\n", progname);
876 	(void)fprintf(stderr,
877 "       %s [-p protocol] [-i] [-I Interface] \n", progname);
878 	(void)fprintf(stderr,
879 "       %s [-s] [-f address_family] [-i] [-I Interface]\n", progname);
880 	(void)fprintf(stderr,
881 "       %s [-s] [-B] [-I interface]\n", progname);
882 	exit(1);
883 }
884