steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

More work in progress

db4
Slava Pestov 2008-01-25 02:21:27 -04:00
parent d0a80367b4
commit 993684ebb0
2 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
extra/io/windows/launcher/launcher.factor
View File

@ -26,11 +26,13 @@ TUPLE: CreateProcess-args
"STARTUPINFO" <c-object> "STARTUPINFO" <c-object>
"STARTUPINFO" heap-size over set-STARTUPINFO-cb "STARTUPINFO" heap-size over set-STARTUPINFO-cb
"PROCESS_INFORMATION" <c-object> "PROCESS_INFORMATION" <c-object>
TRUE
{ {
set-CreateProcess-args-bInheritHandles set-CreateProcess-args-bInheritHandles
set-CreateProcess-args-dwCreateFlags set-CreateProcess-args-dwCreateFlags
set-CreateProcess-args-lpStartupInfo set-CreateProcess-args-lpStartupInfo
set-CreateProcess-args-lpProcessInformation set-CreateProcess-args-lpProcessInformation
set-CreateProcess-args-bInheritHandles
} \ CreateProcess-args construct ; } \ CreateProcess-args construct ;
: call-CreateProcess ( CreateProcess-args -- ) : call-CreateProcess ( CreateProcess-args -- )
@ -143,13 +145,12 @@ TUPLE: CreateProcess-args
default-CreateProcess-args default-CreateProcess-args
wince? [ fill-lpApplicationName ] [ fill-lpCommandLine ] if wince? [ fill-lpApplicationName ] [ fill-lpCommandLine ] if
fill-dwCreateFlags fill-dwCreateFlags
fill-lpEnvironment fill-lpEnvironment ;
fill-startup-info ;
M: windows-io run-process* ( desc -- handle ) M: windows-io run-process* ( desc -- handle )
[ [
[ [
make-CreateProcess-args make-CreateProcess-args fill-startup-info
dup call-CreateProcess dup call-CreateProcess
CreateProcess-args-lpProcessInformation <process> CreateProcess-args-lpProcessInformation <process>
] with-descriptor ] with-descriptor

2
extra/io/windows/nt/launcher/launcher.factor
View File

@ -34,10 +34,10 @@ M: windows-io process-stream*
[ [
[ [
make-CreateProcess-args make-CreateProcess-args
TRUE over set-CreateProcess-args-bInheritHandles
fill-stdout-pipe fill-stdout-pipe
fill-stdin-pipe fill-stdin-pipe
fill-startup-info
dup call-CreateProcess dup call-CreateProcess