xref: /titanic_52/usr/src/cmd/dtrace/demo/tcp/tcp1stbyte.d (revision b1d7ec75953cd517f5b7c3d9cb427ff8ec5d7d07)
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:::connect-established
27 {
28 	start[args[1]->cs_cid] = timestamp;
29 }
30 
31 tcp:::receive
32 /start[args[1]->cs_cid] && (args[2]->ip_plength - args[4]->tcp_offset) > 0/
33 {
34 	@latency["1st Byte Latency (ns)", args[2]->ip_saddr] =
35 	    quantize(timestamp - start[args[1]->cs_cid]);
36 	start[args[1]->cs_cid] = 0;
37 }
38