// SPDX-License-Identifier: GPL-2.0
/* Copyright (c) 2024, Oracle and/or its affiliates. */

#include <test_progs.h>
#include <bpf/btf.h>
#include "btf_helpers.h"
#include "bpf/libbpf_internal.h"

struct field_data {
	__u32 ids[5];
	const char *strs[5];
} fields[] = {
	{ .ids = {},		.strs = {} },
	{ .ids = {},		.strs = { "int" } },
	{ .ids = {},		.strs = { "int64" } },
	{ .ids = { 1 },		.strs = { "" } },
	{ .ids = { 2, 1 },	.strs = { "" } },
	{ .ids = { 3, 1 },	.strs = { "s1", "f1", "f2" } },
	{ .ids = { 1, 5 },	.strs = { "u1", "f1", "f2" } },
	{ .ids = {},		.strs = { "e1", "v1", "v2" } },
	{ .ids = {},		.strs = { "fw1" } },
	{ .ids = { 1 },		.strs = { "t" } },
	{ .ids = { 2 },		.strs = { "" } },
	{ .ids = { 1 },		.strs = { "" } },
	{ .ids = { 3 },		.strs = { "" } },
	{ .ids = { 1, 1, 3 },	.strs = { "", "p1", "p2" } },
	{ .ids = { 13 },	.strs = { "func" } },
	{ .ids = { 1 },		.strs = { "var1" } },
	{ .ids = { 3 },		.strs = { "var2" } },
	{ .ids = {},		.strs = { "float" } },
	{ .ids = { 11 },	.strs = { "decltag" } },
	{ .ids = { 6 },		.strs = { "typetag" } },
	{ .ids = {},		.strs = { "e64", "eval1", "eval2", "eval3" } },
	{ .ids = { 15, 16 },	.strs = { "datasec1" } }

};

/* Fabricate BTF with various types and check BTF field iteration finds types,
 * strings expected.
 */
void test_btf_field_iter(void)
{
	struct btf *btf = NULL;
	int id;

	btf = btf__new_empty();
	if (!ASSERT_OK_PTR(btf, "empty_btf"))
		return;

	btf__add_int(btf, "int", 4, BTF_INT_SIGNED);	/* [1] int */
	btf__add_int(btf, "int64", 8, BTF_INT_SIGNED);	/* [2] int64 */
	btf__add_ptr(btf, 1);				/* [3] int * */
	btf__add_array(btf, 1, 2, 3);			/* [4] int64[3] */
	btf__add_struct(btf, "s1", 12);			/* [5] struct s1 { */
	btf__add_field(btf, "f1", 3, 0, 0);		/*      int *f1; */
	btf__add_field(btf, "f2", 1, 0, 0);		/*	int f2; */
							/* } */
	btf__add_union(btf, "u1", 12);			/* [6] union u1 { */
	btf__add_field(btf, "f1", 1, 0, 0);		/*	int f1; */
	btf__add_field(btf, "f2", 5, 0, 0);		/*	struct s1 f2; */
							/* } */
	btf__add_enum(btf, "e1", 4);			/* [7] enum e1 { */
	btf__add_enum_value(btf, "v1", 1);		/*	v1 = 1; */
	btf__add_enum_value(btf, "v2", 2);		/*	v2 = 2; */
							/* } */

	btf__add_fwd(btf, "fw1", BTF_FWD_STRUCT);	/* [8] struct fw1; */
	btf__add_typedef(btf, "t", 1);			/* [9] typedef int t; */
	btf__add_volatile(btf, 2);			/* [10] volatile int64; */
	btf__add_const(btf, 1);				/* [11] const int; */
	btf__add_restrict(btf, 3);			/* [12] restrict int *; */
	btf__add_func_proto(btf, 1);			/* [13] int (*)(int p1, int *p2); */
	btf__add_func_param(btf, "p1", 1);
	btf__add_func_param(btf, "p2", 3);

	btf__add_func(btf, "func", BTF_FUNC_GLOBAL, 13);/* [14] int func(int p1, int *p2); */
	btf__add_var(btf, "var1", BTF_VAR_STATIC, 1);	/* [15] static int var1; */
	btf__add_var(btf, "var2", BTF_VAR_STATIC, 3);	/* [16] static int *var2; */
	btf__add_float(btf, "float", 4);		/* [17] float; */
	btf__add_decl_tag(btf, "decltag", 11, -1);	/* [18] decltag const int; */
	btf__add_type_tag(btf, "typetag", 6);		/* [19] typetag union u1; */
	btf__add_enum64(btf, "e64", 8, true);		/* [20] enum { */
	btf__add_enum64_value(btf, "eval1", 1000);	/*	 eval1 = 1000, */
	btf__add_enum64_value(btf, "eval2", 2000);	/*	 eval2 = 2000, */
	btf__add_enum64_value(btf, "eval3", 3000);	/*	 eval3 = 3000 */
							/* } */
	btf__add_datasec(btf, "datasec1", 12);		/* [21] datasec datasec1 */
	btf__add_datasec_var_info(btf, 15, 0, 4);
	btf__add_datasec_var_info(btf, 16, 4, 8);

	VALIDATE_RAW_BTF(
		btf,
		"[1] INT 'int' size=4 bits_offset=0 nr_bits=32 encoding=SIGNED",
		"[2] INT 'int64' size=8 bits_offset=0 nr_bits=64 encoding=SIGNED",
		"[3] PTR '(anon)' type_id=1",
		"[4] ARRAY '(anon)' type_id=2 index_type_id=1 nr_elems=3",
		"[5] STRUCT 's1' size=12 vlen=2\n"
		"\t'f1' type_id=3 bits_offset=0\n"
		"\t'f2' type_id=1 bits_offset=0",
		"[6] UNION 'u1' size=12 vlen=2\n"
		"\t'f1' type_id=1 bits_offset=0\n"
		"\t'f2' type_id=5 bits_offset=0",
		"[7] ENUM 'e1' encoding=UNSIGNED size=4 vlen=2\n"
		"\t'v1' val=1\n"
		"\t'v2' val=2",
		"[8] FWD 'fw1' fwd_kind=struct",
		"[9] TYPEDEF 't' type_id=1",
		"[10] VOLATILE '(anon)' type_id=2",
		"[11] CONST '(anon)' type_id=1",
		"[12] RESTRICT '(anon)' type_id=3",
		"[13] FUNC_PROTO '(anon)' ret_type_id=1 vlen=2\n"
		"\t'p1' type_id=1\n"
		"\t'p2' type_id=3",
		"[14] FUNC 'func' type_id=13 linkage=global",
		"[15] VAR 'var1' type_id=1, linkage=static",
		"[16] VAR 'var2' type_id=3, linkage=static",
		"[17] FLOAT 'float' size=4",
		"[18] DECL_TAG 'decltag' type_id=11 component_idx=-1",
		"[19] TYPE_TAG 'typetag' type_id=6",
		"[20] ENUM64 'e64' encoding=SIGNED size=8 vlen=3\n"
		"\t'eval1' val=1000\n"
		"\t'eval2' val=2000\n"
		"\t'eval3' val=3000",
		"[21] DATASEC 'datasec1' size=12 vlen=2\n"
		"\ttype_id=15 offset=0 size=4\n"
		"\ttype_id=16 offset=4 size=8");

	for (id = 1; id < btf__type_cnt(btf); id++) {
		struct btf_type *t = btf_type_by_id(btf, id);
		struct btf_field_iter it_strs, it_ids;
		int str_idx = 0, id_idx = 0;
		__u32 *next_str, *next_id;

		if (!ASSERT_OK_PTR(t, "btf_type_by_id"))
			break;
		if (!ASSERT_OK(btf_field_iter_init(&it_strs, t, BTF_FIELD_ITER_STRS),
			       "iter_init_strs"))
			break;
		if (!ASSERT_OK(btf_field_iter_init(&it_ids, t, BTF_FIELD_ITER_IDS),
			       "iter_init_ids"))
			break;
		while ((next_str = btf_field_iter_next(&it_strs))) {
			const char *str = btf__str_by_offset(btf, *next_str);

			if (!ASSERT_OK(strcmp(fields[id].strs[str_idx], str), "field_str_match"))
				break;
			str_idx++;
		}
		/* ensure no more strings are expected */
		ASSERT_EQ(fields[id].strs[str_idx], NULL, "field_str_cnt");

		while ((next_id = btf_field_iter_next(&it_ids))) {
			if (!ASSERT_EQ(*next_id, fields[id].ids[id_idx], "field_id_match"))
				break;
			id_idx++;
		}
		/* ensure no more ids are expected */
		ASSERT_EQ(fields[id].ids[id_idx], 0, "field_id_cnt");
	}
	btf__free(btf);
}