CS计算机代考程序代写 —


— Jan & Uwe R. Zimmer, Australia, July 2011


— Usage if the purpose is to “catch all”:

— begin
— ..
— exception
— when Exception_Id : others => Show_Exception (Exception_Id);
— end;

with Ada.Exceptions; use Ada.Exceptions;

package Exceptions is

procedure Show_Exception (Exception_Identifier : Exception_Occurrence;
Optional_Message : String := “”);

end Exceptions;