Ultrix-3.1/src/ucb/netstat/main.c
/**********************************************************************
* Copyright (c) Digital Equipment Corporation 1984, 1985, 1986. *
* All Rights Reserved. *
* Reference "/usr/src/COPYRIGHT" for applicable restrictions. *
**********************************************************************/
/*
* 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
/*
* Based on static char sccsid[] = "@(#)main.c 5.1 (Berkeley) 6/4/85";
*/
static char *Sccsid = "@(#)main.c 3.0 (ULTRIX-11) 4/22/86";
#endif not lint
#include <sys/param.h>
#ifndef pdp11
#include <sys/vmmac.h>
#include <machine/pte.h>
#endif pdp11
#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" },
#ifdef pdp11
#define N_MBSIZE 19
{ "_mbsize" },
#define N_ALLOCS 20
{ "_allocs" },
#define N_ALLOCT 21
{ "_alloct" },
#endif pdp11
"",
};
/* internet protocols */
extern int protopr();
extern int tcp_stats(), udp_stats(), ip_stats(), icmp_stats();
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 */
} protox[] = {
{ 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 pte *Sysmap;
#ifndef pdp11
char *system = "/vmunix";
#else pdp11
char *system = "/unix";
#endif pdp11
char *kmemf = "/dev/kmem";
int kmem;
int kflag;
int Aflag;
int aflag;
int hflag;
int iflag;
int mflag;
int nflag;
int rflag;
int sflag;
int tflag;
int uflag;
int interval;
char *interface;
int unit;
char usage[] = "[ -Aaihmnrstu ] [-I interface] [ interval ] [ system ] [ core ]";
main(argc, argv)
int argc;
char *argv[];
{
int i;
char *cp, *name;
register struct protoent *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':
uflag++;
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(nl[N_SYSSIZE].n_value);
if (Sysmap == 0) {
perror("Sysmap");
exit(1);
}
read(kmem, Sysmap, nl[N_SYSSIZE].n_value);
}
if (mflag) {
#ifndef pdp11
mbpr(nl[N_MBSTAT].n_value);
#else pdp11
mbpr(nl[N_MBSTAT].n_value,nl[N_MBSIZE].n_value,
nl[N_ALLOCS].n_value,nl[N_ALLOCT].n_value);
#endif pdp11
exit(0);
}
if (uflag) {
#ifndef pdp11
unixpr(nl[N_NFILE].n_value, nl[N_FILE].n_value,
nl[N_UNIXSW].n_value);
#else pdp11
printf("pflag not supported\n");
#endif pdp11
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) {
#ifndef pdp11
hostpr(nl[N_HOSTS].n_value);
#else pdp11
printf("hflag not supported\n");
#endif pdp11
exit(0);
}
if (rflag) {
if (sflag)
rt_stats(nl[N_RTSTAT].n_value);
else
routepr(nl[N_RTHOST].n_value, nl[N_RTNET].n_value,
nl[N_RTHASHSIZE].n_value);
exit(0);
}
setprotoent(1);
setservent(1);
while (p = getprotoent()) {
register struct protox *tp;
for (tp = protox; tp->pr_name; tp++)
if (strcmp(tp->pr_name, p->p_name) == 0)
break;
if (tp->pr_name == 0 || tp->pr_wanted == 0)
continue;
if (sflag && tp->pr_stats) {
(*tp->pr_stats)(nl[tp->pr_sindex].n_value, p->p_name);
continue;
}
if (tp->pr_cblocks)
(*tp->pr_cblocks)(nl[tp->pr_index].n_value, p->p_name);
}
endprotoent();
}
/*
* Seek into the kernel for a value.
*/
klseek(fd, base, off)
#ifndef pdp11
int fd, base, off;
#else pdp11
int fd, off;
unsigned base;
#endif pdp11
{
#ifndef pdp11
if (kflag) {
/* get kernel pte */
#ifdef vax
base &= 0x7fffffff;
#endif
base = ctob(Sysmap[btop(base)].pg_pfnum) + (base & PGOFSET);
}
lseek(fd, base, off);
#else pdp11
lseek(fd, (long)base, off);
#endif pdp11
}
char *
plural(n)
int n;
{
return (n != 1 ? "s" : "");
}