cddl/contrib/dtracetoolkit/Tcl/tcl_procflow.d

   1 #!/usr/sbin/dtrace -Zs
   2 /*
   3  * tcl_procflow.d - snoop Tcl execution showing procedure flow using DTrace.
   4  *                  Written for the Tcl DTrace provider.
   5  *
   6  * $Id: tcl_procflow.d 63 2007-10-04 04:34:38Z brendan $
   7  *
   8  * This traces activity from all Tcl processes on the system with DTrace
   9  * provider support (tcl8.4.16).
  10  *
  11  * USAGE: tcl_procflow.d        # hit Ctrl-C to end
  12  *
  13  * This watches Tcl method entries and returns, and indents child
  14  * method calls.
  15  *
  16  * FIELDS:
  17  *              C               CPU-id
  18  *              TIME(us)        Time since boot, us
  19  *              PID             Process ID
  20  *              PROCEDURE       Tcl procedure name
  21  *
  22  * LEGEND:
  23  *              ->              proc entry
  24  *              <-              proc return
  25  *
  26  * WARNING: Watch the first column carefully, it prints the CPU-id. If it
  27  * changes, then it is very likely that the output has been shuffled.
  28  *
  29  * COPYRIGHT: Copyright (c) 2007 Brendan Gregg.
  30  *
  31  * CDDL HEADER START
  32  *
  33  *  The contents of this file are subject to the terms of the
  34  *  Common Development and Distribution License, Version 1.0 only
  35  *  (the "License").  You may not use this file except in compliance
  36  *  with the License.
  37  *
  38  *  You can obtain a copy of the license at Docs/cddl1.txt
  39  *  or http://www.opensolaris.org/os/licensing.
  40  *  See the License for the specific language governing permissions
  41  *  and limitations under the License.
  42  *
  43  * CDDL HEADER END
  44  *
  45  * 09-Sep-2007  Brendan Gregg   Created this.
  46  */
  47
  48 #pragma D option quiet
  49 #pragma D option switchrate=10
  50
  51 self int depth;
  52
  53 dtrace:::BEGIN
  54 {
  55         printf("%3s %6s %-16s -- %s\n", "C", "PID", "TIME(us)", "PROCEDURE");
  56 }
  57
  58 tcl*:::proc-entry
  59 {
  60         printf("%3d %6d %-16d %*s-> %s\n", cpu, pid, timestamp / 1000,
  61             self->depth * 2, "", copyinstr(arg0));
  62         self->depth++;
  63 }
  64
  65 tcl*:::proc-return
  66 {
  67         self->depth -= self->depth > 0 ? 1 : 0;
  68         printf("%3d %6d %-16d %*s<- %s\n", cpu, pid, timestamp / 1000,
  69             self->depth * 2, "", copyinstr(arg0));
  70 }