Пакет AdaExceptions

Стандартный пакет Ada.Exceptions предоставляет некоторые дополнительные средства, которые могут быть использованы при обработке исключений.

Описанный в нем объект:

Event : Exception_Occurence;

и подпрограммы:

функция Exception_Name(Event)	-	возвращает строку имени исключения, начиная от корневого библиотечного модуля

функция Exception_Information(Event)	-	возвращает строку детальной информации о возникшем исключении

функция Exception_Message(Event)	-	возвращает строку краткого объяснения исключения

процедура Reraise_Occurence(Event)	-	выполняет повторное возбуждение исключения Event

процедура Reraise_Exception(e, "Msg")	-	выполняет возбуждение исключения e с сообщением "Msg"

Могут быть весьма полезны при необходимости обработки неожиданных исключений. В таких случаях можно использовать код который подобен следующему:

. . .

exception

. . .

when The_Event: others => Put("Unexpected exeption is "; Put(Exeption_Name(The_Event)); New_Line;