#!/usr/sbin/dtrace -s
/*
 * vmstat-p.d - vmstat -p demo in DTrace.
 *              Written using DTrace (Solaris 10 3/05).
 *
 * This has been written to demonstrate fetching similar data as vmstat
 * from DTrace. This program is intended as a starting point for other
 * DTrace scripts, by beginning with familiar statistics.
 *
 * $Id: vmstat-p.d,v 1.1.1.1 2015/09/30 22:01:09 christos Exp $
 *
 * USAGE:	vmstat-p.d
 *
 * FIELDS:
 *		swap	virtual memory free	Kbytes
 *		free	free RAM		Kbytes
 *		re	page reclaims		Kbytes
 *		mf	minor faults		Kbytes
 *		sr	scan rate		pages
 *		epi	executable page ins	Kbytes
 *		epo	executable page outs	Kbytes
 *		epf	executable frees	Kbytes
 *		api	anonymous page ins	Kbytes
 *		apo	anonymous page outs	Kbytes
 *		apf	anonymous frees		Kbytes
 *		fpi	filesystem page ins	Kbytes
 *		fpo	filesystem page outs	Kbytes
 *		fpf	filesystem frees	Kbytes
 *
 * NOTES:
 *	Most of the statistics are in units of kilobytes, unlike the
 *	original vmstat command which sometimes uses page counts.
 *	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
 *
 * 11-Jun-2005  Brendan Gregg   Created this.
 * 08-Jan-2006	   "      "	Last update.
 */

#pragma D option quiet

inline int SCREEN = 21;

/*
 * Initialise variables
 */
dtrace:::BEGIN
{
	pi = 0; po = 0; re = 0; sr = 0; mf = 0; fr = 0;
	sy = 0; in = 0; cs = 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;
}

/*
 * Print header
 */
dtrace:::BEGIN,
tick-1sec
/lines++ > SCREEN/
{
	printf("%14s %13s %16s %14s %13s\n",
	    "memory", "page", "executable", "anonymous", "filesystem");
	printf("%9s %7s %5s %4s %3s ",
	    "swap", "free", "re", "mf", "sr");
	printf("%4s %4s %4s %4s %4s %4s %4s %4s %4s\n",
	    "epi", "epo", "epf", "api", "apo", "apf", "fpi", "fpo", "fpf");
	lines = 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; }

/*
 * Print output line
 */
profile:::tick-1sec
{
	/* 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 Kbytes */
	epi *= `_pagesize / 1024;
	epo *= `_pagesize / 1024;
	epf *= `_pagesize / 1024;
	api *= `_pagesize / 1024;
	apo *= `_pagesize / 1024;
	apf *= `_pagesize / 1024;
	fpi *= `_pagesize / 1024;
	fpo *= `_pagesize / 1024;
	fpf *= `_pagesize / 1024;
	re  *= `_pagesize / 1024;
	sr  *= `_pagesize / 1024;
	mf  *= `_pagesize / 1024;
	this->swap *= `_pagesize / 1024;
	this->free *= `_pagesize / 1024;

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

	/* clear counters */
	pi = 0; po = 0; re = 0; sr = 0; mf = 0; fr = 0;
	sy = 0; in = 0; cs = 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;
}