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