Changeset 12450

Timestamp:

02/12/10 10:53:28 (13 years ago)

Author:

Mark Evenson

Message:

Collect unprocessed command-line arguments in EXT:*COMMAND-LINE-ARGUMENT-LIST*.

Contributed by Dennis Lambe Jr.

Location:

trunk/abcl/src/org/armedbear/lisp

Files:

• Interpreter.java (modified) (2 diffs)
• Lisp.java (modified) (1 diff)

trunk/abcl/src/org/armedbear/lisp/Interpreter.java

@@ -212 +212 @@
 
     // Check for --noinit; verify that arguments are supplied for --load and
-    // --eval options.
+    // --eval options.  Copy all unrecognized arguments into
+    // ext:*command-line-argument-list*
     private static void preprocessCommandLineArguments(String[] args)
 
     {
+        LispObject arglist = NIL;
+
         if (args != null) {
             for (int i = 0; i < args.length; ++i) {
@@ -240 +243 @@
                         System.exit(1);
                     }
-                }
-            }
-        }
+                } else {
+                    arglist = new Cons(args[i], arglist);
+                }
+            }
+        }
+
+        _COMMAND_LINE_ARGUMENT_LIST_.setSymbolValue(arglist);
     }
 

trunk/abcl/src/org/armedbear/lisp/Lisp.java

@@ -2567 +2567 @@
     exportSpecial("*SAVED-BACKTRACE*", PACKAGE_EXT, NIL);
 
+  // ### *command-line-argument-list*
+  public static final Symbol _COMMAND_LINE_ARGUMENT_LIST_ =
+    exportSpecial("*COMMAND-LINE-ARGUMENT-LIST*", PACKAGE_EXT, NIL);
+
   // ### *batch-mode*
   public static final Symbol _BATCH_MODE_ =