Ада-95. Компилятор GNAT



         

Пакет 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;




Содержание  Назад  Вперед