#!/usr/bin/sh
#
# xvmstat - extended vmstat demo in DTrace.
#           Written using DTrace (Solaris 10 3/05).
#
# This has been written to demonstrate fetching similar data as vmstat
# from DTrace, with a few extra fields.
#
# $Id: xvmstat,v 1.1.1.1 2015/09/30 22:01:09 christos Exp $
#
# USAGE:	xvmstat [interval [count]]
#
# FIELDS: 
#		w	swapped out LWPs	number
#		swap	virtual memory free	Mbytes
#		free	free RAM		Mbytes
#		re	page reclaims		pages/sec
#		maj	major faults		pages/sec
#		mf	minor faults		pages/sec
#		cow	copy-on-write faults	pages/sec
#		pro	protection faults	pages/sec
#		sr	scan rate		pages/sec
#		epi	executable page ins	pages/sec
#		epo	executable page outs	pages/sec
#		epf	executable frees	pages/sec
#		api	anonymous page ins	pages/sec
#		apo	anonymous page outs	pages/sec
#		apf	anonymous frees		pages/sec
#		fpi	filesystem page ins	pages/sec
#		fpo	filesystem page outs	pages/sec
#		fpf	filesystem frees	pages/sec
#
# NOTES: 
# - Most of the statistics are in units of pages, unlike the
#   original vmstat command which sometimes uses kilobytes. 
# - As this program does not use Kstat, there is no summary since boot line.
# - Free RAM is both free free + cache free.
#
# SEE ALSO:	vmstat(1M)
#
# COPYRIGHT: Copyright (c) 2005 Brendan Gregg.
#
# CDDL HEADER START
#
#  The contents of this file are subject to the terms of the
#  Common Development and Distribution License, Version 1.0 only
#  (the "License").  You may not use this file except in compliance
#  with the License.
#
#  You can obtain a copy of the license at Docs/cddl1.txt
#  or http://www.opensolaris.org/os/licensing.
#  See the License for the specific language governing permissions
#  and limitations under the License.
#
# CDDL HEADER END
#
# 12-Jun-2005	Brendan Gregg	Created this.
# 01-Mar-2006	   "      "	Last update.
#

##############################
# --- Process Arguments ---
#

### default values
interval=1; count=-1

### check arguments
if [ "$1" = "-h" -o "$1" = "--help" ]; then
	cat <<-END >&2
	USAGE: xvmstat [interval [count]]
	       xvmstat          # 1 second samples, infinite
	  eg,
	       xvmstat 1        # print every 1 second
	       xvmstat 5 6      # print every 5 seconds, 6 times
	END
	exit 1
fi

### argument logic
if [ "$1" -gt 0 ]; then
        interval=$1; count=-1; shift
fi
if [ "$1" -gt 0 ]; then
        count=$1; shift
fi
if [ $interval -eq 0 ]; then
	interval=1
fi


#################################
# --- Main Program, DTrace ---
#
/usr/sbin/dtrace -n '
 #pragma D option quiet

 /*
  * Command line arguments
  */
 inline int INTERVAL   = '$interval';
 inline int COUNTER    = '$count';
 inline int SCREEN = 21;

 /*
  * Initialise variables
  */
 dtrace:::BEGIN
 {
	re = 0; sr = 0; mf = 0; maj = 0; cow = 0; pro = 0;
	epi = 0; epo = 0; epf = 0; api = 0; apo = 0; apf = 0;
	fpi = 0; fpo = 0; fpf = 0;
	lines = SCREEN + 1;
	counts = COUNTER;
	secs = INTERVAL;
	first = 1;
 }

 profile:::tick-1sec
 {
        secs--;
 }

 /*
  * Print header
  */
 dtrace:::BEGIN,
 profile:::tick-1sec
 /first || (secs == 0 && lines > SCREEN)/
 {
	printf("%2s %6s %5s %5s %3s %4s %3s %3s %3s ",
	    "w", "swap", "free", "re", "maj", "mf", "cow", "pro", "sr");
	printf("%3s %3s %3s %3s %3s %3s %3s %3s %3s\n",
	    "epi", "epo", "epf", "api", "apo", "apf", "fpi", "fpo", "fpf");
	lines = 0;
	first = 0;
 }

 /*
  * Probe events
  */
 vminfo:::pgrec      { re += arg0; }
 vminfo:::scan       { sr += arg0; }
 vminfo:::as_fault   { mf += arg0; }
 vminfo:::execpgin   { epi += arg0; }
 vminfo:::execpgout  { epo += arg0; }
 vminfo:::execfree   { epf += arg0; }
 vminfo:::anonpgin   { api += arg0; }
 vminfo:::anonpgout  { apo += arg0; }
 vminfo:::anonfree   { apf += arg0; }
 vminfo:::fspgin     { fpi += arg0; }
 vminfo:::fspgout    { fpo += arg0; }
 vminfo:::fsfree     { fpf += arg0; }
 vminfo:::maj_fault  { maj += arg0; }
 vminfo:::cow_fault  { cow += arg0; }
 vminfo:::prot_fault { pro += arg0; }

 /* 
  * Print output line
  */
 profile:::tick-1sec
 /secs == 0/
 {
	/* fetch free mem */
	this->free = `freemem;

	/*
	 * fetch free swap
	 *
	 * free swap is described in /usr/include/vm/anon.h as,
	 * MAX(ani_max - ani_resv, 0) + (availrmem - swapfs_minfree)
	 */
	this->ani_max = `k_anoninfo.ani_max;
	this->ani_resv = `k_anoninfo.ani_phys_resv + `k_anoninfo.ani_mem_resv;
	this->swap = (this->ani_max - this->ani_resv > 0 ?
	    this->ani_max - this->ani_resv : 0) + `availrmem - `swapfs_minfree;

	/* fetch w */
	this->w = `nswapped;

	/* convert to Mbytes */
	this->swap *= `_pagesize; this->swap /= 1048576;
	this->free *= `_pagesize; this->free /= 1048576;

	/* convert to per second values */
	re  /= INTERVAL; maj /= INTERVAL; mf  /= INTERVAL;
	cow /= INTERVAL; pro /= INTERVAL; sr  /= INTERVAL;
	epi /= INTERVAL; epo /= INTERVAL; epf /= INTERVAL;
	api /= INTERVAL; apo /= INTERVAL; apf /= INTERVAL;
	fpi /= INTERVAL; fpo /= INTERVAL; fpf /= INTERVAL;

	/* print line */
	printf("%2d %6d %5d %5d %3d %4d %3d %3d %3d ",
	    this->w, this->swap, this->free, re, maj, mf, cow, pro, sr);
	printf("%3d %3d %3d %3d %3d %3d %3d %3d %3d\n",
	    epi, epo, epf, api, apo, apf, fpi, fpo, fpf);

	/* clear counters */
	re = 0; sr = 0; mf = 0; maj = 0; cow = 0; pro = 0;
	epi = 0; epo = 0; epf = 0; api = 0; apo = 0; apf = 0;
	fpi = 0; fpo = 0; fpf = 0;

	/* process counts */
	secs = INTERVAL;
	counts--;
	lines++;
 }

 /*
  * End
  */
 profile:::tick-1sec
 /counts == 0/
 {
	exit(0);
 }
'