1 /*
2  * CDDL HEADER START
3  *
4  * The contents of this file are subject to the terms of the
5  * Common Development and Distribution License (the "License").
6  * You may not use this file except in compliance with the License.
7  *
8  * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
9  * or http://www.opensolaris.org/os/licensing.
10  * See the License for the specific language governing permissions
11  * and limitations under the License.
12  *
13  * When distributing Covered Code, include this CDDL HEADER in each
14  * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
15  * If applicable, add the following below this CDDL HEADER, with the
16  * fields enclosed by brackets "[]" replaced with your own identifying
17  * information: Portions Copyright [yyyy] [name of copyright owner]
18  *
19  * CDDL HEADER END
20  */
21 /*
22  * Copyright 2008 Sun Microsystems, Inc.  All rights reserved.
23  * Use is subject to license terms.
24  *
25  * This D script is used as an example in the Solaris Dynamic Tracing Guide
26  * wiki in the "ip Provider" Chapter.
27  *
28  * The full text of the this chapter may be found here:
29  *
30  *   http://wikis.sun.com/display/DTrace/ip+Provider
31  *
32  * On machines that have DTrace installed, this script is available as
33  * ipio.d in /usr/demo/dtrace, a directory that contains all D scripts
34  * used in the Solaris Dynamic Tracing Guide.  A table of the scripts and their
35  * corresponding chapters may be found here:
36  *
37  *   file:///usr/demo/dtrace/index.html
38  */
39 
40 #pragma D option quiet
41 #pragma D option switchrate=10hz
42 
43 dtrace:::BEGIN
44 {
45 	printf(" %3s %10s %15s    %15s %8s %6s\n", "CPU", "DELTA(us)",
46 	    "SOURCE", "DEST", "INT", "BYTES");
47 	last = timestamp;
48 }
49 
50 ip:::send
51 {
52 	this->elapsed = (timestamp - last) / 1000;
53 	printf(" %3d %10d %15s -> %15s %8s %6d\n", cpu, this->elapsed,
54 	    args[2]->ip_saddr, args[2]->ip_daddr, args[3]->if_name,
55 	    args[2]->ip_plength);
56 	last = timestamp;
57 }
58 
59 ip:::receive
60 {
61 	this->elapsed = (timestamp - last) / 1000;
62 	printf(" %3d %10d %15s <- %15s %8s %6d\n", cpu, this->elapsed,
63 	    args[2]->ip_daddr, args[2]->ip_saddr, args[3]->if_name,
64 	    args[2]->ip_plength);
65 	last = timestamp;
66 }
67