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