[jlisp] / Startup.java

/* -*-java-*- */

import org.armedbear.lisp.*;

public final class Startup {
  static final long stacksize = 4194304L;
  public static final void main(final String[] args) {
    Runnable r = new Runnable() {
	public final void run() {
	  Interpreter.createInstance();
	  try {
	    Symbol COMMAND_LINE_ARGS =
	      Lisp.PACKAGE_EXT.internAndExport("*COMMAND-LINE-ARGS*");
	    LispObject cmdargs = Lisp.NIL;
	    for (int i = 0; i < args.length; i++)
	      cmdargs = new Cons(args[i], cmdargs);
	    COMMAND_LINE_ARGS.setSymbolValue(cmdargs.nreverse());
	    Load.loadSystemFile("run.lisp");
	  } catch (Throwable t) {
	    t.printStackTrace();
	    System.exit(127);
	  }
	}
      };
    new Thread(null, r, "lisp", stacksize).start();
  }
}
Commit	Line	Data
ee79a5f1 MW	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	}