Changeset 13899 for trunk/abcl/src/org/armedbear/lisp/run-program.lisp
- Timestamp:
- 03/31/12 12:50:25 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/run-program.lisp
r13361 r13899 41 41 ;;; processes. 42 42 ;;; <http://download.oracle.com/javase/6/docs/api/java/lang/ProcessBuilder.html>. 43 (defun run-program (program args &key environment (wait t) )43 (defun run-program (program args &key environment (wait t) clear-env) 44 44 ;;For documentation, see below. 45 45 (let ((pb (%make-process-builder program args))) 46 (when environment 47 (let ((env-map (%process-builder-environment pb))) 46 (let ((env-map (%process-builder-environment pb))) 47 (when clear-env 48 (%process-builder-env-clear env-map)) 49 (when environment 48 50 (dolist (entry environment) 49 51 (%process-builder-env-put env-map … … 81 83 82 84 :environment 83 An alist of STRINGs (name . value) describing the new 84 environment. The default is to copy the environment of the current 85 process. 85 An alist of STRINGs (name . value) describing new 86 environment values that replace existing ones. 87 88 :clear-env 89 If non-NIL, the current environment is cleared before the 90 values supplied by :environment are inserted. 86 91 87 92 :wait … … 132 137 (java:jcall "put" env-map key value)) 133 138 139 (defun %process-builder-env-clear (env-map) 140 (java:jcall "clear" env-map)) 141 134 142 (defun %process-builder-start (pb) 135 143 (java:jcall "start" pb))
Note: See TracChangeset
for help on using the changeset viewer.