Ada.Directories and multibyte-filename

["Y.Tomino" <demoonlit@panathenaia.halfmoon.jp>]

Searching directory with Ada.Directories, it raises Name_Error for
normal multibyte-filename.

Test:
with Ada.Text_IO; use Ada.Text_IO;
with Ada.Directories; use Ada.Directories;
procedure Test is
   Search : Search_Type;
   File : Directory_Entry_Type;
begin
   Start_Search(Search, ".", "*");
   while More_Entries(Search) loop
      Get_Next_Entry(Search, File);
      Ada.Text_IO.Put_Line(Simple_Name(File));
   end loop;
   End_Search(Search);
end Test;

Compile and run it on the directory containing file named with
multibyte-characters.

raised ADA.IO_EXCEPTIONS.NAME_ERROR : a-direct.adb:122

It is not possible to use Ada.Directories in the regions having
multibyte-characters...

-- 
YT