-- B o d y --
-- (Windows Version) --
-- --
--- Copyright (C) 2004 Free Software Foundation, Inc. --
+-- Copyright (C) 2004-2005, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
end if;
end loop;
- -- If no invalid chars, and not all spaces, file name is valid.
+ -- If no invalid chars, and not all spaces, file name is valid
return not Only_Spaces;
end if;
end Is_Valid_Simple_Name;
+ -------------
+ -- OpenVMS --
+ -------------
+
+ function OpenVMS return Boolean is
+ begin
+ return False;
+ end OpenVMS;
+
end Ada.Directories.Validity;