1. --  (c) Copyright, Real-Time Innovations, $Date:: 2012-03-16 #$ 
  2. --  All rights reserved. 
  3. -- 
  4. --  No duplications, whole or partial, manual or electronic, may be made 
  5. --  without express written permission.  Any such copies, or 
  6. --  revisions thereof, must display this notice unaltered. 
  7. --  This code contains trade secrets of Real-Time Innovations, Inc. 
  8.  
  9. --  <internal> 
  10. --  ============================================================================ 
  11. -- 
  12. --         WARNING: THIS FILE IS AUTO-GENERATED. DO NOT MODIFY. 
  13. -- 
  14. --  This file was generated from .idl using "rtiddsgen". 
  15. --  The rtiddsgen tool is part of the RTI Data Distribution Service distribution. 
  16. --  For more information, type 'rtiddsgen -help' at a command shell 
  17. --  or consult the RTI Data Distribution Service manual. 
  18. -- 
  19. --  ============================================================================ 
  20. --  </internal> 
  21.  
  22. pragma Warnings (Off); --  Since this is autogenerated code. 
  23.  
  24. with DDS.DataReader; 
  25. with DDS.DataReader_Impl; 
  26. with DDS.ReadCondition; 
  27.  
  28. with DDS; use DDS; 
  29. pragma Warnings (On); 
  30.  
  31. --  <dref>StringDataReader</dref> 
  32. package DDS.Builtin_String_DataReader is 
  33.  
  34.    type Ref is new Standard.DDS.DataReader_Impl.Ref with null record; 
  35.    type Ref_Access is access all Ref'Class; 
  36.    type Ref_Access_Access is access all Ref_Access; 
  37.  
  38.    function Get_FacadeI (C_DataReader : System.Address) 
  39.                          return Ref_Access; 
  40.  
  41.    function Narrow 
  42.      (reader : DDS.DataReader.Ref_Access) 
  43.       return DDS.Builtin_String_DataReader.Ref_Access; 
  44.    --  <dref>StringDataReader_narrow</dref> 
  45.  
  46.    function As_DataReader 
  47.      (writer : DDS.Builtin_String_DataReader.Ref_Access) 
  48.       return DDS.DataReader.Ref_Access; 
  49.    --  <dref>StringDataReader_as_datareader</dref> 
  50.  
  51.    procedure Read 
  52.      (This            : not null access constant Ref; 
  53.       Received_Data   : not null access String_Seq.Sequence; 
  54.       Info_Seq        : not null access Standard.DDS.SampleInfo_Seq.Sequence; 
  55.       Max_Samples     : in Standard.DDS.Long := Standard.DDS.LENGTH_UNLIMITED; 
  56.       Sample_States   : in Standard.DDS.SampleStateMask := Standard.DDS.ANY_SAMPLE_STATE; 
  57.       View_States     : in Standard.DDS.ViewStateMask := Standard.DDS.ANY_VIEW_STATE; 
  58.       Instance_States : in Standard.DDS.InstanceStateMask := Standard.DDS.ANY_INSTANCE_STATE); 
  59.    --  <dref>StringDataReader_read</dref> 
  60.  
  61.    procedure Take 
  62.      (This            : not null access constant Ref; 
  63.       Received_Data   : not null access String_Seq.Sequence; 
  64.       Info_Seq        : not null access Standard.DDS.SampleInfo_Seq.Sequence; 
  65.       Max_Samples     : in Standard.DDS.Long := Standard.DDS.LENGTH_UNLIMITED; 
  66.       Sample_States   : in Standard.DDS.SampleStateMask := Standard.DDS.ANY_SAMPLE_STATE; 
  67.       View_States     : in Standard.DDS.ViewStateMask := Standard.DDS.ANY_VIEW_STATE; 
  68.       Instance_States : in Standard.DDS.InstanceStateMask := Standard.DDS.ANY_INSTANCE_STATE); 
  69.    --  <dref>StringDataReader_take</dref> 
  70.  
  71.    procedure Read_W_Condition 
  72.      (This          : not null access constant Ref; 
  73.       Received_Data : not null access String_Seq.Sequence; 
  74.       Info_Seq      : not null access Standard.DDS.SampleInfo_Seq.Sequence; 
  75.       Max_Samples   : in Standard.DDS.Long := Standard.DDS.LENGTH_UNLIMITED; 
  76.       Condition     : access Standard.DDS.ReadCondition.Ref'Class); 
  77.    --  <dref>StringDataReader_read_w_condition</dref> 
  78.  
  79.  
  80.    procedure Take_W_Condition 
  81.      (This          : not null access constant Ref; 
  82.       Received_Data : not null access String_Seq.Sequence; 
  83.       Info_Seq      : not null access Standard.DDS.SampleInfo_Seq.Sequence; 
  84.       Max_Samples   : in Standard.DDS.Long := Standard.DDS.LENGTH_UNLIMITED; 
  85.       Condition     : access Standard.DDS.ReadCondition.Ref'Class); 
  86.    --  <dref>StringDataReader_take_w_condition</dref> 
  87.  
  88.    procedure Read_Next_Sample 
  89.      (This          : not null access constant Ref; 
  90.       Received_Data : in out DDS.String; 
  91.       Sample_Info   : not null access Standard.DDS.SampleInfo); 
  92.    --  <dref>StringDataReader_read_next_sample</dref> 
  93.  
  94.  
  95.    procedure Take_Next_Sample 
  96.      (This          : not null access constant Ref; 
  97.       Received_Data : in out DDS.String; 
  98.       Sample_Info   : not null access Standard.DDS.SampleInfo); 
  99.    --  <dref>StringDataReader_take_next_sample</dref> 
  100.  
  101.  
  102.    procedure Read_Instance 
  103.      (This            : not null access constant Ref; 
  104.       Received_Data   : not null access String_Seq.Sequence; 
  105.       Info_Seq        : not null access Standard.DDS.SampleInfo_Seq.Sequence; 
  106.       Max_Samples     : in Standard.DDS.Long := Standard.DDS.LENGTH_UNLIMITED; 
  107.       A_Handle        : access constant Standard.DDS.InstanceHandle_T; 
  108.       Sample_States   : in Standard.DDS.SampleStateMask := Standard.DDS.ANY_SAMPLE_STATE; 
  109.       View_States     : in Standard.DDS.ViewStateMask := Standard.DDS.ANY_VIEW_STATE; 
  110.       Instance_States : in Standard.DDS.InstanceStateMask := Standard.DDS.ANY_INSTANCE_STATE); 
  111.  
  112.  
  113.    procedure Take_Instance 
  114.      (This            : not null access constant Ref; 
  115.       Received_Data   : not null access String_Seq.Sequence; 
  116.       Info_Seq        : not null access Standard.DDS.SampleInfo_Seq.Sequence; 
  117.       Max_Samples     : in Standard.DDS.Long := Standard.DDS.LENGTH_UNLIMITED; 
  118.       A_Handle        : access constant Standard.DDS.InstanceHandle_T; 
  119.       Sample_States   : in Standard.DDS.SampleStateMask := Standard.DDS.ANY_SAMPLE_STATE; 
  120.       View_States     : in Standard.DDS.ViewStateMask := Standard.DDS.ANY_VIEW_STATE; 
  121.       Instance_States : in Standard.DDS.InstanceStateMask := Standard.DDS.ANY_INSTANCE_STATE); 
  122.  
  123.    procedure Read_Instance_W_Condition 
  124.      (This            : not null access constant Ref; 
  125.       Received_Data   : not null access String_Seq.Sequence; 
  126.       Info_Seq        : not null access Standard.DDS.SampleInfo_Seq.Sequence; 
  127.       Max_Samples     : in Standard.DDS.Long := Standard.DDS.LENGTH_UNLIMITED; 
  128.       A_Handle        : access Standard.DDS.InstanceHandle_T; 
  129.       Condition       : Standard.DDS.ReadCondition.Ref_Access); 
  130.  
  131.    procedure Take_Instance_W_Condition 
  132.      (This            : not null access constant Ref; 
  133.       Received_Data   : not null access String_Seq.Sequence; 
  134.       Info_Seq        : not null access Standard.DDS.SampleInfo_Seq.Sequence; 
  135.       Max_Samples     : in Standard.DDS.Long := Standard.DDS.LENGTH_UNLIMITED; 
  136.       A_Handle        : access Standard.DDS.InstanceHandle_T; 
  137.       Condition       : Standard.DDS.ReadCondition.Ref_Access); 
  138.  
  139.    procedure Read_Next_Instance 
  140.      (This            : not null access constant Ref; 
  141.       Received_Data   : not null access String_Seq.Sequence; 
  142.       Info_Seq        : not null access Standard.DDS.SampleInfo_Seq.Sequence; 
  143.       Max_Samples     : in Standard.DDS.Long := Standard.DDS.LENGTH_UNLIMITED; 
  144.       Previous_Handle : access constant Standard.DDS.InstanceHandle_T; 
  145.       Sample_States   : in Standard.DDS.SampleStateMask := Standard.DDS.ANY_SAMPLE_STATE; 
  146.       View_States     : in Standard.DDS.ViewStateMask := Standard.DDS.ANY_VIEW_STATE; 
  147.       Instance_States : in Standard.DDS.InstanceStateMask := Standard.DDS.ANY_INSTANCE_STATE); 
  148.  
  149.    procedure Take_Next_Instance 
  150.      (This            : not null access constant Ref; 
  151.       Received_Data   : not null access String_Seq.Sequence; 
  152.       Info_Seq        : not null access Standard.DDS.SampleInfo_Seq.Sequence; 
  153.       Max_Samples     : in Standard.DDS.Long := Standard.DDS.LENGTH_UNLIMITED; 
  154.       Previous_Handle : access constant Standard.DDS.InstanceHandle_T; 
  155.       Sample_States   : in Standard.DDS.SampleStateMask := Standard.DDS.ANY_SAMPLE_STATE; 
  156.       View_States     : in Standard.DDS.ViewStateMask := Standard.DDS.ANY_VIEW_STATE; 
  157.       Instance_States : in Standard.DDS.InstanceStateMask := Standard.DDS.ANY_INSTANCE_STATE); 
  158.  
  159.    procedure Read_Next_Instance_W_Condition 
  160.      (This            : not null access constant Ref; 
  161.       Received_Data   : not null access String_Seq.Sequence; 
  162.       Info_Seq        : not null access Standard.DDS.SampleInfo_Seq.Sequence; 
  163.       Max_Samples     : in Standard.DDS.Long := Standard.DDS.LENGTH_UNLIMITED; 
  164.       Previous_Handle : access constant Standard.DDS.InstanceHandle_T; 
  165.       Condition       : Standard.DDS.ReadCondition.Ref_Access); 
  166.  
  167.    procedure Take_Next_Instance_W_Condition 
  168.      (This            : not null access constant Ref; 
  169.       Received_Data   : not null access String_Seq.Sequence; 
  170.       Info_Seq        : not null access Standard.DDS.SampleInfo_Seq.Sequence; 
  171.       Max_Samples     : in Standard.DDS.Long := Standard.DDS.LENGTH_UNLIMITED; 
  172.       Previous_Handle : access constant Standard.DDS.InstanceHandle_T; 
  173.       Condition       : Standard.DDS.ReadCondition.Ref_Access); 
  174.  
  175.    procedure Return_Loan 
  176.      (This          : not null access constant Ref; 
  177.       Received_Data : not null access String_Seq.Sequence; 
  178.       Info_Seq      : not null access Standard.DDS.SampleInfo_Seq.Sequence); 
  179.    --  <dref>StringDataReader_return_loan</dref> 
  180.  
  181.    procedure Get_Key_Value 
  182.      (This       : not null access constant Ref; 
  183.       Key_Holder : DDS.String; 
  184.       Handle     : access constant Standard.DDS.InstanceHandle_T); 
  185.  
  186.  
  187.    function Lookup_Instance 
  188.      (This       : not null access constant Ref; 
  189.       Key_Holder : DDS.String) return Standard.DDS.InstanceHandle_T; 
  190.  
  191.  
  192.    --  <internal> 
  193.    --  ========================================================================= 
  194.    -- 
  195.    --  Internal Routines not to be used by the application 
  196.    -- 
  197.    --  ========================================================================= 
  198.    --  </internal> 
  199.  
  200.    function CreateTypedI return Standard.DDS.DataReader.Ref_Access; 
  201.  
  202.    procedure DestroyTypedI 
  203.      (Reader : in out Standard.DDS.DataReader.Ref_Access); 
  204.  
  205. end DDS.Builtin_String_DataReader;