Data commit

Task/Events/Oz/events-1.oz

@@ -0,0 +1,29 @@
+declare
+  fun {NewEvent}
+     {NewCell _}
+  end
+
+  proc {SignalEvent Event}
+     @Event = unit
+  end
+
+  proc {ResetEvent Event}
+     Event := _
+  end
+
+  proc {WaitEvent Event}
+     {Wait @Event}
+  end
+
+  E = {NewEvent}
+in
+  thread
+     {System.showInfo "[2] Waiting for event..."}
+     {WaitEvent E}
+     {System.showInfo "[2] Received event."}
+  end
+
+  {System.showInfo "[1] Waiting 1 second..."}
+  {Delay 1000}
+  {System.showInfo "[1] Signaling event."}
+  {SignalEvent E}

Task/Events/Oz/events-2.oz

@@ -0,0 +1,13 @@
+declare
+  E
+in
+  thread
+     {System.showInfo "[2] Waiting for event..."}
+     {Wait E}
+     {System.showInfo "[2] Received event."}
+  end
+
+  {System.showInfo "[1] Waiting 1 second..."}
+  {Delay 1000}
+  {System.showInfo "[1] Signaling event."}
+  E = unit

Task/Events/Oz/events-3.oz

@@ -0,0 +1,20 @@
+declare
+  MyPort
+in
+  thread
+     MyStream
+  in
+     {NewPort ?MyStream ?MyPort}
+     {System.showInfo "[2] Waiting for event..."}
+     for Event in MyStream do
+	{System.showInfo "[2] Received event."}
+	{System.showInfo "[2] Waiting for event again..."}
+     end
+  end
+
+  for do
+     {System.showInfo "[1] Waiting 1 second..."}
+     {Delay 1000}
+     {System.showInfo "[1] Signaling event."}
+     {Port.send MyPort unit}
+  end