with DDS;
with DDS.DomainParticipant;
with DDS.TypeSupport;
with DDS.DataReader;
with DDS.DataWriter;
package DDS.Builtin_String_TypeSupport is
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);
function Create_Data (AllocatePointers : in Boolean := True)
return DDS.String;
procedure Delete_Data
(A_Data : in out DDS.String; DeletePointers : in Boolean := True);
procedure Print_Data (A_Data : DDS.String);
procedure Copy_Data (desc : DDS.String; source : DDS.String);
procedure Initialize_Data (a_data : DDS.String);
procedure Finalize_Data (a_data : DDS.String);
function Create_Data_w_Size
(size : Integer)
return DDS.String;
procedure Initialize_Data_w_Size
(a_data : DDS.String;
size : Integer);
end DDS.Builtin_String_TypeSupport;