-- Reverse operation to the function Ada.Directories.Modification_Time.
with Ada.Calendar;
with GNAT.OS_Lib;
procedure Set_Modification_Time_GNAT
(Name : in String;
To : in Ada.Calendar.Time)
is
use Ada.Calendar, GNAT.OS_Lib;
GNAT_Time : constant OS_Time :=
GM_Time_Of (Year => Year (To),
Month => Month (To),
Day => Day (To),
Hour => Integer (Seconds (To)) / 3600,
Minute => (Integer (Seconds (To)) / 60) mod 60,
Second => Integer (Seconds (To)) mod 60);
begin
Set_File_Last_Modify_Time_Stamp (Name, GNAT_Time);
end Set_Modification_Time_GNAT;