1N/A * tcl_calltime.d - measure Tcl elapsed times for different types of operation. 1N/A * Written for the Tcl DTrace provider. 1N/A * $Id: tcl_calltime.d 63 2007-10-04 04:34:38Z brendan $ 1N/A * USAGE: tcl_calltime.d [top] # hit Ctrl-C to end 1N/A * tcl_calltime.d # default, truncate to 10 lines 1N/A * tcl_calltime.d 25 # truncate each report section to 25 lines 1N/A * This traces activity from all Tcl processes on the system with DTrace 1N/A * provider support (tcl8.4.16). 1N/A * TOTAL Total elapsed time for calls (us) 1N/A * COPYRIGHT: Copyright (c) 2007 Brendan Gregg. 1N/A * The contents of this file are subject to the terms of the 1N/A * Common Development and Distribution License, Version 1.0 only 1N/A * (the "License"). You may not use this file except in compliance 1N/A * See the License for the specific language governing permissions 1N/A * and limitations under the License. 1N/A * 09-Sep-2007 Brendan Gregg Created this. 1N/A#
define TOP 10 /* default output truncation */ 1N/A printf(
" %6s %-10s %-48s %8s\n",
"PID",
"TYPE",
"NAME",
"COUNT");
1N/A printf(
" %6s %-10s %-48s %8s\n",
"PID",
"TYPE",
"NAME",
"TOTAL");
1N/A printf(
" %6s %-10s %-48s %8s\n",
"PID",
"TYPE",
"NAME",
"TOTAL");