// SPDX-License-Identifier: GPL-2.0
/*
 * This test covers the anonymous VMA naming functionality through prctl calls
 */

#include <errno.h>
#include <sys/prctl.h>
#include <stdio.h>
#include <stdlib.h>
#include <sys/mman.h>
#include <string.h>

#include "../kselftest_harness.h"

#define AREA_SIZE 1024

#define GOOD_NAME "goodname"
#define BAD_NAME "badname\1"

#ifndef PR_SET_VMA
#define PR_SET_VMA 0x53564d41
#define PR_SET_VMA_ANON_NAME 0
#endif


int rename_vma(unsigned long addr, unsigned long size, char *name)
{
	int res;

	res = prctl(PR_SET_VMA, PR_SET_VMA_ANON_NAME, addr, size, name);
	if (res < 0)
		return -errno;
	return res;
}

int was_renaming_successful(char *target_name, unsigned long ptr)
{
	FILE *maps_file;

	char line_buf[512], name[128], mode[8];
	unsigned long start_addr, end_addr, offset;
	unsigned int major_id, minor_id, node_id;

	char target_buf[128];
	int res = 0, sscanf_res;

	// The entry name in maps will be in format [anon:<target_name>]
	sprintf(target_buf, "[anon:%s]", target_name);
	maps_file = fopen("/proc/self/maps", "r");
	if (!maps_file) {
		printf("## /proc/self/maps file opening error\n");
		return 0;
	}

	// Parse the maps file to find the entry we renamed
	while (fgets(line_buf, sizeof(line_buf), maps_file)) {
		sscanf_res = sscanf(line_buf, "%lx-%lx %7s %lx %u:%u %u %s", &start_addr,
					&end_addr, mode, &offset, &major_id,
					&minor_id, &node_id, name);
		if (sscanf_res == EOF) {
			res = 0;
			printf("## EOF while parsing the maps file\n");
			break;
		}
		if (!strcmp(name, target_buf) && start_addr == ptr) {
			res = 1;
			break;
		}
	}
	fclose(maps_file);
	return res;
}

FIXTURE(vma) {
	void *ptr_anon, *ptr_not_anon;
};

FIXTURE_SETUP(vma) {
	self->ptr_anon = mmap(NULL, AREA_SIZE, PROT_READ | PROT_WRITE,
					MAP_PRIVATE | MAP_ANONYMOUS, 0, 0);
	ASSERT_NE(self->ptr_anon, NULL);
	self->ptr_not_anon = mmap(NULL, AREA_SIZE, PROT_READ | PROT_WRITE,
					MAP_PRIVATE, 0, 0);
	ASSERT_NE(self->ptr_not_anon, NULL);
}

FIXTURE_TEARDOWN(vma) {
	munmap(self->ptr_anon, AREA_SIZE);
	munmap(self->ptr_not_anon, AREA_SIZE);
}

TEST_F(vma, renaming) {
	TH_LOG("Try to rename the VMA with correct parameters");
	EXPECT_GE(rename_vma((unsigned long)self->ptr_anon, AREA_SIZE, GOOD_NAME), 0);
	EXPECT_TRUE(was_renaming_successful(GOOD_NAME, (unsigned long)self->ptr_anon));

	TH_LOG("Try to pass invalid name (with non-printable character \\1) to rename the VMA");
	EXPECT_EQ(rename_vma((unsigned long)self->ptr_anon, AREA_SIZE, BAD_NAME), -EINVAL);

	TH_LOG("Try to rename non-anonymous VMA");
	EXPECT_EQ(rename_vma((unsigned long) self->ptr_not_anon, AREA_SIZE, GOOD_NAME), -EINVAL);
}

TEST_HARNESS_MAIN