Home | History | Annotate | Line # | Download | only in Bin 
      1 #!/usr/sbin/dtrace -s
      2 /*
      3  * vmstat.d - vmstat demo in DTrace.
      4  *            Written using DTrace (Solaris 10 3/05).
      5  *
      6  * This has been written to demonstrate fetching the same data as vmstat
      7  * from DTrace. This program is intended as a starting point for other
      8  * DTrace scripts, by beginning with familiar statistics.
      9  *
     10  * $Id: vmstat.d,v 1.1.1.1 2015/09/30 22:01:07 christos Exp $
     11  *
     12  * USAGE:	vmstat.d
     13  *
     14  * FIELDS:
     15  *		w	swapped out LWPs	number
     16  *		swap	virtual memory free	Kbytes
     17  *		free	free RAM		Kbytes
     18  *		re	page reclaims		Kbytes
     19  *		mf	minor faults		Kbytes
     20  *		pi	page ins		Kbytes
     21  *		po	page outs		Kbytes
     22  *		fr	pages freed		Kbytes
     23  *		sr	scan rate		pages
     24  *		in	interrupts		number
     25  *		sy	system calls		number
     26  *		cs	context switches	number
     27  *
     28  * NOTES:
     29  *  Most of the statistics are in units of kilobytes, unlike the
     30  *  original vmstat command which sometimes uses page counts.
     31  *  As this program does not use Kstat, there is no summary since boot line.
     32  *  Free RAM is both free free + cache free.
     33  *
     34  * SEE ALSO:	vmstat(1M)
     35  *
     36  * COPYRIGHT: Copyright (c) 2005 Brendan Gregg.
     37  *
     38  * CDDL HEADER START
     39  *
     40  *  The contents of this file are subject to the terms of the
     41  *  Common Development and Distribution License, Version 1.0 only
     42  *  (the "License").  You may not use this file except in compliance
     43  *  with the License.
     44  *
     45  *  You can obtain a copy of the license at Docs/cddl1.txt
     46  *  or http://www.opensolaris.org/os/licensing.
     47  *  See the License for the specific language governing permissions
     48  *  and limitations under the License.
     49  *
     50  * CDDL HEADER END
     51  *
     52  * 11-Jun-2005  Brendan Gregg   Created this.
     53  * 08-Jan-2006	   "      "	Last update.
     54  */
     55 
     56 #pragma D option quiet
     57 
     58 inline int SCREEN = 21;
     59 
     60 /*
     61  * Initialise variables
     62  */
     63 dtrace:::BEGIN
     64 {
     65 	pi = 0; po = 0; re = 0; sr = 0; mf = 0; fr = 0;
     66 	sy = 0; in = 0; cs = 0;
     67 	lines = SCREEN + 1;
     68 }
     69 
     70 /*
     71  * Print header
     72  */
     73 dtrace:::BEGIN,
     74 profile:::tick-1sec
     75 /lines++ > SCREEN/
     76 {
     77 	printf(" %1s %10s %8s %5s %5s %4s %4s %4s %4s %5s %6s %4s\n",
     78 	    "w", "swap", "free", "re", "mf", "pi", "po", "fr", "sr",
     79 	    "in", "sy", "cs");
     80 	lines = 0;
     81 }
     82 
     83 /*
     84  * Probe events
     85  */
     86 vminfo:::pgpgin   { pi += arg0; }
     87 vminfo:::pgpgout  { po += arg0; }
     88 vminfo:::pgrec    { re += arg0; }
     89 vminfo:::scan	  { sr += arg0; }
     90 vminfo:::as_fault { mf += arg0; }
     91 vminfo:::dfree    { fr += arg0; }
     92 
     93 syscall:::entry		{ sy++; }
     94 sdt:::interrupt-start	{ in++; }
     95 sched::resume:on-cpu	{ cs++; }
     96 
     97 /*
     98  * Print output line
     99  */
    100 profile:::tick-1sec
    101 {
    102 	/* fetch free mem */
    103 	this->free = `freemem;
    104 
    105 	/*
    106 	 * fetch free swap
    107 	 *
    108 	 * free swap is described in /usr/include/vm/anon.h as,
    109 	 * MAX(ani_max - ani_resv, 0) + (availrmem - swapfs_minfree)
    110 	 */
    111 	this->ani_max = `k_anoninfo.ani_max;
    112 	this->ani_resv = `k_anoninfo.ani_phys_resv + `k_anoninfo.ani_mem_resv;
    113 	this->swap = (this->ani_max - this->ani_resv > 0 ?
    114 	    this->ani_max - this->ani_resv : 0) + `availrmem - `swapfs_minfree;
    115 
    116 	/* fetch w */
    117 	this->w = `nswapped;
    118 
    119 	/* convert to Kbytes */
    120 	pi *= `_pagesize / 1024;
    121 	po *= `_pagesize / 1024;
    122 	re *= `_pagesize / 1024;
    123 	sr *= `_pagesize / 1024;
    124 	mf *= `_pagesize / 1024;
    125 	fr *= `_pagesize / 1024;
    126 	this->swap *= `_pagesize / 1024;
    127 	this->free *= `_pagesize / 1024;
    128 
    129 	/* print line */
    130 	printf(" %1d %10d %8d %5d %5d %4d %4d %4d %4d %5d %6d %4d\n",
    131 	    this->w, this->swap, this->free, re, mf, pi, po, fr, sr,
    132 	    in, sy, cs);
    133 
    134 	/* clear counters */
    135 	pi = 0; po = 0; re = 0; sr = 0; mf = 0; fr = 0;
    136 	sy = 0; in = 0; cs = 0;
    137 }
    138