win32 ffi updates

library/windows/kernel32-constants.factor

@@ -55,3 +55,6 @@ USING: alien kernel errors ;
 : TIME_ZONE_ID_DAYLIGHT 2 ; inline
 : TIME_ZONE_ID_INVALID HEX: FFFFFFFF ; inline
 
+
+: CREATE_DEFAULT_ERROR_MODE HEX: 4000000 ; inline
+: DETACHED_PROCESS 8 ; inline

library/windows/kernel32-structs.factor

@@ -70,3 +70,33 @@ BEGIN-STRUCT: FILETIME
     FIELD: DWORD dwHighDateTime
 END-STRUCT
 
+BEGIN-STRUCT: STARTUPINFO
+    FIELD: DWORD cb
+    FIELD: LPTSTR lpReserved
+    FIELD: LPTSTR lpDesktop
+    FIELD: LPTSTR lpTitle
+    FIELD: DWORD dwX
+    FIELD: DWORD dwY
+    FIELD: DWORD dwXSize
+    FIELD: DWORD dwYSize
+    FIELD: DWORD dwXCountChars
+    FIELD: DWORD dwYCountChars
+    FIELD: DWORD dwFillAttribute
+    FIELD: DWORD dwFlags
+    FIELD: WORD wShowWindow
+    FIELD: WORD cbReserved2
+    FIELD: LPBYTE lpReserved2
+    FIELD: HANDLE hStdInput
+    FIELD: HANDLE hStdOutput
+    FIELD: HANDLE hStdError
+END-STRUCT
+
+TYPEDEF: void* LPSTARTUPINFO
+
+BEGIN-STRUCT: PROCESS_INFORMATION
+    FIELD: HANDLE hProcess
+    FIELD: HANDLE hThread
+    FIELD: DWORD dwProcessId
+    FIELD: DWORD dwThreadId
+END-STRUCT
+

library/windows/kernel32-types.factor

@@ -3,6 +3,7 @@ IN: win32-api
 TYPEDEF: void* POVERLAPPED
 TYPEDEF: void* LPOVERLAPPED
 TYPEDEF: void* LPSECURITY_ATTRIBUTES
+TYPEDEF: void* LPPROCESS_INFORMATION
 
 TYPEDEF: SYSTEMTIME SYSTEMTIME
 TYPEDEF: SYSTEMTIME* PSYSTEMTIME

library/windows/kernel32.factor

@@ -118,11 +118,20 @@ FUNCTION: HANDLE CreateIoCompletionPort ( HANDLE hFileHandle, HANDLE hExistingCo
 ! FUNCTION: CreateNamedPipeW
 ! FUNCTION: CreateNlsSecurityDescriptor
 ! FUNCTION: CreatePipe
-! FUNCTION: CreateProcessA
+FUNCTION: BOOL CreateProcessA ( LPCTSTR lpApplicationname,
+                                LPTSTR lpCommandLine,
+                                LPSECURITY_ATTRIBUTES lpProcessAttributes,
+                                LPSECURITY_ATTRIBUTES lpThreadAttributes,
+                                BOOL bInheritHandles,
+                                DWORD dwCreationFlags,
+                                LPVOID lpEnvironment,
+                                LPCTSTR lpCurrentDirectory,
+                                LPSTARTUPINFO lpStartupInfo,
+                                LPPROCESS_INFORMATION lpProcessInformation ) ;
+: CreateProcess CreateProcessA ;
 ! FUNCTION: CreateProcessInternalA
 ! FUNCTION: CreateProcessInternalW
 ! FUNCTION: CreateProcessInternalWSecure
-! FUNCTION: CreateProcessW
 ! FUNCTION: CreateRemoteThread
 ! FUNCTION: CreateSemaphoreA
 ! FUNCTION: CreateSemaphoreW