a-dirval-mingw.adb (Invalid_Character): Add '\' as invalid character in file name.

2004-10-04  Vincent Celier  <celier@gnat.com>

	* a-dirval-mingw.adb (Invalid_Character): Add '\' as invalid character
	in file name.
	(Is_Valid_Path_Name): Take '/' as a directory separator.

From-SVN: r88492

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index fda97b16ec2d2a82eb78da7b5c502d6bf2478df9..13829bd8f2546bd2b959830488338c1cdc69e340 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,9 @@
+2004-10-04  Vincent Celier  <celier@gnat.com>
+
+       * a-dirval-mingw.adb (Invalid_Character): Add '\' as invalid character
+       in file name.
+       (Is_Valid_Path_Name): Take '/' as a directory separator.
+
 2004-10-04  Vincent Celier  <celier@gnat.com>
 
        * prj-part.adb (Parse_Single_Project): Call Is_Extending_All

diff --git a/gcc/ada/a-dirval-mingw.adb b/gcc/ada/a-dirval-mingw.adb
index a20ff1779737637a9f26e55d351386eaf1fbe81e..93dcae1c5f923b8204383864e4b0ac5d01f0c46e 100644 (file)
--- a/gcc/ada/a-dirval-mingw.adb
+++ b/gcc/ada/a-dirval-mingw.adb
@@ -39,7 +39,7 @@ with Ada.Characters.Latin_1; use Ada.Characters.Latin_1;
 package body Ada.Directories.Validity is
 
    Invalid_Character : constant array (Character) of Boolean :=
-                         (NUL .. US             => True,
+                         (NUL .. US | '\'       => True,
                           '/' | ':' | '*' | '?' => True,
                           '"' | '<' | '>' | '|' => True,
                           DEL .. NBSP           => True,
@@ -76,7 +76,9 @@ package body Ada.Directories.Validity is
          loop
             --  Look for the start of the next directory or file name
 
-            while Start <= Name'Last and then Name (Start) = '\' loop
+            while Start <= Name'Last and then
+              (Name (Start) = '\' or Name (Start) = '/')
+            loop
                Start := Start + 1;
             end loop;
 
@@ -89,7 +91,7 @@ package body Ada.Directories.Validity is
             --  Look for the end of the directory/file name
 
             while Last < Name'Last loop
-               exit when Name (Last + 1) = '\';
+               exit when Name (Last + 1) = '\' or Name (Last + 1) = '/';
                Last := Last + 1;
             end loop;
 
@@ -119,7 +121,7 @@ package body Ada.Directories.Validity is
 
    begin
       --  A file name cannot be empty, cannot contain more than 256 characters,
-      --  and cannot contain invalid characters, including '\'
+      --  and cannot contain invalid characters.
 
       if Name'Length = 0 or else Name'Length > 256 then
          return False;
@@ -129,7 +131,7 @@ package body Ada.Directories.Validity is
       else
          Only_Spaces := True;
          for J in Name'Range loop
-            if Invalid_Character (Name (J)) or else Name (J) = '\' then
+            if Invalid_Character (Name (J)) then
                return False;
             elsif Name (J) /= ' ' then
                Only_Spaces := False;