+
+dointr(nintv)
+{
+ int nintr, inttotal;
+ long *intrcnt;
+ char *intrname, *malloc();
+
+ nintr = (nl[X_EINTRCNT].n_value - nl[X_INTRCNT].n_value) / sizeof(long);
+ intrcnt = (long *) malloc(nl[X_EINTRCNT].n_value -
+ nl[X_INTRCNT].n_value);
+ intrname = malloc(nl[X_EINTRNAMES].n_value - nl[X_INTRNAMES].n_value);
+ if (intrcnt == NULL || intrname == NULL) {
+ fprintf(stderr, "vmstat: out of memory\n");
+ exit(9);
+ }
+ lseek(mf, (long)nl[X_INTRCNT].n_value, L_SET);
+ read(mf, intrcnt, nintr * sizeof (long));
+ lseek(mf, (long)nl[X_INTRNAMES].n_value, L_SET);
+ read(mf, intrname, nl[X_EINTRNAMES].n_value - nl[X_INTRNAMES].n_value);
+ printf("interrupt total rate\n");
+ inttotal = 0;
+ while (nintr--) {
+ if (*intrcnt)
+ printf("%-12s %8ld %8ld\n", intrname,
+ *intrcnt, *intrcnt / nintv);
+ intrname += strlen(intrname) + 1;
+ inttotal += *intrcnt++;
+ }
+ printf("Total %8ld %8ld\n", inttotal, inttotal / nintv);
+}
+
+/*
+ * These names must be kept in sync with
+ * the types defined in <sys/malloc.h>.
+ */
+char *kmemnames[] = {
+ "free", /* 0 M_FREE */
+ "mbuf", /* 1 M_MBUF */
+ "devbuf", /* 2 M_DEVBUF */
+ "socket", /* 3 M_SOCKET */
+ "pcb", /* 4 M_PCB */
+ "routetbl", /* 5 M_RTABLE */
+ "hosttbl", /* 6 M_HTABLE */
+ "fragtbl", /* 7 M_FTABLE */
+ "zombie", /* 8 M_ZOMBIE */
+ "ifaddr", /* 9 M_IFADDR */
+ "soopts", /* 10 M_SOOPTS */
+ "soname", /* 11 M_SONAME */
+ "namei", /* 12 M_NAMEI */
+ "gprof", /* 13 M_GPROF */
+ "ioctlops", /* 14 M_IOCTLOPS */
+ "superblk", /* 15 M_SUPERBLK */
+ "cred", /* 16 M_CRED */
+ "pgrp", /* 17 M_PGRP */
+ "session", /* 18 M_SESSION */
+ "iov", /* 19 M_IOV */
+ "mount", /* 20 M_MOUNT */
+ "fhandle", /* 21 M_FHANDLE */
+ "NFS req", /* 22 M_NFSREQ */
+ "NFS mount", /* 23 M_NFSMNT */
+ "vnodes", /* 24 M_VNODE */
+ "namecache", /* 25 M_CACHE */
+ "UFS quota", /* 26 M_DQUOT */
+ "UFS mount", /* 27 M_UFSMNT */
+ "mapmem", /* 28 M_MAPMEM */
+ "shm", /* 29 M_SHM */
+ 0, 0, 0, 0,
+ 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0,
+ "temp", /* 49 M_TEMP */
+};
+
+domem()
+{
+ struct kmemstats kmemstats[M_LAST];
+ struct kmembuckets buckets[MINBUCKET + 16];
+ register struct kmembuckets *kp;
+ register struct kmemstats *ks;
+ int i;
+
+ lseek(mf, (long)nl[X_KMEMBUCKETS].n_value, L_SET);
+ read(mf, buckets, sizeof buckets);
+ printf("Memory statistics by bucket size\n");
+ printf(" Size In Use Free Requests HighWater Couldfree\n");
+ for (i = MINBUCKET, kp = &buckets[i]; i < MINBUCKET + 16; i++, kp++) {
+ if (kp->kb_calls == 0)
+ continue;
+ printf("%8d%9d%7d%11d%8d%11d\n", 1 << i,
+ kp->kb_total - kp->kb_totalfree,
+ kp->kb_totalfree, kp->kb_calls,
+ kp->kb_highwat, kp->kb_couldfree);
+
+ }
+ lseek(mf, (long)nl[X_KMEMSTAT].n_value, L_SET);
+ read(mf, kmemstats, sizeof kmemstats);
+ printf("Memory statistics by type\n");
+ printf(" Type In Use MemUse HighUse Limit Requests %s\n",
+ "TypeLimit KernLimit");
+ for (i = 0, ks = &kmemstats[0]; i < M_LAST; i++, ks++) {
+ if (ks->ks_calls == 0)
+ continue;
+ printf("%10s%7d%8dK%9dK%6dK%9d%7d%10d\n",
+ kmemnames[i] ? kmemnames[i] : "undefined",
+ ks->ks_inuse, (ks->ks_memuse + 1023) / 1024,
+ (ks->ks_maxused + 1023) / 1024,
+ (ks->ks_limit + 1023) / 1024, ks->ks_calls,
+ ks->ks_limblocks, ks->ks_mapblocks);
+ }
+}
+
+#define steal(where, var) \
+ lseek(mf, where, L_SET); read(mf, &var, sizeof var);
+/*
+ * Read the drive names out of kmem.
+ */
+#ifdef vax
+#include <vaxuba/ubavar.h>
+#include <vaxmba/mbavar.h>
+
+read_names()
+{
+ struct mba_device mdev;
+ register struct mba_device *mp;
+ struct mba_driver mdrv;
+ short two_char;
+ char *cp = (char *) &two_char;
+ struct uba_device udev, *up;
+ struct uba_driver udrv;
+
+ mp = (struct mba_device *) nl[X_MBDINIT].n_value;
+ up = (struct uba_device *) nl[X_UBDINIT].n_value;
+ if (up == 0) {
+ fprintf(stderr, "vmstat: Disk init info not in namelist\n");
+ exit(1);
+ }
+ if (mp) for (;;) {
+ steal(mp++, mdev);
+ if (mdev.mi_driver == 0)
+ break;
+ if (mdev.mi_dk < 0 || mdev.mi_alive == 0)
+ continue;
+ steal(mdev.mi_driver, mdrv);
+ steal(mdrv.md_dname, two_char);
+ sprintf(dr_name[mdev.mi_dk], "%c%c%d",
+ cp[0], cp[1], mdev.mi_unit);
+ }
+ for (;;) {
+ steal(up++, udev);
+ if (udev.ui_driver == 0)
+ break;
+ if (udev.ui_dk < 0 || udev.ui_alive == 0)
+ continue;
+ steal(udev.ui_driver, udrv);
+ steal(udrv.ud_dname, two_char);
+ sprintf(dr_name[udev.ui_dk], "%c%c%d",
+ cp[0], cp[1], udev.ui_unit);
+ }
+}
+#endif
+
+#ifdef tahoe
+#include <tahoevba/vbavar.h>
+
+/*
+ * Read the drive names out of kmem.
+ */
+read_names()
+{
+ struct vba_device udev, *up;
+ struct vba_driver udrv;
+ short two_char;
+ char *cp = (char *)&two_char;
+
+ up = (struct vba_device *) nl[X_VBDINIT].n_value;
+ if (up == 0) {
+ fprintf(stderr, "vmstat: Disk init info not in namelist\n");
+ exit(1);
+ }
+ for (;;) {
+ steal(up++, udev);
+ if (udev.ui_driver == 0)
+ break;
+ if (udev.ui_dk < 0 || udev.ui_alive == 0)
+ continue;
+ steal(udev.ui_driver, udrv);
+ steal(udrv.ud_dname, two_char);
+ sprintf(dr_name[udev.ui_dk], "%c%c%d",
+ cp[0], cp[1], udev.ui_unit);
+ }
+}
+#endif
+
+#ifdef hp300
+#include <hpdev/device.h>
+
+#define validdisk(cp) ((cp)[1] == 'd' && ((cp)[0] == 'r' || (cp)[0] == 's'))
+
+read_names()
+{
+ struct hp_device hdev;
+ register struct hp_device *hp;
+ struct driver hdrv;
+ short two_char;
+ char *cp = (char *) &two_char;
+ register char *dp;
+
+ hp = (struct hp_device *) nl[X_HPDINIT].n_value;
+ if (hp == 0) {
+ fprintf(stderr, "vmstat: Disk init info not in namelist\n");
+ exit(1);
+ }
+ for (;;) {
+ steal(hp++, hdev);
+ if (hdev.hp_driver == 0)
+ break;
+ steal(hdev.hp_driver, hdrv);
+ steal(hdrv.d_name, two_char);
+ /*
+ * hp_dk is meaningless if the device isn't a disk
+ * (d_name not valid) or the disk was not found when
+ * booting (hp_alive == 0).
+ */
+ if (!validdisk(cp) || hdev.hp_alive == 0)
+ continue;
+ dp = dr_name[hdev.hp_dk];
+ sprintf(dp, "%c%c%d", cp[0], cp[1], hdev.hp_unit);
+ }
+}
+#endif
projects / unix-history / blobdiff