pragma Warnings (Off);
with DDS.DataReader;
with DDS.DataReader_Impl;
with DDS.ReadCondition;
with DDS; use DDS;
pragma Warnings (On);
package DDS.Builtin_String_DataReader is
type Ref is new Standard.DDS.DataReader_Impl.Ref with null record;
type Ref_Access is access all Ref'Class;
type Ref_Access_Access is access all Ref_Access;
function Get_FacadeI (C_DataReader : System.Address)
return Ref_Access;
function Narrow
(reader : DDS.DataReader.Ref_Access)
return DDS.Builtin_String_DataReader.Ref_Access;
function As_DataReader
(writer : DDS.Builtin_String_DataReader.Ref_Access)
return DDS.DataReader.Ref_Access;
procedure Read
(This : not null access constant Ref;
Received_Data : not null access String_Seq.Sequence;
Info_Seq : not null access Standard.DDS.SampleInfo_Seq.Sequence;
Max_Samples : in Standard.DDS.Long := Standard.DDS.LENGTH_UNLIMITED;
Sample_States : in Standard.DDS.SampleStateMask := Standard.DDS.ANY_SAMPLE_STATE;
View_States : in Standard.DDS.ViewStateMask := Standard.DDS.ANY_VIEW_STATE;
Instance_States : in Standard.DDS.InstanceStateMask := Standard.DDS.ANY_INSTANCE_STATE);
procedure Take
(This : not null access constant Ref;
Received_Data : not null access String_Seq.Sequence;
Info_Seq : not null access Standard.DDS.SampleInfo_Seq.Sequence;
Max_Samples : in Standard.DDS.Long := Standard.DDS.LENGTH_UNLIMITED;
Sample_States : in Standard.DDS.SampleStateMask := Standard.DDS.ANY_SAMPLE_STATE;
View_States : in Standard.DDS.ViewStateMask := Standard.DDS.ANY_VIEW_STATE;
Instance_States : in Standard.DDS.InstanceStateMask := Standard.DDS.ANY_INSTANCE_STATE);
procedure Read_W_Condition
(This : not null access constant Ref;
Received_Data : not null access String_Seq.Sequence;
Info_Seq : not null access Standard.DDS.SampleInfo_Seq.Sequence;
Max_Samples : in Standard.DDS.Long := Standard.DDS.LENGTH_UNLIMITED;
Condition : access Standard.DDS.ReadCondition.Ref'Class);
procedure Take_W_Condition
(This : not null access constant Ref;
Received_Data : not null access String_Seq.Sequence;
Info_Seq : not null access Standard.DDS.SampleInfo_Seq.Sequence;
Max_Samples : in Standard.DDS.Long := Standard.DDS.LENGTH_UNLIMITED;
Condition : access Standard.DDS.ReadCondition.Ref'Class);
procedure Read_Next_Sample
(This : not null access constant Ref;
Received_Data : in out DDS.String;
Sample_Info : not null access Standard.DDS.SampleInfo);
procedure Take_Next_Sample
(This : not null access constant Ref;
Received_Data : in out DDS.String;
Sample_Info : not null access Standard.DDS.SampleInfo);
procedure Read_Instance
(This : not null access constant Ref;
Received_Data : not null access String_Seq.Sequence;
Info_Seq : not null access Standard.DDS.SampleInfo_Seq.Sequence;
Max_Samples : in Standard.DDS.Long := Standard.DDS.LENGTH_UNLIMITED;
A_Handle : access constant Standard.DDS.InstanceHandle_T;
Sample_States : in Standard.DDS.SampleStateMask := Standard.DDS.ANY_SAMPLE_STATE;
View_States : in Standard.DDS.ViewStateMask := Standard.DDS.ANY_VIEW_STATE;
Instance_States : in Standard.DDS.InstanceStateMask := Standard.DDS.ANY_INSTANCE_STATE);
procedure Take_Instance
(This : not null access constant Ref;
Received_Data : not null access String_Seq.Sequence;
Info_Seq : not null access Standard.DDS.SampleInfo_Seq.Sequence;
Max_Samples : in Standard.DDS.Long := Standard.DDS.LENGTH_UNLIMITED;
A_Handle : access constant Standard.DDS.InstanceHandle_T;
Sample_States : in Standard.DDS.SampleStateMask := Standard.DDS.ANY_SAMPLE_STATE;
View_States : in Standard.DDS.ViewStateMask := Standard.DDS.ANY_VIEW_STATE;
Instance_States : in Standard.DDS.InstanceStateMask := Standard.DDS.ANY_INSTANCE_STATE);
procedure Read_Instance_W_Condition
(This : not null access constant Ref;
Received_Data : not null access String_Seq.Sequence;
Info_Seq : not null access Standard.DDS.SampleInfo_Seq.Sequence;
Max_Samples : in Standard.DDS.Long := Standard.DDS.LENGTH_UNLIMITED;
A_Handle : access Standard.DDS.InstanceHandle_T;
Condition : Standard.DDS.ReadCondition.Ref_Access);
procedure Take_Instance_W_Condition
(This : not null access constant Ref;
Received_Data : not null access String_Seq.Sequence;
Info_Seq : not null access Standard.DDS.SampleInfo_Seq.Sequence;
Max_Samples : in Standard.DDS.Long := Standard.DDS.LENGTH_UNLIMITED;
A_Handle : access Standard.DDS.InstanceHandle_T;
Condition : Standard.DDS.ReadCondition.Ref_Access);
procedure Read_Next_Instance
(This : not null access constant Ref;
Received_Data : not null access String_Seq.Sequence;
Info_Seq : not null access Standard.DDS.SampleInfo_Seq.Sequence;
Max_Samples : in Standard.DDS.Long := Standard.DDS.LENGTH_UNLIMITED;
Previous_Handle : access constant Standard.DDS.InstanceHandle_T;
Sample_States : in Standard.DDS.SampleStateMask := Standard.DDS.ANY_SAMPLE_STATE;
View_States : in Standard.DDS.ViewStateMask := Standard.DDS.ANY_VIEW_STATE;
Instance_States : in Standard.DDS.InstanceStateMask := Standard.DDS.ANY_INSTANCE_STATE);
procedure Take_Next_Instance
(This : not null access constant Ref;
Received_Data : not null access String_Seq.Sequence;
Info_Seq : not null access Standard.DDS.SampleInfo_Seq.Sequence;
Max_Samples : in Standard.DDS.Long := Standard.DDS.LENGTH_UNLIMITED;
Previous_Handle : access constant Standard.DDS.InstanceHandle_T;
Sample_States : in Standard.DDS.SampleStateMask := Standard.DDS.ANY_SAMPLE_STATE;
View_States : in Standard.DDS.ViewStateMask := Standard.DDS.ANY_VIEW_STATE;
Instance_States : in Standard.DDS.InstanceStateMask := Standard.DDS.ANY_INSTANCE_STATE);
procedure Read_Next_Instance_W_Condition
(This : not null access constant Ref;
Received_Data : not null access String_Seq.Sequence;
Info_Seq : not null access Standard.DDS.SampleInfo_Seq.Sequence;
Max_Samples : in Standard.DDS.Long := Standard.DDS.LENGTH_UNLIMITED;
Previous_Handle : access constant Standard.DDS.InstanceHandle_T;
Condition : Standard.DDS.ReadCondition.Ref_Access);
procedure Take_Next_Instance_W_Condition
(This : not null access constant Ref;
Received_Data : not null access String_Seq.Sequence;
Info_Seq : not null access Standard.DDS.SampleInfo_Seq.Sequence;
Max_Samples : in Standard.DDS.Long := Standard.DDS.LENGTH_UNLIMITED;
Previous_Handle : access constant Standard.DDS.InstanceHandle_T;
Condition : Standard.DDS.ReadCondition.Ref_Access);
procedure Return_Loan
(This : not null access constant Ref;
Received_Data : not null access String_Seq.Sequence;
Info_Seq : not null access Standard.DDS.SampleInfo_Seq.Sequence);
procedure Get_Key_Value
(This : not null access constant Ref;
Key_Holder : DDS.String;
Handle : access constant Standard.DDS.InstanceHandle_T);
function Lookup_Instance
(This : not null access constant Ref;
Key_Holder : DDS.String) return Standard.DDS.InstanceHandle_T;
function CreateTypedI return Standard.DDS.DataReader.Ref_Access;
procedure DestroyTypedI
(Reader : in out Standard.DDS.DataReader.Ref_Access);
end DDS.Builtin_String_DataReader;