1. with DDS.DataReader; 
  2. with DDS.ReadCondition_Impl; 
  3. package DDS.IndexCondition.Impl is 
  4.  
  5.    type Ref is new DDS.ReadCondition_Impl.Ref and DDS.IndexCondition.Ref with record 
  6.       null; 
  7.    end record; 
  8.  
  9.    type Ref_Access is access all Ref'Class; 
  10.    function Create_IndexCondition 
  11.      (Reader          : not null DDS.DataReader.Ref_Access; 
  12.       Index_Name      : in DDS.String; 
  13.       Sample_State    : in DDS.SampleStateMask; 
  14.       View_State      : in DDS.ViewStateMask; 
  15.       Instance_State  : in DDS.InstanceStateMask; 
  16.       Sample_Info     : in DDS.SampleInfo) return Ref_Access; 
  17.  
  18. end DDS.IndexCondition.Impl;