with Abstract_Ring,Generic_Vectors;
generic
with package Ring is new Abstract_Ring(<>);
with package Vectors is new Generic_Vectors(Ring);
package Generic_VecVecs is
use Vectors;
type VecVec is array ( integer range <> ) of Link_to_Vector;
type Link_to_VecVec is access VecVec;
procedure Clear ( v : in out VecVec );
procedure Shallow_Clear ( v : in out Link_to_VecVec );
procedure Deep_Clear ( v : in out Link_to_VecVec );
-- DESCRIPTION :
-- A shallow clear on deallocates the pointers, whereas a deep clear
-- also releases the content. By default a clear is always deep.
end Generic_VecVecs;