1. with RTIDDS.Low_Level.config_c_h; 
  2. private with System; 
  3. with Ada.Finalization; 
  4. package RTIDDS.Config.LoggerDevice is 
  5.  
  6.  
  7.    type Ref is limited new Ada.Finalization.Limited_Controlled and Logger.LoggerDevice_Interface with private; 
  8.    type Ref_Access is access all Ref'Class; 
  9.    procedure Write (Self : Ref; text : Standard.String; level : LogVerbosity) is null; 
  10.    procedure Close (Self : Ref) is null; 
  11.  
  12.  
  13. private 
  14.    procedure LL_Write 
  15.      (arg1 : System.Address; 
  16.       arg2 : access constant RTIDDS.Low_Level.config_c_h.NDDS_Config_LogMessage) with 
  17.      Convention => C; 
  18.    procedure LL_Close (arg1 : System.Address) with 
  19.      Convention => C; 
  20.  
  21.    type ref is limited new Ada.Finalization.Limited_Controlled and Logger.LoggerDevice_Interface with record 
  22.       data   : aliased RTIDDS.Low_Level.config_c_h.NDDS_Config_LoggerDevice; 
  23.       parent : RTIDDS.Config.Logger.Ref_Access; 
  24.    end record; 
  25.  
  26.    function GetDevice (Self : access ref) return access RTIDDS.Low_Level.config_c_h.NDDS_Config_LoggerDevice; 
  27.    function GetLogger (Self : access ref) return RTIDDS.Config.Logger.Ref_Access; 
  28.  
  29.    procedure Initialize (Self : in out ref); 
  30.    procedure Finalize   (Self : in out ref); 
  31.  
  32. end RTIDDS.Config.LoggerDevice;