2016 Update

Task/Fork/00DESCRIPTION

@@ -1 +1,4 @@
-In this task, the goal is to spawn a new [[process]] which can run simultaneously with, and independently of, the original parent process.
+;Task:
+
+Spawn a new [[process]] which can run simultaneously with, and independently of, the original parent process.
+<br><br>

Task/Fork/COBOL/fork.cobol

@@ -0,0 +1,30 @@
+       identification division.
+       program-id. forking.
+
+       data division.
+       working-storage section.
+       01 pid usage binary-long.
+
+       procedure division.
+       display "attempting fork"
+
+       call "fork" returning pid
+           on exception
+               display "error: no fork linkage" upon syserr
+       end-call
+
+       evaluate pid
+          when = 0
+              display "    child sleeps"
+              call "C$SLEEP" using 3
+              display "    child task complete"
+          when < 0
+              display "error: fork result not ok" upon syserr
+          when > 0
+              display "parent waits for child..."
+              call "wait" using by value 0
+              display "parental responsibilities fulfilled"
+       end-evaluate
+
+       goback.
+       end program forking.

Task/Fork/Perl-6/fork.pl6

@@ -1,5 +1,5 @@
 use NativeCall;
-sub fork() returns Int is native { ... }
+sub fork() returns int32 is native { ... }
 
 if fork() -> $pid {
     print "I am the proud parent of $pid.\n";