/usr/share/ada/adainclude/log4ada/log4ada-events.ads is in liblog4ada2-dev 1.2-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 | ------------------------------------------------------------------------------
-- Log4Ada --
-- --
-- Copyright (C) 2007 - 2009 --
-- X. Grave CNRS --
-- --
-- This library is free software; you can redistribute it and/or modify --
-- it under the terms of the GNU General Public License as published by --
-- the Free Software Foundation; either version 2 of the License, or (at --
-- your option) any later version. --
-- --
-- This library is distributed in the hope that it will be useful, but --
-- WITHOUT ANY WARRANTY; without even the implied warranty of --
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU --
-- General Public License for more details. --
-- --
-- You should have received a copy of the GNU General Public License --
-- along with this library; if not, write to the Free Software Foundation, --
-- Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. --
-- --
with Ada.Strings.Unbounded;
with Ada.Exceptions;
package Log4ada.Events is
type Event_Type is private;
type Event_Access is access all Event_Type;
function New_Event (Location_Information : String;
Logger_Name : String;
Level : Level_Type;
Timestamp : Integer;
Message : String;
Exception_To_Send : Ada.Exceptions.Exception_Occurrence)
return Event_Type;
function New_Event (Location_Information : String;
Logger_Name : String;
Level : Level_Type;
Timestamp : Integer;
Message : String)
return Event_Type;
pragma Inline (New_Event);
function Get_Location_Information (Event : Event_Type) return String;
pragma Inline (Get_Location_Information);
function Get_Logger_Name (Event : Event_Type) return String;
pragma Inline (Get_Logger_Name);
function Get_Level (Event : Event_Type) return Level_Type;
pragma Inline (Get_Level);
function Get_Timestamp (Event : Event_Type) return Integer;
pragma Inline (Get_Timestamp);
function Get_Message (Event : Event_Type) return String;
pragma Inline (Get_Message);
function Exception_Present (Event : Event_Type) return Boolean;
pragma Inline (Exception_Present);
function Get_Exception_Name (Event : Event_Type) return String;
pragma Inline (Get_Exception_Name);
function Get_Exception_Message (Event : Event_Type) return String;
pragma Inline (Get_Exception_Message);
First_Event_Timestamp : Integer := 0;
pragma Atomic (First_Event_Timestamp);
function To_Event (Event_String : String) return Event_Type;
function To_String (Event : Event_Type) return String;
private
type Event_Type is tagged record
Name : Ada.Strings.Unbounded.Unbounded_String;
Location_Information : Ada.Strings.Unbounded.Unbounded_String;
Level : Level_Type := Off;
Timestamp : Integer := 0;
Message : Ada.Strings.Unbounded.Unbounded_String;
Logger_Name : Ada.Strings.Unbounded.Unbounded_String;
Exception_Present : Boolean := False;
Exception_To_Send_Name : Ada.Strings.Unbounded.Unbounded_String;
Exception_To_Send_Message : Ada.Strings.Unbounded.Unbounded_String;
end record;
end Log4ada.Events;
|