Re: [ranting] Take Command Plugin, Win32Ada and Ada.Directories

[Martin Krischik <krischik@users.sourceforge.net>]

Dmitry A. Kazakov schrieb:
> On Mon, 12 Nov 2007 20:53:10 +0100, Martin Krischik wrote:
> 
>> But what really saddens me is the fact that Ada 2005 still uses String for
>> filenames. I just found out that Ada.Directories.Search chokes on filenames
>> with wide characters. Since Windows uses UTF-16 for filenames even a simple
>> Latin-1 "Ä" is in that group.
> 
> Actually Windows has xxxA and xxxW versions of the API calls. Does Win32Ada
> reflect that? The bindings to the xxxW subprograms should use Wide_String.

Yes, Win32Ada reflect this. The types used are:

----------------------------------------------------------------------
   type wchar_t is new Wide_Character;
----------------------------------------------------------------------

----------------------------------------------------------------------
   subtype Wchar_T     is Interfaces.C.wchar_t;            --  ctype.h
   subtype WCHAR       is Wchar_T;                         --  winnt.h
   type    PWCH        is access all WCHAR;                --  winnt.h
   subtype LPWCH       is PWCH;                            --  winnt.h
   subtype PWCHAR      is PWCH;                            --  winnt.h
   subtype NWPSTR      is PWCH;                            --  winnt.h
   subtype LPWSTR      is PWCH;                            --  winnt.h
   subtype PWSTR       is PWCH;                            --  winnt.h
   type    PCWCH       is access constant WCHAR;           --  winnt.h
   subtype LPCWCH      is PCWCH;                           --  winnt.h
   subtype PCWSTR      is PCWCH;                           --  winnt.h
   subtype LPCWSTR     is PCWCH;                           --  winnt.h
   type    WCHAR_Array is array (Natural range <>) of aliased WCHAR;
   Wide_Nul : constant WCHAR := WCHAR'First;
----------------------------------------------------------------------

So I use Win32.Winbase.FindFirstFileW and Win32.Winbase.FindNextFileW
instead of Ada.Directories. For the plug-in that is OK since Take
Command is only available on Windows anyway.

The problematic part is that "Win32.LPCWSTR" is used where "in
WCHAR_Array" would be more appropriate.

> (I guess that Windows is UCS-2, not UTF-16)

I don't know, the MS documentation speaks of unicode leaving the rest
uncertain.

Martin

-- 
mailto://krischik@users.sourceforge.net
Ada programming at: http://ada.krischik.com