#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <errno.h>
#include <unistd.h>
extern char **environ;

int main(int argc, char *argv[])
{
    int moar_argc;
    int exec_argc;
    int c;
    char **exec_argv;
    char *moar = "/friends/.rakubrew/versions/moar-main/install/bin/moar";

    moar_argc = 5;

    // program name + moar args + passed args (without program name) + NULL pointer
    exec_argc = 1 + moar_argc + (argc - 1) + 1;
    exec_argv = malloc(exec_argc * sizeof(void*));

    exec_argv[0] = "/friends/.rakubrew/versions/moar-main/install/bin/moar";

    // Set up moar args.
    exec_argv[1] = "--execname=/friends/.rakubrew/versions/moar-main/rakudo-m";
    exec_argv[2] = "--libpath=/friends/.rakubrew/versions/moar-main";
    exec_argv[3] = "--libpath=/friends/.rakubrew/versions/moar-main/blib";
    exec_argv[4] = "--libpath=/friends/.rakubrew/versions/moar-main/install/share/nqp/lib";
    exec_argv[5] = "/friends/.rakubrew/versions/moar-main/rakudo.moarvm";

    // Copy passed args.
    for (c = 0; c < argc - 1; c++) {
        exec_argv[1 + moar_argc + c] = argv[c + 1];
    }

    exec_argv[exec_argc - 1] = NULL;

    setenv("NQP_HOME", "/friends/.rakubrew/versions/moar-main/install/share/nqp", 1);

    // Hack: Explicitly set a dummy RAKUDO_HOME, so the autogenerated
    // CompUnitRepo folder structure does not end up in the build directories
    // parent folder.
    setenv("RAKUDO_HOME", "/friends/.rakubrew/versions/moar-main/gen/build_rakudo_home", 1);

    execve(moar, exec_argv, environ);

    // execv doesn't return on successful exec.
    fprintf(stderr, "ERROR: Failed to execute moar. Error code: %i\n", errno);
    return EXIT_FAILURE;
}