package body Agpl.Calendar.Serializable_Time is
---------
-- "+" --
---------
function "+" (This : in Object) return Ada.Calendar.Time is
begin
return Ada.Calendar.Time (This);
end "+";
function "+" (This : in Ada.Calendar.Time) return Object is
begin
return Object (This);
end "+";
----------
-- Read --
----------
procedure Read
(Stream : access Ada.Streams.Root_Stream_Type'Class;
This : out Object)
is
Elapsed : Duration;
begin
Duration'Read (Stream, Elapsed);
This := Epoch + Elapsed;
end Read;
-----------
-- Write --
-----------
procedure Write
(Stream : access Ada.Streams.Root_Stream_Type'Class;
This : in Object)
is
begin
Duration'Write (Stream, This - Epoch);
end Write;
end Agpl.Calendar.Serializable_Time;