Data commit

Task/Events/Ada/events-1.ada

@@ -0,0 +1,7 @@
+protected type Event is
+   procedure Signal;
+   procedure Reset;
+   entry Wait;
+private
+   Fired : Boolean := False;
+end Event;

Task/Events/Ada/events-2.ada

@@ -0,0 +1,14 @@
+protected body Event is
+   procedure Signal is
+   begin
+      Fired := True;
+   end Signal;
+   procedure Reset is
+   begin
+      Fired := False;
+   end Reset;
+   entry Wait when Fired is
+   begin
+      null;
+   end Wait;
+end Event;

Task/Events/Ada/events-3.ada

@@ -0,0 +1,18 @@
+with Ada.Text_IO;  use Ada.Text_IO;
+
+procedure Test_Events is
+   -- Place the event implementation here
+   X : Event;
+
+   task A;
+   task body A is
+   begin
+      Put_Line ("A is waiting for X");
+      X.Wait;
+      Put_Line ("A received X");
+   end A;
+begin
+   delay 1.0;
+   Put_Line ("Signal X");
+   X.Signal;
+end Test_Events;