1. -- 
  2. --  Uwe R. Zimmer, Australia, September 2011 
  3. -- 
  4.  
  5. generic 
  6.    type Full_Range is range <>; 
  7.    No_Of_Sub_Ranges : Positive; 
  8.  
  9. package Sub_Ranges is 
  10.  
  11.    function Range_First (Range_No : Positive) return Full_Range; 
  12.    function Range_Last  (Range_No : Positive) return Full_Range; 
  13.  
  14. end Sub_Ranges;