1#!/usr/sbin/dtrace -s
2/*
3 * pridist.d - process priority distribution.
4 *             Written using DTrace (Solaris 10 3/05)
5 *
6 * This is a simple DTrace script that samples at 1000 Hz which process
7 * is on the CPUs, and what the priority is. A distribution plot is printed.
8 *
9 * With priorities, the higher the priority the better chance the process
10 * (actually, thread) has of being scheduled.
11 *
12 * This idea came from the script /usr/demo/dtrace/profpri.d, which
13 * produces similar output for one particular PID.
14 *
15 * 22-Apr-2006, ver 1.01
16 *
17 * USAGE:       pridist.d       # hit Ctrl-C to end sampling
18 *
19 * FIELDS:
20 *              CMD             process name
21 *              PID             process ID
22 *              value           process priority
23 *              count           number of samples of at least this priority
24 *
25 * BASED ON: /usr/demo/dtrace/profpri.d
26 *
27 * SEE ALSO:
28 *           DTrace Guide "profile Provider" chapter (docs.sun.com)
29 *           dispadmin(1M)
30 *
31 * PORTIONS: Copyright (c) 2005 Brendan Gregg.
32 *
33 * CDDL HEADER START
34 *
35 *  The contents of this file are subject to the terms of the
36 *  Common Development and Distribution License, Version 1.0 only
37 *  (the "License").  You may not use this file except in compliance
38 *  with the License.
39 *
40 *  You can obtain a copy of the license at Docs/cddl1.txt
41 *  or http://www.opensolaris.org/os/licensing.
42 *  See the License for the specific language governing permissions
43 *  and limitations under the License.
44 *
45 * CDDL HEADER END
46 *
47 * 13-Jun-2005   Brendan Gregg   Created this.
48 */
49
50#pragma D option quiet
51
52dtrace:::BEGIN
53{
54	printf("Sampling... Hit Ctrl-C to end.\n");
55}
56
57profile:::profile-1000hz
58{
59	@Count[execname, pid] = lquantize(curlwpsinfo->pr_pri, 0, 100, 5);
60}
61
62dtrace:::END
63{
64	printa(" CMD: %-16s PID: %d\n%@d\n", @Count);
65}
66