#!/usr/bin/ksh
#
# diskhits - disk access by file offset.
#            Written using DTrace (Solaris 10 3/05).
#
# $Id: diskhits,v 1.1.1.1 2015/09/30 22:01:07 christos Exp $
#
# This prints how a file was accessed, the locations on a distribution plot.
# This is for the cache misses only - the file activity that resulted in
# disk events.
#
# USAGE:	diskhits pathname
#	eg,
#		diskhits /var/adm/messages
#
# FIELDS:
#		Location (KB)	The file offset of the disk activity, Kbytes.
#		Size (KB)	Size of the disk activity, Kbytes.
#		Total RW	Total disk activity, reads + writes.
#
# BASED ON: /usr/demo/dtrace/applicat.d
#
# SEE ALSO: DTrace Guide "io Provider" chapter (docs.sun.com)
#           iosnoop (DTraceToolkit)
#
# PORTIONS: Copyright (c) 2005, 2006 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
#
# 08-Jun-2005   Brendan Gregg   Created this.
# 20-Apr-2006	   "      "	Last update.
#

### Usage
function usage
{
	cat <<-END >&2
	USAGE: diskhits pathname
	   eg,
	       diskhits /var/adm/wtmpx
	END
	exit 1
}

### Process arguments
if (( $# != 1 )); then
	usage
fi
if [[ $1 == "-h" ]]; then
	usage
fi
pathname=$1
if [[ ! -e $pathname ]]; then
	print "ERROR2: file $pathname not found" >&2
	exit 2
fi

### Calculate output scale
report_lines=20
set -- `ls -l $pathname`
filesize=$5
(( file_kb_max = filesize / 1024 ))
(( scale_kb = filesize / (1024 * report_lines) ))
if (( file_kb_max < 20 )); then file_kb_max=20; fi
if (( scale_kb < 1 )); then scale_kb=1; fi

#
#  Run DTrace
#
/usr/sbin/dtrace -n '
 #pragma D option quiet

 inline string PATHNAME = "'$pathname'";
 inline int FILE_KB_MAX = '$file_kb_max';
 inline int SCALE_KB = '$scale_kb';

 dtrace:::BEGIN
 {
	printf("Tracing... Hit Ctrl-C to end.\n");
 }

 io:::start
 /args[2]->fi_pathname == PATHNAME/
 {
	this->kb = args[2]->fi_offset == -1 ? -1 : args[2]->fi_offset / 1024;
	@Location = lquantize(this->kb, 0, FILE_KB_MAX, SCALE_KB);
	@Size = quantize(args[0]->b_bcount/1024);
	@Total = sum(args[0]->b_bcount/1024);
 }

 dtrace:::END
 {
	printf("Location (KB),");
	printa(@Location);

	printf("Size (KB),");
	printa(@Size);

	printa("Total RW: %@d KB\n", @Total);
 }
'