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