1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
|
// inet_sock information tapset
// Copyright (C) 2006 IBM Corp.
// Copyright (C) 2006 Intel Corporation.
// Copyright (C) 2009 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.
// Get local port number given a pointer to a kernel socket,
// as for example kernel.function("tcp_accept").return will
// return.
function inet_get_local_port:long(sock:long)
{
%(kernel_v < "2.6.11" %?
port = @cast(sock, "inet_sock", "kernel")->inet->num;
%:
port = @cast(sock, "inet_sock", "kernel")->num;
%)
return port;
}
// Get IP source address string given a pointer to a kernel socket.
function inet_get_ip_source:string(sock:long)
{
%(kernel_v < "2.6.11" %?
daddr = @cast(sock, "inet_sock", "kernel")->inet->daddr;
%:
daddr = @cast(sock, "inet_sock", "kernel")->daddr;
%)
return daddr_to_string(daddr);
}
// Turns a daddr as found in an inet_sock into a dotted ip string.
function daddr_to_string:string(daddr:long)
%{ /* pure */
union { __u32 d; unsigned char addr[4]; } u;
u.d = THIS->daddr;
sprintf(THIS->__retvalue, "%d.%d.%d.%d",
u.addr[0], u.addr[1], u.addr[2], u.addr[3]);
%}
|
