Ada语言如何支持中文目录？

Ada语言如何支持中文目录？
【该文内容出自于 李凯】

支持宽字目录需要修改Ada.Directories.Validity (a-dirval.adb)，
在实现中有如下定义：
Invalid_Character : constant array (Character) of Boolean :=
(NUL … US | ‘’ => True,
‘/’ | ‘:’ | ‘*’ | ‘?’ => True,
‘"’ | ‘<’ | ‘>’ | ‘|’ => True,
DEL … NBSP => True,
others => False);
这里的字符集使用的是Latin_1 。
上面的定义中把127(DEL)至160(NBSP,No_Break_Space)的字符都划分到非法字符中,把这行注释掉。
然后使用命令 gcc -gnatg -c Ada.Dirval a-dirval.adb
把生成的a-dirval.ali 剪切到 adalib目录中替换掉原来的。
然后生成的程序就可以支持中文目录了。