Package: Ada.Directories.Extensions

Dependencies

pragma License (Modified_GPL);

with Ada.Calendar;

Description

This is a non-standard extension to the approved package. It is currently implemented for Win32 only.

Header

package Ada.Directories.Extensions is

Exceptions

Not_Supported

Can be because the underlying OS does not support this feature or because the implementation does not yet support this feature.

Other Items:

procedure Touch_Modification_Time
   (Directory_Entry : in Directory_Entry_Type);

Sets the modification of the file specified by Directory_Entry to the current system time. Raises Name_Error if the file does not exist or Use_Error if Name is an invalid directory entry.

procedure Touch_Modification_Time (Name : in String);

Sets the modification of the file specified by Name to the current system time. Raises Name_Error if the file does not exist or Use_Error if Name is an invalid directory entry.

procedure Set_Access_Time (Directory_Entry : in Directory_Entry_Type;
                           To : in Ada.Calendar.Time);

Set the access time of the file specified by Directory_Entry to the value To. Raises Name_Error if the file does not exist or Use_Error if Name is an invalid directory entry.

procedure Set_Access_Time (Name : in String;
                           To : in Ada.Calendar.Time);

Set the access time of the file specified by Name to the value To. Raises Name_Error if the file does not exist or Use_Error if Name is an invalid directory entry.

procedure Set_Modification_Time (Directory_Entry : in Directory_Entry_Type;
                                 To : in Ada.Calendar.Time);

Set the modification time of the file specified by Directory_Entry to the value To. Raises Name_Error if the file does not exist or Use_Error if Name is an invalid directory entry.

procedure Set_Modification_Time (Name : in String;
                                 To : in Ada.Calendar.Time);

Set the modification time of the file specified by Name to the value To. Raises Name_Error if the file does not exist or Use_Error if Name is an invalid directory entry.

procedure Set_Times (Directory_Entry : in Directory_Entry_Type;
                     Access_Time : in Ada.Calendar.Time;
                     Modification_Time : in Ada.Calendar.Time);

Set the access and modification times of the file specified by Directory_Entry to the values Access_Time and Modification_Time. Raises Name_Error if the file does not exist or Use_Error if Name is an invalid directory entry.

procedure Set_Times (Name : in String;
                     Access_Time : in Ada.Calendar.Time;
                     Modification_Time : in Ada.Calendar.Time);

Set the access and modification times of the file specified by Name to the values Access_Time and Modification_Time. Raises Name_Error if the file does not exist or Use_Error if Name is an invalid directory entry.

end Ada.Directories.Extensions;