48 lines
1.3 KiB
Ada
48 lines
1.3 KiB
Ada
|
with H3.Storage_Pools;
|
||
|
|
with System.Pool_Global;
|
||
|
|
|
||
|
|
package H3.Storage is
|
||
|
|
|
||
|
|
-- the H3.Storage.Pool_Box is a wrapper that binds a storage pool type
|
||
|
|
-- and an actual storage pool. Other generic packages are desinged to
|
||
|
|
-- accept this single binding package rather than a type and an object
|
||
|
|
-- separately.
|
||
|
|
--
|
||
|
|
-- generic
|
||
|
|
-- ...
|
||
|
|
-- type Storage_Pool_Type is new H3.Root_Storage_Pool with private;
|
||
|
|
-- Storage_Pool: in out Storage_Pool_Type;
|
||
|
|
-- ...
|
||
|
|
-- package ... is
|
||
|
|
--
|
||
|
|
-- <<VS>>
|
||
|
|
--
|
||
|
|
-- generic
|
||
|
|
-- ...
|
||
|
|
-- with package Storage_Pool_Box is new H3.Storage.Pool_Box(<>);
|
||
|
|
-- ...
|
||
|
|
-- package ... is
|
||
|
|
--
|
||
|
|
generic
|
||
|
|
type Storage_Pool_Type is new H3.Root_Storage_Pool with private;
|
||
|
|
Storage_Pool: in out Storage_Pool_Type; -- actual storage pool object.
|
||
|
|
package Pool_Box is
|
||
|
|
-- blank
|
||
|
|
end Pool_Box;
|
||
|
|
|
||
|
|
-- -------------------------------------------------------------
|
||
|
|
Global_Pool: H3.Storage_Pools.Global_Pool;
|
||
|
|
|
||
|
|
package Global_Pool_Box is new Pool_Box(
|
||
|
|
Storage_Pool_Type => H3.Storage_Pools.Global_Pool,
|
||
|
|
Storage_Pool => Global_Pool
|
||
|
|
);
|
||
|
|
|
||
|
|
-- -------------------------------------------------------------
|
||
|
|
package System_Pool_Box is new Pool_Box(
|
||
|
|
Storage_Pool_Type => System.Pool_Global.Unbounded_No_Reclaim_Pool,
|
||
|
|
Storage_Pool => System.Pool_Global.Global_Pool_Object
|
||
|
|
);
|
||
|
|
|
||
|
|
end H3.Storage;
|