Home | History | Annotate | Line # | Download | only in Bin
      1 #!/usr/bin/sh
      2 #
      3 # xvmstat - extended vmstat demo in DTrace.
      4 #           Written using DTrace (Solaris 10 3/05).
      5 #
      6 # This has been written to demonstrate fetching similar data as vmstat
      7 # from DTrace, with a few extra fields.
      8 #
      9 # $Id: xvmstat,v 1.1.1.1 2015/09/30 22:01:07 christos Exp $
     10 #
     11 # USAGE:	xvmstat [interval [count]]
     12 #
     13 # FIELDS: 
     14 #		w	swapped out LWPs	number
     15 #		swap	virtual memory free	Mbytes
     16 #		free	free RAM		Mbytes
     17 #		re	page reclaims		pages/sec
     18 #		maj	major faults		pages/sec
     19 #		mf	minor faults		pages/sec
     20 #		cow	copy-on-write faults	pages/sec
     21 #		pro	protection faults	pages/sec
     22 #		sr	scan rate		pages/sec
     23 #		epi	executable page ins	pages/sec
     24 #		epo	executable page outs	pages/sec
     25 #		epf	executable frees	pages/sec
     26 #		api	anonymous page ins	pages/sec
     27 #		apo	anonymous page outs	pages/sec
     28 #		apf	anonymous frees		pages/sec
     29 #		fpi	filesystem page ins	pages/sec
     30 #		fpo	filesystem page outs	pages/sec
     31 #		fpf	filesystem frees	pages/sec
     32 #
     33 # NOTES: 
     34 # - Most of the statistics are in units of pages, unlike the
     35 #   original vmstat command which sometimes uses kilobytes. 
     36 # - As this program does not use Kstat, there is no summary since boot line.
     37 # - Free RAM is both free free + cache free.
     38 #
     39 # SEE ALSO:	vmstat(1M)
     40 #
     41 # COPYRIGHT: Copyright (c) 2005 Brendan Gregg.
     42 #
     43 # CDDL HEADER START
     44 #
     45 #  The contents of this file are subject to the terms of the
     46 #  Common Development and Distribution License, Version 1.0 only
     47 #  (the "License").  You may not use this file except in compliance
     48 #  with the License.
     49 #
     50 #  You can obtain a copy of the license at Docs/cddl1.txt
     51 #  or http://www.opensolaris.org/os/licensing.
     52 #  See the License for the specific language governing permissions
     53 #  and limitations under the License.
     54 #
     55 # CDDL HEADER END
     56 #
     57 # 12-Jun-2005	Brendan Gregg	Created this.
     58 # 01-Mar-2006	   "      "	Last update.
     59 #
     60 
     61 ##############################
     62 # --- Process Arguments ---
     63 #
     64 
     65 ### default values
     66 interval=1; count=-1
     67 
     68 ### check arguments
     69 if [ "$1" = "-h" -o "$1" = "--help" ]; then
     70 	cat <<-END >&2
     71 	USAGE: xvmstat [interval [count]]
     72 	       xvmstat          # 1 second samples, infinite
     73 	  eg,
     74 	       xvmstat 1        # print every 1 second
     75 	       xvmstat 5 6      # print every 5 seconds, 6 times
     76 	END
     77 	exit 1
     78 fi
     79 
     80 ### argument logic
     81 if [ "$1" -gt 0 ]; then
     82         interval=$1; count=-1; shift
     83 fi
     84 if [ "$1" -gt 0 ]; then
     85         count=$1; shift
     86 fi
     87 if [ $interval -eq 0 ]; then
     88 	interval=1
     89 fi
     90 
     91 
     92 #################################
     93 # --- Main Program, DTrace ---
     94 #
     95 /usr/sbin/dtrace -n '
     96  #pragma D option quiet
     97 
     98  /*
     99   * Command line arguments
    100   */
    101  inline int INTERVAL   = '$interval';
    102  inline int COUNTER    = '$count';
    103  inline int SCREEN = 21;
    104 
    105  /*
    106   * Initialise variables
    107   */
    108  dtrace:::BEGIN
    109  {
    110 	re = 0; sr = 0; mf = 0; maj = 0; cow = 0; pro = 0;
    111 	epi = 0; epo = 0; epf = 0; api = 0; apo = 0; apf = 0;
    112 	fpi = 0; fpo = 0; fpf = 0;
    113 	lines = SCREEN + 1;
    114 	counts = COUNTER;
    115 	secs = INTERVAL;
    116 	first = 1;
    117  }
    118 
    119  profile:::tick-1sec
    120  {
    121         secs--;
    122  }
    123 
    124  /*
    125   * Print header
    126   */
    127  dtrace:::BEGIN,
    128  profile:::tick-1sec
    129  /first || (secs == 0 && lines > SCREEN)/
    130  {
    131 	printf("%2s %6s %5s %5s %3s %4s %3s %3s %3s ",
    132 	    "w", "swap", "free", "re", "maj", "mf", "cow", "pro", "sr");
    133 	printf("%3s %3s %3s %3s %3s %3s %3s %3s %3s\n",
    134 	    "epi", "epo", "epf", "api", "apo", "apf", "fpi", "fpo", "fpf");
    135 	lines = 0;
    136 	first = 0;
    137  }
    138 
    139  /*
    140   * Probe events
    141   */
    142  vminfo:::pgrec      { re += arg0; }
    143  vminfo:::scan       { sr += arg0; }
    144  vminfo:::as_fault   { mf += arg0; }
    145  vminfo:::execpgin   { epi += arg0; }
    146  vminfo:::execpgout  { epo += arg0; }
    147  vminfo:::execfree   { epf += arg0; }
    148  vminfo:::anonpgin   { api += arg0; }
    149  vminfo:::anonpgout  { apo += arg0; }
    150  vminfo:::anonfree   { apf += arg0; }
    151  vminfo:::fspgin     { fpi += arg0; }
    152  vminfo:::fspgout    { fpo += arg0; }
    153  vminfo:::fsfree     { fpf += arg0; }
    154  vminfo:::maj_fault  { maj += arg0; }
    155  vminfo:::cow_fault  { cow += arg0; }
    156  vminfo:::prot_fault { pro += arg0; }
    157 
    158  /* 
    159   * Print output line
    160   */
    161  profile:::tick-1sec
    162  /secs == 0/
    163  {
    164 	/* fetch free mem */
    165 	this->free = `freemem;
    166 
    167 	/*
    168 	 * fetch free swap
    169 	 *
    170 	 * free swap is described in /usr/include/vm/anon.h as,
    171 	 * MAX(ani_max - ani_resv, 0) + (availrmem - swapfs_minfree)
    172 	 */
    173 	this->ani_max = `k_anoninfo.ani_max;
    174 	this->ani_resv = `k_anoninfo.ani_phys_resv + `k_anoninfo.ani_mem_resv;
    175 	this->swap = (this->ani_max - this->ani_resv > 0 ?
    176 	    this->ani_max - this->ani_resv : 0) + `availrmem - `swapfs_minfree;
    177 
    178 	/* fetch w */
    179 	this->w = `nswapped;
    180 
    181 	/* convert to Mbytes */
    182 	this->swap *= `_pagesize; this->swap /= 1048576;
    183 	this->free *= `_pagesize; this->free /= 1048576;
    184 
    185 	/* convert to per second values */
    186 	re  /= INTERVAL; maj /= INTERVAL; mf  /= INTERVAL;
    187 	cow /= INTERVAL; pro /= INTERVAL; sr  /= INTERVAL;
    188 	epi /= INTERVAL; epo /= INTERVAL; epf /= INTERVAL;
    189 	api /= INTERVAL; apo /= INTERVAL; apf /= INTERVAL;
    190 	fpi /= INTERVAL; fpo /= INTERVAL; fpf /= INTERVAL;
    191 
    192 	/* print line */
    193 	printf("%2d %6d %5d %5d %3d %4d %3d %3d %3d ",
    194 	    this->w, this->swap, this->free, re, maj, mf, cow, pro, sr);
    195 	printf("%3d %3d %3d %3d %3d %3d %3d %3d %3d\n",
    196 	    epi, epo, epf, api, apo, apf, fpi, fpo, fpf);
    197 
    198 	/* clear counters */
    199 	re = 0; sr = 0; mf = 0; maj = 0; cow = 0; pro = 0;
    200 	epi = 0; epo = 0; epf = 0; api = 0; apo = 0; apf = 0;
    201 	fpi = 0; fpo = 0; fpf = 0;
    202 
    203 	/* process counts */
    204 	secs = INTERVAL;
    205 	counts--;
    206 	lines++;
    207  }
    208 
    209  /*
    210   * End
    211   */
    212  profile:::tick-1sec
    213  /counts == 0/
    214  {
    215 	exit(0);
    216  }
    217 '
    218