with Ada.Streams.Stream_Io;
package body Agpl.Generic_Limited_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);
Write (Stream (F), This);
Close (F);
end To_File;
----------
-- 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);
Read (Stream (F), This);
Close (F);
end Load;
end Agpl.Generic_Limited_File_Store;