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 * $Id: pridist.d,v 1.1.1.1 2015/09/30 22:01:07 christos Exp $
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 * 22-Apr-2006	   "      "	Last update.
49 */
50
51#pragma D option quiet
52
53dtrace:::BEGIN
54{
55	printf("Sampling... Hit Ctrl-C to end.\n");
56}
57
58profile:::profile-1000hz
59{
60	@Count[execname, pid] = lquantize(curlwpsinfo->pr_pri, 0, 170, 5);
61}
62
63dtrace:::END
64{
65	printa(" CMD: %-16s PID: %d\n%@d\n", @Count);
66}
67