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>KeyedStringDataReader</dref> 
  32. package DDS.Builtin_KeyedString_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_KeyedString_DataReader.Ref_Access; 
  44.    --  <dref>KeyedStringDataReader_narrow</dref> 
  45.  
  46.    function As_DataReader 
  47.      (writer : DDS.Builtin_KeyedString_DataReader.Ref_Access) 
  48.       return DDS.DataReader.Ref_Access; 
  49.    --  <dref>KeyedStringDataReader_as_datareader</dref> 
  50.  
  51.    procedure Read 
  52.      (This            : not null access constant Ref; 
  53.       Received_Data   : not null access KeyedString_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>KeyedStringDataReader_read</dref> 
  60.  
  61.    procedure Take 
  62.      (This            : not null access constant Ref; 
  63.       Received_Data   : not null access KeyedString_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>KeyedStringDataReader_take</dref> 
  70.  
  71.    procedure Read_W_Condition 
  72.      (This          : not null access constant Ref; 
  73.       Received_Data : not null access KeyedString_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>KeyedStringDataReader_read_w_condition</dref> 
  78.  
  79.    procedure Take_W_Condition 
  80.      (This          : not null access constant Ref; 
  81.       Received_Data : not null access KeyedString_Seq.Sequence; 
  82.       Info_Seq      : not null access Standard.DDS.SampleInfo_Seq.Sequence; 
  83.       Max_Samples   : in Standard.DDS.Long := Standard.DDS.LENGTH_UNLIMITED; 
  84.       Condition     : access Standard.DDS.ReadCondition.Ref'Class); 
  85.    --  <dref>KeyedStringDataReader_take_w_condition</dref> 
  86.  
  87.    procedure Read_Next_Sample 
  88.      (This          : not null access constant Ref; 
  89.       Received_Data : in out DDS.KeyedString; 
  90.       Sample_Info   : not null access Standard.DDS.SampleInfo); 
  91.    --  <dref>KeyedStringDataReader_read_next_sample</dref> 
  92.  
  93.    procedure Take_Next_Sample 
  94.      (This          : not null access constant Ref; 
  95.       Received_Data : in out DDS.KeyedString; 
  96.       Sample_Info   : not null access Standard.DDS.SampleInfo); 
  97.    --  <dref>KeyedStringDataReader_take_next_sample</dref> 
  98.  
  99.    procedure Read_Instance 
  100.      (This            : not null access constant Ref; 
  101.       Received_Data   : not null access KeyedString_Seq.Sequence; 
  102.       Info_Seq        : not null access Standard.DDS.SampleInfo_Seq.Sequence; 
  103.       Max_Samples     : in Standard.DDS.Long := Standard.DDS.LENGTH_UNLIMITED; 
  104.       A_Handle        : access constant Standard.DDS.InstanceHandle_T; 
  105.       Sample_States   : in Standard.DDS.SampleStateMask := Standard.DDS.ANY_SAMPLE_STATE; 
  106.       View_States     : in Standard.DDS.ViewStateMask := Standard.DDS.ANY_VIEW_STATE; 
  107.       Instance_States : in Standard.DDS.InstanceStateMask := Standard.DDS.ANY_INSTANCE_STATE); 
  108.    --  <dref>KeyedStringDataReader_read_instance</dref> 
  109.  
  110.    procedure Take_Instance 
  111.      (This            : not null access constant Ref; 
  112.       Received_Data   : not null access KeyedString_Seq.Sequence; 
  113.       Info_Seq        : not null access Standard.DDS.SampleInfo_Seq.Sequence; 
  114.       Max_Samples     : in Standard.DDS.Long := Standard.DDS.LENGTH_UNLIMITED; 
  115.       A_Handle        : access constant Standard.DDS.InstanceHandle_T; 
  116.       Sample_States   : in Standard.DDS.SampleStateMask := Standard.DDS.ANY_SAMPLE_STATE; 
  117.       View_States     : in Standard.DDS.ViewStateMask := Standard.DDS.ANY_VIEW_STATE; 
  118.       Instance_States : in Standard.DDS.InstanceStateMask := Standard.DDS.ANY_INSTANCE_STATE); 
  119.    --  <dref>KeyedStringDataReader_take_instance</dref> 
  120.  
  121.    procedure Read_Instance_W_Condition 
  122.      (This            : not null access constant Ref; 
  123.       Received_Data   : not null access KeyedString_Seq.Sequence; 
  124.       Info_Seq        : not null access Standard.DDS.SampleInfo_Seq.Sequence; 
  125.       Max_Samples     : in Standard.DDS.Long := Standard.DDS.LENGTH_UNLIMITED; 
  126.       A_Handle        : access Standard.DDS.InstanceHandle_T; 
  127.       Condition       : Standard.DDS.ReadCondition.Ref_Access); 
  128.  
  129.    procedure Take_Instance_W_Condition 
  130.      (This            : not null access constant Ref; 
  131.       Received_Data   : not null access KeyedString_Seq.Sequence; 
  132.       Info_Seq        : not null access Standard.DDS.SampleInfo_Seq.Sequence; 
  133.       Max_Samples     : in Standard.DDS.Long := Standard.DDS.LENGTH_UNLIMITED; 
  134.       A_Handle        : access Standard.DDS.InstanceHandle_T; 
  135.       Condition       : Standard.DDS.ReadCondition.Ref_Access); 
  136.  
  137.    procedure Read_Next_Instance 
  138.      (This            : not null access constant Ref; 
  139.       Received_Data   : not null access KeyedString_Seq.Sequence; 
  140.       Info_Seq        : not null access Standard.DDS.SampleInfo_Seq.Sequence; 
  141.       Max_Samples     : in Standard.DDS.Long := Standard.DDS.LENGTH_UNLIMITED; 
  142.       Previous_Handle : access constant Standard.DDS.InstanceHandle_T; 
  143.       Sample_States   : in Standard.DDS.SampleStateMask := Standard.DDS.ANY_SAMPLE_STATE; 
  144.       View_States     : in Standard.DDS.ViewStateMask := Standard.DDS.ANY_VIEW_STATE; 
  145.       Instance_States : in Standard.DDS.InstanceStateMask := Standard.DDS.ANY_INSTANCE_STATE); 
  146.    --  <dref>KeyedStringDataReader_read_next_instance</dref> 
  147.  
  148.    procedure Take_Next_Instance 
  149.      (This            : not null access constant Ref; 
  150.       Received_Data   : not null access KeyedString_Seq.Sequence; 
  151.       Info_Seq        : not null access Standard.DDS.SampleInfo_Seq.Sequence; 
  152.       Max_Samples     : in Standard.DDS.Long := Standard.DDS.LENGTH_UNLIMITED; 
  153.       Previous_Handle : access constant Standard.DDS.InstanceHandle_T; 
  154.       Sample_States   : in Standard.DDS.SampleStateMask := Standard.DDS.ANY_SAMPLE_STATE; 
  155.       View_States     : in Standard.DDS.ViewStateMask := Standard.DDS.ANY_VIEW_STATE; 
  156.       Instance_States : in Standard.DDS.InstanceStateMask := Standard.DDS.ANY_INSTANCE_STATE); 
  157.    --  <dref>KeyedStringDataReader_take_next_instance</dref> 
  158.  
  159.    procedure Read_Next_Instance_W_Condition 
  160.      (This            : not null access constant Ref; 
  161.       Received_Data   : not null access KeyedString_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.    --  <dref>KeyedStringDataReader_read_next_instance_w_condition</dref> 
  167.  
  168.    procedure Take_Next_Instance_W_Condition 
  169.      (This            : not null access constant Ref; 
  170.       Received_Data   : not null access KeyedString_Seq.Sequence; 
  171.       Info_Seq        : not null access Standard.DDS.SampleInfo_Seq.Sequence; 
  172.       Max_Samples     : in Standard.DDS.Long := Standard.DDS.LENGTH_UNLIMITED; 
  173.       Previous_Handle : access constant Standard.DDS.InstanceHandle_T; 
  174.       Condition       : Standard.DDS.ReadCondition.Ref_Access); 
  175.    --  <dref>KeyedStringDataReader_take_next_instance_w_condition</dref> 
  176.  
  177.    procedure Return_Loan 
  178.      (This          : not null access constant Ref; 
  179.       Received_Data : not null access KeyedString_Seq.Sequence; 
  180.       Info_Seq      : not null access Standard.DDS.SampleInfo_Seq.Sequence); 
  181.    --  <dref>KeyedStringDataReader_return_loan</dref> 
  182.  
  183.    procedure Get_Key_Value 
  184.      (This       : not null access constant Ref; 
  185.       Key_Holder : access DDS.KeyedString; 
  186.       Handle     : access constant Standard.DDS.InstanceHandle_T); 
  187.    --  <dref>KeyedStringDataReader_get_key_value</dref> 
  188.  
  189.    function Lookup_Instance 
  190.      (This       : not null access constant Ref; 
  191.       Key_Holder : access DDS.KeyedString) return Standard.DDS.InstanceHandle_T; 
  192.    --  <dref>KeyedStringDataReader_lookup_instance</dref> 
  193.  
  194.    procedure Get_Key_Value_W_Key 
  195.      (This       : not null access constant Ref; 
  196.       key        : DDS.String; 
  197.       handle     : access DDS.InstanceHandle_T); 
  198.    --  <dref>KeyedStringDataReader_get_key_value_w_key</dref> 
  199.  
  200.    function Lookup_Instance_W_Key 
  201.      (This       : not null access constant Ref; 
  202.       key        : DDS.String) 
  203.       return DDS.InstanceHandle_T; 
  204.    --  <dref>KeyedStringDataReader_lookup_instance_w_key</dref> 
  205.  
  206.    --  <internal> 
  207.    --  ========================================================================= 
  208.    -- 
  209.    --  Internal Routines not to be used by the application 
  210.    -- 
  211.    --  ========================================================================= 
  212.    --  </internal> 
  213.  
  214.    function CreateTypedI return Standard.DDS.DataReader.Ref_Access; 
  215.  
  216.    procedure DestroyTypedI 
  217.      (Reader : in out Standard.DDS.DataReader.Ref_Access); 
  218.  
  219. end DDS.Builtin_KeyedString_DataReader;