/* Copyright (c) 2017 Facebook
 *
 * This program is free software; you can redistribute it and/or
 * modify it under the terms of version 2 of the GNU General Public
 * License as published by the Free Software Foundation.
 */

/* This program shows clang/llvm is able to generate code pattern
 * like:
 *   _tcp_send_active_reset:
 *      0:       bf 16 00 00 00 00 00 00         r6 = r1
 *    ......
 *    335:       b7 01 00 00 0f 00 00 00         r1 = 15
 *    336:       05 00 48 00 00 00 00 00         goto 72
 *
 *   LBB0_3:
 *    337:       b7 01 00 00 01 00 00 00         r1 = 1
 *    338:       63 1a d0 ff 00 00 00 00         *(u32 *)(r10 - 48) = r1
 *    408:       b7 01 00 00 03 00 00 00         r1 = 3
 *
 *   LBB0_4:
 *    409:       71 a2 fe ff 00 00 00 00         r2 = *(u8 *)(r10 - 2)
 *    410:       bf a7 00 00 00 00 00 00         r7 = r10
 *    411:       07 07 00 00 b8 ff ff ff         r7 += -72
 *    412:       bf 73 00 00 00 00 00 00         r3 = r7
 *    413:       0f 13 00 00 00 00 00 00         r3 += r1
 *    414:       73 23 2d 00 00 00 00 00         *(u8 *)(r3 + 45) = r2
 *
 * From the above code snippet, the code generated by the compiler
 * is reasonable. The "r1" is assigned to different values in basic
 * blocks "_tcp_send_active_reset" and "LBB0_3", and used in "LBB0_4".
 * The verifier should be able to handle such code patterns.
 */
#include <string.h>
#include <linux/bpf.h>
#include <linux/ipv6.h>
#include <linux/version.h>
#include <sys/socket.h>
#include <bpf/bpf_helpers.h>

#define _(P) ({typeof(P) val = 0; bpf_probe_read_kernel(&val, sizeof(val), &P); val;})
#define TCP_ESTATS_MAGIC 0xBAADBEEF

/* This test case needs "sock" and "pt_regs" data structure.
 * Recursively, "sock" needs "sock_common" and "inet_sock".
 * However, this is a unit test case only for
 * verifier purpose without bpf program execution.
 * We can safely mock much simpler data structures, basically
 * only taking the necessary fields from kernel headers.
 */
typedef __u32 __bitwise __portpair;
typedef __u64 __bitwise __addrpair;

struct sock_common {
        unsigned short          skc_family;
        union {
                __addrpair      skc_addrpair;
                struct {
                        __be32  skc_daddr;
                        __be32  skc_rcv_saddr;
                };
        };
        union {
                __portpair      skc_portpair;
                struct {
                        __be16  skc_dport;
                        __u16   skc_num;
                };
        };
        struct in6_addr         skc_v6_daddr;
        struct in6_addr         skc_v6_rcv_saddr;
};

struct sock {
        struct sock_common      __sk_common;
#define sk_family               __sk_common.skc_family
#define sk_v6_daddr             __sk_common.skc_v6_daddr
#define sk_v6_rcv_saddr         __sk_common.skc_v6_rcv_saddr
};

struct inet_sock {
        struct sock             sk;
#define inet_daddr              sk.__sk_common.skc_daddr
#define inet_dport              sk.__sk_common.skc_dport
        __be32                  inet_saddr;
        __be16                  inet_sport;
};

struct pt_regs {
        long di;
};

static inline struct inet_sock *inet_sk(const struct sock *sk)
{
        return (struct inet_sock *)sk;
}

/* Define various data structures for state recording.
 * Some fields are not used due to test simplification.
 */
enum tcp_estats_addrtype {
        TCP_ESTATS_ADDRTYPE_IPV4 = 1,
        TCP_ESTATS_ADDRTYPE_IPV6 = 2
};

enum tcp_estats_event_type {
        TCP_ESTATS_ESTABLISH,
        TCP_ESTATS_PERIODIC,
        TCP_ESTATS_TIMEOUT,
        TCP_ESTATS_RETRANSMIT_TIMEOUT,
        TCP_ESTATS_RETRANSMIT_OTHER,
        TCP_ESTATS_SYN_RETRANSMIT,
        TCP_ESTATS_SYNACK_RETRANSMIT,
        TCP_ESTATS_TERM,
        TCP_ESTATS_TX_RESET,
        TCP_ESTATS_RX_RESET,
        TCP_ESTATS_WRITE_TIMEOUT,
        TCP_ESTATS_CONN_TIMEOUT,
        TCP_ESTATS_ACK_LATENCY,
        TCP_ESTATS_NEVENTS,
};

struct tcp_estats_event {
        int pid;
        int cpu;
        unsigned long ts;
        unsigned int magic;
        enum tcp_estats_event_type event_type;
};

/* The below data structure is packed in order for
 * llvm compiler to generate expected code.
 */
struct tcp_estats_conn_id {
        unsigned int localaddressType;
        struct {
                unsigned char data[16];
        } localaddress;
        struct {
                unsigned char data[16];
        } remaddress;
        unsigned short    localport;
        unsigned short    remport;
} __attribute__((__packed__));

struct tcp_estats_basic_event {
        struct tcp_estats_event event;
        struct tcp_estats_conn_id conn_id;
};

struct {
        __uint(type, BPF_MAP_TYPE_HASH);
        __uint(max_entries, 1024);
        __type(key, __u32);
        __type(value, struct tcp_estats_basic_event);
} ev_record_map SEC(".maps");

struct dummy_tracepoint_args {
        unsigned long long pad;
        struct sock *sock;
};

static __always_inline void tcp_estats_ev_init(struct tcp_estats_event *event,
                                               enum tcp_estats_event_type type)
{
        event->magic = TCP_ESTATS_MAGIC;
        event->ts = bpf_ktime_get_ns();
        event->event_type = type;
}

static __always_inline void unaligned_u32_set(unsigned char *to, __u8 *from)
{
        to[0] = _(from[0]);
        to[1] = _(from[1]);
        to[2] = _(from[2]);
        to[3] = _(from[3]);
}

static __always_inline void conn_id_ipv4_init(struct tcp_estats_conn_id *conn_id,
                                              __be32 *saddr, __be32 *daddr)
{
        conn_id->localaddressType = TCP_ESTATS_ADDRTYPE_IPV4;

        unaligned_u32_set(conn_id->localaddress.data, (__u8 *)saddr);
        unaligned_u32_set(conn_id->remaddress.data, (__u8 *)daddr);
}

static __always_inline void conn_id_ipv6_init(struct tcp_estats_conn_id *conn_id,
                                              __be32 *saddr, __be32 *daddr)
{
        conn_id->localaddressType = TCP_ESTATS_ADDRTYPE_IPV6;

        unaligned_u32_set(conn_id->localaddress.data, (__u8 *)saddr);
        unaligned_u32_set(conn_id->localaddress.data + sizeof(__u32),
                          (__u8 *)(saddr + 1));
        unaligned_u32_set(conn_id->localaddress.data + sizeof(__u32) * 2,
                          (__u8 *)(saddr + 2));
        unaligned_u32_set(conn_id->localaddress.data + sizeof(__u32) * 3,
                          (__u8 *)(saddr + 3));

        unaligned_u32_set(conn_id->remaddress.data,
                          (__u8 *)(daddr));
        unaligned_u32_set(conn_id->remaddress.data + sizeof(__u32),
                          (__u8 *)(daddr + 1));
        unaligned_u32_set(conn_id->remaddress.data + sizeof(__u32) * 2,
                          (__u8 *)(daddr + 2));
        unaligned_u32_set(conn_id->remaddress.data + sizeof(__u32) * 3,
                          (__u8 *)(daddr + 3));
}

static __always_inline void tcp_estats_conn_id_init(struct tcp_estats_conn_id *conn_id,
                                                    struct sock *sk)
{
        conn_id->localport = _(inet_sk(sk)->inet_sport);
        conn_id->remport = _(inet_sk(sk)->inet_dport);

        if (_(sk->sk_family) == AF_INET6)
                conn_id_ipv6_init(conn_id,
                                  sk->sk_v6_rcv_saddr.s6_addr32,
                                  sk->sk_v6_daddr.s6_addr32);
        else
                conn_id_ipv4_init(conn_id,
                                  &inet_sk(sk)->inet_saddr,
                                  &inet_sk(sk)->inet_daddr);
}

static __always_inline void tcp_estats_init(struct sock *sk,
                                            struct tcp_estats_event *event,
                                            struct tcp_estats_conn_id *conn_id,
                                            enum tcp_estats_event_type type)
{
        tcp_estats_ev_init(event, type);
        tcp_estats_conn_id_init(conn_id, sk);
}

static __always_inline void send_basic_event(struct sock *sk,
                                             enum tcp_estats_event_type type)
{
        struct tcp_estats_basic_event ev;
        __u32 key = bpf_get_prandom_u32();

        memset(&ev, 0, sizeof(ev));
        tcp_estats_init(sk, &ev.event, &ev.conn_id, type);
        bpf_map_update_elem(&ev_record_map, &key, &ev, BPF_ANY);
}

SEC("tp/dummy/tracepoint")
int _dummy_tracepoint(struct dummy_tracepoint_args *arg)
{
        if (!arg->sock)
                return 0;

        send_basic_event(arg->sock, TCP_ESTATS_TX_RESET);
        return 0;
}

char _license[] SEC("license") = "GPL";