diff options
Diffstat (limited to 'src/VBox/ExtPacks/VBoxDTrace/onnv/lib/libdtrace/common/tcp.d.in')
| -rw-r--r-- | src/VBox/ExtPacks/VBoxDTrace/onnv/lib/libdtrace/common/tcp.d.in | 269 |
1 files changed, 269 insertions, 0 deletions
diff --git a/src/VBox/ExtPacks/VBoxDTrace/onnv/lib/libdtrace/common/tcp.d.in b/src/VBox/ExtPacks/VBoxDTrace/onnv/lib/libdtrace/common/tcp.d.in new file mode 100644 index 00000000..2733e526 --- /dev/null +++ b/src/VBox/ExtPacks/VBoxDTrace/onnv/lib/libdtrace/common/tcp.d.in @@ -0,0 +1,269 @@ +/* + * CDDL HEADER START + * + * The contents of this file are subject to the terms of the + * Common Development and Distribution License (the "License"). + * You may not use this file except in compliance with the License. + * + * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE + * or http://www.opensolaris.org/os/licensing. + * See the License for the specific language governing permissions + * and limitations under the License. + * + * When distributing Covered Code, include this CDDL HEADER in each + * file and include the License file at usr/src/OPENSOLARIS.LICENSE. + * If applicable, add the following below this CDDL HEADER, with the + * fields enclosed by brackets "[]" replaced with your own identifying + * information: Portions Copyright [yyyy] [name of copyright owner] + * + * CDDL HEADER END + */ +/* + * Copyright (c) 2010, Oracle and/or its affiliates. All rights reserved. + */ + +#pragma D depends_on module unix +#pragma D depends_on provider tcp + +inline int TH_FIN = @TH_FIN@; +#pragma D binding "1.6.3" TH_FIN +inline int TH_SYN = @TH_SYN@; +#pragma D binding "1.6.3" TH_SYN +inline int TH_RST = @TH_RST@; +#pragma D binding "1.6.3" TH_RST +inline int TH_PUSH = @TH_PUSH@; +#pragma D binding "1.6.3" TH_PUSH +inline int TH_ACK = @TH_ACK@; +#pragma D binding "1.6.3" TH_ACK +inline int TH_URG = @TH_URG@; +#pragma D binding "1.6.3" TH_URG +inline int TH_ECE = @TH_ECE@; +#pragma D binding "1.6.3" TH_ECE +inline int TH_CWR = @TH_CWR@; +#pragma D binding "1.6.3" TH_CWR + +inline int32_t TCP_STATE_CLOSED = @TCPS_CLOSED@; +#pragma D binding "1.6.3" TCP_STATE_CLOSED +inline int32_t TCP_STATE_IDLE = @TCPS_IDLE@; +#pragma D binding "1.6.3" TCP_STATE_IDLE +inline int32_t TCP_STATE_BOUND = @TCPS_BOUND@; +#pragma D binding "1.6.3" TCP_STATE_BOUND +inline int32_t TCP_STATE_LISTEN = @TCPS_LISTEN@; +#pragma D binding "1.6.3" TCP_STATE_LISTEN +inline int32_t TCP_STATE_SYN_SENT = @TCPS_SYN_SENT@; +#pragma D binding "1.6.3" TCP_STATE_SYN_SENT +inline int32_t TCP_STATE_SYN_RECEIVED = @TCPS_SYN_RCVD@; +#pragma D binding "1.6.3" TCP_STATE_SYN_RECEIVED +inline int32_t TCP_STATE_ESTABLISHED = @TCPS_ESTABLISHED@; +#pragma D binding "1.6.3" TCP_STATE_ESTABLISHED +inline int32_t TCP_STATE_CLOSE_WAIT = @TCPS_CLOSE_WAIT@; +#pragma D binding "1.6.3" TCP_STATE_CLOSE_WAIT +inline int32_t TCP_STATE_FIN_WAIT_1 = @TCPS_FIN_WAIT_1@; +#pragma D binding "1.6.3" TCP_STATE_FIN_WAIT_1 +inline int32_t TCP_STATE_CLOSING = @TCPS_CLOSING@; +#pragma D binding "1.6.3" TCP_STATE_CLOSING +inline int32_t TCP_STATE_LAST_ACK = @TCPS_LAST_ACK@; +#pragma D binding "1.6.3" TCP_STATE_LAST_ACK +inline int32_t TCP_STATE_FIN_WAIT_2 = @TCPS_FIN_WAIT_2@; +#pragma D binding "1.6.3" TCP_STATE_FIN_WAIT_2 +inline int32_t TCP_STATE_TIME_WAIT = @TCPS_TIME_WAIT@; +#pragma D binding "1.6.3" TCP_STATE_TIME_WAIT + +/* + * Convert a TCP state value to a string. + */ +inline string tcp_state_string[int32_t state] = + state == TCP_STATE_CLOSED ? "state-closed" : + state == TCP_STATE_IDLE ? "state-idle" : + state == TCP_STATE_BOUND ? "state-bound" : + state == TCP_STATE_LISTEN ? "state-listen" : + state == TCP_STATE_SYN_SENT ? "state-syn-sent" : + state == TCP_STATE_SYN_RECEIVED ? "state-syn-received" : + state == TCP_STATE_ESTABLISHED ? "state-established" : + state == TCP_STATE_CLOSE_WAIT ? "state-close-wait" : + state == TCP_STATE_FIN_WAIT_1 ? "state-fin-wait-1" : + state == TCP_STATE_CLOSING ? "state-closing" : + state == TCP_STATE_LAST_ACK ? "state-last-ack" : + state == TCP_STATE_FIN_WAIT_2 ? "state-fin-wait-2" : + state == TCP_STATE_TIME_WAIT ? "state-time-wait" : + "<unknown>"; +#pragma D binding "1.6.3" tcp_state_string + +/* + * tcpinfo is the TCP header fields. + */ +typedef struct tcpinfo { + uint16_t tcp_sport; /* source port */ + uint16_t tcp_dport; /* destination port */ + uint32_t tcp_seq; /* sequence number */ + uint32_t tcp_ack; /* acknowledgment number */ + uint8_t tcp_offset; /* data offset, in bytes */ + uint8_t tcp_flags; /* flags */ + uint16_t tcp_window; /* window size */ + uint16_t tcp_checksum; /* checksum */ + uint16_t tcp_urgent; /* urgent data pointer */ + tcph_t *tcp_hdr; /* raw TCP header */ +} tcpinfo_t; + +/* + * tcpsinfo contains stable TCP details from tcp_t. + */ +typedef struct tcpsinfo { + uintptr_t tcps_addr; + int tcps_local; /* is delivered locally, boolean */ + int tcps_active; /* active open (from here), boolean */ + uint16_t tcps_lport; /* local port */ + uint16_t tcps_rport; /* remote port */ + string tcps_laddr; /* local address, as a string */ + string tcps_raddr; /* remote address, as a string */ + int32_t tcps_state; /* TCP state */ + uint32_t tcps_iss; /* Initial sequence # sent */ + uint32_t tcps_suna; /* sequence # sent but unacked */ + uint32_t tcps_snxt; /* next sequence # to send */ + uint32_t tcps_rack; /* sequence # we have acked */ + uint32_t tcps_rnxt; /* next sequence # expected */ + uint32_t tcps_swnd; /* send window size */ + int32_t tcps_snd_ws; /* send window scaling */ + uint32_t tcps_rwnd; /* receive window size */ + int32_t tcps_rcv_ws; /* receive window scaling */ + uint32_t tcps_cwnd; /* congestion window */ + uint32_t tcps_cwnd_ssthresh; /* threshold for congestion avoidance */ + uint32_t tcps_sack_fack; /* SACK sequence # we have acked */ + uint32_t tcps_sack_snxt; /* next SACK seq # for retransmission */ + uint32_t tcps_rto; /* round-trip timeout, msec */ + uint32_t tcps_mss; /* max segment size */ + int tcps_retransmit; /* retransmit send event, boolean */ +} tcpsinfo_t; + +/* + * tcplsinfo provides the old tcp state for state changes. + */ +typedef struct tcplsinfo { + int32_t tcps_state; /* previous TCP state */ +} tcplsinfo_t; + +/* + * __dtrace_tcp_tcph_t is used by the tcpinfo_t * translator to take either + * the non-NULL tcph_t * passed in or, if it is NULL, uses arg3 (tcp_t *) + * from the tcp:::send and tcp:::recieve probes and translates the tcp_t * + * into the tcpinfo_t. When no headers are available - as is the case for + * TCP fusion tcp:::send and tcp:::receive - this allows us to present the + * consumer with header data based on tcp_t * content and hide TCP fusion + * implementation details. + */ +typedef tcph_t * __dtrace_tcp_tcph_t; + +#pragma D binding "1.6.3" translator +translator tcpinfo_t < tcph_t *T > { + tcp_sport = ntohs(*(uint16_t *)T->th_lport); + tcp_dport = ntohs(*(uint16_t *)T->th_fport); + tcp_seq = ntohl(*(uint32_t *)T->th_seq); + tcp_ack = ntohl(*(uint32_t *)T->th_ack); + tcp_offset = (*(uint8_t *)T->th_offset_and_rsrvd & 0xf0) >> 2; + tcp_flags = *(uint8_t *)T->th_flags; + tcp_window = ntohs(*(uint16_t *)T->th_win); + tcp_checksum = ntohs(*(uint16_t *)T->th_sum); + tcp_urgent = ntohs(*(uint16_t *)T->th_urp); + tcp_hdr = T; +}; + +#pragma D binding "1.6.3" translator +translator tcpinfo_t < __dtrace_tcp_tcph_t *T > { + tcp_sport = + T != NULL ? ntohs(*(uint16_t *)((tcph_t *)T)->th_lport) : + arg3 != NULL && probename == "send" ? + ntohs(((tcp_t *)arg3)->tcp_connp->u_port.connu_ports.connu_lport) : + arg3 != NULL && probename == "receive" ? + ntohs(((tcp_t *)arg3)->tcp_connp->u_port.connu_ports.connu_fport) : + 0; + tcp_dport = + T != NULL ? ntohs(*(uint16_t *)((tcph_t *)T)->th_fport) : + arg3 != NULL && probename == "send" ? + ntohs(((tcp_t *)arg3)->tcp_connp->u_port.connu_ports.connu_fport) : + arg3 != NULL && probename == "receive" ? + ntohs(((tcp_t *)arg3)->tcp_connp->u_port.connu_ports.connu_lport) : + 0; + tcp_seq = + T != NULL ? ntohl(*(uint32_t *)((tcph_t *)T)->th_seq) : + arg3 != NULL && probename == "send" ? + ((tcp_t *)arg3)->tcp_snxt - ((tcp_t *)arg3)->tcp_last_sent_len : + arg3 != NULL && probename == "receive" ? + ((tcp_t *)arg3)->tcp_rnxt - ((tcp_t *)arg3)->tcp_last_recv_len : + 0; + tcp_ack = + T != NULL ? ntohl(*(uint32_t *)((tcph_t *)T)->th_ack) : + arg3 != NULL && probename == "send" ? + ((tcp_t *)arg3)->tcp_rnxt : + arg3 != NULL && probename == "receive" ? + ((tcp_t *)arg3)->tcp_snxt : + 0; + tcp_offset = T != NULL ? + (*(uint8_t *)((tcph_t *)T)->th_offset_and_rsrvd & 0xf0) >> 2 : + @TCP_MIN_HEADER_LENGTH@; + tcp_flags = T != NULL ? *(uint8_t *)((tcph_t *)T)->th_flags : TH_ACK; + tcp_window = T != NULL ? ntohs(*(uint16_t *)((tcph_t *)T)->th_win) : + arg3 != NULL ? ((tcp_t *)arg3)->tcp_swnd : 0; + tcp_checksum = T != NULL ? ntohs(*(uint16_t *)((tcph_t *)T)->th_sum) : + 0; + tcp_urgent = T != NULL ? ntohs(*(uint16_t *)((tcph_t *)T)->th_urp) : 0; + tcp_hdr = NULL; +}; + +#pragma D binding "1.6.3" translator +translator tcpsinfo_t < tcp_t *T > { + tcps_addr = (uintptr_t)T; + /* + * The following two members should just use tcp_t->tcp_loopback + * and tcp_t->tcp_active_open, however these are bit fields and + * can't be used until CR 6876830 is fixed. Meanwhile we source + * them a different way. + */ + tcps_local = T ? T->tcp_ipha ? + T->tcp_ipha->ipha_src == T->tcp_ipha->ipha_dst : 1 : 0; + tcps_active = T ? !T->tcp_saved_listener : 0; + tcps_lport = T ? + ntohs(T->tcp_connp->u_port.connu_ports.connu_lport) : 0; + tcps_rport = T ? + ntohs(T->tcp_connp->u_port.connu_ports.connu_fport) : 0; + tcps_laddr = T ? + inet_ntoa6(&T->tcp_connp->connua_v6addr.connua_laddr) : "<unknown>"; + tcps_raddr = T ? + inet_ntoa6(&T->tcp_connp->connua_v6addr.connua_faddr) : "<unknown>"; + tcps_state = T ? T->tcp_state : TCP_STATE_CLOSED; + tcps_iss = T ? T->tcp_iss : 0; + tcps_suna = T ? T->tcp_suna : 0; + tcps_snxt = T ? T->tcp_snxt : 0; + tcps_rack = T ? T->tcp_rack : 0; + tcps_rnxt = T ? T->tcp_rnxt : 0; + tcps_swnd = T ? T->tcp_swnd : 0; + tcps_snd_ws = T ? T->tcp_snd_ws : 0; + tcps_rwnd = T ? T->tcp_rwnd : 0; + tcps_rcv_ws = T ? T->tcp_rcv_ws : 0; + tcps_cwnd = T ? T->tcp_cwnd : 0; + tcps_cwnd_ssthresh = T ? T->tcp_cwnd_ssthresh : 0; + tcps_sack_fack = T ? T->tcp_sack_info.tcp_fack : 0; + tcps_sack_snxt = T ? T->tcp_sack_info.tcp_sack_snxt : 0; + tcps_rto = T ? T->tcp_rto : 0; + tcps_mss = T ? T->tcp_mss : 0; + /* + * Determine if send is a retransmission by comparing the seq # to + * tcp_rexmit_nxt/tcp_rexmit_max - if the value is >= rexmit_nxt and + * < rexmit_max, this is a retransmission. Cannot use tcp_rexmit + * bitfield value due to CR 6876830. + */ + tcps_retransmit = T && probename == "send" && arg4 != NULL && + ntohl(*(uint32_t *)((tcph_t *)arg4)->th_seq) >= T->tcp_rexmit_nxt && + ntohl(*(uint32_t *)((tcph_t *)arg4)->th_seq) < T->tcp_rexmit_max ? + 1 : 0; +}; + +/* + * Note: although we specify that the old state argument used as the + * input to the tcplsinfo_t translator is an int32_t, it reaches us as an + * int64_t (since it is a probe argument) so explicitly cast it back to + * interpret the negatively-valued states correctly. + */ +#pragma D binding "1.6.3" translator +translator tcplsinfo_t < int64_t I > { + tcps_state = (int32_t) I; +}; |