#!/usr/bin/ksh # # topsyscall - display top syscalls by syscall name. # Written using DTrace (Solaris 10 3/05). # # This program continually prints a report of the top system calls, # and refreshes the display every 1 second or as specified at the # command line. # # $Id: topsyscall,v 1.1.1.1 2015/09/30 22:01:07 christos Exp $ # # USAGE: topsyscall [-Cs] [interval [count]] # # -C # don't clear the screen # -s # print per second values # # FIELDS: # load avg load averages, see uptime(1) # syscalls total syscalls in this interval # syscalls/s syscalls per second # SYSCALL system call name # COUNT total syscalls in this interval # COUNT/s syscalls per second # # INSPIRATION: top(1) by William LeFebvre # # COPYRIGHT: 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 # # 13-Jun-2005 Brendan Gregg Created this. # 20-Apr-2006 " " Last update. # ############################## # --- Process Arguments --- # ### Default variables count=-1; interval=1; opt_persec=0; opt_clear=1 ### Process options while getopts Chs name do case $name in C) opt_clear=0 ;; s) opt_persec=1 ;; h|?) cat <<-END >&2 USAGE: topsyscall [-s] [interval [count]] -C # don't clear the screen -s # print per second values eg, topsyscall # default, 1 second updates topsyscall 5 # 5 second updates END exit 1 esac done shift $(( $OPTIND - 1 )) ### option logic if [[ "$1" > 0 ]]; then interval=$1; shift fi if [[ "$1" > 0 ]]; then count=$1; shift fi if (( opt_clear )); then clearstr=`clear` else clearstr=. fi ################################# # --- Main Program, DTrace --- # /usr/sbin/dtrace -n ' #pragma D option quiet #pragma D option destructive /* constants */ inline int OPT_clear = '$opt_clear'; inline int OPT_persec = '$opt_persec'; inline int INTERVAL = '$interval'; inline int COUNTER = '$count'; inline int SCREEN = 20; inline string CLEAR = "'$clearstr'"; /* variables */ dtrace:::BEGIN { secs = INTERVAL; counts = COUNTER; printf("Tracing... Please wait.\n"); } /* record syscall event */ syscall:::entry { @Name[probefunc] = count(); @Total = count(); } /* timer */ profile:::tick-1sec { secs--; } /* update screen */ profile:::tick-1sec /secs == 0/ { /* 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 */ OPT_clear ? printf("%s", CLEAR) : 1; /* 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); /* calculate per second values if needed */ OPT_persec ? normalize(@Total, INTERVAL) : 1; OPT_persec ? normalize(@Name, INTERVAL) : 1; /* print syscall count */ printf(" %s: ", OPT_persec ? "syscalls/s" : "syscalls"); printa("%@d\n",@Total); /* print report */ trunc(@Name, SCREEN); printf("\n %-25s %12s\n", "SYSCALL", OPT_persec ? "COUNT/s" : "COUNT"); printa(" %-25s %@12d\n", @Name); printf("\n"); /* reset variables */ trunc(@Name); clear(@Total); secs = INTERVAL; counts--; } /* * End of program */ profile:::tick-1sec /counts == 0/ { exit(0); } /* * Cleanup for Ctrl-C */ dtrace:::END { trunc(@Name); trunc(@Total); } '