// SPDX-License-Identifier: GPL-2.0
/* Copyright (c) 2020 Facebook */
#include <test_progs.h>
#include <bpf/btf.h>

static char *dump_buf;
static size_t dump_buf_sz;
static FILE *dump_buf_file;

static void btf_dump_printf(void *ctx, const char *fmt, va_list args)
{
 vfprintf(ctx, fmt, args);
}

static void __test_btf_split(bool multi)
{
 struct btf_dump *d = NULL;
 const struct btf_type *t;
 struct btf *btf1, *btf2, *btf3 = NULL;
 int str_off, i, err;

 btf1 = btf__new_empty();
 if (!ASSERT_OK_PTR(btf1, "empty_main_btf"))
  return;

 btf__set_pointer_size(btf1, 8); /* enforce 64-bit arch */

 btf__add_int(btf1, "int", 4, BTF_INT_SIGNED); /* [1] int */
 btf__add_ptr(btf1, 1);    /* [2] ptr to int */

 btf__add_struct(btf1, "s1", 4);   /* [3] struct s1 { */
 btf__add_field(btf1, "f1", 1, 0, 0);  /*      int f1; */
       /* } */

 btf2 = btf__new_empty_split(btf1);
 if (!ASSERT_OK_PTR(btf2, "empty_split_btf"))
  goto cleanup;

 /* pointer size should be "inherited" from main BTF */
 ASSERT_EQ(btf__pointer_size(btf2), 8, "inherit_ptr_sz");

 str_off = btf__find_str(btf2, "int");
 ASSERT_NEQ(str_off, -ENOENT, "str_int_missing");

 t = btf__type_by_id(btf2, 1);
 if (!ASSERT_OK_PTR(t, "int_type"))
  goto cleanup;
 ASSERT_EQ(btf_is_int(t), true, "int_kind");
 ASSERT_STREQ(btf__str_by_offset(btf2, t->name_off), "int", "int_name");

 btf__add_struct(btf2, "s2", 16);  /* [4] struct s2 { */
 btf__add_field(btf2, "f1", 3, 0, 0);  /*      struct s1 f1; */
 btf__add_field(btf2, "f2", 1, 32, 0);  /*      int f2; */
 btf__add_field(btf2, "f3", 2, 64, 0);  /*      int *f3; */
       /* } */

 t = btf__type_by_id(btf1, 4);
 ASSERT_NULL(t, "split_type_in_main");

 t = btf__type_by_id(btf2, 4);
 if (!ASSERT_OK_PTR(t, "split_struct_type"))
  goto cleanup;
 ASSERT_EQ(btf_is_struct(t), true, "split_struct_kind");
 ASSERT_EQ(btf_vlen(t), 3, "split_struct_vlen");
 ASSERT_STREQ(btf__str_by_offset(btf2, t->name_off), "s2", "split_struct_name");

 if (multi) {
  btf3 = btf__new_empty_split(btf2);
  if (!ASSERT_OK_PTR(btf3, "multi_split_btf"))
   goto cleanup;
 } else {
  btf3 = btf2;
 }

 btf__add_union(btf3, "u1", 16);   /* [5] union u1 { */
 btf__add_field(btf3, "f1", 4, 0, 0);  /* struct s2 f1; */
 btf__add_field(btf3, "uf2", 1, 0, 0);  /* int f2; */
       /* } */

 if (multi) {
  t = btf__type_by_id(btf2, 5);
  ASSERT_NULL(t, "multisplit_type_in_first_split");
 }

 t = btf__type_by_id(btf3, 5);
 if (!ASSERT_OK_PTR(t, "split_union_type"))
  goto cleanup;
 ASSERT_EQ(btf_is_union(t), true, "split_union_kind");
 ASSERT_EQ(btf_vlen(t), 2, "split_union_vlen");
 ASSERT_STREQ(btf__str_by_offset(btf3, t->name_off), "u1", "split_union_name");
 ASSERT_EQ(btf__type_cnt(btf3), 6, "split_type_cnt");

 t = btf__type_by_id(btf3, 1);
 if (!ASSERT_OK_PTR(t, "split_base_type"))
  goto cleanup;
 ASSERT_EQ(btf_is_int(t), true, "split_base_int");
 ASSERT_STREQ(btf__str_by_offset(btf3, t->name_off), "int", "split_base_type_name");

 /* BTF-to-C dump of split BTF */
 dump_buf_file = open_memstream(&dump_buf, &dump_buf_sz);
 if (!ASSERT_OK_PTR(dump_buf_file, "dump_memstream"))
  return;
 d = btf_dump__new(btf3, btf_dump_printf, dump_buf_file, NULL);
 if (!ASSERT_OK_PTR(d, "btf_dump__new"))
  goto cleanup;
 for (i = 1; i < btf__type_cnt(btf3); i++) {
  err = btf_dump__dump_type(d, i);
  ASSERT_OK(err, "dump_type_ok");
 }
 fflush(dump_buf_file);
 dump_buf[dump_buf_sz] = 0; /* some libc implementations don't do this */
 ASSERT_STREQ(dump_buf,
"struct s1 {\n"
" int f1;\n"
"};\n\n"
"struct s2 {\n"
" struct s1 f1;\n"
" int f2;\n"
" int *f3;\n"
"};\n\n"
"union u1 {\n"
" struct s2 f1;\n"
" int uf2;\n"
"};\n\n", "c_dump");

cleanup:
 if (dump_buf_file)
  fclose(dump_buf_file);
 free(dump_buf);
 btf_dump__free(d);
 btf__free(btf1);
 btf__free(btf2);
 if (btf2 != btf3)
  btf__free(btf3);
}

void test_btf_split(void)
{
 if (test__start_subtest("single_split"))
  __test_btf_split(false);
 if (test__start_subtest("multi_split"))
  __test_btf_split(true);
}