* Fork, posix-fork, and waitpid are implemented.

bin/ikarus-runtime.c

@@ -905,3 +905,16 @@ ikrt_bytes_allocated_major(ikpcb* pcb){
   return fix(pcb->allocation_count_major);
 }
 
+
+ikp 
+ikrt_fork(){
+  int pid = fork();
+  return fix(pid);
+}
+
+ikp 
+ikrt_waitpid(ikp pid){
+  int status;
+  pid_t t = waitpid(unfix(pid), &status, 0);
+  return fix(t);
+}

src/libposix.ss

@@ -1,16 +1,22 @@
 
-;;; ($pcb-set! posix-fork
+(primitive-set! 'posix-fork
-;;;   (lambda ()
+  (lambda ()
-;;;     (foreign-call "S_fork")))
+    (foreign-call "ikrt_fork")))
-;;; 
+
-;;; ($pcb-set! fork
+(primitive-set! 'fork
-;;;   (lambda (parent-proc child-proc)
+  (lambda (parent-proc child-proc)
-;;;     (let ([pid (posix-fork)])
+    (let ([pid (posix-fork)])
-;;;       (cond
+      (cond
-;;;         [(fx= pid 0) (child-proc)]
+        [(fx= pid 0) (child-proc)]
-;;;         [(fx= pid -1) 
+        [(fx= pid -1) 
-;;;          (error 'fork "failed")]
+         (error 'fork "failed")]
-;;;         [else (parent-proc pid)]))))
+        [else (parent-proc pid)]))))
+
+(primitive-set! 'waitpid
+  (lambda (pid)
+    (unless (fixnum? pid)
+      (error 'waitpid "~s is not a fixnum" pid))
+    (foreign-call "ikrt_waitpid" pid)))
 
 (primitive-set! 'system
   (lambda (x)

src/makefile.ss

@@ -86,6 +86,7 @@
     make-guardian weak-cons collect 
     interrupt-handler
     time-it 
+    posix-fork fork waitpid
     ))
 
 (define system-primitives