--::::::::::
--lpcncnit.ads --  -Iterators
--::::::::::
with List_Pos_LPBase.Iterators;
generic
package List_Pos_Cntl_Cntl.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 (List        : in out List_Type;
                           Process     : in     Process_Type;
                           Orig_Current: in     boolean := true);

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

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

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

end List_Pos_Cntl_Cntl.Iterators;