#!/usr/bin/sh
#
# topsysproc - display top syscalls by process name.
#              Written using DTrace (Solaris 10 3/05).
#
# This program continually prints a report of the number of system calls
# by process name, and refreshes the display every 1 second or as specified
# at the command line. Similar data can be fetched with "prstat -m".
#
# $Id: topsysproc,v 1.1.1.1 2015/09/30 22:01:07 christos Exp $
#
# USAGE:        topsysproc [interval]
#
# FIELDS:
#		load avg   load averages, see uptime(1)
#		syscalls   total number of syscalls in this interval
#		PROCESS    process name
#		COUNT      number of occurances in this interval
#
# NOTE: There may be several PIDs with the same process name.
#
# SEE ALSO:     prstat(1M)
#
# INSPIRATION:  top(1) by William LeFebvre
#
# 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
#
# 13-Jun-2005	Brendan Gregg	Created this.
# 20-Apr-2006	   "      "	Last update.
#

#
#  Check options
#
if [ "$1" = "-h" -o "$1" = "--help" ]; then
	cat <<-END
	USAGE: topsysproc [interval]
	   eg,
	       topsysproc            # default, 1 second updates
	       topsysproc 5          # 5 second updates
	END
	exit 1
fi
interval=1
if [ "$1" -gt 0 ]; then
	interval=$1
fi

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

 /* constants */
 inline int INTERVAL = '$interval';
 inline int SCREEN   = 20;

 /* variables */
 dtrace:::BEGIN
 {
	secs = 0;
	printf("Tracing... Please wait.\n");
 }

 /* record syscall event */
 syscall:::entry
 {
	@Name[execname] = count();
	@Total = count();
 }

 /* update screen */
 profile:::tick-1sec
 /++secs >= INTERVAL/
 {
        /* fetch load averages */
        this->load1a  = `hp_avenrun[0] / 65536;
        this->load5a  = `hp_avenrun[1] / 65536;
        this->load15a = `hp_avenrun[2] / 65536;
        this->load1b  = ((`hp_avenrun[0] % 65536) * 100) / 65536;
        this->load5b  = ((`hp_avenrun[1] % 65536) * 100) / 65536;
        this->load15b = ((`hp_avenrun[2] % 65536) * 100) / 65536;

	/* clear screen */
	system("clear");

        /* print load average */
        printf("%Y, load average: %d.%02d, %d.%02d, %d.%02d",
            walltimestamp, this->load1a, this->load1b, this->load5a,
            this->load5b, this->load15a, this->load15b);

	/* print syscall count */
	printa("   syscalls: %@d\n",@Total);

	/* print report */
	trunc(@Name, SCREEN);
	printf("\n   %-25s %12s\n", "PROCESS", "COUNT");
	printa("   %-25s %@12d\n", @Name);

	/* reset variables */
	trunc(@Name);
	clear(@Total);
	secs = 0;
 }
'