with System;
package DDS.MetpTypeSupport is
type Unsupported is tagged private;
function Metp_Supported (This : Unsupported) return Standard.Boolean;
function DataWriter_Create_Metp_Data
(This : Unsupported;
Writer : System.Address;
Sample : out System.Address;
Initialize_Data : out Standard.Boolean) return DDS.ReturnCode_T;
function DataWriter_Delete_Metp_Data
(This : Unsupported;
Writer : System.Address;
Sample : System.Address) return DDS.ReturnCode_T;
function DataWriter_Is_Metp_Writer
(This : Unsupported;
Writer : System.Address) return Standard.Boolean;
function DataWriter_Write_Metp_Data
(This : Unsupported;
Writer : System.Address;
Sample : System.Address;
Handle : DDS.InstanceHandle_T_Access;
W_Params : DDS.WriteParams_T_Access) return DDS.ReturnCode_T;
function DataReader_Is_Metp_Data_Consistent
(This : Unsupported;
Reader : System.Address;
Sample : System.Address;
Sample_Info : DDS.SampleInfo_Access;
Consistent : out Standard.Boolean) return DDS.ReturnCode_T;
private
type Unsupported is tagged null record;
end DDS.MetpTypeSupport;