// 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