Changeset 13899 for trunk/abcl/src/org/armedbear/lisp/run-program.lisp

Timestamp:

03/31/12 12:50:25 (10 years ago)

Author:

vvoutilainen

Message:

Add :clear-env to run-program, add getenv-all

File:

• trunk/abcl/src/org/armedbear/lisp/run-program.lisp (modified) (3 diffs)

trunk/abcl/src/org/armedbear/lisp/run-program.lisp

@@ -41 +41 @@
 ;;; processes.
 ;;; <http://download.oracle.com/javase/6/docs/api/java/lang/ProcessBuilder.html>.
-(defun run-program (program args &key environment (wait t))
+(defun run-program (program args &key environment (wait t) clear-env)
   ;;For documentation, see below.
   (let ((pb (%make-process-builder program args)))
-    (when environment
-      (let ((env-map (%process-builder-environment pb)))
+    (let ((env-map (%process-builder-environment pb)))
+      (when clear-env
+        (%process-builder-env-clear env-map))            
+      (when environment
         (dolist (entry environment)
           (%process-builder-env-put env-map
@@ -81 +83 @@
 
 :environment 
-    An alist of STRINGs (name . value) describing the new
-    environment. The default is to copy the environment of the current
-    process.
+    An alist of STRINGs (name . value) describing new
+    environment values that replace existing ones.
+
+:clear-env
+    If non-NIL, the current environment is cleared before the
+    values supplied by :environment are inserted.
 
 :wait 
@@ -132 +137 @@
   (java:jcall "put" env-map key value))
 
+(defun %process-builder-env-clear (env-map)
+  (java:jcall "clear" env-map))
+
 (defun %process-builder-start (pb)
   (java:jcall "start" pb))