1. with RTIDDS.Obj_Impl; 
  2. package DDS.Logger is 
  3.    type Ref is new RTIDDS.Obj_Impl.Ref with null record; 
  4.    type Ref_Access is access all Ref'Class; 
  5.  
  6.    function Get_Instance return access Ref; 
  7.    --  <dref>Logger_get_instance</dref> 
  8.  
  9.    function Get_Verbosity (This : not null access Ref) return LogVerbosity; 
  10.    --  <dref>Logger_get_verbosity</dref> 
  11.  
  12.    function Get_Verbosity (This                      :    not null access Ref; 
  13.                            Category                  : in LogCategory) return LogVerbosity; 
  14.    --  <dref>Logger_get_verbosity_by_category</dref> 
  15.  
  16.    procedure Set_Verbosity (This                       :    not null access Ref; 
  17.                             Verbosity                  : in LogVerbosity); 
  18.    --  <dref>Logger_set_verbosity</dref> 
  19.  
  20.    procedure Set_Verbosity (This                       :    not null access Ref; 
  21.                             Category                   : in LogCategory; 
  22.                             Verbosity                  : in LogVerbosity); 
  23.    --  <dref>Logger_set_verbosity_by_category</dref> 
  24.  
  25.    function Get_Print_Format (This : not null access Ref) return LogPrintFormat; 
  26.    --  <dref>Logger_get_print_format</dref> 
  27.  
  28.    procedure Set_Print_Format (This : not null access Ref; Format : LogPrintFormat); 
  29.    --  <dref>Logger_set_print_format</dref> 
  30.  
  31.  
  32.  
  33.    type LoggerDevice_Interface is limited interface; 
  34.    procedure Write (Self : LoggerDevice_Interface; Text : Standard.String; Level : LogVerbosity) is abstract; 
  35.    procedure Close (Self : LoggerDevice_Interface) is null; 
  36.  
  37.  
  38.    function GetDevice 
  39.      (Self : access LoggerDevice_Interface) return access 
  40.      RTIDDS.Low_Level.ndds_ndds_config_c_h.NDDS_Config_LoggerDevice is abstract; 
  41.    function GetLogger 
  42.      (Self : access LoggerDevice_Interface) return DDS.Logger.Ref_Access is abstract; 
  43.  
  44.    procedure Set_Output_Device (Self                           : not null access DDS.Logger.Ref; 
  45.                                 Device                         : access LoggerDevice_Interface'Class); 
  46.  
  47.  
  48. end DDS.Logger;