1 package body Controlled6_Pkg.Iterators is
3 function Find return Iterator_Type is
4 Iterator : Iterator_Type;
9 function Current (Iterator : in Iterator_Type) return T is begin
10 return Iterator.Current.Item;
13 procedure Find_Next (Iterator : in out Iterator_Type) is begin
14 Iterator.Current := null;
17 function Is_Null (Iterator : in Iterator_Type) return Boolean is begin
18 return Iterator.Current = null;
21 end Controlled6_Pkg.Iterators;