Private package: Ada.Directories.Win32

Private package: Ada.Directories.Win32_Port

pragma License (Modified_GPL);

private package Ada.Directories.Win32_Port is

Invalid_Characters_For_Filenames

Copy_Buffer_Size : constant Natural := 1_024;

Directory_Separator : constant Character := '\';

Extension_Character : constant Character := '.';

Has_File_Extensions : constant Boolean := True;

Invalid_For_Filenames : constant Invalid_Characters_For_Filenames :=
   ('/', '\', ':', '*', '?', '"', '<', '>', '|');

Names_Are_Case_Sensitive : constant Boolean := False;

This_Directory : constant String := ".";

Up_Directory : constant String := "..";

type Invalid_Characters_For_Filenames is
   array (Integer range <>) of Character;

function Is_Valid_Directory (Name : String)
   return Boolean;

Determines if the value Name identifies a valid directory name or not

function Is_Valid_Filename (Name : String)
   return Boolean;

Determines if the value Name identifies a valid filename name or not

function Is_Special (Name : String) return Boolean;

Determines if Name is a 'special' file. Assumes Name is a trimmed, Base Name.

end Ada.Directories.Win32_Port;