1package Agar.Core.Error is 2 3 procedure Set_Error (Message : in String); 4 5 procedure Fatal_Error (Message : in String); 6 7 type Error_Callback_t is access procedure (Message : in String); 8 subtype Error_Callback_Not_Null_t is not null Error_Callback_t; 9 10 procedure Set_Fatal_Callback 11 (Callback : Error_Callback_Not_Null_t); 12 13end Agar.Core.Error; 14