1#!/usr/sbin/dtrace -s
2/*
3 * cswstat.d - context switch time stat.
4 *	       Uses DTrace (Solaris 10 03/05)
5 *
6 * This prints a context switch count and consumed time for context
7 * switching every second.
8 *
9 * $Id: cswstat.d 15 2007-09-11 09:09:25Z brendan $
10 *
11 * USAGE:	cswstat.d
12 *
13 * FIELDS:
14 *		TIME		Current time
15 *		NUM		Number of context switches
16 *		CSWTIME(us)	Time consumed context switching, us
17 *		AVGTIME(us)	Average context switch time, us
18 *
19 * THANKS: Toomas Soome
20 *
21 * COPYRIGHT: Copyright (c) 2005 Brendan Gregg.
22 *
23 * CDDL HEADER START
24 *
25 *  The contents of this file are subject to the terms of the
26 *  Common Development and Distribution License, Version 1.0 only
27 *  (the "License").  You may not use this file except in compliance
28 *  with the License.
29 *
30 *  You can obtain a copy of the license at Docs/cddl1.txt
31 *  or http://www.opensolaris.org/os/licensing.
32 *  See the License for the specific language governing permissions
33 *  and limitations under the License.
34 *
35 * CDDL HEADER END
36 *
37 * 17-May-2005  Brendan Gregg   Created this.
38 * 03-Nov-2005	   "      "	Last update.
39 */
40
41#pragma D option quiet
42
43dtrace:::BEGIN
44{
45	/* print header */
46	printf("%-20s  %8s %12s %12s\n", "TIME", "NUM", "CSWTIME(us)",
47	    "AVGTIME(us)");
48	times = 0;
49	num = 0;
50}
51
52sched:::off-cpu
53{
54	/* csw start */
55	num++;
56	start[cpu] = timestamp;
57}
58
59sched:::on-cpu
60/start[cpu]/
61{
62	/* csw end */
63	times += timestamp - start[cpu];
64	start[cpu] = 0;
65}
66
67profile:::tick-1sec
68{
69	/* print output */
70	printf("%20Y  %8d %12d %12d\n", walltimestamp, num, times/1000,
71	    num == 0 ? 0 : times/(1000 * num));
72	times = 0;
73	num = 0;
74}
75