pragma Ada_2012;
with RTIDDS.Low_Level.ndds_ndds_config_c_h;
with Ada.Finalization;
package DDS.Logger.LoggerDevice is
type Ref is limited new Ada.Finalization.Limited_Controlled and Logger.LoggerDevice_Interface with private;
type Ref_Access is access all Ref'Class;
procedure Write (Self : Ref; Text : Standard.String; Level : LogVerbosity) is null;
procedure Close (Self : Ref) is null;
private
procedure LL_Write
(Arg1 : access RTIDDS.Low_Level.ndds_ndds_config_c_h.NDDS_Config_LoggerDevice;
Arg2 : access constant RTIDDS.Low_Level.ndds_ndds_config_c_h.NDDS_Config_LogMessage)
with Convention => C;
procedure LL_Close (Arg1 : access RTIDDS.Low_Level.ndds_ndds_config_c_h.NDDS_Config_LoggerDevice) with
Convention => C;
type Ref is limited new Ada.Finalization.Limited_Controlled and Logger.LoggerDevice_Interface with record
Data : aliased RTIDDS.Low_Level.ndds_ndds_config_c_h.NDDS_Config_LoggerDevice;
Parent : Logger.Ref_Access;
end record;
function GetDevice (Self : access Ref) return access RTIDDS.Low_Level.ndds_ndds_config_c_h.NDDS_Config_LoggerDevice;
function GetLogger (Self : access Ref) return Logger.Ref_Access;
procedure Initialize (Self : in out Ref);
procedure Finalize (Self : in out Ref);
end DDS.Logger.LoggerDevice;