[M3devel] Windows, Unicode file names

[Jay K]

I think I know what to do here and will look into it..later.. We have TEXT. We should just always get WIDECHARs out of it and call CreateFileW.Assuming UTF8 is the wrong solution at this level, and passing in UTF8 won't work with the correct solution.A layer above this needs to decode UTF8, if that is the encoding. Unless someone has declared and implemented that TEXT is in fact always UTF8-encoded, which I doubt.  - Jay From: dragisha at m3w.org
Date: Mon, 25 Jun 2012 21:05:59 +0200
To: dabenavidesd at yahoo.es
CC: m3devel at elegosoft.com
Subject: Re: [M3devel] Windows, Unicode file names

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/20176d17/attachment-0002.html>