[Sbcl-devel] run-program on win32

[Yaroslav K. <kav...@je...>]

1. all streams (:input :output :error) is nil (default value)

 From (describe 'run-program): "If NIL, /dev/null is used."
But:

* (run-program "c:/gnu/bin/sh.exe" (list "-c" "ls /"))
COPYING      MinGW  contrib  doc  home     info  libexec  m.ico
manifest  msys.bat  share      usr	COPYING.LIB  bin    cvsroot  etc
include  lib   local    man    mingw32   msys.ico  uninstall

#<SB-IMPL::PROCESS :EXITED 0>

and (run-program "c:/gnu/bin/sh.exe" nil) is out prompt and read input:

* (run-program "c:/gnu/bin/sh.exe" nil)

Kavenchuk_Yaroslav@STNT067 c:/Documents and Settings/Kavenchuk_Yaroslav
$ uname -a
MINGW32_NT-5.0 STNT067 1.0.11(0.46/3/2) 2004-04-30 18:55 i686 unknown

Kavenchuk_Yaroslav@STNT067 c:/Documents and Settings/Kavenchuk_Yaroslav
$ exit
exit

#<SB-IMPL::PROCESS :EXITED 0>
*

2. any stream is t

 From (describe 'run-program):
"If T, the standard input[output] for the current process is inherited."

* (run-program "c:/gnu/bin/sh.exe" (list "-c" "ls /") :output t)

debugger invoked on a SIMPLE-ERROR: Couldn't spawn program: Bad file 
descriptor

Type HELP for debugger help, or (SB-EXT:QUIT) to exit from SBCL.

restarts (invokable by number or by possibly-abbreviated name):
   0: [ABORT] Exit debugger, returning to top level.

(RUN-PROGRAM
  "c:/gnu/bin/sh.exe"
  ("c:\\gnu\\bin\\sh.exe" "-c" "ls /")
  :WAIT
  T
  :SEARCH
  NIL
  :INPUT
  NIL
  :IF-INPUT-DOES-NOT-EXIST
  NIL
  :OUTPUT
  T
  :IF-OUTPUT-EXISTS
  :ERROR
  :ERROR
  :OUTPUT
  :IF-ERROR-EXISTS
  :ERROR
  :STATUS-HOOK
  NIL)
0]

3. pathname

* (run-program "c:/gnu/bin/sh.exe" (list "-c" "ls /")
                :output #P"test-output")
COPYING      MinGW  contrib  doc  home     info  libexec  m.ico
manifest  msys.bat  share      usr	COPYING.LIB  bin    cvsroot  etc
include  lib   local    man    mingw32   msys.ico  uninstall

#<SB-IMPL::PROCESS :EXITED 0>
* (probe-file "test-output")

#P"C:\\Documents and Settings\\Kavenchuk_Yaroslav\\test-output"
* (with-open-file
       (f "C:\\Documents and Settings\\Kavenchuk_Yaroslav\\test-output")
     (file-length f))

0
* (delete-file "test-output")

debugger invoked on a SB-INT:SIMPLE-FILE-ERROR:
   couldn't delete C:\Documents and Settings\Kavenchuk_Yaroslav\test-output:
     Permission denied

Type HELP for debugger help, or (SB-EXT:QUIT) to exit from SBCL.

restarts (invokable by number or by possibly-abbreviated name):
   0: [ABORT] Exit debugger, returning to top level.
...

Need exit from sbcl for delete file

4. stream

* (with-open-file (f "test-output" :direction :output)
     (run-program "c:/gnu/bin/sh.exe" (list "-c" "ls /")
                  :output f))
COPYING      MinGW  contrib  doc  home     info  libexec  m.ico
manifest  msys.bat  share      usr	COPYING.LIB  bin    cvsroot  etc
include  lib   local    man    mingw32   msys.ico  uninstall

#<SB-IMPL::PROCESS :EXITED 0>
*

as in p.3

Help!

-- 
WBR, Yaroslav Kavenchuk.