with Ada.Streams.Stream_Io;
package body Agpl.Generic_File_Store is
-------------
-- To_File --
-------------
procedure To_File (This : in Item; File : in String) is
use Ada.Streams.Stream_Io;
F : File_Type;
begin
Create (F, Name => File, Mode => Out_File);
Item'Write (Stream (F), This);
Close (F);
end To_File;
----------
-- Load --
----------
function Load (File : in String) return Item is
Result : Item;
begin
Load (Result, File);
return Result;
end Load;
----------
-- Load --
----------
procedure Load (This : out Item; File : in String) is
use Ada.Streams.Stream_Io;
F : File_Type;
begin
Open (F, Name => File, Mode => In_File);
Item'Read (Stream (F), This);
Close (F);
end Load;
end Agpl.Generic_File_Store;