[unix-history] / usr / src / usr.bin / netstat / main.c

/*
 * Copyright (c) 1983 Regents of the University of California.
 * All rights reserved.  The Berkeley software License Agreement
 * specifies the terms and conditions for redistribution.
 */

#ifndef lint
char copyright[] =
"@(#) Copyright (c) 1983 Regents of the University of California.\n\
 All rights reserved.\n";
#endif not lint

#ifndef lint
static char sccsid[] = "@(#)main.c	5.9 (Berkeley) %G%";
#endif not lint

#include <sys/param.h>
#include <sys/vmmac.h>
#include <sys/socket.h>
#include <machine/pte.h>
#include <ctype.h>
#include <errno.h>
#include <netdb.h>
#include <nlist.h>
#include <stdio.h>

struct nlist nl[] = {
#define	N_MBSTAT	0
	{ "_mbstat" },
#define	N_IPSTAT	1
	{ "_ipstat" },
#define	N_TCB		2
	{ "_tcb" },
#define	N_TCPSTAT	3
	{ "_tcpstat" },
#define	N_UDB		4
	{ "_udb" },
#define	N_UDPSTAT	5
	{ "_udpstat" },
#define	N_RAWCB		6
	{ "_rawcb" },
#define	N_SYSMAP	7
	{ "_Sysmap" },
#define	N_SYSSIZE	8
	{ "_Syssize" },
#define	N_IFNET		9
	{ "_ifnet" },
#define	N_HOSTS		10
	{ "_hosts" },
#define	N_RTHOST	11
	{ "_rthost" },
#define	N_RTNET		12
	{ "_rtnet" },
#define	N_ICMPSTAT	13
	{ "_icmpstat" },
#define	N_RTSTAT	14
	{ "_rtstat" },
#define	N_NFILE		15
	{ "_nfile" },
#define	N_FILE		16
	{ "_file" },
#define	N_UNIXSW	17
	{ "_unixsw" },
#define N_RTHASHSIZE	18
	{ "_rthashsize" },
#define N_IDP		19
	{ "_nspcb"},
#define N_IDPSTAT	20
	{ "_idpstat"},
#define N_SPPSTAT	21
	{ "_spp_istat"},
#define N_NSERR		22
	{ "_ns_errstat"},

    /* BBN Internet protocol implementation */
#define	N_TCP		23
	{ "_tcp" },
#define	N_UDP		24
	{ "_udp" },
#define N_RDP		25
	{ "_rdp" },
#define	N_RDPSTAT	26
	{ "_rdpstat" },

	"",
};

/* internet protocols */
extern	int protopr(), bbnprotopr();
extern	int tcp_stats(), udp_stats(), ip_stats(), icmp_stats();
/* ns protocols */
extern	int tcpstats(), udpstats(), ipstats(), icmpstats(), rdpstats();
extern	int nsprotopr();
extern	int spp_stats(), idp_stats(), nserr_stats();

#define NULLPROTOX	((struct protox *) 0)
struct protox {
	u_char	pr_index;		/* index into nlist of cb head */
	u_char	pr_sindex;		/* index into nlist of stat block */
	u_char	pr_wanted;		/* 1 if wanted, 0 otherwise */
	int	(*pr_cblocks)();	/* control blocks printing routine */
	int	(*pr_stats)();		/* statistics printing routine */
	char	*pr_name;		/* well-known name */
};

struct  protox berkprotox[] = {
	{ N_TCB,	N_TCPSTAT,	1,	protopr,
	  tcp_stats,	"tcp" },
	{ N_UDB,	N_UDPSTAT,	1,	protopr,
	  udp_stats,	"udp" },
	{ -1,		N_IPSTAT,	1,	0,
	  ip_stats,	"ip" },
	{ -1,		N_ICMPSTAT,	1,	0,
	  icmp_stats,	"icmp" },
	{ -1,		-1,		0,	0,
	  0,		0 }
};

struct protox bbnprotox[] = {
	{ N_TCP,	N_TCPSTAT,	1,	bbnprotopr,
	  tcpstats,	"tcp" },
	{ N_UDP,	N_UDPSTAT,	1,	bbnprotopr,
	  udpstats,	"udp" },
	{ N_RDP,	N_RDPSTAT,	1,	bbnprotopr,
	  rdpstats,	"rdp" },
	{ N_RAWCB,	0,		1,	bbnprotopr,
	  0,		"raw" },
	{ -1,		N_IPSTAT,	1,	0,
	  ipstats,	"ip" },
	{ -1,		N_ICMPSTAT,	1,	0,
	  icmpstats,	"icmp" },
	{ -1,		-1,		0,	0,
	  0,		0 }
};

struct protox nsprotox[] = {
	{ N_IDP,	N_IDPSTAT,	1,	nsprotopr,
	  idp_stats,	"idp" },
	{ N_IDP,	N_SPPSTAT,	1,	nsprotopr,
	  spp_stats,	"spp" },
	{ -1,		N_NSERR,	1,	0,
	  nserr_stats,	"ns_err" },
	{ -1,		-1,		0,	0,
	  0,		0 }
};

struct	pte *Sysmap;

char	*system = "/vmunix";
char	*kmemf = "/dev/kmem";
int	kmem;
int	kflag;
int	Aflag;
int	aflag;
int	hflag;
int	iflag;
int	mflag;
int	nflag;
int	pflag;
int	rflag;
int	sflag;
int	tflag;
int	interval;
char	*interface;
int	unit;
char	usage[] = "[ -Aaihmnrst ] [-f family] [-p proto] [-I interface] [ interval ] [ system ] [ core ]";

int	af = AF_UNSPEC;

extern	char *malloc();
extern	off_t lseek();

main(argc, argv)
	int argc;
	char *argv[];
{
	char *cp, *name;
	register struct protoent *p;
	register struct protox *tp;	/* for printing cblocks & stats */
	struct protox *name2protox();	/* for -p */
	
	name = argv[0];
	argc--, argv++;
  	while (argc > 0 && **argv == '-') {
		for (cp = &argv[0][1]; *cp; cp++)
		switch(*cp) {

		case 'A':
			Aflag++;
			break;

		case 'a':
			aflag++;
			break;

		case 'h':
			hflag++;
			break;

		case 'i':
			iflag++;
			break;

		case 'm':
			mflag++;
			break;

		case 'n':
			nflag++;
			break;

		case 'r':
			rflag++;
			break;

		case 's':
			sflag++;
			break;

		case 't':
			tflag++;
			break;

		case 'u':
			af = AF_UNIX;
			break;

		case 'p':
			argv++;
			argc--;
			if (argc == 0)
				goto use;
			if ((tp = name2protox(*argv)) == NULLPROTOX) {
				fprintf(stderr, "%s: unknown or uninstrumented protocol\n",
					*argv);
				exit(10);
			}
			pflag++;
			break;

		case 'f':
			argv++;
			argc--;
			if (strcmp(*argv, "ns") == 0)
				af = AF_NS;
			else if (strcmp(*argv, "inet") == 0)
				af = AF_INET;
			else if (strcmp(*argv, "unix") == 0)
				af = AF_UNIX;
			else {
				fprintf(stderr, "%s: unknown address family\n",
					*argv);
				exit(10);
			}
			break;
			
		case 'I':
			iflag++;
			if (*(interface = cp + 1) == 0) {
				if ((interface = argv[1]) == 0)
					break;
				argv++;
				argc--;
			}
			for (cp = interface; isalpha(*cp); cp++)
				;
			unit = atoi(cp);
			*cp-- = 0;
			break;

		default:
use:
			printf("usage: %s %s\n", name, usage);
			exit(1);
		}
		argv++, argc--;
	}
	if (argc > 0 && isdigit(argv[0][0])) {
		interval = atoi(argv[0]);
		if (interval <= 0)
			goto use;
		argv++, argc--;
		iflag++;
	}
	if (argc > 0) {
		system = *argv;
		argv++, argc--;
	}
	nlist(system, nl);
	if (nl[0].n_type == 0) {
		fprintf(stderr, "%s: no namelist\n", system);
		exit(1);
	}
	if (argc > 0) {
		kmemf = *argv;
		kflag++;
	}
	kmem = open(kmemf, 0);
	if (kmem < 0) {
		fprintf(stderr, "cannot open ");
		perror(kmemf);
		exit(1);
	}
	if (kflag) {
		off_t off;

		off = nl[N_SYSMAP].n_value & 0x7fffffff;
		lseek(kmem, off, 0);
		nl[N_SYSSIZE].n_value *= 4;
		Sysmap = (struct pte *)malloc((u_int)nl[N_SYSSIZE].n_value);
		if (Sysmap == 0) {
			perror("Sysmap");
			exit(1);
		}
		read(kmem, (char *)Sysmap, (int)nl[N_SYSSIZE].n_value);
	}
	if (mflag) {
		mbpr((off_t)nl[N_MBSTAT].n_value);
		exit(0);
	}
	if (pflag) {
		if (tp->pr_stats)
			(*tp->pr_stats)(nl[tp->pr_sindex].n_value, 
				tp->pr_name);
		else
			printf("%s: no stats routine\n", tp->pr_name);
		exit(0);
	}
	/*
	 * Keep file descriptors open to avoid overhead
	 * of open/close on each call to get* routines.
	 */
	sethostent(1);
	setnetent(1);
	if (iflag) {
		intpr(interval, nl[N_IFNET].n_value);
		exit(0);
	}
	if (hflag) {
		hostpr(nl[N_HOSTS].n_value);
		exit(0);
	}
	if (rflag) {
		if (sflag)
			rt_stats((off_t)nl[N_RTSTAT].n_value);
		else
			routepr((off_t)nl[N_RTHOST].n_value, 
				(off_t)nl[N_RTNET].n_value,
				(off_t)nl[N_RTHASHSIZE].n_value);
		exit(0);
	}
    if (af == AF_INET || af == AF_UNSPEC) {
	struct protox *head;

	head = (nl[N_TCB].n_type == 0) ? bbnprotox : berkprotox;
	setprotoent(1);
	setservent(1);

	for (tp = head; tp->pr_name; tp++) {
		if (tp->pr_wanted == 0)
			continue;

		if (sflag) {
			if (tp->pr_stats)
			    (*tp->pr_stats)(nl[tp->pr_sindex].n_value, tp->pr_name);
		} else if (tp->pr_cblocks)
			(*tp->pr_cblocks)(nl[tp->pr_index].n_value, tp->pr_name);
	}
	endprotoent();
    }
    if (af == AF_NS || af == AF_UNSPEC) {
	for (tp = nsprotox; tp->pr_name; tp++) {
		if (sflag) {
			if (tp->pr_stats)
				(*tp->pr_stats)(nl[tp->pr_sindex].n_value,
					tp->pr_name);
		} else
			if (tp->pr_cblocks)
				(*tp->pr_cblocks)(nl[tp->pr_index].n_value,
					tp->pr_name);
	}
    }
    if ((af == AF_UNIX || af == AF_UNSPEC) && !sflag)
	    unixpr((off_t)nl[N_NFILE].n_value, (off_t)nl[N_FILE].n_value,
		(struct protosw *)nl[N_UNIXSW].n_value);
    exit(0);
}

/*
 * Seek into the kernel for a value.
 */
off_t
klseek(fd, base, off)
	int fd, off;
	off_t base;
{
	if (kflag) {
		/* get kernel pte */
		base &= ~KERNBASE;
		base = ctob(Sysmap[btop(base)].pg_pfnum) + (base & PGOFSET);
	}
	return (lseek(fd, base, off));
}

char *
plural(n)
	int n;
{

	return (n != 1 ? "s" : "");
}

/*
 * Find the protox for the given "well-known" name.
 */
struct protox *
knownname(name)
	char *name;
{
	struct protox *tp;
	
	for (tp = protox; tp->pr_name; tp++)
		if (strcmp(tp->pr_name, name) == 0)
			return(tp);
	for (tp = nsprotox; tp->pr_name; tp++)
		if (strcmp(tp->pr_name, name) == 0)
			return(tp);
	return(NULLPROTOX);
}

/*
 * Find the protox corresponding to name.
 */
struct protox *
name2protox(name)
	char *name;
{
	struct protox *tp;
	char **alias;			/* alias from p->aliases */
	struct protoent *p;
	
	/*
	 * Try to find the name in the list of "well-known" names. If that
	 * fails, check if name is an alias for an Internet protocol.
	 */
	if (tp = knownname(name))
		return(tp);
		
	setprotoent(1);			/* make protocol lookup cheaper */
	while (p = getprotoent()) {
		/* assert: name not same as p->name */
		for (alias = p->p_aliases; *alias; alias++)
			if (strcmp(name, *alias) == 0) {
				endprotoent();
				return(knownname(p->p_name));
			}
	}
	endprotoent();
	return(NULLPROTOX);
}
Commit	Line	Data
5ff67f98 DF	1	/*
	2	* Copyright (c) 1983 Regents of the University of California.
	3	* All rights reserved. The Berkeley software License Agreement
	4	* specifies the terms and conditions for redistribution.
	5	*/
	6
	7	#ifndef lint
	8	char copyright[] =
	9	"@(#) Copyright (c) 1983 Regents of the University of California.\n\
	10	All rights reserved.\n";
	11	#endif not lint
	12
ed85a06f	13	#ifndef lint
33e1c186	14	static char sccsid[] = "@(#)main.c 5.9 (Berkeley) %G%";
5ff67f98	15	#endif not lint
ed85a06f SL	16
ed85a06f SL	17	#include <sys/param.h>
d96df0d1	18	#include <sys/vmmac.h>
0be88646	19	#include <sys/socket.h>
7cd60ad6	20	#include <machine/pte.h>
ed85a06f SL	21	#include <ctype.h>
	22	#include <errno.h>
	23	#include <netdb.h>
	24	#include <nlist.h>
	25	#include <stdio.h>
	26
	27	struct nlist nl[] = {
	28	#define N_MBSTAT 0
	29	{ "_mbstat" },
	30	#define N_IPSTAT 1
	31	{ "_ipstat" },
	32	#define N_TCB 2
	33	{ "_tcb" },
	34	#define N_TCPSTAT 3
	35	{ "_tcpstat" },
	36	#define N_UDB 4
	37	{ "_udb" },
	38	#define N_UDPSTAT 5
	39	{ "_udpstat" },
	40	#define N_RAWCB 6
	41	{ "_rawcb" },
	42	#define N_SYSMAP 7
	43	{ "_Sysmap" },
	44	#define N_SYSSIZE 8
	45	{ "_Syssize" },
	46	#define N_IFNET 9
	47	{ "_ifnet" },
	48	#define N_HOSTS 10
	49	{ "_hosts" },
	50	#define N_RTHOST 11
	51	{ "_rthost" },
	52	#define N_RTNET 12
	53	{ "_rtnet" },
7333c75b SL	54	#define N_ICMPSTAT 13
7333c75b SL	55	{ "_icmpstat" },
bbd2d21e SL	56	#define N_RTSTAT 14
bbd2d21e SL	57	{ "_rtstat" },
404a567d SL	58	#define N_NFILE 15
	59	{ "_nfile" },
	60	#define N_FILE 16
	61	{ "_file" },
	62	#define N_UNIXSW 17
	63	{ "_unixsw" },
f508555e MK	64	#define N_RTHASHSIZE 18
f508555e MK	65	{ "_rthashsize" },
0be88646 KS	66	#define N_IDP 19
	67	{ "_nspcb"},
	68	#define N_IDPSTAT 20
	69	{ "_idpstat"},
	70	#define N_SPPSTAT 21
	71	{ "_spp_istat"},
	72	#define N_NSERR 22
	73	{ "_ns_errstat"},
a5545777 MK	74
	75	/* BBN Internet protocol implementation */
	76	#define N_TCP 23
	77	{ "_tcp" },
	78	#define N_UDP 24
	79	{ "_udp" },
	80	#define N_RDP 25
	81	{ "_rdp" },
	82	#define N_RDPSTAT 26
	83	{ "_rdpstat" },
	84
7333c75b	85	"",
ed85a06f SL	86	};
ed85a06f SL	87
404a567d	88	/* internet protocols */
a5545777	89	extern int protopr(), bbnprotopr();
7333c75b	90	extern int tcp_stats(), udp_stats(), ip_stats(), icmp_stats();
6538ea31	91	/* ns protocols */
a5545777	92	extern int tcpstats(), udpstats(), ipstats(), icmpstats(), rdpstats();
0be88646 KS	93	extern int nsprotopr();
0be88646 KS	94	extern int spp_stats(), idp_stats(), nserr_stats();
6df0a927	95
6538ea31	96	#define NULLPROTOX ((struct protox *) 0)
ed85a06f	97	struct protox {
6df0a927 SL	98	u_char pr_index; /* index into nlist of cb head */
	99	u_char pr_sindex; /* index into nlist of stat block */
	100	u_char pr_wanted; /* 1 if wanted, 0 otherwise */
	101	int (pr_cblocks)(); / control blocks printing routine */
	102	int (pr_stats)(); / statistics printing routine */
	103	char pr_name; / well-known name */
a5545777 MK	104	};
	105
	106	struct protox berkprotox[] = {
6df0a927 SL	107	{ N_TCB, N_TCPSTAT, 1, protopr,
	108	tcp_stats, "tcp" },
	109	{ N_UDB, N_UDPSTAT, 1, protopr,
	110	udp_stats, "udp" },
	111	{ -1, N_IPSTAT, 1, 0,
	112	ip_stats, "ip" },
7333c75b SL	113	{ -1, N_ICMPSTAT, 1, 0,
7333c75b SL	114	icmp_stats, "icmp" },
6df0a927 SL	115	{ -1, -1, 0, 0,
6df0a927 SL	116	0, 0 }
ed85a06f SL	117	};
ed85a06f SL	118
a5545777 MK	119	struct protox bbnprotox[] = {
	120	{ N_TCP, N_TCPSTAT, 1, bbnprotopr,
	121	tcpstats, "tcp" },
	122	{ N_UDP, N_UDPSTAT, 1, bbnprotopr,
	123	udpstats, "udp" },
	124	{ N_RDP, N_RDPSTAT, 1, bbnprotopr,
	125	rdpstats, "rdp" },
	126	{ N_RAWCB, 0, 1, bbnprotopr,
	127	0, "raw" },
	128	{ -1, N_IPSTAT, 1, 0,
	129	ipstats, "ip" },
	130	{ -1, N_ICMPSTAT, 1, 0,
	131	icmpstats, "icmp" },
	132	{ -1, -1, 0, 0,
	133	0, 0 }
	134	};
	135
0be88646 KS	136	struct protox nsprotox[] = {
	137	{ N_IDP, N_IDPSTAT, 1, nsprotopr,
	138	idp_stats, "idp" },
	139	{ N_IDP, N_SPPSTAT, 1, nsprotopr,
	140	spp_stats, "spp" },
	141	{ -1, N_NSERR, 1, 0,
	142	nserr_stats, "ns_err" },
	143	{ -1, -1, 0, 0,
	144	0, 0 }
	145	};
	146
ed85a06f SL	147	struct pte *Sysmap;
	148
	149	char *system = "/vmunix";
	150	char *kmemf = "/dev/kmem";
	151	int kmem;
	152	int kflag;
	153	int Aflag;
	154	int aflag;
	155	int hflag;
	156	int iflag;
	157	int mflag;
	158	int nflag;
6538ea31	159	int pflag;
ed85a06f SL	160	int rflag;
	161	int sflag;
	162	int tflag;
	163	int interval;
79ddba48 EW	164	char *interface;
79ddba48 EW	165	int unit;
6538ea31	166	char usage[] = "[ -Aaihmnrst ] [-f family] [-p proto] [-I interface] [ interval ] [ system ] [ core ]";
ed85a06f	167
0be88646	168	int af = AF_UNSPEC;
2a893f10	169
6538ea31 MK	170	extern char *malloc();
	171	extern off_t lseek();
	172
ed85a06f SL	173	main(argc, argv)
	174	int argc;
	175	char *argv[];
	176	{
ed85a06f SL	177	char cp, name;
ed85a06f SL	178	register struct protoent *p;
6538ea31 MK	179	register struct protox tp; / for printing cblocks & stats */
	180	struct protox name2protox(); / for -p */
	181
ed85a06f SL	182	name = argv[0];
	183	argc--, argv++;
	184	while (argc > 0 && **argv == '-') {
	185	for (cp = &argv[0][1]; *cp; cp++)
18f196b0	186	switch(*cp) {
ed85a06f SL	187
	188	case 'A':
	189	Aflag++;
	190	break;
	191
	192	case 'a':
	193	aflag++;
	194	break;
	195
	196	case 'h':
	197	hflag++;
	198	break;
	199
	200	case 'i':
	201	iflag++;
	202	break;
	203
	204	case 'm':
	205	mflag++;
	206	break;
	207
	208	case 'n':
	209	nflag++;
	210	break;
	211
	212	case 'r':
	213	rflag++;
	214	break;
	215
	216	case 's':
	217	sflag++;
	218	break;
	219
	220	case 't':
	221	tflag++;
	222	break;
	223
404a567d	224	case 'u':
2a893f10	225	af = AF_UNIX;
404a567d SL	226	break;
404a567d SL	227
6538ea31 MK	228	case 'p':
	229	argv++;
	230	argc--;
	231	if (argc == 0)
	232	goto use;
	233	if ((tp = name2protox(*argv)) == NULLPROTOX) {
	234	fprintf(stderr, "%s: unknown or uninstrumented protocol\n",
	235	*argv);
	236	exit(10);
	237	}
	238	pflag++;
	239	break;
	240
0be88646 KS	241	case 'f':
	242	argv++;
	243	argc--;
2a893f10	244	if (strcmp(*argv, "ns") == 0)
0be88646	245	af = AF_NS;
2a893f10	246	else if (strcmp(*argv, "inet") == 0)
0be88646	247	af = AF_INET;
2a893f10 MK	248	else if (strcmp(*argv, "unix") == 0)
	249	af = AF_UNIX;
	250	else {
	251	fprintf(stderr, "%s: unknown address family\n",
	252	*argv);
	253	exit(10);
0be88646 KS	254	}
	255	break;
	256
79ddba48 EW	257	case 'I':
	258	iflag++;
	259	if (*(interface = cp + 1) == 0) {
	260	if ((interface = argv[1]) == 0)
	261	break;
	262	argv++;
	263	argc--;
	264	}
	265	for (cp = interface; isalpha(*cp); cp++)
	266	;
	267	unit = atoi(cp);
	268	*cp-- = 0;
	269	break;
	270
ed85a06f SL	271	default:
	272	use:
	273	printf("usage: %s %s\n", name, usage);
	274	exit(1);
	275	}
	276	argv++, argc--;
	277	}
	278	if (argc > 0 && isdigit(argv[0][0])) {
	279	interval = atoi(argv[0]);
	280	if (interval <= 0)
	281	goto use;
	282	argv++, argc--;
90cb8200	283	iflag++;
ed85a06f SL	284	}
	285	if (argc > 0) {
	286	system = *argv;
	287	argv++, argc--;
	288	}
	289	nlist(system, nl);
	290	if (nl[0].n_type == 0) {
	291	fprintf(stderr, "%s: no namelist\n", system);
	292	exit(1);
	293	}
	294	if (argc > 0) {
	295	kmemf = *argv;
	296	kflag++;
	297	}
	298	kmem = open(kmemf, 0);
	299	if (kmem < 0) {
	300	fprintf(stderr, "cannot open ");
	301	perror(kmemf);
	302	exit(1);
	303	}
	304	if (kflag) {
	305	off_t off;
	306
	307	off = nl[N_SYSMAP].n_value & 0x7fffffff;
	308	lseek(kmem, off, 0);
	309	nl[N_SYSSIZE].n_value *= 4;
6538ea31	310	Sysmap = (struct pte *)malloc((u_int)nl[N_SYSSIZE].n_value);
ed85a06f SL	311	if (Sysmap == 0) {
	312	perror("Sysmap");
	313	exit(1);
	314	}
6538ea31	315	read(kmem, (char *)Sysmap, (int)nl[N_SYSSIZE].n_value);
ed85a06f SL	316	}
ed85a06f SL	317	if (mflag) {
6538ea31 MK	318	mbpr((off_t)nl[N_MBSTAT].n_value);
	319	exit(0);
	320	}
	321	if (pflag) {
	322	if (tp->pr_stats)
	323	(*tp->pr_stats)(nl[tp->pr_sindex].n_value,
	324	tp->pr_name);
	325	else
	326	printf("%s: no stats routine\n", tp->pr_name);
ed85a06f SL	327	exit(0);
ed85a06f SL	328	}
ed85a06f SL	329	/*
	330	* Keep file descriptors open to avoid overhead
	331	* of open/close on each call to get* routines.
	332	*/
ed85a06f SL	333	sethostent(1);
ed85a06f SL	334	setnetent(1);
90cb8200 SL	335	if (iflag) {
	336	intpr(interval, nl[N_IFNET].n_value);
	337	exit(0);
	338	}
ed85a06f SL	339	if (hflag) {
	340	hostpr(nl[N_HOSTS].n_value);
	341	exit(0);
	342	}
	343	if (rflag) {
bbd2d21e	344	if (sflag)
6538ea31	345	rt_stats((off_t)nl[N_RTSTAT].n_value);
bbd2d21e	346	else
6538ea31 MK	347	routepr((off_t)nl[N_RTHOST].n_value,
	348	(off_t)nl[N_RTNET].n_value,
	349	(off_t)nl[N_RTHASHSIZE].n_value);
ed85a06f SL	350	exit(0);
ed85a06f SL	351	}
0be88646	352	if (af == AF_INET \|\| af == AF_UNSPEC) {
a5545777 MK	353	struct protox *head;
	354
	355	head = (nl[N_TCB].n_type == 0) ? bbnprotox : berkprotox;
90cb8200 SL	356	setprotoent(1);
90cb8200 SL	357	setservent(1);
ed85a06f	358
a5545777 MK	359	for (tp = head; tp->pr_name; tp++) {
a5545777 MK	360	if (tp->pr_wanted == 0)
ed85a06f	361	continue;
a5545777 MK	362
	363	if (sflag) {
	364	if (tp->pr_stats)
	365	(*tp->pr_stats)(nl[tp->pr_sindex].n_value, tp->pr_name);
	366	} else if (tp->pr_cblocks)
	367	(*tp->pr_cblocks)(nl[tp->pr_index].n_value, tp->pr_name);
ed85a06f SL	368	}
ed85a06f SL	369	endprotoent();
0be88646 KS	370	}
	371	if (af == AF_NS \|\| af == AF_UNSPEC) {
	372	for (tp = nsprotox; tp->pr_name; tp++) {
54c165a5 MK	373	if (sflag) {
	374	if (tp->pr_stats)
	375	(*tp->pr_stats)(nl[tp->pr_sindex].n_value,
	376	tp->pr_name);
	377	} else
	378	if (tp->pr_cblocks)
	379	(*tp->pr_cblocks)(nl[tp->pr_index].n_value,
	380	tp->pr_name);
0be88646 KS	381	}
0be88646 KS	382	}
54c165a5	383	if ((af == AF_UNIX \|\| af == AF_UNSPEC) && !sflag)
6538ea31 MK	384	unixpr((off_t)nl[N_NFILE].n_value, (off_t)nl[N_FILE].n_value,
6538ea31 MK	385	(struct protosw *)nl[N_UNIXSW].n_value);
085b521c	386	exit(0);
ed85a06f SL	387	}
	388
	389	/*
	390	* Seek into the kernel for a value.
	391	*/
6538ea31	392	off_t
ed85a06f	393	klseek(fd, base, off)
6538ea31 MK	394	int fd, off;
6538ea31 MK	395	off_t base;
ed85a06f	396	{
ed85a06f SL	397	if (kflag) {
ed85a06f SL	398	/* get kernel pte */
33e1c186	399	base &= ~KERNBASE;
d96df0d1	400	base = ctob(Sysmap[btop(base)].pg_pfnum) + (base & PGOFSET);
ed85a06f	401	}
6538ea31	402	return (lseek(fd, base, off));
ed85a06f	403	}
bbd2d21e SL	404
	405	char *
	406	plural(n)
	407	int n;
	408	{
	409
	410	return (n != 1 ? "s" : "");
	411	}
6538ea31 MK	412
	413	/*
	414	* Find the protox for the given "well-known" name.
	415	*/
	416	struct protox *
	417	knownname(name)
	418	char *name;
	419	{
	420	struct protox *tp;
	421
	422	for (tp = protox; tp->pr_name; tp++)
	423	if (strcmp(tp->pr_name, name) == 0)
	424	return(tp);
	425	for (tp = nsprotox; tp->pr_name; tp++)
	426	if (strcmp(tp->pr_name, name) == 0)
	427	return(tp);
	428	return(NULLPROTOX);
	429	}
	430
	431	/*
	432	* Find the protox corresponding to name.
	433	*/
	434	struct protox *
	435	name2protox(name)
	436	char *name;
	437	{
	438	struct protox *tp;
	439	char *alias; / alias from p->aliases */
	440	struct protoent *p;
	441
	442	/*
	443	* Try to find the name in the list of "well-known" names. If that
	444	* fails, check if name is an alias for an Internet protocol.
	445	*/
	446	if (tp = knownname(name))
	447	return(tp);
	448
	449	setprotoent(1); /* make protocol lookup cheaper */
	450	while (p = getprotoent()) {
	451	/* assert: name not same as p->name */
	452	for (alias = p->p_aliases; *alias; alias++)
	453	if (strcmp(name, *alias) == 0) {
	454	endprotoent();
	455	return(knownname(p->p_name));
	456	}
	457	}
	458	endprotoent();
	459	return(NULLPROTOX);
	460	}