chiark - git - mdw - jlisp/blob - Startup.java

   1 /* -*-java-*- */
   2
   3 import org.armedbear.lisp.*;
   4
   5 public final class Startup {
   6   static final long stacksize = 4194304L;
   7   public static final void main(final String[] args) {
   8     Runnable r = new Runnable() {
   9         public final void run() {
  10           Interpreter.createInstance();
  11           try {
  12             Symbol COMMAND_LINE_ARGS =
  13               Lisp.PACKAGE_EXT.internAndExport("*COMMAND-LINE-ARGS*");
  14             LispObject cmdargs = Lisp.NIL;
  15             for (int i = 0; i < args.length; i++)
  16               cmdargs = new Cons(args[i], cmdargs);
  17             COMMAND_LINE_ARGS.setSymbolValue(cmdargs.nreverse());
  18             Load.loadSystemFile("run.lisp");
  19           } catch (Throwable t) {
  20             t.printStackTrace();
  21             System.exit(127);
  22           }
  23         }
  24       };
  25     new Thread(null, r, "lisp", stacksize).start();
  26   }
  27 }