Data commit

Task/Exceptions/Ada/exceptions-1.ada

@@ -0,0 +1 @@
+Foo_Error : exception;

Task/Exceptions/Ada/exceptions-2.ada

@@ -0,0 +1,4 @@
+procedure Foo is
+begin
+   raise Foo_Error;
+end Foo;

Task/Exceptions/Ada/exceptions-3.ada

@@ -0,0 +1,6 @@
+  ...
+exception
+   when Foo_Error =>
+      if ... then -- Alas, cannot handle it here,
+         raise;   -- continue propagation of
+      end if;

Task/Exceptions/Ada/exceptions-4.ada

@@ -0,0 +1,9 @@
+procedure Call_Foo is
+begin
+   Foo;
+exception
+   when Foo_Error =>
+      ... -- do something
+   when others =>
+      ... -- this catches all other exceptions
+end Call_Foo;

Task/Exceptions/Ada/exceptions-5.ada

@@ -0,0 +1,12 @@
+with Ada.Exceptions;  use Ada.Exceptions;
+with Ada.Text_IO;     use Ada.Text_IO;
+
+procedure Main is
+begin
+   ...
+   Raise_Exception (Foo_Error'Identity, "This is the exception message");
+   ..
+exception
+   when Error : others =>
+      Put_Line ("Something is wrong here" & Exception_Information (Error));
+end Main;