with DDS;
with DDS.DomainParticipant;
with DDS.TypeSupport;
with DDS.MetpTypeSupport;
with DDS.DataReader;
with DDS.DataWriter;
with DDS.Treats_Generic;
package DDS.Builtin_KeyedOctets_TypeSupport is
pragma Suppress (elaboration_Check);
type Ref is new Standard.DDS.TypeSupport.Ref with null record;
type Ref_Access is access all Ref'Class;
function Create_TypedDataReaderI
(Self : access Ref) return Standard.DDS.DataReader.Ref_Access;
procedure Destroy_TypedDataReaderI
(Self : access Ref;
Reader : in out Standard.DDS.DataReader.Ref_Access);
function Create_TypedDataWriterI
(Self : access Ref) return Standard.DDS.DataWriter.Ref_Access;
procedure Destroy_TypedDataWriterI
(Self : access Ref;
Writer : in out Standard.DDS.DataWriter.Ref_Access) is null;
procedure Register_Type
(Participant : not null access Standard.DDS.DomainParticipant.Ref'Class;
Type_Name : in Standard.DDS.String);
procedure Unregister_Type
(Participant : not null access Standard.DDS.DomainParticipant.Ref'Class;
Type_Name : in Standard.DDS.String);
function Get_Type_Name return Standard.DDS.String;
procedure Get_Type_Name (Name : out Standard.DDS.String);
procedure Print_Data (A_Data : access DDS.KeyedOctets);
function Create_Data_W_Size
(Key_Size : Integer;
Size : Integer)
return DDS.KeyedOctets;
procedure Initialize_Data_W_Size
(A_Data : access DDS.KeyedOctets;
Key_Size : Integer;
Size : Integer);
function From_KeyedOctets_To_Octet_Array
(Octets : DDS.KeyedOctets)
return DDS.Octet_Array;
function Get_Octet
(Octets : DDS.KeyedOctets;
Index : Integer)
return Interfaces.Unsigned_8;
package Treats is new
DDS.Treats_Generic (Data_Type => DDS.KeyedOctets,
Data_Type_Access => DDS.KeyedOctets_Ptr,
Index_Type => Natural,
First_Element => 1,
Data_Array => DDS.KeyedOctets_Array,
Initialize => Initialize,
Finalize => Finalize,
Copy => Copy,
Data_Sequences => DDS.KeyedOctets_Seq,
Get_Type_Name => Get_Type_Name,
TypeSupport => Ref,
MetpTypeSupport => DDS.MetpTypeSupport.Unsupported);
end DDS.Builtin_KeyedOctets_TypeSupport;