cddl/contrib/dtracetoolkit/Perl/pl_flowtime.d

   1 #!/usr/sbin/dtrace -Zs
   2 /*
   3  * pl_flowtime.d - snoop Perl subroutines with flow and delta times.
   4  *                 Written for the Perl DTrace provider.
   5  *
   6  * $Id: pl_flowtime.d 41 2007-09-17 02:20:10Z brendan $
   7  *
   8  * This traces shell activity from Perl programs on the system that are
   9  * running with Perl provider support.
  10  *
  11  * USAGE: pl_flowtime.d                 # hit Ctrl-C to end
  12  *
  13  * This watches Perl subroutine entries and returns, and indents child
  14  * subroutine calls.
  15  *
  16  * FIELDS:
  17  *              C               CPU-id
  18  *              TIME(us)        Time since boot, us
  19  *              FILE            Filename that this subroutine belongs to
  20  *              DELTA(us)       Elapsed time from previous line to this line
  21  *              SUB             Perl subroutine name
  22  *
  23  * LEGEND:
  24  *              ->              method entry
  25  *              <-              method return
  26  *
  27  * Filename and subroutine names are printed if available.
  28  *
  29  * WARNING: Watch the first column carefully, it prints the CPU-id. If it
  30  * changes, then it is very likely that the output has been shuffled.
  31  *
  32  * COPYRIGHT: Copyright (c) 2007 Brendan Gregg.
  33  *
  34  * CDDL HEADER START
  35  *
  36  *  The contents of this file are subject to the terms of the
  37  *  Common Development and Distribution License, Version 1.0 only
  38  *  (the "License").  You may not use this file except in compliance
  39  *  with the License.
  40  *
  41  *  You can obtain a copy of the license at Docs/cddl1.txt
  42  *  or http://www.opensolaris.org/os/licensing.
  43  *  See the License for the specific language governing permissions
  44  *  and limitations under the License.
  45  *
  46  * CDDL HEADER END
  47  *
  48  * 09-Sep-2007  Brendan Gregg   Created this.
  49  */
  50
  51 #pragma D option quiet
  52 #pragma D option switchrate=10
  53
  54 self int depth;
  55 self int last;
  56
  57 dtrace:::BEGIN
  58 {
  59         printf("%3s %-16s %-16s %9s  -- %s\n", "C", "TIME(us)", "FILE",
  60             "DELTA(us)", "SUB");
  61 }
  62
  63 perl*:::sub-entry,
  64 perl*:::sub-return
  65 /self->last == 0/
  66 {
  67         self->last = timestamp;
  68 }
  69
  70 perl*:::sub-entry
  71 {
  72         this->delta = (timestamp - self->last) / 1000;
  73         printf("%3d %-16d %-16s %9d %*s-> %s\n", cpu, timestamp / 1000,
  74             basename(copyinstr(arg1)), this->delta, self->depth * 2, "",
  75             copyinstr(arg0));
  76         self->depth++;
  77         self->last = timestamp;
  78 }
  79
  80 perl*:::sub-return
  81 {
  82         this->delta = (timestamp - self->last) / 1000;
  83         self->depth -= self->depth > 0 ? 1 : 0;
  84         printf("%3d %-16d %-16s %9d %*s<- %s\n", cpu, timestamp / 1000,
  85             basename(copyinstr(arg1)), this->delta, self->depth * 2, "",
  86             copyinstr(arg0));
  87         self->last = timestamp;
  88 }