Changeset 8793


Ignore:
Timestamp:
03/19/05 14:38:13 (16 years ago)
Author:
piso
Message:
  • Support --batch and --preload command line arguments.
  • kill(int status)
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/Interpreter.java

    r8740 r8793  
    33 *
    44 * Copyright (C) 2002-2005 Peter Graves
    5  * $Id: Interpreter.java,v 1.82 2005-03-07 19:06:26 piso Exp $
     5 * $Id: Interpreter.java,v 1.83 2005-03-19 14:38:13 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    183183                if (arg.equals("--noinit")) {
    184184                    noinit = true;
     185                } else if (arg.equals("--batch")) {
     186                    _BATCH_MODE_.setSymbolValue(T);
     187                } else if (arg.equals("--preload")) {
     188                    _PRELOAD_.setSymbolValue(T);
    185189                } else if (arg.equals("--eval")) {
    186190                    if (i + 1 < args.length) {
     
    258262    public void run(String[] args)
    259263    {
    260         LispThread thread = null;
    261         try {
    262             thread = LispThread.currentThread();
    263         }
    264         catch (Throwable t) {
    265             return;
    266         }
     264        final LispThread thread = LispThread.currentThread();
    267265        commandNumber = 0;
    268266        try {
     
    293291                if (args != null)
    294292                    preprocessCommandLineArguments(args);
     293                if (_PRELOAD_.getSymbolValue() != NIL) {
     294                    thread.execute(PACKAGE_SYS.intern("PRELOAD-PACKAGE"),
     295                                   PACKAGE_CL);
     296                    thread.execute(PACKAGE_CL.intern("REQUIRE"),
     297                                   new SimpleString("LOOP"));
     298                    thread.execute(PACKAGE_SYS.intern("PRELOAD-PACKAGE"),
     299                                   PACKAGE_SYS);
     300                }
    295301                if (!noinit)
    296302                    processInitializationFile();
     
    381387    public void kill()
    382388    {
     389        kill(0);
     390    }
     391
     392    public void kill(int status)
     393    {
    383394        if (jlisp) {
    384395            try {
Note: See TracChangeset for help on using the changeset viewer.