package Glib.Messages is
type Log_Function is access procedure (Log_Domain : String; Log_Level : Log_Level_Flags; Message : UTF8_String);
type Log_Handler_Id is new Guint;
Log_Flag_Recursion : constant Log_Level_Flags := 2 ** 0;
Log_Flag_Fatal : constant Log_Level_Flags := 2 ** 1;
Log_Level_Error : constant Log_Level_Flags := 2 ** 2;
Log_Level_Critical : constant Log_Level_Flags := 2 ** 3;
Log_Level_Warning : constant Log_Level_Flags := 2 ** 4;
Log_Level_Message : constant Log_Level_Flags := 2 ** 5;
Log_Level_Info : constant Log_Level_Flags := 2 ** 6;
Log_Level_Debug : constant Log_Level_Flags := 2 ** 7;
Log_Level_Mask : constant Log_Level_Flags := not (Log_Flag_Recursion or Log_Flag_Fatal);
Log_Fatal_Mask : constant Log_Level_Flags := Log_Flag_Recursion or Log_Level_Error;
function Log_Set_Handler
( | Log_Domain | : String; |
Log_Levels | : Log_Level_Flags; | |
Log_Func | : Log_Function) return Log_Handler_Id; |
procedure Log_Remove_Handler
( | Log_Domain | : String; |
Handler_Id | : Log_Handler_Id); |
procedure Log_Default_Handler
( | Log_Domain | : String; |
Log_Levels | : Log_Level_Flags; | |
Message | : UTF8_String); |
procedure Log
( | Log_Domain | : String; |
Log_Levels | : Log_Level_Flags; | |
Message | : UTF8_String); |
function Log_Set_Fatal_Mask
( | Log_Domain | : String; |
Fatal_Mask | : Log_Level_Flags) return Log_Level_Flags; |
function Log_Set_Always_Fatal
( | Fatal_Mask | : Log_Level_Flags) return Log_Level_Flags; |