--::::::::::
--lpcnenit.ads --  -Iterators
--::::::::::
with List_Pos_Cntl_Cntl.Iterators;
generic
package List_Pos_Cntl_En.Iterators is
   -------------------------------------------------------
   -- DO NOT USE it_zqklst
      package it_zqklst is new zqklst.Iterators;
   -------------------------------------------------------

subtype Process_Type is it_zqklst.Process_Type;
-- access procedure (Object  : in out Object_Type;
--                   Continue: in out boolean);

procedure Current_To_Rear (Process     : in     Process_Type;
                           Orig_Current: in     boolean := true);

procedure Current_To_Front (Process     : in     Process_Type;
                            Orig_Current: in     boolean := true);

procedure Front_To_Rear (Process     : in     Process_Type;
                         Orig_Current: in     boolean := true);

procedure Rear_To_Front (Process     : in     Process_Type;
                         Orig_Current: in     boolean := true);

end List_Pos_Cntl_En.Iterators;