1. with DDS.ReadCondition; 
  2. package DDS.IndexCondition is 
  3.  
  4.    type Ref is limited interface and DDS.ReadCondition.Ref; 
  5.    type Ref_Access is access all Ref'Class with Storage_Size => 0; 
  6.  
  7. end DDS.IndexCondition;