/*
 * Copyright (c) 2019-2021 Maxime Villard, m00nbsd.net
 * All rights reserved.
 *
 * This code is part of the NVMM hypervisor.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the distribution.
 *
 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
 * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
 * BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
 * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED
 * AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
 * OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 * SUCH DAMAGE.
 */

#include <sys/param.h>

#include <err.h>
#include <errno.h>
#include <fcntl.h>
#include <stdio.h>
#include <stdlib.h>
#include <stdarg.h>
#include <stdbool.h>
#include <string.h>
#include <unistd.h>
#include <time.h>
#include <util.h>
#include <nvmm.h>

__dead2 static void usage(void);
static void nvmm_identify(char **);
static void nvmm_list(char **);

static struct cmdtab {
        const char *label;
        bool takesargs;
        bool argsoptional;
        void (*func)(char **);
} const nvmm_cmdtab[] = {
        { "identify",   false, false, nvmm_identify },
        { "list",       false, false, nvmm_list },
        { NULL,         false, false, NULL },
};

static struct nvmm_capability cap;

int
main(int argc, char **argv)
{
        const struct cmdtab *ct;

        argc -= 1;
        argv += 1;
        if (argc < 1)
                usage();

        for (ct = nvmm_cmdtab; ct->label != NULL; ct++) {
                if (strcmp(argv[0], ct->label) == 0) {
                        if (!ct->argsoptional &&
                            ((ct->takesargs == 0) ^ (argv[1] == NULL)))
                        {
                                usage();
                        }
                        (*ct->func)(argv + 1);
                        break;
                }
        }

        if (ct->label == NULL)
                errx(EXIT_FAILURE, "unknown command ``%s''", argv[0]);

        exit(EXIT_SUCCESS);
        /* NOTREACHED */
}

static void
usage(void)
{
        const char *progname = getprogname();

        fprintf(stderr, "usage: %s identify\n", progname);
        fprintf(stderr, "       %s list\n", progname);
        exit(EXIT_FAILURE);
        /* NOTREACHED */
}

#define MACH_CONF_FLAGS         "\20"
#define VCPU_CONF_FLAGS         "\20" "\1" "CPUID" "\2" "TPR"
#define XCR0_FLAGS1             "\20" \
        "\1" "x87"              "\2" "SSE"              "\3" "AVX"      \
        "\4" "BNDREGS"          "\5" "BNDCSR"           "\6" "Opmask"   \
        "\7" "ZMM_Hi256"        "\10" "Hi16_ZMM"        "\11" "PT"      \
        "\12" "PKRU"            "\14" "CET_U"           "\15" "CET_S"   \
        "\16" "HDC"             "\21" "HWP"

static void
nvmm_identify(char **argv __unused)
{
        char buf[256], ram[4+1];

        if (nvmm_init() == -1)
                err(EXIT_FAILURE, "nvmm_init failed");
        if (nvmm_capability(&cap) == -1)
                err(EXIT_FAILURE, "nvmm_capability failed");

        printf("nvmm: Kernel API version %u\n", cap.version);
        printf("nvmm: State size %u\n", cap.state_size);
        printf("nvmm: Comm size %u\n", cap.comm_size);
        printf("nvmm: Max machines %u\n", cap.max_machines);
        printf("nvmm: Max VCPUs per machine %u\n", cap.max_vcpus);

        if (humanize_number(ram, sizeof(ram), cap.max_ram, NULL, HN_AUTOSCALE,
            (HN_DECIMAL | HN_B | HN_NOSPACE)) == -1)
                err(EXIT_FAILURE, "humanize_number");
        printf("nvmm: Max RAM per machine %s\n", ram);

        snprintb(buf, sizeof(buf), MACH_CONF_FLAGS, cap.arch.mach_conf_support);
        printf("nvmm: Arch Mach conf %s\n", buf);

        snprintb(buf, sizeof(buf), VCPU_CONF_FLAGS, cap.arch.vcpu_conf_support);
        printf("nvmm: Arch VCPU conf %s\n", buf);

        snprintb(buf, sizeof(buf), XCR0_FLAGS1, cap.arch.xcr0_mask);
        printf("nvmm: Guest FPU states %s\n", buf);
}

static void
nvmm_list(char **argv __unused)
{
        struct nvmm_ctl_mach_info machinfo;
        char ram[4+1], *ts;
        size_t i;
        int ret;

        if (nvmm_root_init() == -1)
                err(EXIT_FAILURE, "nvmm_root_init failed");
        if (nvmm_capability(&cap) == -1)
                err(EXIT_FAILURE, "nvmm_capability failed");

        printf(
            "Machine ID VCPUs RAM  Owner PID Creation Time           \n"
            "---------- ----- ---- --------- ------------------------\n");

        for (i = 0; i < cap.max_machines; i++) {
                machinfo.machid = i;
                ret = nvmm_ctl(NVMM_CTL_MACH_INFO, &machinfo, sizeof(machinfo));
                if (ret == -1) {
                        if (errno == ENOENT)
                                continue;
                        err(EXIT_FAILURE, "nvmm_ctl failed");
                }

                ts = asctime(localtime(&machinfo.time));
                ts[strlen(ts) - 1] = '\0';

                if (humanize_number(ram, sizeof(ram), machinfo.nram, NULL,
                    HN_AUTOSCALE, (HN_DECIMAL | HN_B | HN_NOSPACE)) == -1)
                        err(EXIT_FAILURE, "humanize_number");

                printf("%-10zu %-5u %-4s %-9d %s\n", i, machinfo.nvcpus, ram,
                    machinfo.pid, ts);
        }
}