Changeset 12967

Timestamp:

Oct 9, 2009, 1:14:45 PM (15 years ago)

Author:

gz

Message:

windows (r12825)

File:

• branches/working-0711/ccl/level-1/linux-files.lisp (modified) (3 diffs)

branches/working-0711/ccl/level-1/linux-files.lisp

@@ -1658 +1658 @@
     (reduce (lambda (left right) (concatenate 'string left " " right)) strings))
 
-  (defun exec-with-io-redirection (new-in new-out new-err args proc &optional env)
+  (defun create-windows-process (new-in new-out new-err cmdstring env)
     (declare (ignore env))              ; until we can do better.
-    (with-filename-cstrs ((command (join-strings args)))
+    (with-filename-cstrs ((command cmdstring))
       (rletz ((proc-info #>PROCESS_INFORMATION)
               (si #>STARTUPINFO))
@@ -1689 +1689 @@
                                      si
                                      proc-info))
-          (progn
-            (setf (external-process-%status proc) :error
-                  (external-process-%exit-code proc) (#_GetLastError))
-            (signal-semaphore (external-process-signal proc))
-            (signal-semaphore (external-process-completed proc))
-            nil)
+          (values nil (#_GetLastError))
           (progn
             (#_CloseHandle (pref proc-info #>PROCESS_INFORMATION.hThread))
-            (pref proc-info #>PROCESS_INFORMATION.hProcess))))))
+            (values t (pref proc-info #>PROCESS_INFORMATION.hProcess)))))))
+
+  (defun exec-with-io-redirection (new-in new-out new-err args proc &optional env)
+    (multiple-value-bind (win handle-to-process-or-error)
+        (create-windows-process new-in new-out new-err (join-strings args) env)
+      (if win
+        handle-to-process-or-error
+        (progn
+          (setf (external-process-%status proc) :error
+                (external-process-%exit-code proc) handle-to-process-or-error)
+          (signal-semaphore (external-process-signal proc))
+          (signal-semaphore (external-process-completed proc))
+          nil))))
 
   (defun fd-uninheritable (fd &key direction)
@@ -1797 +1804 @@
 
 
-)
+  )
                                         ;#+windows-target (progn