Exception handling syntax: Difference between revisions

Revision as of 21:08, 8 January 2007

Revision as of 23:21, 10 January 2007

Line 19:

==== Exception handling and propagation ====

'''with''' Ada.Exceptions; '''use''', Ada.ExceptionsText_IO;

'''procedure''' Foo '''is'''

Line 33:

'''when''' Error : '''others''' =>

''-- Handle all others''

Ada.Text_IO.Put ("Exception: ");

Ada.Text_IO.Put_Line (Ada.Exceptions.Exception_Name (Error));

Ada.Text_IO.Put_Line (Ada.Exceptions.Exception_Message (Error));

'''end''' Foo;