--::::::::::
--lipolpit.ads  -- List_Pos_LPBase-Iterators
--::::::::::
generic
package List_Pos_LPBase.Iterators is

type Process_Type is access
   procedure (Object  : in out Object_Type;
              Continue: in out boolean);

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

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

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

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

end List_Pos_LPBase.Iterators;