working on contrib/process

contrib/process/load.factor

@@ -0,0 +1,7 @@
+IN: process
+USING: kernel ;
+PROVIDE: contrib/process {
+    { "os-unix.factor" [ unix? ] }
+    { "os-windows.factor" [ windows? ] }
+    "process.factor"
+} ;

contrib/process/os-unix.factor

@@ -0,0 +1,11 @@
+IN: process
+USING: compiler io io-internals kernel parser generic ;
+
+LIBRARY: libc
+FUNCTION: int system ( char* command ) ;
+FUNCTION: void* popen ( char* command, char* type ) ;
+FUNCTION: int pclose ( void* file ) ;
+
+: run-process ( string -- ) system io-error ;
+: run-detached ( string -- ) " &" append run-process ;
+

contrib/process/os-windows.factor

@@ -0,0 +1,15 @@
+IN: process
+USING: alien compiler io io-internals kernel math parser generic win32-api ;
+
+: (run-process) ( string flag -- )
+    >r f swap
+    f f 0 r> f f
+    "STARTUPINFO" <c-object> "STARTUPINFO" c-size over set-STARTUPINFO-cb
+    "PROCESS_INFORMATION" <c-object> CreateProcess zero? [ win32-error ] when ;
+
+: run-process
+    0 (run-process) ;
+
+: run-detached ( string -- )
+    DETACH_PROCESS (run-process) ;
+

contrib/process/process.factor

@@ -1,12 +1,6 @@
 IN: process
 USING: compiler io io-internals kernel parser generic ;
 
-LIBRARY: libc
-FUNCTION: int system ( char* command ) ;
-
-FUNCTION: void* popen ( char* command, char* type ) ;
-FUNCTION: int pclose ( void* file ) ;
-
 TUPLE: process-stream pipe ;
 
 C: process-stream ( command mode -- stream )
@@ -20,4 +14,3 @@ M: process-stream stream-close
 
 : !" parse-string system drop ; parsing
 
-PROVIDE: contrib/process ;