pragma Ada_2012;
with System;
with DDS.MetpTypeSupport;
with DDS.DataWriter;
with DDS.DataReader;
generic
package DDS.MetpTypeSupport_Generic is
type Ref is new DDS.MetpTypeSupport.Ref with null record;
type Ref_Access is access all Ref'Class;
function Metp_Supported (This : Ref) return Standard.Boolean is (True);
procedure DataWriter_Create_Metp_Data
(This : Ref;
Writer : access DDS.DataWriter.Ref'class;
Sample : out System.Address;
Initialize_Data : out Standard.Boolean);
procedure DataWriter_Delete_Metp_Data
(This : Ref;
Writer : access DDS.DataWriter.Ref'class;
Sample : System.Address);
function DataWriter_Is_Metp_Writer
(This : Ref;
Writer : access DDS.DataWriter.Ref'class) return Standard.Boolean;
procedure DataWriter_Write_Metp_Data
(This : Ref;
Writer : access DDS.DataWriter.Ref'class;
Sample : System.Address;
Handle : DDS.InstanceHandle_T_Access;
W_Params : DDS.WriteParams_T_Access);
function DataReader_Is_Metp_Data_Consistent
(This : Ref;
Reader : access DDS.DataReader.Ref'Class;
Sample : System.Address;
Sample_Info : DDS.SampleInfo_Access) return Standard.Boolean;
end DDS.MetpTypeSupport_Generic;