[M3devel] Windows, Unicode file names

[Dragiša Durić]

If you cared enough to check FSWin32.m3, answer would be obvious :).

Whatever I do with pathname before I call FS.OpenFile(Readonly)? - FSWin32.m3 will call CreateFileA. My solution is:

PROCEDURE OpenFileReadonly(p: Pathname.T): File.T RAISES {OSError.E}=
  VAR
    handle: WinNT.HANDLE;
    fname := M3toC.SharedTtoS(p);
    dwNum := WinNLS.MultiByteToWideChar (WinNLS.CP_UTF8, 0, fname, -1, NIL, 0);
    pwText: WinBaseTypes.PCWSTR; 
  BEGIN
    IF dwNum = 0 OR dwNum = Text.Length(p) + 1 THEN
      (* dwNum includes terminating null character. that's +1 above.
      *)
      handle := WinBase.CreateFile(
                    lpFileName := fname,
                    dwDesiredAccess := WinNT.GENERIC_READ,
                    dwShareMode :=  WinNT.FILE_SHARE_READ,
                    lpSecurityAttributes := NIL,
                    dwCreationDisposition := WinBase.OPEN_EXISTING,
                    dwFlagsAndAttributes := 0,
                    hTemplateFile := NIL);
    ELSE
      pwText := LOOPHOLE(NEW(UNTRACED REF ARRAY OF CHAR, dwNum*2), WinBaseTypes.PCWSTR);
      EVAL WinNLS.MultiByteToWideChar (WinNLS.CP_UTF8, 0, fname, -1, pwText, dwNum);
      handle := WinBase.CreateFileW(
                    lpFileName := pwText,
                    dwDesiredAccess := WinNT.GENERIC_READ,
                    dwShareMode := WinNT.FILE_SHARE_READ,
                    lpSecurityAttributes := NIL,
                    dwCreationDisposition := WinBase.OPEN_EXISTING,
                    dwFlagsAndAttributes := 0,
                    hTemplateFile := NIL);
      DISPOSE(pwText);
    END;

    IF LOOPHOLE(handle, INTEGER) = WinBase.INVALID_HANDLE_VALUE THEN
      Fail(p, fname);
    END;
    M3toC.FreeSharedS(p, fname);
    RETURN FileWin32.New(handle, FileWin32.Read)
  END OpenFileReadonly;

And similar in OpenFile. Not nice :).

Also, I've added CP_UTF8 constant to WinNLS.i3.

On Jun 25, 2012, at 9:01 PM, Daniel Alejandro Benavides D. wrote:

> Hi all:
> So do you need Double-Byte Character String module as currently in TEXT types? but you can do that already. Couldn't you?
> Thanks in advance
> 
> --- El lun, 25/6/12, Dragiša Durić <dragisha at m3w.org> escribió:
> 
> De: Dragiša Durić <dragisha at m3w.org>
> Asunto: Re: [M3devel] Windows, Unicode file names
> Para: "Daniel Alejandro Benavides D." <dabenavidesd at yahoo.es>
> CC: "m3devel" <m3devel at elegosoft.com>
> Fecha: lunes, 25 de junio, 2012 13:20
> 
> Yes, they exposed parts of NLS. That's how problem can be, albeit partially, solved. By using methods exposed there.
> 
> What we don't have is how to communicate actual encoding of string to FS module so FS methods can handle filenames accordingly.
> 
> On Jun 25, 2012, at 8:06 PM, Daniel Alejandro Benavides D. wrote:
> 
>> Hi all:
>> OK, good, Win32 API dealt with inter-NLS (National Language Support) at ASCII and other formats level with NLS API.
>> But it appears to be have not been used for DEC-SRC WinNT port of Modula-3 (but for CM3, though it isn't compiled in elego servers, but here):
>> http://www.cs.purdue.edu/homes/hosking/m3/help/gen_html/m3core/src/win32/WinNLS.i3.html
>> 
>> Thanks in advance
>> 
>> --- El lun, 25/6/12, Dragiša Durić <dragisha at m3w.org> escribió:
>> 
>> De: Dragiša Durić <dragisha at m3w.org>
>> Asunto: Re: [M3devel] Windows, Unicode file names
>> Para: "Daniel Alejandro Benavides D." <dabenavidesd at yahoo.es>
>> CC: "m3devel" <m3devel at elegosoft.com>
>> Fecha: lunes, 25 de junio, 2012 12:36
>> 
>> Daniel,
>> 
>> I can talk about many things, and most things Modula-3 are of interest to me. Once you start a topic, and I can understand what is it about, and it meets my interests - I'll be there.
>> 
>> Problem I met with filenames is nothing old. Windows can open files with filenames in ASCII and UTF-16. Everything else - you must check twice and do a workaround.
>> 
>> I've written here in hope I can get i to some fruitful discussion with people who understand this problem. My solution is a workaround and assumes filename is UTF-8 or ASCII. I would like to start discussion on this and work from there to more general solution.
>> 
>> dd
>> 
>> On Jun 25, 2012, at 7:27 PM, Daniel Alejandro Benavides D. wrote:
>> 
>>> Hi all:
>>> I as I understood, thought you don't want to talk about compatible W 95 / NT distro of Modula-3.
>>> But in turn you want to keep compatibility with older file name encodes.
>>> I don't care that but if its useful anyway (because newer windows don't care at all either) I don't know know your problem was because it won't be able to be solved!
>>> Thanks in advance
>> 
> 

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://m3lists.elegosoft.com/pipermail/m3devel/attachments/20120625/c16e3c9b/attachment-0002.html>