7 package Controlled6_Pkg.Iterators is
9 type Iterator_Type is new Ada.Finalization.Controlled with record
10 Current : Node_Access_Type;
13 function Find return Iterator_Type;
15 function Current (Iterator : in Iterator_Type) return T;
16 pragma Inline (Current);
18 procedure Find_Next (Iterator : in out Iterator_Type);
20 function Is_Null (Iterator : in Iterator_Type) return Boolean;
22 end Controlled6_Pkg.Iterators;