rakudo-m-build.c.in

#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 = "@c_escape(@nfp(@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] = "@c_escape(@nfp(@MOAR@)@)@";

    // Set up moar args.
    exec_argv[1] = "--execname=@c_escape(@nfp(@exec_name@)@)@";
    exec_argv[2] = "--libpath=@c_escape(@nfp(@base_dir@)@)@";
    exec_argv[3] = "--libpath=@c_escape(@nfp(@base_dir@/blib)@)@";
    exec_argv[4] = "--libpath=@c_escape(@nfp(@nqp_lib_dir@)@)@";
    exec_argv[5] = "@c_escape(@nfp(@base_dir@/@mbc@)@)@";

    // 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", "@c_escape(@nfp(@nqp_home@)@)@", 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", "@c_escape(@nfp(@base_dir@/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;
}