// SPDX-License-Identifier: GPL-2.0-or-later

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

#include "dexcr.h"
#include "utils.h"

static void die(const char *msg)
{
 printf("%s\n", msg);
 exit(1);
}

static void help(void)
{
 printf("Invoke a provided program with a custom DEXCR on-exec reset value\n"
        "\n"
        "usage: chdexcr [CHDEXCR OPTIONS] -- PROGRAM [ARGS...]\n"
        "\n"
        "Each configurable DEXCR aspect is exposed as an option.\n"
        "\n"
        "The normal option sets the aspect in the DEXCR. The --no- variant\n"
        "clears that aspect. For example, --ibrtpd sets the IBRTPD aspect bit,\n"
        "so indirect branch prediction will be disabled in the provided program.\n"
        "Conversely, --no-ibrtpd clears the aspect bit, so indirect branch\n"
        "prediction may occur.\n"
        "\n"
        "CHDEXCR OPTIONS:\n");

 for (int i = 0; i < ARRAY_SIZE(aspects); i++) {
  const struct dexcr_aspect *aspect = &aspects[i];

  if (aspect->prctl == -1)
   continue;

  printf("  --%-6s / --no-%-6s : %s\n", aspect->opt, aspect->opt, aspect->desc);
 }
}

static const struct dexcr_aspect *opt_to_aspect(const char *opt)
{
 for (int i = 0; i < ARRAY_SIZE(aspects); i++)
  if (aspects[i].prctl != -1 && !strcmp(aspects[i].opt, opt))
   return &aspects[i];

 return NULL;
}

static int apply_option(const char *option)
{
 const struct dexcr_aspect *aspect;
 const char *opt = NULL;
 const char *set_prefix = "--";
 const char *clear_prefix = "--no-";
 unsigned long ctrl = 0;
 int err;

 if (!strcmp(option, "-h") || !strcmp(option, "--help")) {
  help();
  exit(0);
 }

 /* Strip out --(no-) prefix and determine ctrl value */
 if (!strncmp(option, clear_prefix, strlen(clear_prefix))) {
  opt = &option[strlen(clear_prefix)];
  ctrl |= PR_PPC_DEXCR_CTRL_CLEAR_ONEXEC;
 } else if (!strncmp(option, set_prefix, strlen(set_prefix))) {
  opt = &option[strlen(set_prefix)];
  ctrl |= PR_PPC_DEXCR_CTRL_SET_ONEXEC;
 }

 if (!opt || !*opt)
  return 1;

 aspect = opt_to_aspect(opt);
 if (!aspect)
  die("unknown aspect");

 err = pr_set_dexcr(aspect->prctl, ctrl);
 if (err)
  die("failed to apply option");

 return 0;
}

int main(int argc, char *const argv[])
{
 int i;

 if (!dexcr_exists())
  die("DEXCR not detected on this hardware");

 for (i = 1; i < argc; i++)
  if (apply_option(argv[i]))
   break;

 if (i < argc && !strcmp(argv[i], "--"))
  i++;

 if (i >= argc)
  die("missing command");

 execvp(argv[i], &argv[i]);
 perror("execve");

 return errno;
}