summaryrefslogtreecommitdiffstats
path: root/test/test_vxlan_gpe.py
blob: f635bb1d077aa21c4a2a32f3050f7815489340ec (plain)
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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
#!/usr/bin/env python

import socket
from util import ip4n_range, ip4_range
import unittest
from framework import VppTestCase, VppTestRunner, running_extended_tests
from template_bd import BridgeDomain

from scapy.layers.l2 import Ether, Raw
from scapy.layers.inet import IP, UDP
from scapy.layers.vxlan import VXLAN
from scapy.utils import atol


@unittest.skipUnless(running_extended_tests, "part of extended tests")
class TestVxlanGpe(BridgeDomain, VppTestCase):
    """ VXLAN-GPE Test Case """

    def __init__(self, *args):
        BridgeDomain.__init__(self)
        VppTestCase.__init__(self, *args)

    def encapsulate(self, pkt, vni):
        """
        Encapsulate the original payload frame by adding VXLAN-GPE header
        with its UDP, IP and Ethernet fields
        """
        return (Ether(src=self.pg0.remote_mac, dst=self.pg0.local_mac) /
                IP(src=self.pg0.remote_ip4, dst=self.pg0.local_ip4) /
                UDP(sport=self.dport, dport=self.dport, chksum=0) /
                VXLAN(vni=vni, flags=self.flags) /
                pkt)

    def ip_range(self, start, end):
        """ range of remote ip's """
        return ip4_range(self.pg0.remote_ip4, start, end)

    def encap_mcast(self, pkt, src_ip, src_mac, vni):
        """
        Encapsulate the original payload frame by adding VXLAN-GPE header
        with its UDP, IP and Ethernet fields
        """
        return (Ether(src=src_mac, dst=self.mcast_mac) /
                IP(src=src_ip, dst=self.mcast_ip4) /
                UDP(sport=self.dport, dport=self.dport, chksum=0) /
                VXLAN(vni=vni, flags=self.flags) /
                pkt)

    def decapsulate(self, pkt):
        """
        Decapsulate the original payload frame by removing VXLAN-GPE header
        """
        # check if is set I and P flag
        self.assertEqual(pkt[VXLAN].flags, 0x0c)
        return pkt[VXLAN].payload

    # Method for checking VXLAN-GPE encapsulation.
    #
    def check_encapsulation(self, pkt, vni, local_only=False, mcast_pkt=False):
        # Verify source MAC is VPP_MAC and destination MAC is MY_MAC resolved
        #  by VPP using ARP.
        self.assertEqual(pkt[Ether].src, self.pg0.local_mac)
        if not local_only:
            if not mcast_pkt:
                self.assertEqual(pkt[Ether].dst, self.pg0.remote_mac)
            else:
                self.assertEqual(pkt[Ether].dst, type(self).mcast_mac)
        # Verify VXLAN-GPE tunnel src IP is VPP_IP and dst IP is MY_IP.
        self.assertEqual(pkt[IP].src, self.pg0.local_ip4)
        if not local_only:
            if not mcast_pkt:
                self.assertEqual(pkt[IP].dst, self.pg0.remote_ip4)
            else:
                self.assertEqual(pkt[IP].dst, type(self).mcast_ip4)
        # Verify UDP destination port is VXLAN-GPE 4790, source UDP port
        #  could be arbitrary.
        self.assertEqual(pkt[UDP].dport, type(self).dport)
        # Verify VNI
        self.assertEqual(pkt[VXLAN].vni, vni)

    @classmethod
    def create_vxlan_gpe_flood_test_bd(cls, vni, n_ucast_tunnels):
        # Create 10 ucast vxlan_gpe tunnels under bd
        ip_range_start = 10
        ip_range_end = ip_range_start + n_ucast_tunnels
        next_hop_address = cls.pg0.remote_ip4n
        for dest_ip4n in ip4n_range(next_hop_address, ip_range_start,
                                    ip_range_end):
            # add host route so dest_ip4n will not be resolved
            cls.vapi.ip_add_del_route(dest_ip4n, 32, next_hop_address)
            r = cls.vapi.vxlan_gpe_add_del_tunnel(
                src_addr=cls.pg0.local_ip4n,
                dst_addr=dest_ip4n,
                vni=vni)
            cls.vapi.sw_interface_set_l2_bridge(r.sw_if_index, bd_id=vni)

    @classmethod
    def add_del_shared_mcast_dst_load(cls, is_add):
        """
        add or del tunnels sharing the same mcast dst
        to test vxlan_gpe ref_count mechanism
        """
        n_shared_dst_tunnels = 20
        vni_start = 1000
        vni_end = vni_start + n_shared_dst_tunnels
        for vni in range(vni_start, vni_end):
            r = cls.vapi.vxlan_gpe_add_del_tunnel(
                src_addr=cls.pg0.local_ip4n,
                dst_addr=cls.mcast_ip4n,
                mcast_sw_if_index=1,
                vni=vni,
                is_add=is_add)
            if r.sw_if_index == 0xffffffff:
                raise "bad sw_if_index"

    @classmethod
    def add_shared_mcast_dst_load(cls):
        cls.add_del_shared_mcast_dst_load(is_add=1)

    @classmethod
    def del_shared_mcast_dst_load(cls):
        cls.add_del_shared_mcast_dst_load(is_add=0)

    @classmethod
    def add_del_mcast_tunnels_load(cls, is_add):
        """
        add or del tunnels to test vxlan_gpe stability
        """
        n_distinct_dst_tunnels = 20
        ip_range_start = 10
        ip_range_end = ip_range_start + n_distinct_dst_tunnels
        for dest_ip4n in ip4n_range(cls.mcast_ip4n, ip_range_start,
                                    ip_range_end):
            vni = bytearray(dest_ip4n)[3]
            cls.vapi.vxlan_gpe_add_del_tunnel(
                src_addr=cls.pg0.local_ip4n,
                dst_addr=dest_ip4n,
                mcast_sw_if_index=1,
                vni=vni,
                is_add=is_add)

    @classmethod
    def add_mcast_tunnels_load(cls):
        cls.add_del_mcast_tunnels_load(is_add=1)

    @classmethod
    def del_mcast_tunnels_load(cls):
        cls.add_del_mcast_tunnels_load(is_add=0)

    # Class method to start the VXLAN-GPE test case.
    #  Overrides setUpClass method in VppTestCase class.
    #  Python try..except statement is used to ensure that the tear down of
    #  the class will be executed even if exception is raised.
    #  @param cls The class pointer.
    @classmethod
    def setUpClass(cls):
        super(TestVxlanGpe, cls).setUpClass()

        try:
            cls.dport = 4790
            cls.flags = 0x0c

            # Create 2 pg interfaces.
            cls.create_pg_interfaces(range(4))
            for pg in cls.pg_interfaces:
                pg.admin_up()

            # Configure IPv4 addresses on VPP pg0.
            cls.pg0.config_ip4()

            # Resolve MAC address for VPP's IP address on pg0.
            cls.pg0.resolve_arp()

            # Our Multicast address
            cls.mcast_ip4 = '239.1.1.1'
            cls.mcast_ip4n = socket.inet_pton(socket.AF_INET, cls.mcast_ip4)
            iplong = atol(cls.mcast_ip4)
            cls.mcast_mac = "01:00:5e:%02x:%02x:%02x" % (
                (iplong >> 16) & 0x7F, (iplong >> 8) & 0xFF, iplong & 0xFF)

            # Create VXLAN-GPE VTEP on VPP pg0, and put vxlan_gpe_tunnel0
            # and pg1 into BD.
            cls.single_tunnel_bd = 11
            r = cls.vapi.vxlan_gpe_add_del_tunnel(
                src_addr=cls.pg0.local_ip4n,
                dst_addr=cls.pg0.remote_ip4n,
                vni=cls.single_tunnel_bd)
            cls.vapi.sw_interface_set_l2_bridge(r.sw_if_index,
                                                bd_id=cls.single_tunnel_bd)
            cls.vapi.sw_interface_set_l2_bridge(cls.pg1.sw_if_index,
                                                bd_id=cls.single_tunnel_bd)

            # Setup vni 2 to test multicast flooding
            cls.n_ucast_tunnels = 10
            cls.mcast_flood_bd = 12
            cls.create_vxlan_gpe_flood_test_bd(cls.mcast_flood_bd,
                                               cls.n_ucast_tunnels)
            r = cls.vapi.vxlan_gpe_add_del_tunnel(
                src_addr=cls.pg0.local_ip4n,
                dst_addr=cls.mcast_ip4n,
                mcast_sw_if_index=1,
                vni=cls.mcast_flood_bd)
            cls.vapi.sw_interface_set_l2_bridge(r.sw_if_index,
                                                bd_id=cls.mcast_flood_bd)
            cls.vapi.sw_interface_set_l2_bridge(cls.pg2.sw_if_index,
                                                bd_id=cls.mcast_flood_bd)

            # Add and delete mcast tunnels to check stability
            cls.add_shared_mcast_dst_load()
            cls.add_mcast_tunnels_load()
            cls.del_shared_mcast_dst_load()
            cls.del_mcast_tunnels_load()

            # Setup vni 3 to test unicast flooding
            cls.ucast_flood_bd = 13
            cls.create_vxlan_gpe_flood_test_bd(cls.ucast_flood_bd,
                                               cls.n_ucast_tunnels)
            cls.vapi.sw_interface_set_l2_bridge(cls.pg3.sw_if_index,
                                                bd_id=cls.ucast_flood_bd)
        except Exception:
            super(TestVxlanGpe, cls).tearDownClass()
            raise

    @classmethod
    def tearDownClass(cls):
        super(TestVxlanGpe, cls).tearDownClass()

    @unittest.skip("test disabled for vxlan-gpe")
    def test_mcast_flood(self):
        """ inherited from BridgeDomain """
        pass

    @unittest.skip("test disabled for vxlan-gpe")
    def test_mcast_rcv(self):
        """ inherited from BridgeDomain """
        pass

    # Method to define VPP actions before tear down of the test case.
    #  Overrides tearDown method in VppTestCase class.
    #  @param self The object pointer.
    def tearDown(self):
        super(TestVxlanGpe, self).tearDown()
        if not self.vpp_dead:
            self.logger.info(self.vapi.cli("show bridge-domain 11 detail"))
            self.logger.info(self.vapi.cli("show bridge-domain 12 detail"))
            self.logger.info(self.vapi.cli("show bridge-domain 13 detail"))
            self.logger.info(self.vapi.cli("show int"))
            self.logger.info(self.vapi.cli("show vxlan-gpe"))
            self.logger.info(self.vapi.cli("show trace"))


if __name__ == '__main__':
    unittest.main(testRunner=VppTestRunner)
> format (s, "%s", p->p_name); else return format (s, "%d", protocol); #else return format (s, "%d/%d", family, protocol); #endif } u8 * format_network_port (u8 * s, va_list * args) { uword proto = va_arg (*args, uword); uword port = va_arg (*args, uword); #ifndef __KERNEL__ struct servent * p = getservbyport (port, proto == IPPROTO_UDP ? "udp" : "tcp"); if (p) return format (s, "%s", p->s_name); else return format (s, "%d", port); #else return format (s, "%s/%d", proto == IPPROTO_UDP ? "udp" : "tcp", port); #endif } /* Format generic network address: takes two arguments family and address. Assumes network byte order. */ u8 * format_network_address (u8 * s, va_list * args) { uword family = va_arg (*args, uword); u8 * addr = va_arg (*args, u8 *); switch (family) { case AF_INET: s = format (s, "%d.%d.%d.%d", addr[0], addr[1], addr[2], addr[3]); break; case AF_UNSPEC: /* We use AF_UNSPEC for ethernet addresses. */ s = format (s, "%02x:%02x:%02x:%02x:%02x:%02x", addr[0], addr[1], addr[2], addr[3], addr[4], addr[5]); break; default: clib_error ("unsupported address family %d", family); } return s; } u8 * format_sockaddr (u8 * s, va_list * args) { void * v = va_arg (*args, void *); struct sockaddr * sa = v; static u32 local_counter; switch (sa->sa_family) { case AF_INET: { struct sockaddr_in * i = v; s = format (s, "%U:%U", format_network_address, AF_INET, &i->sin_addr.s_addr, format_network_port, IPPROTO_TCP, ntohs (i->sin_port)); } break; case AF_LOCAL: { /* * There isn't anything useful to print. * The unix cli world uses the output to make a node name, * so we need to return a unique name. */ s = format (s, "local:%u", local_counter++); } break; #ifndef __KERNEL__ #ifdef AF_NETLINK case AF_NETLINK: { struct sockaddr_nl * n = v; s = format (s, "KERNEL-NETLINK"); if (n->nl_groups) s = format (s, " (groups 0x%x)", n->nl_groups); break; } #endif #endif default: s = format (s, "sockaddr family %d", sa->sa_family); break; } return s; } #ifndef __APPLE__ u8 * format_tcp4_packet (u8 * s, va_list * args) { u8 * p = va_arg (*args, u8 *); struct iphdr * ip = (void *) p; struct tcphdr * tcp = (void *) (ip + 1); s = format (s, "tcp %U:%U -> %U:%U", format_network_address, AF_INET, &ip->saddr, format_network_port, IPPROTO_TCP, ntohs (tcp->source), format_network_address, AF_INET, &ip->daddr, format_network_port, IPPROTO_TCP, ntohs (tcp->dest)); s = format (s, ", seq 0x%08x -> 0x%08x", tcp->seq, tcp->ack_seq); #define _(f) if (tcp->f) s = format (s, ", " #f); _ (syn); _ (ack); _ (fin); _ (rst); _ (psh); _ (urg); #undef _ if (tcp->window) s = format (s, ", window 0x%04x", tcp->window); if (tcp->urg) s = format (s, ", urg 0x%04x", tcp->urg_ptr); return s; } u8 * format_udp4_packet (u8 * s, va_list * args) { u8 * p = va_arg (*args, u8 *); struct iphdr * ip = (void *) p; struct udphdr * udp = (void *) (ip + 1); s = format (s, "udp %U:%U -> %U:%U", format_network_address, AF_INET, &ip->saddr, format_network_port, IPPROTO_UDP, ntohs (udp->source), format_network_address, AF_INET, &ip->daddr, format_network_port, IPPROTO_UDP, ntohs (udp->dest)); return s; } u8 * format_icmp4_type_and_code (u8 * s, va_list * args) { uword icmp_type = va_arg (*args, uword); uword icmp_code = va_arg (*args, uword); switch (icmp_type) { #define _(f,str) case ICMP_##f: s = format (s, str); break; _ (ECHOREPLY, "echo reply"); _ (DEST_UNREACH, "unreachable"); _ (SOURCE_QUENCH, "source quench"); _ (REDIRECT, "redirect"); _ (ECHO, "echo request"); _ (TIME_EXCEEDED, "time exceeded"); _ (PARAMETERPROB, "parameter problem"); _ (TIMESTAMP, "timestamp request"); _ (TIMESTAMPREPLY, "timestamp reply"); _ (INFO_REQUEST, "information request"); _ (INFO_REPLY, "information reply"); _ (ADDRESS, "address mask request"); _ (ADDRESSREPLY, "address mask reply"); #undef _ default: s = format (s, "unknown type 0x%x", icmp_type); } if (icmp_type == ICMP_DEST_UNREACH) { switch (icmp_code) { #define _(f,str) case ICMP_##f: s = format (s, " " # str); break; _ (NET_UNREACH, "network"); _ (HOST_UNREACH, "host"); _ (PROT_UNREACH, "protocol"); _ (PORT_UNREACH, "port"); _ (FRAG_NEEDED, ": fragmentation needed/DF set"); _ (SR_FAILED, "source route failed"); _ (NET_UNKNOWN, "network unknown"); _ (HOST_UNKNOWN, "host unknown"); _ (HOST_ISOLATED, "host isolated"); _ (NET_ANO, "network: admin. prohibited"); _ (HOST_ANO, "host: admin. prohibited"); _ (NET_UNR_TOS, "network for type-of-service"); _ (HOST_UNR_TOS, "host for type-of-service"); _ (PKT_FILTERED, ": packet filtered"); _ (PREC_VIOLATION, "precedence violation"); _ (PREC_CUTOFF, "precedence cut off"); #undef _ default: s = format (s, "unknown code 0x%x", icmp_code); } } else if (icmp_type == ICMP_REDIRECT) { switch (icmp_code) { #define _(f,str) case ICMP_##f: s = format (s, " " # str); break; _ (REDIR_NET, "network"); _ (REDIR_HOST, "host"); _ (REDIR_NETTOS, "network for type-of-service"); _ (REDIR_HOSTTOS, "host for type-of-service"); #undef _ default: s = format (s, "unknown code 0x%x", icmp_code); } } else if (icmp_type == ICMP_TIME_EXCEEDED) { switch (icmp_code) { #define _(f,str) case ICMP_##f: s = format (s, " " # str); break; _ (EXC_TTL, "time-to-live zero in transit"); _ (EXC_FRAGTIME, "time-to-live zero during reassembly"); #undef _ default: s = format (s, "unknown code 0x%x", icmp_code); } } return s; } typedef struct { u8 type; u8 code; u16 checksum; } icmp4_t; u8 * format_icmp4_packet (u8 * s, va_list * args) { u8 * p = va_arg (*args, u8 *); struct iphdr * ip = (void *) p; icmp4_t * icmp = (void *) (ip + 1); s = format (s, "icmp %U %U -> %U", format_icmp4_type_and_code, icmp->type, icmp->code, format_network_address, AF_INET, &ip->saddr, format_network_address, AF_INET, &ip->daddr); return s; } u8 * format_ip4_tos_byte (u8 * s, va_list * args) { uword tos = va_arg (*args, uword); if (tos & IPTOS_LOWDELAY) s = format (s, "minimize-delay, "); if (tos & IPTOS_MINCOST) s = format (s, "minimize-cost, "); if (tos & IPTOS_THROUGHPUT) s = format (s, "maximize-throughput, "); if (tos & IPTOS_RELIABILITY) s = format (s, "maximize-reliability, "); switch (IPTOS_PREC (tos)) { #define _(x,y) case IPTOS_PREC_##x: s = format (s, y); break _ (NETCONTROL, "network"); _ (INTERNETCONTROL, "internet"); _ (CRITIC_ECP, "critical"); _ (FLASH, "flash"); _ (FLASHOVERRIDE, "flash-override"); _ (IMMEDIATE, "immediate"); _ (PRIORITY, "priority"); _ (ROUTINE, "routine"); #undef _ } return s; } u8 * format_ip4_packet (u8 * s, va_list * args) { u8 * p = va_arg (*args, u8 *); struct iphdr * ip = (void *) p; static format_function_t * f[256]; if (! f[IPPROTO_TCP]) { f[IPPROTO_TCP] = format_tcp4_packet; f[IPPROTO_UDP] = format_udp4_packet; f[IPPROTO_ICMP] = format_icmp4_packet; } if (f[ip->protocol]) return format (s, "%U", f[ip->protocol], p); s = format (s, "%U: %U -> %U", format_network_protocol, AF_INET, ip->protocol, format_network_address, AF_INET, &ip->saddr, format_network_address, AF_INET, &ip->daddr); return s; } #define foreach_unix_arphrd_type \ _ (NETROM, 0) \ _ (ETHER, 1) \ _ (EETHER, 2) \ _ (AX25, 3) \ _ (PRONET, 4) \ _ (CHAOS, 5) \ _ (IEEE802, 6) \ _ (ARCNET, 7) \ _ (APPLETLK, 8) \ _ (DLCI, 15) \ _ (ATM, 19) \ _ (METRICOM, 23) \ _ (IEEE1394, 24) \ _ (EUI64, 27) \ _ (INFINIBAND, 32) \ _ (SLIP, 256) \ _ (CSLIP, 257) \ _ (SLIP6, 258) \ _ (CSLIP6, 259) \ _ (RSRVD, 260) \ _ (ADAPT, 264) \ _ (ROSE, 270) \ _ (X25, 271) \ _ (HWX25, 272) \ _ (PPP, 512) \ _ (HDLC, 513) \ _ (LAPB, 516) \ _ (DDCMP, 517) \ _ (RAWHDLC, 518) \ _ (TUNNEL, 768) \ _ (TUNNEL6, 769) \ _ (FRAD, 770) \ _ (SKIP, 771) \ _ (LOOPBACK, 772) \ _ (LOCALTLK, 773) \ _ (FDDI, 774) \ _ (BIF, 775) \ _ (SIT, 776) \ _ (IPDDP, 777) \ _ (IPGRE, 778) \ _ (PIMREG, 779) \ _ (HIPPI, 780) \ _ (ASH, 781) \ _ (ECONET, 782) \ _ (IRDA, 783) \ _ (FCPP, 784) \ _ (FCAL, 785) \ _ (FCPL, 786) \ _ (FCFABRIC, 787) \ _ (IEEE802_TR, 800) \ _ (IEEE80211, 801) \ _ (IEEE80211_PRISM, 802) \ _ (IEEE80211_RADIOTAP, 803) \ _ (VOID, 0xFFFF) \ _ (NONE, 0xFFFE) u8 * format_unix_arphrd (u8 * s, va_list * args) { #ifndef __COVERITY__ /* doesn't understand this at all... */ u32 x = va_arg (*args, u32); char * t; switch (x) { #define _(f,n) case ARPHRD_##f: t = #f; break; foreach_unix_arphrd_type #undef _ default: t = 0; break; } if (t) s = format (s, "%s", t); else s = format (s, "unknown 0x%x", x); #endif return s; } #define foreach_unix_interface_flag \ _ (up) \ _ (broadcast) \ _ (debug) \ _ (loopback) \ _ (pointopoint) \ _ (notrailers) \ _ (running) \ _ (noarp) \ _ (promisc) \ _ (allmulti) \ _ (master) \ _ (slave) \ _ (multicast) \ _ (portsel) \ _ (automedia) \ _ (dynamic) \ _ (lower_up) \ _ (dormant) \ _ (echo) static char * unix_interface_flag_names[] = { #define _(f) #f, foreach_unix_interface_flag #undef _ }; u8 * format_unix_interface_flags (u8 * s, va_list * args) { u32 x = va_arg (*args, u32); u32 i; if (x == 0) s = format (s, "none"); else foreach_set_bit (i, x, ({ if (i < ARRAY_LEN (unix_interface_flag_names)) s = format (s, "%s", unix_interface_flag_names[i]); else s = format (s, "unknown %d", i); if (x >> (i + 1)) s = format (s, ", "); })); return s; } typedef struct { u16 ar_hrd; /* format of hardware address */ u16 ar_pro; /* format of protocol address */ u8 ar_hln; /* length of hardware address */ u8 ar_pln; /* length of protocol address */ u16 ar_op; /* ARP opcode (command) */ u8 ar_sha[6]; /* sender hardware address */ u8 ar_spa[4]; /* sender IP address */ u8 ar_tha[6]; /* target hardware address */ u8 ar_tpa[4]; /* target IP address */ } arp_ether_ip4_t; u8 * format_arp_packet (u8 * s, va_list * args) { arp_ether_ip4_t * a = va_arg (*args, arp_ether_ip4_t *); char * op = "unknown"; if (a->ar_pro != ETH_P_IP || a->ar_hrd != ARPHRD_ETHER) return s; switch (a->ar_op) { #define _(f) case ARPOP_##f: op = #f; break; _ (REQUEST); _ (REPLY); _ (RREQUEST); _ (RREPLY); #undef _ } s = format (s, "%s %U %U -> %U %U", op, format_network_address, AF_INET, a->ar_spa, format_network_address, AF_UNSPEC, a->ar_sha, format_network_address, AF_INET, a->ar_tpa, format_network_address, AF_UNSPEC, a->ar_tha); return s; } u8 * format_ethernet_proto (u8 * s, va_list * args) { uword type = va_arg (*args, uword); char * t = 0; switch (type) { case 0: t = "BPDU"; break; #define _(f) case ETH_P_##f: t = #f; break; _ (LOOP); _ (PUP); #ifdef ETH_P_PUPAT _ (PUPAT); #endif _ (IP); _ (X25); _ (ARP); _ (BPQ); #ifdef ETH_P_PUPAT _ (IEEEPUP); _ (IEEEPUPAT); #endif _ (DEC); _ (DNA_DL); _ (DNA_RC); _ (DNA_RT); _ (LAT); _ (DIAG); _ (CUST); _ (SCA); _ (RARP); _ (ATALK); _ (AARP); _ (IPX); _ (IPV6); #ifdef ETH_P_PPP_DISC _ (PPP_DISC); _ (PPP_SES); #endif #ifdef ETH_P_ATMMPOA _ (ATMMPOA); _ (ATMFATE); #endif _ (802_3); _ (AX25); _ (ALL); _ (802_2); _ (SNAP); _ (DDCMP); _ (WAN_PPP); _ (PPP_MP); _ (LOCALTALK); _ (PPPTALK); _ (TR_802_2); _ (MOBITEX); _ (CONTROL); _ (IRDA); #ifdef ETH_P_ECONET _ (ECONET); #endif #undef _ } if (t) vec_add (s, t, strlen (t)); else s = format (s, "ether-type 0x%x", type); return s; } u8 * format_ethernet_packet (u8 * s, va_list * args) { struct ethhdr * h = va_arg (*args, struct ethhdr *); uword proto = h->h_proto; u8 * payload = (void *) (h + 1); u32 indent; /* Check for 802.2/802.3 encapsulation. */ if (proto < ETH_DATA_LEN) { typedef struct { u8 dsap, ssap, control; u8 orig_code[3]; u16 proto; } ethhdr_802_t; ethhdr_802_t * h1 = (void *) (h + 1); proto = h1->proto; payload = (void *) (h1 + 1); } indent = format_get_indent (s); s = format (s, "%U: %U -> %U", format_ethernet_proto, proto, format_network_address, AF_UNSPEC, h->h_source, format_network_address, AF_UNSPEC, h->h_dest); switch (proto) { case ETH_P_ARP: s = format (s, "\n%U%U", format_white_space, indent, format_arp_packet, payload); break; } return s; } #ifndef __KERNEL__ u8 * format_hostname (u8 * s, va_list * args) { char buffer[1024]; char * b = buffer; if (gethostname (b, sizeof (buffer)) < 0) b = "noname"; return format (s, "%s", b); } #endif #ifndef __KERNEL__ u8 * format_timeval (u8 * s, va_list * args) { char * fmt = va_arg (*args, char *); struct timeval * tv = va_arg (*args, struct timeval *); struct tm * tm; word msec; char * f, c; if (! fmt) fmt = "y/m/d H:M:S:F"; if (! tv) { static struct timeval now; gettimeofday (&now, 0); tv = &now; } msec = flt_round_nearest (1e-3 * tv->tv_usec); if (msec >= 1000) { msec = 0; tv->tv_sec++; } { time_t t = tv->tv_sec; tm = localtime (&t); } for (f = fmt; *f; f++) { uword what; char * what_fmt = "%d"; switch (c = *f) { default: vec_add1 (s, c); continue; case 'y': what = 1900 + tm->tm_year; what_fmt = "%4d"; break; case 'm': what = tm->tm_mon + 1; what_fmt = "%2d"; break; case 'd': what = tm->tm_mday; what_fmt = "%2d"; break; case 'H': what = tm->tm_hour; what_fmt = "%02d"; break; case 'M': what = tm->tm_min; what_fmt = "%02d"; break; case 'S': what = tm->tm_sec; what_fmt = "%02d"; break; case 'F': what = msec; what_fmt = "%03d"; break; } s = format (s, what_fmt, what); } return s; } #endif u8 * format_time_float (u8 * s, va_list * args) { u8 * fmt = va_arg (*args, u8 *); f64 t = va_arg (*args, f64); struct timeval tv; if (t <= 0) t = unix_time_now (); tv.tv_sec = t; tv.tv_usec = 1e6*(t - tv.tv_sec); return format (s, "%U", format_timeval, fmt, &tv); } u8 * format_signal (u8 * s, va_list * args) { uword signum = va_arg (*args, uword); char * t = 0; switch (signum) { #define _(x) case x: t = #x; break; _ (SIGHUP); _ (SIGINT); _ (SIGQUIT); _ (SIGILL); _ (SIGTRAP); _ (SIGABRT); _ (SIGBUS); _ (SIGFPE); _ (SIGKILL); _ (SIGUSR1); _ (SIGSEGV); _ (SIGUSR2); _ (SIGPIPE); _ (SIGALRM); _ (SIGTERM); #ifdef SIGSTKFLT _ (SIGSTKFLT); #endif _ (SIGCHLD); _ (SIGCONT); _ (SIGSTOP); _ (SIGTSTP); _ (SIGTTIN); _ (SIGTTOU); _ (SIGURG); _ (SIGXCPU); _ (SIGXFSZ); _ (SIGVTALRM); _ (SIGPROF); _ (SIGWINCH); _ (SIGIO); _ (SIGPWR); #ifdef SIGSYS _ (SIGSYS); #endif #undef _ default: return format (s, "unknown %d", signum); } vec_add (s, t, strlen (t)); return s; } u8 * format_ucontext_pc (u8 * s, va_list * args) { ucontext_t * uc __attribute__((unused)); unsigned long * regs = 0; uword reg_no = 0; uc = va_arg (*args, ucontext_t *); #if defined (powerpc) regs = &uc->uc_mcontext.uc_regs->gregs[0]; #elif defined (powerpc64) regs = &uc->uc_mcontext.uc_regs->gp_regs[0]; #elif defined (i386) || defined (__x86_64__) regs = (void *) &uc->uc_mcontext.gregs[0]; #endif #if defined (powerpc) || defined (powerpc64) reg_no = PT_NIP; #elif defined (i386) reg_no = REG_EIP; #elif defined (__x86_64__) reg_no = REG_RIP; #else reg_no = 0; regs = 0; #endif if (! regs) return format (s, "unsupported"); else return format (s, "%p", regs[reg_no]); } uword unformat_unix_gid (unformat_input_t * input, va_list * args) { gid_t *gid = va_arg (*args, gid_t *); struct group *grp = 0; int r; u8 *s; if (unformat (input, "%d", &r)) { grp = getgrgid (r); } else if (unformat (input, "%s", &s)) { grp = getgrnam ((char *) s); vec_free (s); } if (grp) { *gid = grp->gr_gid; return 1; } return 0; } #define MAX_NUMNODES 16 u8 * format_page_map (u8 * s, va_list * args) { uword va = va_arg (*args, uword); uword size = va_arg (*args, uword); uword page_size = clib_mem_get_page_size (); u32 indent = format_get_indent (s); uword n_pages = size / page_size; uword pages_per_numa[MAX_NUMNODES] = { 0 }; uword pages_not_mapped = 0; uword pages_unknown = 0; int *status = 0; void **ptr = 0; int i; s = format (s, "virtual memory start 0x%llx, size %lluk, %u pages, " "page size %uk", va, size / 1024, n_pages, page_size / 1024); vec_validate (status, n_pages - 1); vec_validate (ptr, n_pages - 1); for (i = 0; i < n_pages; i++) ptr[i] = uword_to_pointer (va + i * page_size, void *); if (move_pages (0, n_pages, ptr, 0, status, 0) != 0) { s = format (s, "\n%Upage information not available (errno %u)", format_white_space, indent + 2, errno); goto done; } for (i = 0; i < n_pages; i++) { if (status[i] >= 0 && status[i] < MAX_NUMNODES) pages_per_numa[status[i]]++; else if (status[i] == -EFAULT) pages_not_mapped++; else pages_unknown++; } for (i = 0; i < MAX_NUMNODES; i++) if (pages_per_numa[i]) s = format (s, "\n%Unuma %u: %d pages, %luk", format_white_space, indent + 2, i, pages_per_numa[i], pages_per_numa[i] * page_size / 1024); s = format (s, "\n%Unot mapped: %u pages, %luk", format_white_space, indent + 2, pages_not_mapped, pages_not_mapped * page_size / 1024); if (pages_unknown) s = format (s, "\n%Uunknown: %u pages, %luk", format_white_space, indent + 2, pages_unknown, pages_unknown * page_size / 1024); done: vec_free (status); vec_free (ptr); return s; } #endif /* __KERNEL__ */