Gecko [ dataharbor.africa ]

Name	Size	Permission
auditbt.meta	429 B	-rw-r--r--
auditbt.stp	622 B	-rwxr-xr-x
auditbt.tcl	79 B	-rw-r--r--
chng_cpu.meta	775 B	-rw-r--r--
chng_cpu.stp	1.02 KB	-rwxr-xr-x
chng_cpu.tcl	140 B	-rw-r--r--
cycle_thief.meta	1.06 KB	-rw-r--r--
cycle_thief.stp	2.83 KB	-rwxr-xr-x
cycle_thief.txt	5.83 KB	-rw-r--r--
errsnoop.meta	575 B	-rw-r--r--
errsnoop.stp	1015 B	-rwxr-xr-x
forktracker.meta	525 B	-rw-r--r--
forktracker.stp	601 B	-rwxr-xr-x
futexes.meta	520 B	-rw-r--r--
futexes.stp	1.09 KB	-rwxr-xr-x
futexes.txt	944 B	-rw-r--r--
futexes2.meta	593 B	-rw-r--r--
futexes2.stp	1.97 KB	-rw-r--r--
ltrace.meta	314 B	-rw-r--r--
ltrace.stp	2.94 KB	-rwxr-xr-x
ltrace.tcl	122 B	-rw-r--r--
migrate.meta	746 B	-rw-r--r--
migrate.stp	1.01 KB	-rwxr-xr-x
mutex-contention.meta	479 B	-rw-r--r--
mutex-contention.stp	5.43 KB	-rwxr-xr-x
mutex-contention.tcl	79 B	-rw-r--r--
noptrace.meta	512 B	-rw-r--r--
noptrace.stp	1.98 KB	-rwxr-xr-x
noptrace.txt	1.18 KB	-rw-r--r--
pfiles.meta	450 B	-rw-r--r--
pfiles.stp	23.14 KB	-rwxr-xr-x
plimit.meta	387 B	-rw-r--r--
plimit.stp	2.96 KB	-rwxr-xr-x
proc_snoop.stp	1.11 KB	-rwxr-xr-x
proc_snoop_parser.xml	818 B	-rw-r--r--
proc_snoop_parser_instructions...	2.13 KB	-rw-r--r--
procmod_watcher.meta	657 B	-rw-r--r--
procmod_watcher.stp	2.35 KB	-rw-r--r--
proctop.meta	601 B	-rw-r--r--
proctop.stp	4.15 KB	-rwxr-xr-x
proctop.txt	8.45 KB	-rw-r--r--
psig.meta	354 B	-rw-r--r--
psig.stp	5.48 KB	-rwxr-xr-x
pstrace_exec.meta	545 B	-rw-r--r--
pstrace_exec.stp	465 B	-rwxr-xr-x
pstree.meta	455 B	-rw-r--r--
pstree.stp	1.91 KB	-rwxr-xr-x
rlimit_nofile.meta	319 B	-rw-r--r--
rlimit_nofile.stp	1.12 KB	-rwxr-xr-x
sched-latency.meta	470 B	-rw-r--r--
sched-latency.stp	508 B	-rw-r--r--
sched-latency.txt	1.53 KB	-rw-r--r--
schedtimes.meta	814 B	-rw-r--r--
schedtimes.stp	3.84 KB	-rwxr-xr-x
schedtimes.txt	3.2 KB	-rw-r--r--
semop-watch.meta	267 B	-rw-r--r--
semop-watch.stp	795 B	-rwxr-xr-x
sig_by_pid.meta	357 B	-rw-r--r--
sig_by_pid.stp	1.04 KB	-rwxr-xr-x
sig_by_pid.txt	1.48 KB	-rw-r--r--
sig_by_proc.meta	364 B	-rw-r--r--
sig_by_proc.stp	839 B	-rwxr-xr-x
sig_by_proc.txt	951 B	-rw-r--r--
sigkill.meta	560 B	-rw-r--r--
sigkill.stp	656 B	-rwxr-xr-x
sigmon.meta	669 B	-rw-r--r--
sigmon.stp	932 B	-rwxr-xr-x
sleepingBeauties.meta	581 B	-rw-r--r--
sleepingBeauties.stp	1.33 KB	-rwxr-xr-x
sleepingBeauties.tcl	140 B	-rw-r--r--
sleeptime.meta	601 B	-rw-r--r--
sleeptime.stp	1.2 KB	-rwxr-xr-x
spawn_seeker.meta	854 B	-rw-r--r--
spawn_seeker.stp	1.49 KB	-rwxr-xr-x
spawn_seeker.txt	1.29 KB	-rw-r--r--
strace.meta	385 B	-rw-r--r--
strace.stp	2.03 KB	-rwxr-xr-x
strace.txt	3.59 KB	-rw-r--r--
syscalls_by_pid.meta	514 B	-rw-r--r--
syscalls_by_pid.stp	623 B	-rwxr-xr-x
syscalls_by_pid.txt	597 B	-rw-r--r--
syscalls_by_proc.meta	531 B	-rw-r--r--
syscalls_by_proc.stp	677 B	-rwxr-xr-x
syscalls_by_proc.txt	1.1 KB	-rw-r--r--
syscalltimes	6.14 KB	-rwxr-xr-x
syscalltimes.meta	454 B	-rw-r--r--
syscalltimes.txt	11.19 KB	-rw-r--r--
thread-business.meta	346 B	-rw-r--r--
thread-business.stp	866 B	-rwxr-xr-x
thread-business.txt	2.76 KB	-rw-r--r--
threadstacks.meta	585 B	-rw-r--r--
threadstacks.stp	1.43 KB	-rwxr-xr-x
threadstacks.tcl	79 B	-rw-r--r--
wait4time.meta	658 B	-rw-r--r--
wait4time.stp	1.32 KB	-rwxr-xr-x

Code Editor : syscalltimes

#!/bin/bash

# Syscalltimes systemtap script
# Copyright (C) 2007 IBM Corp.
# Copyright (C) 2011,2018 Red Hat, Inc.
#
# This file is part of systemtap, and is free software.  You can
# redistribute it and/or modify it under the terms of the GNU General
# Public License (GPL); either version 2, or (at your option) any
# later version.

###
### syscalltime - Combination shell/systemtap script to measure system call
###               counts and times.  Can be filtered by process IDs, process
###               names and users.
###

# Filter options
F_PIDSTR="";  F_PID=0   # Filter by process ID
F_EXECSTR=""; F_EXEC=0  # Filter by process name
F_UIDSTR="";  F_UID=0   # Filter by user
FILTER=0                # Any filters specified?

# Print options
P_TOTALS=0              # Print totals
P_VERBOSE_STR=""        # Print verbose build output
P_PROCESS_STR=""        # Run process during stap script invocation

DELIM=","

function usage {
	echo "USAGE: syscalltimes [-n pname]... [-p pid]... [-u username]... [-c 'process']"
	echo "                    [-v]... [-t] [-h]"
	echo "    -n pname     # filter by this process name"
	echo "    -p pid       # filter by this process ID"
	echo "    -u username  # filter by this user"
	echo "    -c 'process' # run 'process' then exit to show totals"
	echo "    -t           # print totals (default with filters: OFF"
	echo "                                 default without filters: ON)"
	echo "    -v           # print verbose output during SystemTap module creation"
	echo "    -h           # print this help text"
	echo ""
	echo "NOTE: This script can take long time to build. Use -v[vv] to monitor"
	echo "      the module creation and build process."
}

# Process options
while getopts n:p:u:c:vth option; do
	case $option in
	n)	let "F_EXEC++"
		F_EXECSTR=$OPTARG$DELIM$F_EXECSTR ;;

p)	let "F_PID++"
		F_PIDSTR=$OPTARG$DELIM$F_PIDSTR ;;

u)	uid=`awk -F: '$1 == name {print $3}' name=$OPTARG /etc/passwd`
		if [[ $uid != "" ]]; then
			let "F_UID++"
			F_UIDSTR=$uid$DELIM$F_UIDSTR
		else
			echo "ERROR: Unknown user:" $OPTARG
			let "ERROR++"
		fi ;;

v)	P_VERBOSE_STR="-v "$P_VERBOSE_STR ;;

t)	P_TOTALS=1 ;;

c)	P_PROCESS_STR="-c $OPTARG" ;;

h|?|*)  usage
		exit 1 ;;
	esac
done

if [[ $ERROR > 0 ]]; then
	exit 1
fi

if [[ $F_EXEC > 0 || $F_PID > 0 || $F_UID > 0 ]]; then
	FILTER=1
fi

echo "Creating and building SystemTap module..."

#
# SystemTap script
#
stap $P_VERBOSE_STR -w "$P_PROCESS_STR" -e '
global starttime, timebycall, timebypid, timebyuid, timebyexec
global f_exec_str, f_pid_str, f_uid_str
global f_exec, f_pid, f_uid
global prt_totals, filter_str

probe begin {
	printf("Collecting data - type Ctrl-C to print output and exit...\n")
	
	# If no filters specified, skip filter processing
	if ('$FILTER' == 0) {
		filter_str = " (unfiltered)"
		prt_totals = 1  // On by default if no filtering
		next
	} else
		filter_str = " (filtered)"

prt_totals   = '$P_TOTALS'
	if ('$F_EXEC') f_exec_str   = "'$F_EXECSTR'"
	if ('$F_PID') f_pid_str    = "'$F_PIDSTR'"
	if ('$F_UID') f_uid_str    = "'$F_UIDSTR'"

delim = "'$DELIM'"

# Process names
	if ('$F_EXEC') {
		pname = tokenize(f_exec_str, delim)
		while (pname != "") {
			f_exec[pname] = 1
			pname = tokenize("", delim)
		}
	}

# Process IDs
	if ('$F_PID') {
		pid = tokenize(f_pid_str, delim)
		while (pid != "") {
			f_pid[strtol(pid, 10)] = 1
			pid = tokenize("", delim)
		}
	}

# User IDs
	if ('$F_UID') {
		uid = tokenize(f_uid_str, delim)
		while (uid != "") {
			f_uid[strtol(uid, 10)] = 1
			uid = tokenize("", delim)
		}
	}
}

probe syscall_any {
	starttime[name, tid()] = gettimeofday_ns()
}

probe syscall_any.return {
	# Skip if we have not seen this before
	if (!([name, tid()] in starttime)) next

delta = gettimeofday_ns() - starttime[name, tid()]

# Check filters
	if ('$FILTER') {
		target = 0
		if (('$F_PID') && (pid() in f_pid)) {
			timebypid[name, pid()] <<< delta
			target = 1
		}
		if (('$F_UID') && (uid() in f_uid)) {
			timebyuid[name, uid()] <<< delta
			target = 1
		}
		if (('$F_EXEC') && (execname() in f_exec)) {
			timebyexec[name, execname()] <<< delta
			target = 1
		}
	} else
		target = 1

# Totals
	if (target && prt_totals)
		timebycall[name] <<< delta

delete starttime[name, tid()]
}

function print_header() {
	printf("%22s %10s %12s %12s %12s %12s\n",
	       "System Call", "Count", "Total ns",
	       "Avg ns", "Min ns", "Max ns")
}

probe end {
	if (prt_totals) {
		printf("\nTimes for all processes%s:\n\n", filter_str)
		print_header()
		foreach (call in timebycall)
			printf("%22s %10d %12d %12d %12d %12d\n", call,
			       @count(timebycall[call]),
			       @sum(timebycall[call]),
			       @avg(timebycall[call]),
		               @min(timebycall[call]),
			       @max(timebycall[call]))
	}

if ('$F_PID') {
		curpid = -1
		foreach ([call, pid-] in timebypid) {
			if (curpid != pid) {
				curpid = pid
				printf("\nTimes for process ID %d:\n\n", curpid)
				print_header()
			}
			printf("%22s %10d %12d %12d %12d %12d\n", call,
			       @count(timebypid[call, pid]),
			       @sum(timebypid[call, pid]),
			       @avg(timebypid[call, pid]),
			       @min(timebypid[call, pid]),
			       @max(timebypid[call, pid]))
		}
		printf("\n")
	}

if ('$F_EXEC') {
		curexec = ""
		foreach ([call, exec-] in timebyexec) {
			if (curexec != exec) {
				curexec = exec
				printf("\nTimes for process name %s:\n\n", curexec)
				print_header()
			}
			printf("%22s %10d %12d %12d %12d %12d\n", call,
			       @count(timebyexec[call, exec]),
			       @sum(timebyexec[call, exec]),
			       @avg(timebyexec[call, exec]),
			       @min(timebyexec[call, exec]),
			       @max(timebyexec[call, exec]))
		}
		printf("\n")
	}

if ('$F_UID') {
		curuid = -1
		foreach ([call, uid-] in timebyuid) {
			if (curuid != uid) {
				curuid = uid
				printf("\nTimes for user ID %d:\n\n", curuid)
				print_header()
			}
			printf("%22s %10d %12d %12d %12d %12d\n", call,
			       @count(timebyuid[call, uid]),
			       @sum(timebyuid[call, uid]),
			       @avg(timebyuid[call, uid]),
			       @min(timebyuid[call, uid]),
			       @max(timebyuid[call, uid]))
		}
		printf("\n")
	}

delete timebycall
	if ('$F_PID') delete timebypid
	if ('$F_UID') delete timebyuid
	if ('$F_EXEC') delete timebyexec
}'

${this.title}

Code Editor : syscalltimes