1. --   (c) Copyright, Real-Time Innovations, 2025. 
  2. --   All rights reserved. 
  3. --   No duplications, whole or partial, manual or electronic, may be made 
  4. --   without express written permission.  Any such copies, or 
  5. --   revisions thereof, must display this notice unaltered. 
  6. --   This code contains trade secrets of Real-Time Innovations, Inc. 
  7.  
  8.  
  9. with DDS.DataReader; 
  10. with DDS.ReadCondition_Impl; 
  11. package DDS.IndexCondition.Impl is 
  12.  
  13.    type Ref is new DDS.ReadCondition_Impl.Ref and DDS.IndexCondition.Ref with record 
  14.       null; 
  15.    end record; 
  16.  
  17.    type Ref_Access is access all Ref'Class; 
  18.    function Create_IndexCondition 
  19.      (Reader          : not null DDS.DataReader.Ref_Access; 
  20.       Index_Name      : in DDS.String; 
  21.       Sample_State    : in DDS.SampleStateMask; 
  22.       View_State      : in DDS.ViewStateMask; 
  23.       Instance_State  : in DDS.InstanceStateMask; 
  24.       Sample_Info     : in DDS.SampleInfo) return Ref_Access; 
  25.  
  26. end DDS.IndexCondition.Impl;