1 #ifndef lint 2 static char *sccsid = "@(#)vmstat.c 4.15 (Berkeley) 10/17/84"; 3 #endif 4 5 #include <stdio.h> 6 #include <sys/param.h> 7 #include <sys/vm.h> 8 #include <sys/dk.h> 9 #include <nlist.h> 10 #include <sys/buf.h> 11 #include <sys/dir.h> 12 #include <sys/namei.h> 13 #ifdef vax 14 #include <vaxuba/ubavar.h> 15 #include <vaxmba/mbavar.h> 16 #endif 17 #ifdef sun 18 #include <sundev/mbvar.h> 19 #endif 20 21 struct nlist nl[] = { 22 #define X_CPTIME 0 23 { "_cp_time" }, 24 #define X_RATE 1 25 { "_rate" }, 26 #define X_TOTAL 2 27 { "_total" }, 28 #define X_DEFICIT 3 29 { "_deficit" }, 30 #define X_FORKSTAT 4 31 { "_forkstat" }, 32 #define X_SUM 5 33 { "_sum" }, 34 #define X_FIRSTFREE 6 35 { "_firstfree" }, 36 #define X_MAXFREE 7 37 { "_maxfree" }, 38 #define X_BOOTTIME 8 39 { "_boottime" }, 40 #define X_DKXFER 9 41 { "_dk_xfer" }, 42 #define X_REC 10 43 { "_rectime" }, 44 #define X_PGIN 11 45 { "_pgintime" }, 46 #define X_HZ 12 47 { "_hz" }, 48 #define X_PHZ 13 49 { "_phz" }, 50 #define X_NCHSTATS 14 51 { "_nchstats" }, 52 #define X_INTRNAMES 15 53 { "_intrnames" }, 54 #define X_EINTRNAMES 16 55 { "_eintrnames" }, 56 #define X_INTRCNT 17 57 { "_intrcnt" }, 58 #define X_EINTRCNT 18 59 { "_eintrcnt" }, 60 #ifdef vax 61 #define X_MBDINIT 19 62 { "_mbdinit" }, 63 #define X_UBDINIT 20 64 { "_ubdinit" }, 65 #endif 66 { "" }, 67 }; 68 69 char dr_name[DK_NDRIVE][10]; 70 char dr_unit[DK_NDRIVE]; 71 double stat1(); 72 int firstfree, maxfree; 73 int hz; 74 int phz; 75 int HZ; 76 #ifdef sun 77 #define INTS(x) (x) 78 #endif 79 #ifdef vax 80 #define INTS(x) ((x) - (hz + phz)) 81 #endif 82 83 struct 84 { 85 int busy; 86 long time[CPUSTATES]; 87 long xfer[DK_NDRIVE]; 88 struct vmmeter Rate; 89 struct vmtotal Total; 90 struct vmmeter Sum; 91 struct forkstat Forkstat; 92 unsigned rectime; 93 unsigned pgintime; 94 } s, s1, z; 95 #define rate s.Rate 96 #define total s.Total 97 #define sum s.Sum 98 #define forkstat s.Forkstat 99 100 struct vmmeter osum; 101 int zero; 102 int deficit; 103 double etime; 104 int mf; 105 time_t now, boottime; 106 int printhdr(); 107 108 main(argc, argv) 109 int argc; 110 char **argv; 111 { 112 int lines; 113 extern char *ctime(); 114 register i,j; 115 int iter, nintv, iflag = 0; 116 double f1, f2; 117 long t; 118 119 nlist("/vmunix", nl); 120 if(nl[0].n_type == 0) { 121 printf("no /vmunix namelist\n"); 122 exit(1); 123 } 124 mf = open("/dev/kmem", 0); 125 if(mf < 0) { 126 printf("cannot open /dev/kmem\n"); 127 exit(1); 128 } 129 iter = 0; 130 argc--, argv++; 131 while (argc>0 && argv[0][0]=='-') { 132 char *cp = *argv++; 133 argc--; 134 while (*++cp) switch (*cp) { 135 136 case 't': 137 dotimes(); 138 exit(0); 139 140 case 'z': 141 close(mf); 142 mf = open("/dev/kmem", 2); 143 lseek(mf, (long)nl[X_SUM].n_value, 0); 144 write(mf, &z.Sum, sizeof z.Sum); 145 exit(0); 146 147 case 'f': 148 doforkst(); 149 exit(0); 150 151 case 's': 152 dosum(); 153 exit(0); 154 155 case 'i': 156 iflag++; 157 break; 158 159 default: 160 fprintf(stderr, "usage: vmstat [ -fsi ] [ interval ] [ count]\n"); 161 exit(1); 162 } 163 } 164 if(argc > 1) 165 iter = atoi(argv[1]); 166 lseek(mf, (long)nl[X_FIRSTFREE].n_value, 0); 167 read(mf, &firstfree, sizeof firstfree); 168 lseek(mf, (long)nl[X_MAXFREE].n_value, 0); 169 read(mf, &maxfree, sizeof maxfree); 170 lseek(mf, (long)nl[X_BOOTTIME].n_value, 0); 171 read(mf, &boottime, sizeof boottime); 172 lseek(mf, (long)nl[X_HZ].n_value, 0); 173 read(mf, &hz, sizeof hz); 174 lseek(mf, (long)nl[X_PHZ].n_value, 0); 175 read(mf, &phz, sizeof phz); 176 HZ = phz ? phz : hz; 177 for (i = 0; i < DK_NDRIVE; i++) { 178 strcpy(dr_name[i], "xx"); 179 dr_unit[i] = i; 180 } 181 read_names(); 182 time(&now); 183 nintv = now - boottime; 184 if (nintv <= 0 || nintv > 60*60*24*365*10) { 185 printf("Time makes no sense... namelist must be wrong.\n"); 186 exit(1); 187 } 188 if (iflag) { 189 dointr(nintv); 190 exit(0); 191 } 192 signal(SIGCONT, printhdr); 193 reprint: 194 lines = 20; 195 /* s1 = z; */ 196 printhdr(); 197 loop: 198 lseek(mf, (long)nl[X_CPTIME].n_value, 0); 199 read(mf, s.time, sizeof s.time); 200 lseek(mf, (long)nl[X_DKXFER].n_value, 0); 201 read(mf, s.xfer, sizeof s.xfer); 202 if (nintv != 1) { 203 lseek(mf, (long)nl[X_SUM].n_value, 0); 204 read(mf, &rate, sizeof rate); 205 } else { 206 lseek(mf, (long)nl[X_RATE].n_value, 0); 207 read(mf, &rate, sizeof rate); 208 } 209 lseek(mf, (long)nl[X_TOTAL].n_value, 0); 210 read(mf, &total, sizeof total); 211 osum = sum; 212 lseek(mf, (long)nl[X_SUM].n_value, 0); 213 read(mf, &sum, sizeof sum); 214 lseek(mf, (long)nl[X_DEFICIT].n_value, 0); 215 read(mf, &deficit, sizeof deficit); 216 etime = 0; 217 for (i=0; i < DK_NDRIVE; i++) { 218 t = s.xfer[i]; 219 s.xfer[i] -= s1.xfer[i]; 220 s1.xfer[i] = t; 221 } 222 for (i=0; i < CPUSTATES; i++) { 223 t = s.time[i]; 224 s.time[i] -= s1.time[i]; 225 s1.time[i] = t; 226 etime += s.time[i]; 227 } 228 if(etime == 0.) 229 etime = 1.; 230 printf("%2d%2d%2d", total.t_rq, total.t_dw+total.t_pw, total.t_sw); 231 #define pgtok(a) ((a)*NBPG/1024) 232 printf("%6d%5d", pgtok(total.t_avm), pgtok(total.t_free)); 233 printf("%4d%3d", (rate.v_pgrec - (rate.v_xsfrec+rate.v_xifrec))/nintv, 234 (rate.v_xsfrec+rate.v_xifrec)/nintv); 235 printf("%4d", pgtok(rate.v_pgpgin)/nintv); 236 printf("%4d%4d%4d%4d", pgtok(rate.v_pgpgout)/nintv, 237 pgtok(rate.v_dfree)/nintv, pgtok(deficit), rate.v_scan/nintv); 238 etime /= (float) HZ; 239 for(i=0; i<4; i++) 240 stats(i); 241 printf("%4d%4d%4d", INTS(rate.v_intr/nintv), rate.v_syscall/nintv, 242 rate.v_swtch/nintv); 243 for(i=0; i<CPUSTATES; i++) { 244 float f = stat1(i); 245 if (i == 0) { /* US+NI */ 246 i++; 247 f += stat1(i); 248 } 249 printf("%3.0f", f); 250 } 251 printf("\n"); 252 fflush(stdout); 253 contin: 254 nintv = 1; 255 --iter; 256 if(iter) 257 if(argc > 0) { 258 sleep(atoi(argv[0])); 259 if (--lines <= 0) 260 goto reprint; 261 goto loop; 262 } 263 } 264 265 printhdr() 266 { 267 printf("\ 268 procs memory page disk faults cpu\n\ 269 r b w avm fre re at pi po fr de sr %c%d %c%d %c%d %c%d in sy cs us sy id\n", 270 dr_name[0][0], dr_unit[0], dr_name[1][0], dr_unit[1], dr_name[2][0], dr_unit[2], dr_name[3][0], dr_unit[3]); 271 } 272 273 dotimes() 274 { 275 276 lseek(mf, (long)nl[X_REC].n_value, 0); 277 read(mf, &s.rectime, sizeof s.rectime); 278 lseek(mf, (long)nl[X_PGIN].n_value, 0); 279 read(mf, &s.pgintime, sizeof s.pgintime); 280 lseek(mf, (long)nl[X_SUM].n_value, 0); 281 read(mf, &sum, sizeof sum); 282 printf("%d reclaims, %d total time (usec)\n", sum.v_pgrec, s.rectime); 283 printf("average: %d usec / reclaim\n", s.rectime/sum.v_pgrec); 284 printf("\n"); 285 printf("%d page ins, %d total time (msec)\n",sum.v_pgin, s.pgintime/10); 286 printf("average: %8.1f msec / page in\n", s.pgintime/(sum.v_pgin*10.0)); 287 } 288 289 dosum() 290 { 291 struct nchstats statbuf; 292 long nchtotal; 293 294 lseek(mf, (long)nl[X_SUM].n_value, 0); 295 read(mf, &sum, sizeof sum); 296 printf("%9d swap ins\n", sum.v_swpin); 297 printf("%9d swap outs\n", sum.v_swpout); 298 printf("%9d pages swapped in\n", sum.v_pswpin / CLSIZE); 299 printf("%9d pages swapped out\n", sum.v_pswpout / CLSIZE); 300 printf("%9d total address trans. faults taken\n", sum.v_faults); 301 printf("%9d page ins\n", sum.v_pgin); 302 printf("%9d page outs\n", sum.v_pgout); 303 printf("%9d pages paged in\n", sum.v_pgpgin); 304 printf("%9d pages paged out\n", sum.v_pgpgout); 305 printf("%9d sequential process pages freed\n", sum.v_seqfree); 306 printf("%9d total reclaims (%d%% fast)\n", sum.v_pgrec, 307 (sum.v_fastpgrec * 100) / (sum.v_pgrec == 0 ? 1 : sum.v_pgrec)); 308 printf("%9d reclaims from free list\n", sum.v_pgfrec); 309 printf("%9d intransit blocking page faults\n", sum.v_intrans); 310 printf("%9d zero fill pages created\n", sum.v_nzfod / CLSIZE); 311 printf("%9d zero fill page faults\n", sum.v_zfod / CLSIZE); 312 printf("%9d executable fill pages created\n", sum.v_nexfod / CLSIZE); 313 printf("%9d executable fill page faults\n", sum.v_exfod / CLSIZE); 314 printf("%9d swap text pages found in free list\n", sum.v_xsfrec); 315 printf("%9d inode text pages found in free list\n", sum.v_xifrec); 316 printf("%9d file fill pages created\n", sum.v_nvrfod / CLSIZE); 317 printf("%9d file fill page faults\n", sum.v_vrfod / CLSIZE); 318 printf("%9d pages examined by the clock daemon\n", sum.v_scan); 319 printf("%9d revolutions of the clock hand\n", sum.v_rev); 320 printf("%9d pages freed by the clock daemon\n", sum.v_dfree / CLSIZE); 321 printf("%9d cpu context switches\n", sum.v_swtch); 322 printf("%9d device interrupts\n", sum.v_intr); 323 printf("%9d software interrupts\n", sum.v_soft); 324 printf("%9d pseduo-dma dz interrupts\n", sum.v_pdma); 325 printf("%9d traps\n", sum.v_trap); 326 printf("%9d system calls\n", sum.v_syscall); 327 lseek(mf, (long)nl[X_NCHSTATS].n_value, 0); 328 read(mf, &statbuf, sizeof statbuf); 329 nchtotal = statbuf.ncs_goodhits + statbuf.ncs_badhits + 330 statbuf.ncs_falsehits + statbuf.ncs_miss + statbuf.ncs_long; 331 printf("%9d total name lookups", nchtotal); 332 #define nz(x) ((x) ? (x) : 1) 333 printf(" (cache hits %d%% system %d%% per-process)\n", 334 statbuf.ncs_goodhits * 100 / nz(nchtotal), 335 statbuf.ncs_pass2 * 100 / nz(nchtotal)); 336 printf("%9s badhits %d, falsehits %d, toolong %d\n", "", 337 statbuf.ncs_badhits, statbuf.ncs_falsehits, statbuf.ncs_long); 338 } 339 340 doforkst() 341 { 342 343 lseek(mf, (long)nl[X_FORKSTAT].n_value, 0); 344 read(mf, &forkstat, sizeof forkstat); 345 printf("%d forks, %d pages, average=%.2f\n", 346 forkstat.cntfork, forkstat.sizfork, 347 (float) forkstat.sizfork / forkstat.cntfork); 348 printf("%d vforks, %d pages, average=%.2f\n", 349 forkstat.cntvfork, forkstat.sizvfork, 350 (float)forkstat.sizvfork / forkstat.cntvfork); 351 } 352 353 stats(dn) 354 { 355 356 if (dn >= DK_NDRIVE) { 357 printf(" 0"); 358 return; 359 } 360 printf("%3.0f", s.xfer[dn]/etime); 361 } 362 363 double 364 stat1(row) 365 { 366 double t; 367 register i; 368 369 t = 0; 370 for(i=0; i<CPUSTATES; i++) 371 t += s.time[i]; 372 if(t == 0.) 373 t = 1.; 374 return(s.time[row]*100./t); 375 } 376 377 pct(top, bot) 378 { 379 380 if (bot == 0) 381 return (0); 382 return ((top * 100) / bot); 383 } 384 385 dointr(nintv) 386 { 387 int nintr, inttotal; 388 long *intrcnt; 389 char *intrname, *malloc(); 390 391 nintr = (nl[X_EINTRCNT].n_value - nl[X_INTRCNT].n_value) / sizeof(long); 392 intrcnt = (long *) malloc(nl[X_EINTRCNT].n_value - 393 nl[X_INTRCNT].n_value); 394 intrname = malloc(nl[X_EINTRNAMES].n_value - nl[X_INTRNAMES].n_value); 395 if (intrcnt == NULL || intrname == NULL) { 396 fprintf(stderr, "vmstat: out of memory\n"); 397 exit(9); 398 } 399 lseek(mf, (long)nl[X_INTRCNT].n_value, 0); 400 read(mf, intrcnt, nintr * sizeof (long)); 401 lseek(mf, (long)nl[X_INTRNAMES].n_value, 0); 402 read(mf, intrname, nl[X_EINTRNAMES].n_value - nl[X_INTRNAMES].n_value); 403 printf("interrupt total rate\n"); 404 inttotal = 0; 405 while (nintr--) { 406 if (*intrcnt) 407 printf("%-12s %8ld %8ld\n", intrname, 408 *intrcnt, *intrcnt / nintv); 409 intrname += strlen(intrname) + 1; 410 inttotal += *intrcnt++; 411 } 412 printf("Total %8ld %8ld\n", inttotal, inttotal / nintv); 413 } 414 415 #define steal(where, var) lseek(mf, where, 0); read(mf, &var, sizeof var); 416 /* 417 * Read the drive names out of kmem. 418 */ 419 #ifdef vax 420 read_names() 421 { 422 struct mba_device mdev; 423 register struct mba_device *mp; 424 struct mba_driver mdrv; 425 short two_char; 426 char *cp = (char *) &two_char; 427 struct uba_device udev, *up; 428 struct uba_driver udrv; 429 430 mp = (struct mba_device *) nl[X_MBDINIT].n_value; 431 up = (struct uba_device *) nl[X_UBDINIT].n_value; 432 if (up == 0) { 433 fprintf(stderr, "vmstat: Disk init info not in namelist\n"); 434 exit(1); 435 } 436 if (mp) for (;;) { 437 steal(mp++, mdev); 438 if (mdev.mi_driver == 0) 439 break; 440 if (mdev.mi_dk < 0 || mdev.mi_alive == 0) 441 continue; 442 steal(mdev.mi_driver, mdrv); 443 steal(mdrv.md_dname, two_char); 444 sprintf(dr_name[mdev.mi_dk], "%c%c", cp[0], cp[1]); 445 dr_unit[mdev.mi_dk] = mdev.mi_unit; 446 } 447 for (;;) { 448 steal(up++, udev); 449 if (udev.ui_driver == 0) 450 break; 451 if (udev.ui_dk < 0 || udev.ui_alive == 0) 452 continue; 453 steal(udev.ui_driver, udrv); 454 steal(udrv.ud_dname, two_char); 455 sprintf(dr_name[udev.ui_dk], "%c%c", cp[0], cp[1]); 456 dr_unit[udev.ui_dk] = udev.ui_unit; 457 } 458 } 459 #endif 460 461 #ifdef sun 462 read_names() 463 { 464 struct mb_device mdev; 465 register struct mb_device *mp; 466 struct mb_driver mdrv; 467 short two_char; 468 char *cp = (char *) &two_char; 469 470 mp = (struct mb_device *) nl[X_MBDINIT].n_value; 471 if (mp == 0) { 472 fprintf(stderr, "iostat: Disk init info not in namelist\n"); 473 exit(1); 474 } 475 for (;;) { 476 steal(mp++, mdev); 477 if (mdev.md_driver == 0) 478 break; 479 if (mdev.md_dk < 0 || mdev.md_alive == 0) 480 continue; 481 steal(mdev.md_driver, mdrv); 482 steal(mdrv.mdr_dname, two_char); 483 sprintf(dr_name[mdev.md_dk], "%c%c%d", cp[0], cp[1]); 484 dr_unit[mdev.md_dk] = mdev.md_unit; 485 } 486 } 487 #endif 488