Home | History | Annotate | Line # | Download | only in netstat
route.c revision 1.27
      1 /*	$NetBSD: route.c,v 1.27 1998/05/14 22:48:50 kml Exp $	*/
      2 
      3 /*
      4  * Copyright (c) 1983, 1988, 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. All advertising materials mentioning features or use of this software
     16  *    must display the following acknowledgement:
     17  *	This product includes software developed by the University of
     18  *	California, Berkeley and its contributors.
     19  * 4. Neither the name of the University nor the names of its contributors
     20  *    may be used to endorse or promote products derived from this software
     21  *    without specific prior written permission.
     22  *
     23  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
     24  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
     25  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
     26  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
     27  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
     28  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
     29  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
     30  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
     31  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
     32  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
     33  * SUCH DAMAGE.
     34  */
     35 
     36 #include <sys/cdefs.h>
     37 #ifndef lint
     38 #if 0
     39 static char sccsid[] = "from: @(#)route.c	8.3 (Berkeley) 3/9/94";
     40 #else
     41 __RCSID("$NetBSD: route.c,v 1.27 1998/05/14 22:48:50 kml Exp $");
     42 #endif
     43 #endif /* not lint */
     44 
     45 #include <sys/param.h>
     46 #include <sys/protosw.h>
     47 #include <sys/socket.h>
     48 #include <sys/mbuf.h>
     49 
     50 #include <net/if.h>
     51 #include <net/if_dl.h>
     52 #include <net/if_types.h>
     53 #define _KERNEL
     54 #include <net/route.h>
     55 #undef _KERNEL
     56 #include <netinet/in.h>
     57 #include <netatalk/at.h>
     58 
     59 #include <netns/ns.h>
     60 
     61 #include <sys/sysctl.h>
     62 
     63 #include <netdb.h>
     64 #include <stdio.h>
     65 #include <stdlib.h>
     66 #include <string.h>
     67 #include <unistd.h>
     68 #include "netstat.h"
     69 
     70 #define kget(p, d) (kread((u_long)(p), (char *)&(d), sizeof (d)))
     71 
     72 /*
     73  * Definitions for showing gateway flags.
     74  */
     75 struct bits {
     76 	short	b_mask;
     77 	char	b_val;
     78 } bits[] = {
     79 	{ RTF_UP,	'U' },
     80 	{ RTF_GATEWAY,	'G' },
     81 	{ RTF_HOST,	'H' },
     82 	{ RTF_REJECT,	'R' },
     83 	{ RTF_DYNAMIC,	'D' },
     84 	{ RTF_MODIFIED,	'M' },
     85 	{ RTF_DONE,	'd' }, /* Completed -- for routing messages only */
     86 	{ RTF_MASK,	'm' }, /* Mask Present -- for routing messages only */
     87 	{ RTF_CLONING,	'C' },
     88 	{ RTF_XRESOLVE,	'X' },
     89 	{ RTF_LLINFO,	'L' },
     90 	{ RTF_STATIC,	'S' },
     91 	{ RTF_PROTO1,	'1' },
     92 	{ RTF_PROTO2,	'2' },
     93 	{ 0 }
     94 };
     95 
     96 static union {
     97 	struct	sockaddr u_sa;
     98 	u_short	u_data[128];
     99 } pt_u;
    100 
    101 int	do_rtent = 0;
    102 struct	rtentry rtentry;
    103 struct	radix_node rnode;
    104 struct	radix_mask rmask;
    105 
    106 int	NewTree = 0;
    107 
    108 static struct sockaddr *kgetsa __P((struct sockaddr *));
    109 static void p_tree __P((struct radix_node *));
    110 static void p_rtnode __P((void));
    111 static void ntreestuff __P((void));
    112 static void np_rtentry __P((struct rt_msghdr *));
    113 static void p_sockaddr __P((const struct sockaddr *,
    114 			    const struct sockaddr *, int, int));
    115 static void p_flags __P((int, char *));
    116 static void p_rtentry __P((struct rtentry *));
    117 static void ntreestuff __P((void));
    118 static u_long forgemask __P((u_long));
    119 static void domask __P((char *, u_long, u_long));
    120 
    121 /*
    122  * Print routing tables.
    123  */
    124 void
    125 routepr(rtree)
    126 	u_long rtree;
    127 {
    128 	struct radix_node_head *rnh, head;
    129 	int i;
    130 
    131 	printf("Routing tables\n");
    132 
    133 	if (Aflag == 0 && NewTree)
    134 		ntreestuff();
    135 	else {
    136 		if (rtree == 0) {
    137 			printf("rt_tables: symbol not in namelist\n");
    138 			return;
    139 		}
    140 
    141 		kget(rtree, rt_tables);
    142 		for (i = 0; i <= AF_MAX; i++) {
    143 			if ((rnh = rt_tables[i]) == 0)
    144 				continue;
    145 			kget(rnh, head);
    146 			if (i == AF_UNSPEC) {
    147 				if (Aflag && af == 0) {
    148 					printf("Netmasks:\n");
    149 					p_tree(head.rnh_treetop);
    150 				}
    151 			} else if (af == AF_UNSPEC || af == i) {
    152 				pr_family(i);
    153 				do_rtent = 1;
    154 				pr_rthdr();
    155 				p_tree(head.rnh_treetop);
    156 			}
    157 		}
    158 	}
    159 }
    160 
    161 /*
    162  * Print address family header before a section of the routing table.
    163  */
    164 void
    165 pr_family(af)
    166 	int af;
    167 {
    168 	char *afname;
    169 
    170 	switch (af) {
    171 	case AF_INET:
    172 		afname = "Internet";
    173 		break;
    174 	case AF_NS:
    175 		afname = "XNS";
    176 		break;
    177 	case AF_ISO:
    178 		afname = "ISO";
    179 		break;
    180 	case AF_APPLETALK:
    181 		afname = "AppleTalk";
    182 		break;
    183 	case AF_CCITT:
    184 		afname = "X.25";
    185 		break;
    186 	default:
    187 		afname = NULL;
    188 		break;
    189 	}
    190 	if (afname)
    191 		printf("\n%s:\n", afname);
    192 	else
    193 		printf("\nProtocol Family %d:\n", af);
    194 }
    195 
    196 /* column widths; each followed by one space */
    197 #define	WID_DST		18	/* width of destination column */
    198 #define	WID_GW		18	/* width of gateway column */
    199 
    200 /*
    201  * Print header for routing table columns.
    202  */
    203 void
    204 pr_rthdr()
    205 {
    206 
    207 	if (Aflag)
    208 		printf("%-8.8s ","Address");
    209 	printf("%-*.*s %-*.*s %-6.6s  %6.6s%8.8s %6.6s  %s\n",
    210 		WID_DST, WID_DST, "Destination",
    211 		WID_GW, WID_GW, "Gateway",
    212 		"Flags", "Refs", "Use", "Mtu", "Interface");
    213 }
    214 
    215 static struct sockaddr *
    216 kgetsa(dst)
    217 	struct sockaddr *dst;
    218 {
    219 
    220 	kget(dst, pt_u.u_sa);
    221 	if (pt_u.u_sa.sa_len > sizeof (pt_u.u_sa))
    222 		kread((u_long)dst, (char *)pt_u.u_data, pt_u.u_sa.sa_len);
    223 	return (&pt_u.u_sa);
    224 }
    225 
    226 static void
    227 p_tree(rn)
    228 	struct radix_node *rn;
    229 {
    230 
    231 again:
    232 	kget(rn, rnode);
    233 	if (rnode.rn_b < 0) {
    234 		if (Aflag)
    235 			printf("%-8.8lx ", (u_long) rn);
    236 		if (rnode.rn_flags & RNF_ROOT) {
    237 			if (Aflag)
    238 				printf("(root node)%s",
    239 				    rnode.rn_dupedkey ? " =>\n" : "\n");
    240 		} else if (do_rtent) {
    241 			kget(rn, rtentry);
    242 			p_rtentry(&rtentry);
    243 			if (Aflag)
    244 				p_rtnode();
    245 		} else {
    246 			p_sockaddr(kgetsa((struct sockaddr *)rnode.rn_key),
    247 			    NULL, 0, 44);
    248 			putchar('\n');
    249 		}
    250 		if ((rn = rnode.rn_dupedkey) != NULL)
    251 			goto again;
    252 	} else {
    253 		if (Aflag && do_rtent) {
    254 			printf("%-8.8lx ", (u_long) rn);
    255 			p_rtnode();
    256 		}
    257 		rn = rnode.rn_r;
    258 		p_tree(rnode.rn_l);
    259 		p_tree(rn);
    260 	}
    261 }
    262 
    263 char	nbuf[20];
    264 
    265 static void
    266 p_rtnode()
    267 {
    268 	struct radix_mask *rm = rnode.rn_mklist;
    269 
    270 	if (rnode.rn_b < 0) {
    271 		if (rnode.rn_mask) {
    272 			printf("\t  mask ");
    273 			p_sockaddr(kgetsa((struct sockaddr *)rnode.rn_mask),
    274 				    NULL, 0, -1);
    275 		} else if (rm == 0)
    276 			return;
    277 	} else {
    278 		sprintf(nbuf, "(%d)", rnode.rn_b);
    279 		printf("%6.6s %8.8lx : %8.8lx", nbuf, (u_long) rnode.rn_l,
    280 		    (u_long) rnode.rn_r);
    281 	}
    282 	while (rm) {
    283 		kget(rm, rmask);
    284 		sprintf(nbuf, " %d refs, ", rmask.rm_refs);
    285 		printf(" mk = %8.8lx {(%d),%s", (u_long) rm,
    286 		    -1 - rmask.rm_b, rmask.rm_refs ? nbuf : " ");
    287 		if (rmask.rm_flags & RNF_NORMAL) {
    288 			struct radix_node rnode_aux;
    289 			printf(" <normal>, ");
    290 			kget(rmask.rm_leaf, rnode_aux);
    291 			p_sockaddr(kgetsa((struct sockaddr *)rnode_aux.rn_mask),
    292 				    NULL, 0, -1);
    293 		} else
    294 		    p_sockaddr(kgetsa((struct sockaddr *)rmask.rm_mask),
    295 				NULL, 0, -1);
    296 		putchar('}');
    297 		if ((rm = rmask.rm_mklist) != NULL)
    298 			printf(" ->");
    299 	}
    300 	putchar('\n');
    301 }
    302 
    303 static void
    304 ntreestuff()
    305 {
    306 	size_t needed;
    307 	int mib[6];
    308 	char *buf, *next, *lim;
    309 	struct rt_msghdr *rtm;
    310 
    311         mib[0] = CTL_NET;
    312         mib[1] = PF_ROUTE;
    313         mib[2] = 0;
    314         mib[3] = 0;
    315         mib[4] = NET_RT_DUMP;
    316         mib[5] = 0;
    317         if (sysctl(mib, 6, NULL, &needed, NULL, 0) < 0)
    318 		{ perror("route-sysctl-estimate"); exit(1);}
    319 	if ((buf = malloc(needed)) == 0)
    320 		{ printf("out of space\n"); exit(1);}
    321         if (sysctl(mib, 6, buf, &needed, NULL, 0) < 0)
    322 		{ perror("sysctl of routing table"); exit(1);}
    323 	lim  = buf + needed;
    324 	for (next = buf; next < lim; next += rtm->rtm_msglen) {
    325 		rtm = (struct rt_msghdr *)next;
    326 		np_rtentry(rtm);
    327 	}
    328 }
    329 
    330 static void
    331 np_rtentry(rtm)
    332 	struct rt_msghdr *rtm;
    333 {
    334 	struct sockaddr *sa = (struct sockaddr *)(rtm + 1);
    335 #ifdef notdef
    336 	static int masks_done, banner_printed;
    337 #endif
    338 	static int old_af;
    339 	int af = 0, interesting = RTF_UP | RTF_GATEWAY | RTF_HOST;
    340 
    341 #ifdef notdef
    342 	/* for the moment, netmasks are skipped over */
    343 	if (!banner_printed) {
    344 		printf("Netmasks:\n");
    345 		banner_printed = 1;
    346 	}
    347 	if (masks_done == 0) {
    348 		if (rtm->rtm_addrs != RTA_DST ) {
    349 			masks_done = 1;
    350 			af = sa->sa_family;
    351 		}
    352 	} else
    353 #endif
    354 		af = sa->sa_family;
    355 	if (af != old_af) {
    356 		pr_family(af);
    357 		old_af = af;
    358 	}
    359 	if (rtm->rtm_addrs == RTA_DST)
    360 		p_sockaddr(sa, NULL, 0, 36);
    361 	else {
    362 		p_sockaddr(sa, NULL, rtm->rtm_flags, 16);
    363 		if (sa->sa_len == 0)
    364 			sa->sa_len = sizeof(long);
    365 		sa = (struct sockaddr *)(sa->sa_len + (char *)sa);
    366 		p_sockaddr(sa, NULL, 0, 18);
    367 	}
    368 	p_flags(rtm->rtm_flags & interesting, "%-6.6s ");
    369 	putchar('\n');
    370 }
    371 
    372 static void
    373 p_sockaddr(sa, mask, flags, width)
    374 	const struct sockaddr *sa, *mask;
    375 	int flags, width;
    376 {
    377 	char workbuf[128], *cplim;
    378 	char *cp = workbuf;
    379 
    380 	switch(sa->sa_family) {
    381 	case AF_INET:
    382 	    {
    383 		struct sockaddr_in *sin = (struct sockaddr_in *)sa;
    384 
    385 		if (sin->sin_addr.s_addr == INADDR_ANY)
    386 			cp = "default";
    387 		else if (flags & RTF_HOST)
    388 			cp = routename(sin->sin_addr.s_addr);
    389 		else if (mask)
    390 			cp = netname(sin->sin_addr.s_addr,
    391 			    ((struct sockaddr_in *)mask)->sin_addr.s_addr);
    392 		else
    393 			cp = netname(sin->sin_addr.s_addr, INADDR_ANY);
    394 		break;
    395 	    }
    396 
    397 	case AF_APPLETALK:
    398 	case 0:
    399 	    {
    400 		if (!(flags & RTF_HOST) && mask)
    401 			cp = atalk_print2(sa,mask,11);
    402 		else
    403 			cp = atalk_print(sa,11);
    404 		break;
    405 	    }
    406 	case AF_NS:
    407 		cp = ns_print((struct sockaddr *)sa);
    408 		break;
    409 
    410 	case AF_LINK:
    411 	    {
    412 		struct sockaddr_dl *sdl = (struct sockaddr_dl *)sa;
    413 
    414 		if (sdl->sdl_nlen == 0 && sdl->sdl_alen == 0 &&
    415 		    sdl->sdl_slen == 0)
    416 			(void) sprintf(workbuf, "link#%d", sdl->sdl_index);
    417 		else switch (sdl->sdl_type) {
    418 		case IFT_FDDI:
    419 		case IFT_ETHER:
    420 		    {
    421 			int i;
    422 			u_char *lla = (u_char *)sdl->sdl_data +
    423 			    sdl->sdl_nlen;
    424 
    425 			cplim = "";
    426 			for (i = 0; i < sdl->sdl_alen; i++, lla++) {
    427 				cp += sprintf(cp, "%s%02x", cplim, *lla);
    428 				cplim = ":";
    429 			}
    430 			cp = workbuf;
    431 			break;
    432 		    }
    433 		default:
    434 			cp = link_ntoa(sdl);
    435 			break;
    436 		}
    437 		break;
    438 	    }
    439 
    440 	default:
    441 	    {
    442 		u_char *s = (u_char *)sa->sa_data, *slim;
    443 
    444 		slim =  sa->sa_len + (u_char *) sa;
    445 		cplim = cp + sizeof(workbuf) - 6;
    446 		cp += sprintf(cp, "(%d)", sa->sa_family);
    447 		while (s < slim && cp < cplim) {
    448 			cp += sprintf(cp, " %02x", *s++);
    449 			if (s < slim)
    450 			    cp += sprintf(cp, "%02x", *s++);
    451 		}
    452 		cp = workbuf;
    453 	    }
    454 	}
    455 	if (width < 0 )
    456 		printf("%s ", cp);
    457 	else {
    458 		if (nflag)
    459 			printf("%-*s ", width, cp);
    460 		else
    461 			printf("%-*.*s ", width, width, cp);
    462 	}
    463 }
    464 
    465 static void
    466 p_flags(f, format)
    467 	int f;
    468 	char *format;
    469 {
    470 	char name[33], *flags;
    471 	struct bits *p = bits;
    472 
    473 	for (flags = name; p->b_mask; p++)
    474 		if (p->b_mask & f)
    475 			*flags++ = p->b_val;
    476 	*flags = '\0';
    477 	printf(format, name);
    478 }
    479 
    480 static void
    481 p_rtentry(rt)
    482 	struct rtentry *rt;
    483 {
    484 	static struct ifnet ifnet, *lastif;
    485 	struct sockaddr *sa, addr, mask;
    486 
    487 	if (!(sa = kgetsa(rt_key(rt))))
    488 		memset(&addr, 0, sizeof addr);
    489 	else
    490 		addr = *sa;
    491 	if (!rt_mask(rt) || !(sa = kgetsa(rt_mask(rt))))
    492 		memset(&mask, 0, sizeof mask);
    493 	else
    494 		mask = *sa;
    495 	p_sockaddr(&addr, &mask, rt->rt_flags, WID_DST);
    496 	p_sockaddr(kgetsa(rt->rt_gateway), NULL, RTF_HOST, WID_GW);
    497 	p_flags(rt->rt_flags, "%-6.6s ");
    498 	printf("%6d %8lu ", rt->rt_refcnt, rt->rt_use);
    499 	if (rt->rt_rmx.rmx_mtu)
    500 		printf("%6lu", rt->rt_rmx.rmx_mtu);
    501 	else
    502 		printf("%6s", "-");
    503 	putchar((rt->rt_rmx.rmx_locks & RTV_MTU) ? 'L' : ' ');
    504 	if (rt->rt_ifp) {
    505 		if (rt->rt_ifp != lastif) {
    506 			kget(rt->rt_ifp, ifnet);
    507 			lastif = rt->rt_ifp;
    508 		}
    509 		printf(" %.16s%s", ifnet.if_xname,
    510 			rt->rt_nodes[0].rn_dupedkey ? " =>" : "");
    511 	}
    512 	putchar('\n');
    513 }
    514 
    515 char *
    516 routename(in)
    517 	u_int32_t in;
    518 {
    519 	char *cp;
    520 	static char line[MAXHOSTNAMELEN + 1];
    521 	struct hostent *hp;
    522 	static char domain[MAXHOSTNAMELEN + 1];
    523 	static int first = 1;
    524 
    525 	if (first) {
    526 		first = 0;
    527 		if (gethostname(domain, MAXHOSTNAMELEN) == 0 &&
    528 		    (cp = strchr(domain, '.')))
    529 			(void) strcpy(domain, cp + 1);
    530 		else
    531 			domain[0] = 0;
    532 	}
    533 	cp = 0;
    534 	if (!nflag) {
    535 		hp = gethostbyaddr((char *)&in, sizeof (struct in_addr),
    536 			AF_INET);
    537 		if (hp) {
    538 			if ((cp = strchr(hp->h_name, '.')) &&
    539 			    !strcmp(cp + 1, domain))
    540 				*cp = 0;
    541 			cp = hp->h_name;
    542 		}
    543 	}
    544 	if (cp)
    545 		strncpy(line, cp, sizeof(line) - 1);
    546 	else {
    547 #define C(x)	((x) & 0xff)
    548 		in = ntohl(in);
    549 		sprintf(line, "%u.%u.%u.%u",
    550 		    C(in >> 24), C(in >> 16), C(in >> 8), C(in));
    551 	}
    552 	return (line);
    553 }
    554 
    555 static u_long
    556 forgemask(a)
    557 	u_long a;
    558 {
    559 	u_long m;
    560 
    561 	if (IN_CLASSA(a))
    562 		m = IN_CLASSA_NET;
    563 	else if (IN_CLASSB(a))
    564 		m = IN_CLASSB_NET;
    565 	else
    566 		m = IN_CLASSC_NET;
    567 	return (m);
    568 }
    569 
    570 static void
    571 domask(dst, addr, mask)
    572 	char *dst;
    573 	u_long addr, mask;
    574 {
    575 	int b, i;
    576 
    577 	if (!mask || (forgemask(addr) == mask)) {
    578 		*dst = '\0';
    579 		return;
    580 	}
    581 	i = 0;
    582 	for (b = 0; b < 32; b++)
    583 		if (mask & (1 << b)) {
    584 			int bb;
    585 
    586 			i = b;
    587 			for (bb = b+1; bb < 32; bb++)
    588 				if (!(mask & (1 << bb))) {
    589 					i = -1;	/* noncontig */
    590 					break;
    591 				}
    592 			break;
    593 		}
    594 	if (i == -1)
    595 		sprintf(dst, "&0x%lx", mask);
    596 	else
    597 		sprintf(dst, "/%d", 32-i);
    598 }
    599 
    600 /*
    601  * Return the name of the network whose address is given.
    602  * The address is assumed to be that of a net or subnet, not a host.
    603  */
    604 char *
    605 netname(in, mask)
    606 	u_int32_t in, mask;
    607 {
    608 	char *cp = 0;
    609 	static char line[MAXHOSTNAMELEN + 4];
    610 	struct netent *np = 0;
    611 	u_int32_t net, omask;
    612 	u_int32_t i;
    613 	int subnetshift;
    614 
    615 	i = ntohl(in);
    616 	omask = mask = ntohl(mask);
    617 	if (!nflag && i != INADDR_ANY) {
    618 		if (mask == INADDR_ANY) {
    619 			switch (mask = forgemask(i)) {
    620 			case IN_CLASSA_NET:
    621 				subnetshift = 8;
    622 				break;
    623 			case IN_CLASSB_NET:
    624 				subnetshift = 8;
    625 				break;
    626 			case IN_CLASSC_NET:
    627 				subnetshift = 4;
    628 				break;
    629 			default:
    630 				abort();
    631 			}
    632 			/*
    633 			 * If there are more bits than the standard mask
    634 			 * would suggest, subnets must be in use.
    635 			 * Guess at the subnet mask, assuming reasonable
    636 			 * width subnet fields.
    637 			 */
    638 			while (i &~ mask)
    639 				mask = (long)mask >> subnetshift;
    640 		}
    641 		net = i & mask;
    642 		while ((mask & 1) == 0)
    643 			mask >>= 1, net >>= 1;
    644 		np = getnetbyaddr(net, AF_INET);
    645 		if (np)
    646 			cp = np->n_name;
    647 	}
    648 	if (cp)
    649 		strncpy(line, cp, sizeof(line) - 1);
    650 	else if ((i & 0xffffff) == 0)
    651 		sprintf(line, "%u", C(i >> 24));
    652 	else if ((i & 0xffff) == 0)
    653 		sprintf(line, "%u.%u", C(i >> 24) , C(i >> 16));
    654 	else if ((i & 0xff) == 0)
    655 		sprintf(line, "%u.%u.%u", C(i >> 24), C(i >> 16), C(i >> 8));
    656 	else
    657 		sprintf(line, "%u.%u.%u.%u", C(i >> 24),
    658 			C(i >> 16), C(i >> 8), C(i));
    659 	domask(line+strlen(line), i, omask);
    660 	return (line);
    661 }
    662 
    663 /*
    664  * Print routing statistics
    665  */
    666 void
    667 rt_stats(off)
    668 	u_long off;
    669 {
    670 	struct rtstat rtstat;
    671 
    672 	if (off == 0) {
    673 		printf("rtstat: symbol not in namelist\n");
    674 		return;
    675 	}
    676 	kread(off, (char *)&rtstat, sizeof (rtstat));
    677 	printf("routing:\n");
    678 	printf("\t%u bad routing redirect%s\n",
    679 		rtstat.rts_badredirect, plural(rtstat.rts_badredirect));
    680 	printf("\t%u dynamically created route%s\n",
    681 		rtstat.rts_dynamic, plural(rtstat.rts_dynamic));
    682 	printf("\t%u new gateway%s due to redirects\n",
    683 		rtstat.rts_newgateway, plural(rtstat.rts_newgateway));
    684 	printf("\t%u destination%s found unreachable\n",
    685 		rtstat.rts_unreach, plural(rtstat.rts_unreach));
    686 	printf("\t%u use%s of a wildcard route\n",
    687 		rtstat.rts_wildcard, plural(rtstat.rts_wildcard));
    688 }
    689 short ns_nullh[] = {0,0,0};
    690 short ns_bh[] = {-1,-1,-1};
    691 
    692 char *
    693 ns_print(sa)
    694 	struct sockaddr *sa;
    695 {
    696 	struct sockaddr_ns *sns = (struct sockaddr_ns*)sa;
    697 	struct ns_addr work;
    698 	union { union ns_net net_e; u_long long_e; } net;
    699 	u_short port;
    700 	static char mybuf[50], cport[10], chost[25];
    701 	char *host = "";
    702 	char *p;
    703 	u_char *q;
    704 
    705 	work = sns->sns_addr;
    706 	port = ntohs(work.x_port);
    707 	work.x_port = 0;
    708 	net.net_e  = work.x_net;
    709 	if (ns_nullhost(work) && net.long_e == 0) {
    710 		if (port ) {
    711 			sprintf(mybuf, "*.%xH", port);
    712 			upHex(mybuf);
    713 		} else
    714 			sprintf(mybuf, "*.*");
    715 		return (mybuf);
    716 	}
    717 
    718 	if (memcmp(ns_bh, work.x_host.c_host, 6) == 0) {
    719 		host = "any";
    720 	} else if (memcmp(ns_nullh, work.x_host.c_host, 6) == 0) {
    721 		host = "*";
    722 	} else {
    723 		q = work.x_host.c_host;
    724 		sprintf(chost, "%02x%02x%02x%02x%02x%02xH",
    725 			q[0], q[1], q[2], q[3], q[4], q[5]);
    726 		for (p = chost; *p == '0' && p < chost + 12; p++)
    727 			continue;
    728 		host = p;
    729 	}
    730 	if (port)
    731 		sprintf(cport, ".%xH", htons(port));
    732 	else
    733 		*cport = 0;
    734 
    735 	sprintf(mybuf, "%xH.%s%s", (int)ntohl(net.long_e), host, cport);
    736 	upHex(mybuf);
    737 	return(mybuf);
    738 }
    739 
    740 char *
    741 ns_phost(sa)
    742 	struct sockaddr *sa;
    743 {
    744 	struct sockaddr_ns *sns = (struct sockaddr_ns *)sa;
    745 	struct sockaddr_ns work;
    746 	static union ns_net ns_zeronet;
    747 	char *p;
    748 
    749 	work = *sns;
    750 	work.sns_addr.x_port = 0;
    751 	work.sns_addr.x_net = ns_zeronet;
    752 
    753 	p = ns_print((struct sockaddr *)&work);
    754 	if (strncmp("0H.", p, 3) == 0) p += 3;
    755 	return(p);
    756 }
    757 
    758 void
    759 upHex(p0)
    760 	char *p0;
    761 {
    762 	char *p = p0;
    763 	for (; *p; p++) switch (*p) {
    764 
    765 	case 'a': case 'b': case 'c': case 'd': case 'e': case 'f':
    766 		*p += ('A' - 'a');
    767 	}
    768 }
    769