Patch io.open and io.popen to support Unicode filenames on Windows

This commit is contained in:
Thomas Goyne 2014-07-15 11:42:16 -07:00
parent 584284aa79
commit 68b824c8ca
2 changed files with 93 additions and 1 deletions

View File

@ -24,6 +24,16 @@
#include "lj_ff.h"
#include "lj_lib.h"
#if LJ_TARGET_WINDOWS
#define WIN32_LEAN_AND_MEAN
#include <windows.h>
static int widen(const char *in, wchar_t *out)
{
return MultiByteToWideChar(CP_UTF8, 0, in, -1, out, MAX_PATH);
}
#endif
/* Userdata payload for I/O file. */
typedef struct IOFileUD {
FILE *fp; /* File handle. */
@ -82,7 +92,15 @@ static IOFileUD *io_file_open(lua_State *L, const char *mode)
{
const char *fname = strdata(lj_lib_checkstr(L, 1));
IOFileUD *iof = io_file_new(L);
#if LJ_TARGET_WINDOWS
wchar_t wfname[MAX_PATH];
wchar_t wmode[MAX_PATH];
if (!widen(fname, wfname) || !widen(mode, wmode))
luaL_argerror(L, 1, lj_str_pushf(L, "%s: failed to convert path to utf-16", fname));
iof->fp = _wfopen(wfname, wmode);
#else
iof->fp = fopen(fname, mode);
#endif
if (iof->fp == NULL)
luaL_argerror(L, 1, lj_str_pushf(L, "%s: %s", fname, strerror(errno)));
return iof;
@ -399,7 +417,14 @@ LJLIB_CF(io_open)
GCstr *s = lj_lib_optstr(L, 2);
const char *mode = s ? strdata(s) : "r";
IOFileUD *iof = io_file_new(L);
#if LJ_TARGET_WINDOWS
wchar_t wfname[MAX_PATH];
wchar_t wmode[MAX_PATH];
if (widen(fname, wfname) && widen(mode, wmode))
iof->fp = _wfopen(wfname, wmode);
#else
iof->fp = fopen(fname, mode);
#endif
return iof->fp != NULL ? 1 : luaL_fileresult(L, 0, fname);
}
@ -415,7 +440,10 @@ LJLIB_CF(io_popen)
fflush(NULL);
iof->fp = popen(fname, mode);
#else
iof->fp = _popen(fname, mode);
wchar_t wfname[MAX_PATH];
wchar_t wmode[MAX_PATH];
if (widen(fname, wfname) && widen(mode, wmode))
iof->fp = _wpopen(wfname, wmode);
#endif
return iof->fp != NULL ? 1 : luaL_fileresult(L, 0, fname);
#else

64
vendor/luajit/unicode-io.patch vendored Normal file
View File

@ -0,0 +1,64 @@
diff --git c/vendor/luajit/src/lib_io.c w/vendor/luajit/src/lib_io.c
index 04f0f73..b59d34b 100644
--- c/vendor/luajit/src/lib_io.c
+++ w/vendor/luajit/src/lib_io.c
@@ -24,6 +24,16 @@
#include "lj_ff.h"
#include "lj_lib.h"
+#if LJ_TARGET_WINDOWS
+#define WIN32_LEAN_AND_MEAN
+#include <windows.h>
+
+static int widen(const char *in, wchar_t *out)
+{
+ return MultiByteToWideChar(CP_UTF8, 0, in, -1, out, MAX_PATH);
+}
+#endif
+
/* Userdata payload for I/O file. */
typedef struct IOFileUD {
FILE *fp; /* File handle. */
@@ -82,7 +92,15 @@ static IOFileUD *io_file_open(lua_State *L, const char *mode)
{
const char *fname = strdata(lj_lib_checkstr(L, 1));
IOFileUD *iof = io_file_new(L);
+#if LJ_TARGET_WINDOWS
+ wchar_t wfname[MAX_PATH];
+ wchar_t wmode[MAX_PATH];
+ if (!widen(fname, wfname) || !widen(mode, wmode))
+ luaL_argerror(L, 1, lj_str_pushf(L, "%s: failed to convert path to utf-16", fname));
+ iof->fp = _wfopen(wfname, wmode);
+#else
iof->fp = fopen(fname, mode);
+#endif
if (iof->fp == NULL)
luaL_argerror(L, 1, lj_str_pushf(L, "%s: %s", fname, strerror(errno)));
return iof;
@@ -399,7 +417,14 @@ LJLIB_CF(io_open)
GCstr *s = lj_lib_optstr(L, 2);
const char *mode = s ? strdata(s) : "r";
IOFileUD *iof = io_file_new(L);
+#if LJ_TARGET_WINDOWS
+ wchar_t wfname[MAX_PATH];
+ wchar_t wmode[MAX_PATH];
+ if (widen(fname, wfname) && widen(mode, wmode))
+ iof->fp = _wfopen(wfname, wmode);
+#else
iof->fp = fopen(fname, mode);
+#endif
return iof->fp != NULL ? 1 : luaL_fileresult(L, 0, fname);
}
@@ -415,7 +440,10 @@ LJLIB_CF(io_popen)
fflush(NULL);
iof->fp = popen(fname, mode);
#else
- iof->fp = _popen(fname, mode);
+ wchar_t wfname[MAX_PATH];
+ wchar_t wmode[MAX_PATH];
+ if (widen(fname, wfname) && widen(mode, wmode))
+ iof->fp = _wpopen(wfname, wmode);
#endif
return iof->fp != NULL ? 1 : luaL_fileresult(L, 0, fname);
#else