make-runlisp: Make sure CLC is set up properly in ECL.

[runlisp] / runlisp-helper.c

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <unistd.h>

#if defined(CMUCL)
#  define ARGS 3
#elif defined(CLISP)
#  define ARGS 7
#else
#  error "Which Lisp?"
#endif

int main(int argc, char *argv[])
{
  char **args = malloc((ARGS + argc) * sizeof(*args));
  char *core, *lisp;
  if ((lisp = getenv("RUNLISP_LISP")) == 0) lisp = LISP;
  if ((core = getenv("RUNLISP_CORE")) == 0) core = CORE;
  if (!args) { perror("alloc"); exit(127); }
  args[0] = lisp;
#if defined(CMUCL)
  args[1] = "-core";
  args[2] = core;
#elif defined(CLISP)
  args[1] = "-M";
  args[2] = core;
  args[3] = "-x";
  args[4] = "(ext:quit (if (runlisp:run) 0 127))";
  args[5] = "-q";
  args[6] = "--";
#endif
  memcpy(args + ARGS, argv + 1, argc * sizeof(*args));
  execv(args[0], args);
  perror(argv[1]);
  exit(127);
}