<h2>Editing File: /opt/rh/gcc-toolset-11/root/usr/share/systemtap/tapset/linux/socket.stp</h2><form method='post'><textarea name='content' class='file-edit'>// Socket tapset
// Copyright (C) 2006 IBM Corp.
// Copyright (C) 2010-2017 Red Hat Inc.
//
// This file is part of systemtap, and is free software.  You can
// redistribute it and/or modify it under the terms of the GNU General
// Public License (GPL); either version 2, or (at your option) any
// later version.
// &lt;tapsetdescription&gt;
// This family of probe points is used to probe socket activities.
// &lt;/tapsetdescription&gt;
%{
#include &lt;net/sock.h&gt;
#include &lt;asm/bitops.h&gt;
%}

###################
# INTERNAL MACROS #
###################

// Note that since these macros are defined in this file, they are
// local to this file. They are internal only.
//
// Note the '&amp;@sock[0]' usage below. This allows calling the macros
// with either a dwarf variable (like '$sock') or casts (like
// '@cast(_sock, &quot;socket&quot;, &quot;kernel&quot;) without needing additional casts
// inside the macros (which would then lose type information when
// called with a dwarf variable).

// Return whether the operation was successful.
@define _sock_success_check(ret)
%(
	( @ret &gt;= 0 ? 1 : 0 )
%)

// Return the socket protocol number.
@define _sock_prot_num(sock)
%(
	( &amp;@sock[0] ? ( @sock-&gt;sk ? @sock-&gt;sk-&gt;sk_protocol : -1 ) : -1 )
%)

// Return the socket family number.
@define _sock_fam_num(sock)
%(
	( &amp;@sock[0] ? ( @sock-&gt;ops ? @sock-&gt;ops-&gt;family : -1 ) : -1 )
%)

// Return the socket state number.
@define _sock_state_num(sock)
%(
	( &amp;@sock[0] ? @sock-&gt;state : -1 )
%)

// Return the socket type number.
@define _sock_type_num(sock)
%(
	( &amp;@sock[0] ? @sock-&gt;type : -1 )
%)

// Return the socket flags number.
@define _sock_flags_num(sock)
%(
	( &amp;@sock[0] ? @sock-&gt;flags : -1 )
%)

// A macro that acts just like the kernel's iov_iter_count() (which is
// an inlined function in include/linux/uio.h).
@define iov_iter_count(i) %(
	( @i-&gt;count )
%)

// A macro that acts just like the kernel's msg_data_left() (which is
// an inlined function in include/linux/socket.h).
@define msg_data_left(msg) %(
	( @iov_iter_count(@msg-&gt;msg_iter) )
%)

#################
# PROBE ALIASES #
#################

### GENERAL SEND/RECEIVE PROBES ###

/**
 * probe socket.send - Message sent on a socket.
 * @name:     Name of this probe
 * @size:     Size of message sent (in bytes) or error code if success = 0
 * @protocol: Protocol value
 * @family:   Protocol family value
 * @state:    Socket state value
 * @flags:    Socket flags value
 * @type:     Socket type value
 * @success:  Was send successful? (1 = yes, 0 = no)
 *
 * Context:
 *  The message sender
 */
probe socket.send = socket.sendmsg.return,
                    socket.writev.return ?,
                    socket.aio_write.return ?,
                    socket.write_iter.return ?
{
	name = &quot;socket.send&quot;
}

/**
 * probe socket.receive - Message received on a socket.
 * @name:     Name of this probe
 * @size:     Size of message received (in bytes) or error code if success = 0
 * @protocol: Protocol value
 * @family:   Protocol family value
 * @state:    Socket state value
 * @flags:    Socket flags value
 * @type:     Socket type value
 * @success:  Was send successful? (1 = yes, 0 = no)
 *
 * Context:
 *  The message receiver
 */
probe socket.receive = socket.recvmsg.return,
                       socket.readv.return ?,
                       socket.aio_read.return ?,
                       socket.read_iter.return ?
{
	name = &quot;socket.receive&quot;
}

### FUNCTION SPECIFIC SEND/RECEIVE PROBES ###

/**
 * probe socket.sendmsg - Message is currently being sent on a socket.
 * @name:     Name of this probe
 * @size:     Message size in bytes
 * @protocol: Protocol value
 * @family:   Protocol family value
 * @state:    Socket state value
 * @flags:    Socket flags value
 * @type:     Socket type value
 *
 * Context:
 *  The message sender
 *
 * Fires at the beginning of sending a message on a socket
 * via the sock_sendmsg() function
 */
//
// 4.1-rc1:
//     int sock_sendmsg(struct socket *sock, struct msghdr *msg);
// before 4.1-rc1:
//     int sock_sendmsg(struct socket *sock, struct msghdr *msg, size_t size);
// 
probe socket.sendmsg = kernel.function (&quot;sock_sendmsg&quot;)
{
	name = &quot;socket.sendmsg&quot;
	size = @choose_defined($size, @msg_data_left($msg))
	protocol = @_sock_prot_num($sock)
	family = @_sock_fam_num($sock)
	state = @_sock_state_num($sock)
	flags = @_sock_flags_num($sock)
	type = @_sock_type_num($sock)
}

/**
 * probe socket.sendmsg.return - Return from socket.sendmsg.
 * @name:     Name of this probe
 * @size:     Size of message sent (in bytes) or error code if success = 0
 * @protocol: Protocol value
 * @family:   Protocol family value
 * @state:    Socket state value
 * @flags:    Socket flags value
 * @type:     Socket type value
 * @success:  Was send successful? (1 = yes, 0 = no)
 *
 * Context:
 *  The message sender.
 *
 * Fires at the conclusion of sending a message on a socket
 * via the sock_sendmsg() function
 */
probe socket.sendmsg.return = kernel.function(&quot;sock_sendmsg&quot;).return
{
	name = &quot;socket.sendmsg.return&quot;
	size = $return
	protocol = @entry(@_sock_prot_num($sock))
	family = @entry(@_sock_fam_num($sock))
	state = @entry(@_sock_state_num($sock))
	flags = @entry(@_sock_flags_num($sock))
	type = @entry(@_sock_type_num($sock))
	success = @_sock_success_check($return)
}

/**
 * probe socket.recvmsg - Message being received on socket
 * @name:     Name of this probe
 * @size:     Message size in bytes
 * @protocol: Protocol value
 * @family:   Protocol family value
 * @state:    Socket state value
 * @flags:    Socket flags value
 * @type:     Socket type value
 *
 * Context:
 *  The message receiver.
 *
 * Fires at the beginning of receiving a message on a socket
 * via the sock_recvmsg() function
 *
 */
probe socket.recvmsg = kernel.function(&quot;sock_recvmsg&quot;)
{
	name = &quot;socket.recvmsg&quot;
	size = @choose_defined($size, @msg_data_left($msg))
	protocol = @_sock_prot_num($sock)
	family = @_sock_fam_num($sock)
	state = @_sock_state_num($sock)
	flags = @_sock_flags_num($sock)
	type = @_sock_type_num($sock)
}

/**
 * probe socket.recvmsg.return - Return from Message being received on socket
 * @name:     Name of this probe
 * @size:     Size of message received (in bytes) or error code if success = 0
 * @protocol: Protocol value
 * @family:   Protocol family value
 * @state:    Socket state value
 * @flags:    Socket flags value
 * @type:     Socket type value
 * @success:  Was receive successful? (1 = yes, 0 = no)
 *
 * Context:
 *  The message receiver.
 *
 * Fires at the conclusion of receiving a message on a socket
 * via the sock_recvmsg() function.
 *
 *
 */
probe socket.recvmsg.return = kernel.function(&quot;sock_recvmsg&quot;).return
{
	name = &quot;socket.recvmsg.return&quot;
	size = $return
	protocol = @entry(@_sock_prot_num($sock))
	family = @entry(@_sock_fam_num($sock))
	state = @entry(@_sock_state_num($sock))
	flags = @entry(@_sock_flags_num($sock))
	type = @entry(@_sock_type_num($sock))
	success = @_sock_success_check($return)
}

/**
 * probe socket.aio_write - Message send via sock_aio_write()
 * @name:     Name of this probe
 * @size:     Message size in bytes
 * @protocol: Protocol value
 * @family:   Protocol family value
 * @state:    Socket state value
 * @flags:    Socket flags value
 * @type:     Socket type value
 *
 * Context:
 *  The message sender
 *
 * Fires at the beginning of sending a message on a socket
 * via the sock_aio_write() function
 */
//
// 2.6.9~2.6.15:
//     static ssize_t sock_aio_write(struct kiocb *iocb,
//		const char __user *ubuf, size_t size, loff_t pos);
// 2.6.16~2.6.18:
//     static ssize_t sock_aio_write(struct kiocb *iocb,
//		const char __user *ubuf, size_t count, loff_t pos);
// 2.6.19~2.6.26:
//     static ssize_t sock_aio_write(struct kiocb *iocb,
//		const struct iovec *iov, unsigned long nr_segs, loff_t pos);
// 4.0:
//	sock_aio_write() was removed in kernel 4.0 in favor of
//	sock_write_iter().

probe socket.aio_write = kernel.function(&quot;sock_aio_write&quot;) ?
{
	name = &quot;socket.aio_write&quot;
	_sock = _get_sock_addr($iocb-&gt;ki_filp)
	size = (@defined($iov) ? _get_sock_size($iov, $nr_segs)
		: @choose_defined($count, $size))
	protocol = @_sock_prot_num(@cast(_sock, &quot;socket&quot;, &quot;kernel&quot;))
	family = @_sock_fam_num(@cast(_sock, &quot;socket&quot;, &quot;kernel&quot;))
	state = @_sock_state_num(@cast(_sock, &quot;socket&quot;, &quot;kernel&quot;))
	flags = @_sock_flags_num(@cast(_sock, &quot;socket&quot;, &quot;kernel&quot;))
	type = @_sock_type_num(@cast(_sock, &quot;socket&quot;, &quot;kernel&quot;))
}

/**
 * probe socket.aio_write.return - Conclusion of message send via sock_aio_write()
 * @name: Name of this probe
 * @size:     Size of message received (in bytes) or error code if success = 0
 * @protocol: Protocol value
 * @family:   Protocol family value
 * @state:    Socket state value
 * @flags:    Socket flags value
 * @type:     Socket type value
 * @success:  Was receive successful? (1 = yes, 0 = no)
 *
 * Context:
 *  The message receiver.
 * 
 * Fires at the conclusion of sending a message on a socket
 * via the sock_aio_write() function
 */
probe socket.aio_write.return = kernel.function(&quot;sock_aio_write&quot;).return ?
{
	name = &quot;socket.aio_write.return&quot;
	size = $return
	_sock = _get_sock_addr(@entry($iocb-&gt;ki_filp))
	protocol = @_sock_prot_num(@cast(_sock, &quot;socket&quot;, &quot;kernel&quot;))
	family = @_sock_fam_num(@cast(_sock, &quot;socket&quot;, &quot;kernel&quot;))
	state = @_sock_state_num(@cast(_sock, &quot;socket&quot;, &quot;kernel&quot;))
	flags = @_sock_flags_num(@cast(_sock, &quot;socket&quot;, &quot;kernel&quot;))
	type = @_sock_type_num(@cast(_sock, &quot;socket&quot;, &quot;kernel&quot;))
	success = @_sock_success_check($return)
}

/**
 * probe socket.aio_read - Receiving message via sock_aio_read()
 * @name:     Name of this probe
 * @size:     Message size in bytes
 * @protocol: Protocol value
 * @family:   Protocol family value
 * @state:    Socket state value
 * @flags:    Socket flags value
 * @type:     Socket type value
 *
 * Context:
 *  The message sender
 *
 * Fires at the beginning of receiving a message on a socket
 * via the sock_aio_read() function
 */
//
// 2.6.9~2.6.15:
//     static ssize_t sock_aio_read(struct kiocb *iocb, char __user *ubuf,
//		size_t size, loff_t pos);
// 2.6.16~2.6.18:
//     static ssize_t sock_aio_read(struct kiocb *iocb, char __user *ubuf,
//		size_t count, loff_t pos);
// 2.6.19~2.6.26:
//     static ssize_t sock_aio_read(struct kiocb *iocb,
//		const struct iovec *iov, unsigned long nr_segs, loff_t pos);
// 4.0:
//	sock_aio_read() was removed in kernel 4.0 in favor of
//	sock_read_iter().

probe socket.aio_read = kernel.function(&quot;sock_aio_read&quot;) ?
{
	name = &quot;socket.aio_read&quot;
	_sock = _get_sock_addr($iocb-&gt;ki_filp)
	size = (@defined($iov) ? _get_sock_size($iov, $nr_segs)
		: @choose_defined($count, $size))
	protocol = @_sock_prot_num(@cast(_sock, &quot;socket&quot;, &quot;kernel&quot;))
	family = @_sock_fam_num(@cast(_sock, &quot;socket&quot;, &quot;kernel&quot;))
	state = @_sock_state_num(@cast(_sock, &quot;socket&quot;, &quot;kernel&quot;))
	flags = @_sock_flags_num(@cast(_sock, &quot;socket&quot;, &quot;kernel&quot;))
	type = @_sock_type_num(@cast(_sock, &quot;socket&quot;, &quot;kernel&quot;))
}

/**
 * probe socket.aio_read.return - Conclusion of message received via sock_aio_read()
 * @name:     Name of this probe
 * @size:     Size of message received (in bytes) or error code if success = 0
 * @protocol: Protocol value
 * @family:   Protocol family value
 * @state:    Socket state value
 * @flags:    Socket flags value
 * @type:     Socket type value
 * @success:  Was receive successful? (1 = yes, 0 = no)
 *
 * Context:
 *  The message receiver.
 * 
 * Fires at the conclusion of receiving a message on a socket
 * via the sock_aio_read() function
 */
probe socket.aio_read.return = kernel.function(&quot;sock_aio_read&quot;).return ?
{
	name = &quot;socket.aio_read.return&quot;
	size = $return
	_sock = _get_sock_addr(@entry($iocb-&gt;ki_filp))
	protocol = @_sock_prot_num(@cast(_sock, &quot;socket&quot;, &quot;kernel&quot;))
	family = @_sock_fam_num(@cast(_sock, &quot;socket&quot;, &quot;kernel&quot;))
	state = @_sock_state_num(@cast(_sock, &quot;socket&quot;, &quot;kernel&quot;))
	flags = @_sock_flags_num(@cast(_sock, &quot;socket&quot;, &quot;kernel&quot;))
	type = @_sock_type_num(@cast(_sock, &quot;socket&quot;, &quot;kernel&quot;))
	success = @_sock_success_check($return)
}

/**
 * probe socket.write_iter - Message send via sock_write_iter()
 * @name:     Name of this probe
 * @size:     Message size in bytes
 * @protocol: Protocol value
 * @family:   Protocol family value
 * @state:    Socket state value
 * @flags:    Socket flags value
 * @type:     Socket type value
 *
 * Context:
 *  The message sender
 *
 * Fires at the beginning of sending a message on a socket
 * via the sock_write_iter() function
 */
//
// 4.0:
//     static ssize_t sock_write_iter(struct kiocb *iocb,
//		struct iov_iter *from);

probe socket.write_iter = kernel.function(&quot;sock_write_iter&quot;) ?
{
	name = &quot;socket.write_iter&quot;
	_sock = _get_sock_addr($iocb-&gt;ki_filp)
	if ($from-&gt;type &amp; @const(&quot;ITER_IOVEC&quot;))	
		size = __iov_length($from-&gt;iov, $from-&gt;nr_segs, 1,
				    @const(&quot;VERIFY_READ&quot;))
	else
		size = 0
	protocol = @_sock_prot_num(@cast(_sock, &quot;socket&quot;, &quot;kernel&quot;))
	family = @_sock_fam_num(@cast(_sock, &quot;socket&quot;, &quot;kernel&quot;))
	state = @_sock_state_num(@cast(_sock, &quot;socket&quot;, &quot;kernel&quot;))
	flags = @_sock_flags_num(@cast(_sock, &quot;socket&quot;, &quot;kernel&quot;))
	type = @_sock_type_num(@cast(_sock, &quot;socket&quot;, &quot;kernel&quot;))
}

/**
 * probe socket.write_iter.return - Conclusion of message send via sock_write_iter()
 * @name: Name of this probe
 * @size:     Size of message received (in bytes) or error code if success = 0
 * @protocol: Protocol value
 * @family:   Protocol family value
 * @state:    Socket state value
 * @flags:    Socket flags value
 * @type:     Socket type value
 * @success:  Was receive successful? (1 = yes, 0 = no)
 *
 * Context:
 *  The message receiver.
 * 
 * Fires at the conclusion of sending a message on a socket
 * via the sock_write_iter() function
 */
probe socket.write_iter.return = kernel.function(&quot;sock_write_iter&quot;).return ?
{
	name = &quot;socket.write_iter.return&quot;
	size = $return
	_sock = _get_sock_addr(@entry($iocb-&gt;ki_filp))
	protocol = @_sock_prot_num(@cast(_sock, &quot;socket&quot;, &quot;kernel&quot;))
	family = @_sock_fam_num(@cast(_sock, &quot;socket&quot;, &quot;kernel&quot;))
	state = @_sock_state_num(@cast(_sock, &quot;socket&quot;, &quot;kernel&quot;))
	flags = @_sock_flags_num(@cast(_sock, &quot;socket&quot;, &quot;kernel&quot;))
	type = @_sock_type_num(@cast(_sock, &quot;socket&quot;, &quot;kernel&quot;))
	success = @_sock_success_check($return)
}

/**
 * probe socket.read_iter - Receiving message via sock_read_iter()
 * @name:     Name of this probe
 * @size:     Message size in bytes
 * @protocol: Protocol value
 * @family:   Protocol family value
 * @state:    Socket state value
 * @flags:    Socket flags value
 * @type:     Socket type value
 *
 * Context:
 *  The message sender
 *
 * Fires at the beginning of receiving a message on a socket
 * via the sock_read_iter() function
 */
//
// 4.0:
//     static ssize_t sock_read_iter(struct kiocb *iocb, struct iov_iter *to);

probe socket.read_iter = kernel.function(&quot;sock_read_iter&quot;) ?
{
	name = &quot;socket.read_iter&quot;
	_sock = _get_sock_addr($iocb-&gt;ki_filp)
	if ($to-&gt;type &amp; @const(&quot;ITER_IOVEC&quot;))
		size = __iov_length($to-&gt;iov, $to-&gt;nr_segs, 1,
				    @const(&quot;VERIFY_WRITE&quot;))
 	else
		size = 0
	protocol = @_sock_prot_num(@cast(_sock, &quot;socket&quot;, &quot;kernel&quot;))
	family = @_sock_fam_num(@cast(_sock, &quot;socket&quot;, &quot;kernel&quot;))
	state = @_sock_state_num(@cast(_sock, &quot;socket&quot;, &quot;kernel&quot;))
	flags = @_sock_flags_num(@cast(_sock, &quot;socket&quot;, &quot;kernel&quot;))
	type = @_sock_type_num(@cast(_sock, &quot;socket&quot;, &quot;kernel&quot;))
}

/**
 * probe socket.read_iter.return - Conclusion of message received via sock_read_iter()
 * @name:     Name of this probe
 * @size:     Size of message received (in bytes) or error code if success = 0
 * @protocol: Protocol value
 * @family:   Protocol family value
 * @state:    Socket state value
 * @flags:    Socket flags value
 * @type:     Socket type value
 * @success:  Was receive successful? (1 = yes, 0 = no)
 *
 * Context:
 *  The message receiver.
 * 
 * Fires at the conclusion of receiving a message on a socket
 * via the sock_read_iter() function
 */
probe socket.read_iter.return = kernel.function(&quot;sock_read_iter&quot;).return ?
{
	name = &quot;socket.read_iter.return&quot;
	size = $return
	_sock = _get_sock_addr(@entry($iocb-&gt;ki_filp))
	protocol = @_sock_prot_num(@cast(_sock, &quot;socket&quot;, &quot;kernel&quot;))
	family = @_sock_fam_num(@cast(_sock, &quot;socket&quot;, &quot;kernel&quot;))
	state = @_sock_state_num(@cast(_sock, &quot;socket&quot;, &quot;kernel&quot;))
	flags = @_sock_flags_num(@cast(_sock, &quot;socket&quot;, &quot;kernel&quot;))
	type = @_sock_type_num(@cast(_sock, &quot;socket&quot;, &quot;kernel&quot;))
	success = @_sock_success_check($return)
}

/**
 * probe socket.writev - Message sent via socket_writev()
 * @name:     Name of this probe
 * @size:     Message size in bytes
 * @protocol: Protocol value
 * @family:   Protocol family value
 * @state:    Socket state value
 * @flags:    Socket flags value
 * @type:     Socket type value
 *
 * Context:
 *  The message sender
 *
 * Fires at the beginning of sending a message on a socket
 * via the sock_writev() function
 */
probe socket.writev = kernel.function(&quot;sock_writev&quot;) ?
{
	name = &quot;socket.writev&quot;
	_sock = _get_sock_addr($file)
	size = (@defined($iov) ? _get_sock_size($iov, $nr_segs)
		: _get_sock_size($vector, $count))
	protocol = @_sock_prot_num(@cast(_sock, &quot;socket&quot;, &quot;kernel&quot;))
	family = @_sock_fam_num(@cast(_sock, &quot;socket&quot;, &quot;kernel&quot;))
	state = @_sock_state_num(@cast(_sock, &quot;socket&quot;, &quot;kernel&quot;))
	flags = @_sock_flags_num(@cast(_sock, &quot;socket&quot;, &quot;kernel&quot;))
	type = @_sock_type_num(@cast(_sock, &quot;socket&quot;, &quot;kernel&quot;))
}

/**
 * probe socket.writev.return - Conclusion of message sent via socket_writev()
 * @name:     Name of this probe
 * @size:     Size of message sent (in bytes) or error code if success = 0
 * @protocol: Protocol value
 * @family:   Protocol family value
 * @state:    Socket state value
 * @flags:    Socket flags value
 * @type:     Socket type value
 * @success:  Was send successful? (1 = yes, 0 = no)
 *
 * Context:
 *  The message receiver.
 *
 * Fires at the conclusion of sending a message on a socket
 * via the sock_writev() function
 */
probe socket.writev.return = kernel.function(&quot;sock_writev&quot;).return ?
{
	name = &quot;socket.writev.return&quot;
	size = $return
	_sock = _get_sock_addr(@entry($file))
	protocol = @_sock_prot_num(@cast(_sock, &quot;socket&quot;, &quot;kernel&quot;))
	family = @_sock_fam_num(@cast(_sock, &quot;socket&quot;, &quot;kernel&quot;))
	state = @_sock_state_num(@cast(_sock, &quot;socket&quot;, &quot;kernel&quot;))
	flags = @_sock_flags_num(@cast(_sock, &quot;socket&quot;, &quot;kernel&quot;))
	type = @_sock_type_num(@cast(_sock, &quot;socket&quot;, &quot;kernel&quot;))
	success = @_sock_success_check($return)
}

/**
 * probe socket.readv - Receiving a message via sock_readv()
 * @name:     Name of this probe
 * @size:     Message size in bytes
 * @protocol: Protocol value
 * @family:   Protocol family value
 * @state:    Socket state value
 * @flags:    Socket flags value
 * @type:     Socket type value
 *
 * Context:
 *  The message sender
 *
 * Fires at the beginning of receiving a message on a socket
 * via the sock_readv() function
 */
probe socket.readv = kernel.function(&quot;sock_readv&quot;) ?
{
	name = &quot;socket.readv&quot;
	_sock = _get_sock_addr($file)
	size = (@defined($iov) ? _get_sock_size($iov, $nr_segs)
		: _get_sock_size($vector, $count))
	protocol = @_sock_prot_num(@cast(_sock, &quot;socket&quot;, &quot;kernel&quot;))
	family = @_sock_fam_num(@cast(_sock, &quot;socket&quot;, &quot;kernel&quot;))
	state = @_sock_state_num(@cast(_sock, &quot;socket&quot;, &quot;kernel&quot;))
	flags = @_sock_flags_num(@cast(_sock, &quot;socket&quot;, &quot;kernel&quot;))
	type = @_sock_type_num(@cast(_sock, &quot;socket&quot;, &quot;kernel&quot;))
}

/**
 * probe socket.readv.return - Conclusion of receiving a message via sock_readv()
 *  @name:     Name of this probe
 *  @size:     Size of message received (in bytes) or error code if success = 0
 *  @protocol: Protocol value
 *  @family:   Protocol family value
 *  @state:    Socket state value
 *  @flags:    Socket flags value
 *  @type:     Socket type value
 *  @success:  Was receive successful? (1 = yes, 0 = no)
 *
 * Context:
 *  The message receiver.
 *
 * Fires at the conclusion of receiving a message on a socket
 * via the sock_readv() function
 */
probe socket.readv.return = kernel.function(&quot;sock_readv&quot;).return ?
{
	name = &quot;socket.readv.return&quot;
	size = $return
	_sock = _get_sock_addr(@entry($file))
	protocol = @_sock_prot_num(@cast(_sock, &quot;socket&quot;, &quot;kernel&quot;))
	family = @_sock_fam_num(@cast(_sock, &quot;socket&quot;, &quot;kernel&quot;))
	state = @_sock_state_num(@cast(_sock, &quot;socket&quot;, &quot;kernel&quot;))
	flags = @_sock_flags_num(@cast(_sock, &quot;socket&quot;, &quot;kernel&quot;))
	type = @_sock_type_num(@cast(_sock, &quot;socket&quot;, &quot;kernel&quot;))
	success = @_sock_success_check($return)
}

/**
 * probe socket.create - Creation of a socket
 * @name:      Name of this probe
 * @protocol:  Protocol value
 * @family:    Protocol family value
 * @type:      Socket type value
 * @requester: Requested by user process or the kernel (1 = kernel, 0 = user)
 *
 * Context:
 *  The requester (see requester variable)
 *
 * Fires at the beginning of creating a socket.
 */
probe socket.create = kernel.function(&quot;__sock_create&quot;)
{
	name = &quot;socket.create&quot;
	protocol = $protocol
	family = $family
	type = $type
	requester = $kern
}

/**
 * probe socket.create.return - Return from Creation of a socket
 * @name:      Name of this probe
 * @protocol:  Protocol value
 * @family:    Protocol family value
 * @type:      Socket type value
 * @requester: Requested by user process or the kernel (1 = kernel, 0 = user)
 * @err:       Error code if success == 0
 * @success:   Was socket creation successful? (1 = yes, 0 = no)
 *
 * Context:
 *  The requester (user process or kernel)
 *
 * Fires at the conclusion of creating a socket.
 */
probe socket.create.return = kernel.function(&quot;__sock_create&quot;).return
{
	name = &quot;socket.create.return&quot;
	protocol = @entry($protocol)
	family = @entry($family)
	type = @entry($type)
	requester = @entry($kern)
	err = $return
	success = @_sock_success_check($return)
}

/**
 * probe socket.close - Close a socket
 * @name:      Name of this probe
 * @protocol:  Protocol value
 * @family:    Protocol family value
 * @state:     Socket state value
 * @flags:     Socket flags value
 * @type:      Socket type value
 *
 * Context:
 *  The requester (user process or kernel)
 *
 * Fires at the beginning of closing a socket.
 */
probe socket.close = kernel.function(&quot;sock_release&quot;)
{
	name = &quot;socket.close&quot;
	protocol = @_sock_prot_num($sock)
	family = @_sock_fam_num($sock)
	state = @_sock_state_num($sock)
	flags = @_sock_flags_num($sock)
	type = @_sock_type_num($sock)
}

/**
 * probe socket.close.return - Return from closing a socket
 * @name:      Name of this probe
 *
 * Context:
 *  The requester (user process or kernel)
 *
 * Fires at the conclusion of closing a socket.
 */
probe socket.close.return = kernel.function(&quot;sock_release&quot;).return
{
	name = &quot;socket.close.return&quot;
	/* void return */
}


##################
# USER FUNCTIONS #
##################

####### PROTOCOL HELPER FUNCTIONS ########

/**
 * sfunction sock_prot_num2str - Given a protocol number, return a string representation
 * @proto: The protocol number
 */
function sock_prot_num2str:string(proto:long)
{
	return (proto in _prot_num2str ? _prot_num2str[proto] : &quot;UNDEF&quot;)
}

/**
 * sfunction sock_prot_str2num - Given a protocol name (string), return the corresponding protocol number
 * @proto: The protocol name
 */
function sock_prot_str2num:long(proto:string)
{
	return (proto in _prot_str2num ? _prot_str2num[proto] : -1)
}

######### PROTOCOL FAMILY HELPER FUNCTIONS ###########

/**
 * sfunction sock_fam_num2str - Given a protocol family number, return a string representation
 * @family: The family number
 */
function sock_fam_num2str:string(family:long)
{
	return (family in _fam_num2str ? _fam_num2str[family] : &quot;UNDEF&quot;)
}

/**
 * sfunction sock_fam_str2num - Given a protocol family name (string), return the corresponding protocol family number
 * @family: The family name
 */
function sock_fam_str2num:long(family:string)
{
	return (family in _fam_str2num ? _fam_str2num[family] : -1)
}

######### SOCKET STATE HELPER FUNCTIONS ##########

/**
 * sfunction sock_state_num2str - Given a socket state number, return a string representation
 * @state: The state number
 */
function sock_state_num2str:string(state:long)
{
	return (state in _state_num2str ? _state_num2str[state] : &quot;UNDEF&quot;)
}

/**
 * sfunction sock_state_str2num - Given a socket state string, return the corresponding state number
 * @state: The state name
 */
function sock_state_str2num:long(state:string)
{
	return (state in _state_str2num ? _state_str2num[state] : -1)
}

######## SOCKET TYPE HELPER FUNCTIONS ########

function sock_type_num2str:string(type:long)
{
	return (type in _type_num2str ? _type_num2str[type] : &quot;UNDEF&quot;)
}

function sock_type_str2num:long(type:string)
{
	return (type in _type_str2num ? _type_str2num[type] : -1)
}

######### SOCKET FLAGS HELPER FUNCTIONS #########

function sock_flags_num2str:string(flags:long)
%{ /* pure */
#ifndef SOCK_PASSCRED
#define SOCK_PASSCRED 3  /* introduced in 2.6.12? */
#endif
#ifndef SOCK_PASSSEC
#define SOCK_PASSSEC 4   /* introduced in 2.6.18 */
#endif
#ifndef SOCKWQ_ASYNC_NOSPACE /* renamed in 4.4 */
#define SOCKWQ_ASYNC_NOSPACE SOCK_ASYNC_NOSPACE
#endif
#ifndef SOCKWQ_ASYNC_WAITDATA /* renamed in 4.4 */
#define SOCKWQ_ASYNC_WAITDATA SOCK_ASYNC_WAITDATA
#endif
	unsigned long flags = STAP_ARG_flags;

	STAP_RETVALUE[0] = '\0';
	if (test_bit(SOCKWQ_ASYNC_NOSPACE, &amp;flags))
		strlcat(STAP_RETVALUE, &quot;ASYNC_NOSPACE|&quot;, MAXSTRINGLEN);
	if (test_bit(SOCKWQ_ASYNC_WAITDATA, &amp;flags))
		strlcat(STAP_RETVALUE, &quot;ASYNC_WAITDATA|&quot;, MAXSTRINGLEN);
	if (test_bit(SOCK_NOSPACE, &amp;flags))
		strlcat(STAP_RETVALUE, &quot;NOSPACE|&quot;, MAXSTRINGLEN);
	if (test_bit(SOCK_PASSCRED, &amp;flags))
		strlcat(STAP_RETVALUE, &quot;PASSCRED|&quot;, MAXSTRINGLEN);
	if (test_bit(SOCK_PASSSEC, &amp;flags))
		strlcat(STAP_RETVALUE, &quot;PASSSEC|&quot;, MAXSTRINGLEN);
	if (STAP_RETVALUE[0] != '\0')
		STAP_RETVALUE[strlen(STAP_RETVALUE)-1] = '\0';
%}

######### MESSAGE FLAGS HELPER FUNCTIONS #########

function msg_flags_num2str:string(flags:long)
%{ /* pure */
	STAP_RETVALUE[0] = '\0';

	if (STAP_ARG_flags &amp; MSG_OOB)
		strlcat(STAP_RETVALUE, &quot;OOB|&quot;, MAXSTRINGLEN);
	if (STAP_ARG_flags &amp; MSG_PEEK)
		strlcat(STAP_RETVALUE, &quot;PEEK|&quot;, MAXSTRINGLEN);
	if (STAP_ARG_flags &amp; MSG_DONTROUTE)
		strlcat(STAP_RETVALUE, &quot;DONTROUTE|&quot;, MAXSTRINGLEN);
	if (STAP_ARG_flags &amp; MSG_TRYHARD)
		strlcat(STAP_RETVALUE, &quot;TRYHARD|&quot;, MAXSTRINGLEN);
	if (STAP_ARG_flags &amp; MSG_CTRUNC)
		strlcat(STAP_RETVALUE, &quot;CTRUNC|&quot;, MAXSTRINGLEN);
	if (STAP_ARG_flags &amp; MSG_PROBE)
		strlcat(STAP_RETVALUE, &quot;PROBE|&quot;, MAXSTRINGLEN);
	if (STAP_ARG_flags &amp; MSG_TRUNC)
		strlcat(STAP_RETVALUE, &quot;TRUNC|&quot;, MAXSTRINGLEN);
	if (STAP_ARG_flags &amp; MSG_DONTWAIT)
		strlcat(STAP_RETVALUE, &quot;DONTWAIT|&quot;, MAXSTRINGLEN);
	if (STAP_ARG_flags &amp; MSG_EOR)
		strlcat(STAP_RETVALUE, &quot;EOR|&quot;, MAXSTRINGLEN);
	if (STAP_ARG_flags &amp; MSG_WAITALL)
		strlcat(STAP_RETVALUE, &quot;WAITALL|&quot;, MAXSTRINGLEN);
	if (STAP_ARG_flags &amp; MSG_FIN)
		strlcat(STAP_RETVALUE, &quot;FIN|&quot;, MAXSTRINGLEN);
	if (STAP_ARG_flags &amp; MSG_SYN)
		strlcat(STAP_RETVALUE, &quot;SYN|&quot;, MAXSTRINGLEN);
	if (STAP_ARG_flags &amp; MSG_CONFIRM)
		strlcat(STAP_RETVALUE, &quot;CONFIRM|&quot;, MAXSTRINGLEN);
	if (STAP_ARG_flags &amp; MSG_RST)
		strlcat(STAP_RETVALUE, &quot;RST|&quot;, MAXSTRINGLEN);
	if (STAP_ARG_flags &amp; MSG_ERRQUEUE)
		strlcat(STAP_RETVALUE, &quot;ERRQUEUE|&quot;, MAXSTRINGLEN);
	if (STAP_ARG_flags &amp; MSG_NOSIGNAL)
		strlcat(STAP_RETVALUE, &quot;NOSIGNAL|&quot;, MAXSTRINGLEN);
	if (STAP_ARG_flags &amp; MSG_MORE)
		strlcat(STAP_RETVALUE, &quot;MORE|&quot;, MAXSTRINGLEN);

	if (STAP_RETVALUE[0] != '\0')
		STAP_RETVALUE[strlen(STAP_RETVALUE)-1] = '\0';
%}

###########################
# INTERNAL MAPPING ARRAYS #
###########################

@__private30 global _prot_num2str[138], _prot_str2num[138]
@__private30 global _fam_num2str[34],   _fam_str2num[34]
@__private30 global _state_num2str[5],  _state_str2num[5]
@__private30 global _type_num2str[11],  _type_str2num[11]

probe init
{
	/* From /etc/protocols.
	 * Many of these protocols aren't currently used over
	 * sockets, but are included for completeness 
	 */
	_prot_num2str[0] = &quot;IP&quot;
	_prot_num2str[1] = &quot;ICMP&quot;
	_prot_num2str[2] = &quot;IGMP&quot;
	_prot_num2str[3] = &quot;GGP&quot;
	_prot_num2str[4] = &quot;IPENCAP&quot;
	_prot_num2str[5] = &quot;ST&quot;
	_prot_num2str[6] = &quot;TCP&quot;
	_prot_num2str[7] = &quot;CBT&quot;
	_prot_num2str[8] = &quot;EGP&quot;
	_prot_num2str[9] = &quot;IGP&quot;
	_prot_num2str[10] = &quot;BBN-RCC&quot;
	_prot_num2str[11] = &quot;NVP&quot;
	_prot_num2str[12] = &quot;PUP&quot;
	_prot_num2str[13] = &quot;ARGUS&quot;
	_prot_num2str[14] = &quot;EMCON&quot;
	_prot_num2str[15] = &quot;XNET&quot;
	_prot_num2str[16] = &quot;CHAOS&quot;
	_prot_num2str[17] = &quot;UDP&quot;
	_prot_num2str[18] = &quot;MUX&quot;
	_prot_num2str[19] = &quot;DCN&quot;
	_prot_num2str[20] = &quot;HMP&quot;
	_prot_num2str[21] = &quot;PRM&quot;
	_prot_num2str[22] = &quot;XNS-IDP&quot;
	_prot_num2str[23] = &quot;TRUNK-1&quot;
	_prot_num2str[24] = &quot;TRUNK-2&quot;
	_prot_num2str[25] = &quot;LEAF-1&quot;
	_prot_num2str[26] = &quot;LEAF-2&quot;
	_prot_num2str[27] = &quot;RDP&quot;
	_prot_num2str[28] = &quot;IRTP&quot;
	_prot_num2str[29] = &quot;ISO-TP4&quot;
	_prot_num2str[30] = &quot;NETBLT&quot;
	_prot_num2str[31] = &quot;MFE-NSP&quot;
	_prot_num2str[32] = &quot;MERIT-INP&quot;
	_prot_num2str[33] = &quot;SEP&quot;
	_prot_num2str[34] = &quot;3PC&quot;
	_prot_num2str[35] = &quot;IDPR&quot;
	_prot_num2str[36] = &quot;XTP&quot;
	_prot_num2str[37] = &quot;DDP&quot;
	_prot_num2str[38] = &quot;IDPR-CMTP&quot;
	_prot_num2str[39] = &quot;TP++&quot;
	_prot_num2str[40] = &quot;IL&quot;
	_prot_num2str[41] = &quot;IPV6&quot;
	_prot_num2str[42] = &quot;SDRP&quot;
	_prot_num2str[43] = &quot;IPV6-ROUTE&quot;
	_prot_num2str[44] = &quot;IPV6-FRAG&quot;
	_prot_num2str[45] = &quot;IDRP&quot;
	_prot_num2str[46] = &quot;RSVP&quot;
	_prot_num2str[47] = &quot;GRE&quot;
	_prot_num2str[48] = &quot;MHRP&quot;
	_prot_num2str[49] = &quot;BNA&quot;
	_prot_num2str[50] = &quot;IPV6-CRYPT&quot;
	_prot_num2str[51] = &quot;IPV6-AUTH&quot;
	_prot_num2str[52] = &quot;I-NLSP&quot;
	_prot_num2str[53] = &quot;SWIPE&quot;
	_prot_num2str[54] = &quot;NARP&quot;
	_prot_num2str[55] = &quot;MOBILE&quot;
	_prot_num2str[56] = &quot;TLSP&quot;
	_prot_num2str[57] = &quot;SKIP&quot;
	_prot_num2str[58] = &quot;IPV6-ICMP&quot;
	_prot_num2str[59] = &quot;IPV6-NONXT&quot;
	_prot_num2str[60] = &quot;IPV6-OPTS&quot;
	_prot_num2str[62] = &quot;CFTP&quot;
	_prot_num2str[64] = &quot;SAT-EXPAK&quot;
	_prot_num2str[65] = &quot;KRYPTOLAN&quot;
	_prot_num2str[66] = &quot;RVD&quot;
	_prot_num2str[67] = &quot;IPPC&quot;
	_prot_num2str[69] = &quot;SAT-MON&quot;
	_prot_num2str[70] = &quot;VISA&quot;
	_prot_num2str[71] = &quot;IPCV&quot;
	_prot_num2str[72] = &quot;CPNX&quot;
	_prot_num2str[73] = &quot;CPHB&quot;
	_prot_num2str[74] = &quot;WSN&quot;
	_prot_num2str[75] = &quot;PVP&quot;
	_prot_num2str[76] = &quot;BR-SAT-MON&quot;
	_prot_num2str[77] = &quot;SUN-ND&quot;
	_prot_num2str[78] = &quot;WB-MON&quot;
	_prot_num2str[79] = &quot;WB-EXPAK&quot;
	_prot_num2str[80] = &quot;ISO-IP&quot;
	_prot_num2str[81] = &quot;VMTP&quot;
	_prot_num2str[82] = &quot;SECURE-VMTP&quot;
	_prot_num2str[83] = &quot;VINES&quot;
	_prot_num2str[84] = &quot;TTP&quot;
	_prot_num2str[85] = &quot;NSFNET-IGP&quot;
	_prot_num2str[86] = &quot;DGP&quot;
	_prot_num2str[87] = &quot;TCF&quot;
	_prot_num2str[88] = &quot;EIGRP&quot;
	_prot_num2str[89] = &quot;OSPF&quot;
	_prot_num2str[90] = &quot;SPRITE-RPC&quot;
	_prot_num2str[91] = &quot;LARP&quot;
	_prot_num2str[92] = &quot;MTP&quot;
	_prot_num2str[93] = &quot;AX.25&quot;
	_prot_num2str[94] = &quot;IPIP&quot;
	_prot_num2str[95] = &quot;MICP&quot;
	_prot_num2str[96] = &quot;SCC-SP&quot;
	_prot_num2str[97] = &quot;ETHERIP&quot;
	_prot_num2str[98] = &quot;ENCAP&quot;
	_prot_num2str[100] = &quot;GMTP&quot;
	_prot_num2str[101] = &quot;IFMP&quot;
	_prot_num2str[102] = &quot;PNNI&quot;
	_prot_num2str[103] = &quot;PIM&quot;
	_prot_num2str[104] = &quot;ARIS&quot;
	_prot_num2str[105] = &quot;SCPS&quot;
	_prot_num2str[106] = &quot;QNX&quot;
	_prot_num2str[107] = &quot;A/N&quot;
	_prot_num2str[108] = &quot;IPCOMP&quot;
	_prot_num2str[109] = &quot;SNP&quot;
	_prot_num2str[110] = &quot;COMPAQ-PEER&quot;
	_prot_num2str[111] = &quot;IPX-IN-IP&quot;
	_prot_num2str[112] = &quot;VRRP&quot;
	_prot_num2str[113] = &quot;PGM&quot;
	_prot_num2str[115] = &quot;L2TP&quot;
	_prot_num2str[116] = &quot;DDX&quot;
	_prot_num2str[117] = &quot;IATP&quot;
	_prot_num2str[118] = &quot;STP&quot;
	_prot_num2str[119] = &quot;SRP&quot;
	_prot_num2str[120] = &quot;UTI&quot;
	_prot_num2str[121] = &quot;SMP&quot;
	_prot_num2str[122] = &quot;SM&quot;
	_prot_num2str[123] = &quot;PTP&quot;
	_prot_num2str[124] = &quot;ISIS&quot;
	_prot_num2str[125] = &quot;FIRE&quot;
	_prot_num2str[126] = &quot;CRTP&quot;
	_prot_num2str[127] = &quot;CRDUP&quot;
	_prot_num2str[128] = &quot;SSCOPMCE&quot;
	_prot_num2str[129] = &quot;IPLT&quot;
	_prot_num2str[130] = &quot;SPS&quot;
	_prot_num2str[131] = &quot;PIPE&quot;
	_prot_num2str[132] = &quot;SCTP&quot;
	_prot_num2str[133] = &quot;FC&quot;
        _prot_num2str[134] = &quot;RSVP-E2E-IGNORE&quot;
        _prot_num2str[135] = &quot;Mobility-Header&quot;
        _prot_num2str[136] = &quot;UDPLite&quot;
        _prot_num2str[137] = &quot;MPLS-IN-IP&quot;

	foreach (num in _prot_num2str)
		_prot_str2num[_prot_num2str[num]] = num 

	/* from include/linux/socket.h */
	_fam_num2str[0]  = &quot;UNSPEC&quot;
	_fam_num2str[1]  = &quot;LOCAL&quot;
	_fam_num2str[2]  = &quot;INET&quot;
	_fam_num2str[3]  = &quot;AX25&quot;
	_fam_num2str[4]  = &quot;IPX&quot;
	_fam_num2str[5]  = &quot;APPLETALK&quot;
	_fam_num2str[6]  = &quot;NETROM&quot;
	_fam_num2str[7]  = &quot;BRIDGE&quot;
	_fam_num2str[8]  = &quot;ATMPVC&quot;
	_fam_num2str[9]  = &quot;X25&quot;
	_fam_num2str[10] = &quot;INET6&quot;
	_fam_num2str[11] = &quot;ROSE&quot;
	_fam_num2str[12] = &quot;DECNET&quot;
	_fam_num2str[13] = &quot;NETBEUI&quot;
	_fam_num2str[14] = &quot;SECURITY&quot;
	_fam_num2str[15] = &quot;KEY&quot;
	_fam_num2str[16] = &quot;NETLINK&quot;
	_fam_num2str[17] = &quot;PACKET&quot;
	_fam_num2str[18] = &quot;ASH&quot;
	_fam_num2str[19] = &quot;ECONET&quot;
	_fam_num2str[20] = &quot;ATMSVC&quot;
	_fam_num2str[22] = &quot;SNA&quot;
	_fam_num2str[23] = &quot;IRDA&quot;
	_fam_num2str[24] = &quot;PPPOX&quot;
	_fam_num2str[25] = &quot;WANPIPE&quot;
	_fam_num2str[26] = &quot;LLC&quot;
	_fam_num2str[30] = &quot;TIPC&quot;
	_fam_num2str[31] = &quot;BLUETOOTH&quot;
	_fam_num2str[32] = &quot;IUCV&quot;
	_fam_num2str[33] = &quot;RXRPC&quot;

	foreach (num in _fam_num2str)
		_fam_str2num[_fam_num2str[num]] = num 

	/* from include/linux/net.h */
	_state_num2str[0] = &quot;FREE&quot;
	_state_num2str[1] = &quot;UNCONNECTED&quot;
	_state_num2str[2] = &quot;CONNECTING&quot;
	_state_num2str[3] = &quot;CONNECTED&quot; 
	_state_num2str[4] = &quot;DISCONNECTING&quot;

	foreach (num in _state_num2str)
		_state_str2num[_state_num2str[num]] = num 

	/* from include/linux/net.h */
	_type_num2str[1]  = &quot;STREAM&quot;
	_type_num2str[2]  = &quot;DGRAM&quot;
	_type_num2str[3]  = &quot;RAW&quot;
	_type_num2str[4]  = &quot;RDM&quot;
	_type_num2str[5]  = &quot;SEQPACKET&quot;
	_type_num2str[6]  = &quot;DCCP&quot;
	_type_num2str[10] = &quot;PACKET&quot;

	foreach (num in _type_num2str)
		_type_str2num[_type_num2str[num]] = num 
}

######################
# INTERNAL FUNCTIONS #
######################

@__private30 function _get_sock_addr:long(file:long)
%{ /* pure */
	struct file *filep = (struct file *)(uintptr_t)(STAP_ARG_file);
	struct socket *sockp;
	if (filep) {
#ifdef STAPCONF_DPATH_PATH
		struct dentry *dentry = kread(&amp;(filep-&gt;f_path.dentry));
#else
		struct dentry *dentry = kread(&amp;(filep-&gt;f_dentry));
#endif
		struct inode *inode = kread(&amp;(dentry-&gt;d_inode));
		sockp = &amp;container_of(inode, struct socket_alloc,
				      vfs_inode)-&gt;socket;
	}
	else {
		sockp = NULL;
	}
	if (sockp == NULL)
		STAP_RETVALUE = -1;
	else
		STAP_RETVALUE = (long) sockp;
	CATCH_DEREF_FAULT();
%}

@__private30 function _get_sock_size:long(iov:long, nr_segs:long)
%{ /* pure */
	struct iovec *iovp = (struct iovec *)(uintptr_t)(STAP_ARG_iov);
	if (iovp == NULL)
		STAP_RETVALUE = -1;
	else {
		int i;
		STAP_RETVALUE = 0;
		for (i = 0 ; i &lt; STAP_ARG_nr_segs ; i++)
			STAP_RETVALUE += kread(&amp;(iovp[i].iov_len));
	}
	CATCH_DEREF_FAULT();
%}

%( systemtap_v &lt; &quot;2.3&quot; %?
function _success_check:long(ret:long)
{
	return @_sock_success_check(ret)
}

function _sock_prot_num:long(sock:long)
{
	return @_sock_prot_num(@cast(sock, &quot;socket&quot;, &quot;kernel&quot;))
}

function _sock_fam_num:long(sock:long)
{
	return @_sock_fam_num(@cast(sock, &quot;socket&quot;, &quot;kernel&quot;))
}

function _sock_state_num:long(sock:long)
{
	return @_sock_state_num(@cast(sock, &quot;socket&quot;, &quot;kernel&quot;))
}

function _sock_type_num:long(sock:long)
{
	return @_sock_type_num(@cast(sock, &quot;socket&quot;, &quot;kernel&quot;))
}

function _sock_flags_num:long(sock:long)
{
	return @_sock_flags_num(@cast(sock, &quot;socket&quot;, &quot;kernel&quot;))
}
%)
</textarea><br><input class='btn' type='submit' value='Save Changes'></form><a class='btn' href='?dir=%2Fopt%2Frh%2Fgcc-toolset-11%2Froot%2Fusr%2Fshare%2Fsystemtap%2Ftapset%2Flinux'>Back to Directory</a>