mirror of
https://github.com/Stichting-MINIX-Research-Foundation/netbsd.git
synced 2025-09-10 23:56:52 -04:00
218 lines
5.3 KiB
Bash
Executable File
218 lines
5.3 KiB
Bash
Executable File
#!/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);
|
|
}
|
|
'
|