[Sbcl-devel] Win32 - run-program first draft

[Mike T. <mi...@pa...>]

Hi there.

Here is a first draft of "run-program" for Windows, as a diff against
the 0.9.9 source tree ("src/runtime/win32-os.c",
"src/runtime/run-program.c", "src/code/unix.lisp",
"src/code/run-program.lisp").

It is capable of running commands such as:

  (run-program "cmd" '("/c" "dir" "c:\\"))

However, with a more substantial test (LTK 0.881) I get the following
error:

=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
* (ltk::modal-test)

debugger invoked on a TYPE-ERROR:
  The value NIL
  is not of type
    (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING PATHNAME
FILE-STREAM).

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.

(SB-KERNEL::OBJECT-NOT-TYPE-ERROR-HANDLER
 #<unavailable argument>
 #.(SB-SYS:INT-SAP #X0022F494)
 #<SB-ALIEN-INTERNALS:ALIEN-VALUE :SAP #X0022F18C :TYPE (*
                                                         (STRUCT
=20
SB-VM::OS-CONTEXT-T-ST
RUCT))>
 (206 14))
0]
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D

I have ignored the pty terminal setting as that is not relevant to
Windows, and only partly implemented the environment argument because I
didn't have time ("spawnvpe" would be used rather than "spawnvp").

I hope these changes will be useful to someone else - I may be able to
return to them in a couple of weeks.

Cheers

Mike Thomas