// SPDX-License-Identifier: GPL-2.0
/* Copyright (C) 2023. Huawei Technologies Co., Ltd */
#define _GNU_SOURCE
#include <unistd.h>
#include <sys/syscall.h>
#include <test_progs.h>
#include <bpf/btf.h>

#include "access_map_in_map.skel.h"
#include "update_map_in_htab.skel.h"

struct thread_ctx {
	pthread_barrier_t barrier;
	int outer_map_fd;
	int start, abort;
	int loop, err;
};

static int wait_for_start_or_abort(struct thread_ctx *ctx)
{
	while (!ctx->start && !ctx->abort)
		usleep(1);
	return ctx->abort ? -1 : 0;
}

static void *update_map_fn(void *data)
{
	struct thread_ctx *ctx = data;
	int loop = ctx->loop, err = 0;

	if (wait_for_start_or_abort(ctx) < 0)
		return NULL;
	pthread_barrier_wait(&ctx->barrier);

	while (loop-- > 0) {
		int fd, zero = 0;

		fd = bpf_map_create(BPF_MAP_TYPE_ARRAY, NULL, 4, 4, 1, NULL);
		if (fd < 0) {
			err |= 1;
			pthread_barrier_wait(&ctx->barrier);
			continue;
		}

		/* Remove the old inner map */
		if (bpf_map_update_elem(ctx->outer_map_fd, &zero, &fd, 0) < 0)
			err |= 2;
		close(fd);
		pthread_barrier_wait(&ctx->barrier);
	}

	ctx->err = err;

	return NULL;
}

static void *access_map_fn(void *data)
{
	struct thread_ctx *ctx = data;
	int loop = ctx->loop;

	if (wait_for_start_or_abort(ctx) < 0)
		return NULL;
	pthread_barrier_wait(&ctx->barrier);

	while (loop-- > 0) {
		/* Access the old inner map */
		syscall(SYS_getpgid);
		pthread_barrier_wait(&ctx->barrier);
	}

	return NULL;
}

static void test_map_in_map_access(const char *prog_name, const char *map_name)
{
	struct access_map_in_map *skel;
	struct bpf_map *outer_map;
	struct bpf_program *prog;
	struct thread_ctx ctx;
	pthread_t tid[2];
	int err;

	skel = access_map_in_map__open();
	if (!ASSERT_OK_PTR(skel, "access_map_in_map open"))
		return;

	prog = bpf_object__find_program_by_name(skel->obj, prog_name);
	if (!ASSERT_OK_PTR(prog, "find program"))
		goto out;
	bpf_program__set_autoload(prog, true);

	outer_map = bpf_object__find_map_by_name(skel->obj, map_name);
	if (!ASSERT_OK_PTR(outer_map, "find map"))
		goto out;

	err = access_map_in_map__load(skel);
	if (!ASSERT_OK(err, "access_map_in_map load"))
		goto out;

	err = access_map_in_map__attach(skel);
	if (!ASSERT_OK(err, "access_map_in_map attach"))
		goto out;

	skel->bss->tgid = getpid();

	memset(&ctx, 0, sizeof(ctx));
	pthread_barrier_init(&ctx.barrier, NULL, 2);
	ctx.outer_map_fd = bpf_map__fd(outer_map);
	ctx.loop = 4;

	err = pthread_create(&tid[0], NULL, update_map_fn, &ctx);
	if (!ASSERT_OK(err, "close_thread"))
		goto out;

	err = pthread_create(&tid[1], NULL, access_map_fn, &ctx);
	if (!ASSERT_OK(err, "read_thread")) {
		ctx.abort = 1;
		pthread_join(tid[0], NULL);
		goto out;
	}

	ctx.start = 1;
	pthread_join(tid[0], NULL);
	pthread_join(tid[1], NULL);

	ASSERT_OK(ctx.err, "err");
out:
	access_map_in_map__destroy(skel);
}

static void add_del_fd_htab(int outer_fd)
{
	int inner_fd, err;
	int key = 1;

	inner_fd = bpf_map_create(BPF_MAP_TYPE_ARRAY, "arr1", 4, 4, 1, NULL);
	if (!ASSERT_OK_FD(inner_fd, "inner1"))
		return;
	err = bpf_map_update_elem(outer_fd, &key, &inner_fd, BPF_NOEXIST);
	close(inner_fd);
	if (!ASSERT_OK(err, "add"))
		return;

	/* Delete */
	err = bpf_map_delete_elem(outer_fd, &key);
	ASSERT_OK(err, "del");
}

static void overwrite_fd_htab(int outer_fd)
{
	int inner_fd, err;
	int key = 1;

	inner_fd = bpf_map_create(BPF_MAP_TYPE_ARRAY, "arr1", 4, 4, 1, NULL);
	if (!ASSERT_OK_FD(inner_fd, "inner1"))
		return;
	err = bpf_map_update_elem(outer_fd, &key, &inner_fd, BPF_NOEXIST);
	close(inner_fd);
	if (!ASSERT_OK(err, "add"))
		return;

	/* Overwrite */
	inner_fd = bpf_map_create(BPF_MAP_TYPE_ARRAY, "arr2", 4, 4, 1, NULL);
	if (!ASSERT_OK_FD(inner_fd, "inner2"))
		goto out;
	err = bpf_map_update_elem(outer_fd, &key, &inner_fd, BPF_EXIST);
	close(inner_fd);
	if (!ASSERT_OK(err, "overwrite"))
		goto out;

	err = bpf_map_delete_elem(outer_fd, &key);
	ASSERT_OK(err, "del");
	return;
out:
	bpf_map_delete_elem(outer_fd, &key);
}

static void lookup_delete_fd_htab(int outer_fd)
{
	int key = 1, value;
	int inner_fd, err;

	inner_fd = bpf_map_create(BPF_MAP_TYPE_ARRAY, "arr1", 4, 4, 1, NULL);
	if (!ASSERT_OK_FD(inner_fd, "inner1"))
		return;
	err = bpf_map_update_elem(outer_fd, &key, &inner_fd, BPF_NOEXIST);
	close(inner_fd);
	if (!ASSERT_OK(err, "add"))
		return;

	/* lookup_and_delete is not supported for htab of maps */
	err = bpf_map_lookup_and_delete_elem(outer_fd, &key, &value);
	ASSERT_EQ(err, -ENOTSUPP, "lookup_del");

	err = bpf_map_delete_elem(outer_fd, &key);
	ASSERT_OK(err, "del");
}

static void batched_lookup_delete_fd_htab(int outer_fd)
{
	int keys[2] = {1, 2}, values[2];
	unsigned int cnt, batch;
	int inner_fd, err;

	inner_fd = bpf_map_create(BPF_MAP_TYPE_ARRAY, "arr1", 4, 4, 1, NULL);
	if (!ASSERT_OK_FD(inner_fd, "inner1"))
		return;

	err = bpf_map_update_elem(outer_fd, &keys[0], &inner_fd, BPF_NOEXIST);
	close(inner_fd);
	if (!ASSERT_OK(err, "add1"))
		return;

	inner_fd = bpf_map_create(BPF_MAP_TYPE_ARRAY, "arr2", 4, 4, 1, NULL);
	if (!ASSERT_OK_FD(inner_fd, "inner2"))
		goto out;
	err = bpf_map_update_elem(outer_fd, &keys[1], &inner_fd, BPF_NOEXIST);
	close(inner_fd);
	if (!ASSERT_OK(err, "add2"))
		goto out;

	/* batched lookup_and_delete */
	cnt = ARRAY_SIZE(keys);
	err = bpf_map_lookup_and_delete_batch(outer_fd, NULL, &batch, keys, values, &cnt, NULL);
	ASSERT_TRUE((!err || err == -ENOENT), "delete_batch ret");
	ASSERT_EQ(cnt, ARRAY_SIZE(keys), "delete_batch cnt");

out:
	bpf_map_delete_elem(outer_fd, &keys[0]);
}

static void test_update_map_in_htab(bool preallocate)
{
	struct update_map_in_htab *skel;
	int err, fd;

	skel = update_map_in_htab__open();
	if (!ASSERT_OK_PTR(skel, "open"))
		return;

	err = update_map_in_htab__load(skel);
	if (!ASSERT_OK(err, "load"))
		goto out;

	fd = preallocate ? bpf_map__fd(skel->maps.outer_htab_map) :
			   bpf_map__fd(skel->maps.outer_alloc_htab_map);

	add_del_fd_htab(fd);
	overwrite_fd_htab(fd);
	lookup_delete_fd_htab(fd);
	batched_lookup_delete_fd_htab(fd);
out:
	update_map_in_htab__destroy(skel);
}

void test_map_in_map(void)
{
	if (test__start_subtest("acc_map_in_array"))
		test_map_in_map_access("access_map_in_array", "outer_array_map");
	if (test__start_subtest("sleepable_acc_map_in_array"))
		test_map_in_map_access("sleepable_access_map_in_array", "outer_array_map");
	if (test__start_subtest("acc_map_in_htab"))
		test_map_in_map_access("access_map_in_htab", "outer_htab_map");
	if (test__start_subtest("sleepable_acc_map_in_htab"))
		test_map_in_map_access("sleepable_access_map_in_htab", "outer_htab_map");
	if (test__start_subtest("update_map_in_htab"))
		test_update_map_in_htab(true);
	if (test__start_subtest("update_map_in_alloc_htab"))
		test_update_map_in_htab(false);
}