xref: /titanic_50/usr/src/cmd/dtrace/demo/tcp/tcpbytes.d (revision 44c4f64b9f50f21ae3e51ad48a595c85f53db4bc)
1 #!/usr/sbin/dtrace -s
2 /*
3  * CDDL HEADER START
4  *
5  * The contents of this file are subject to the terms of the
6  * Common Development and Distribution License (the "License").
7  * You may not use this file except in compliance with the License.
8  *
9  * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
10  * or http://www.opensolaris.org/os/licensing.
11  * See the License for the specific language governing permissions
12  * and limitations under the License.
13  *
14  * When distributing Covered Code, include this CDDL HEADER in each
15  * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
16  * If applicable, add the following below this CDDL HEADER, with the
17  * fields enclosed by brackets "[]" replaced with your own identifying
18  * information: Portions Copyright [yyyy] [name of copyright owner]
19  *
20  * CDDL HEADER END
21  */
22 /*
23  * Copyright (c) 2010, Oracle and/or its affiliates. All rights reserved.
24  */
25 
26 tcp:::receive
27 {
28 	@bytes[args[2]->ip_saddr, args[4]->tcp_dport] =
29 	    sum(args[2]->ip_plength - args[4]->tcp_offset);
30 }
31 
32 tcp:::send
33 {
34 	@bytes[args[2]->ip_daddr, args[4]->tcp_sport] =
35 	    sum(args[2]->ip_plength - args[4]->tcp_offset);
36 }
37