Add wasi patch to Lua 5.5.0

Author: khvzak

lua-5.5.0/lauxlib.c

@@ -268,7 +268,7 @@ LUALIB_API int luaL_fileresult (lua_State *L, int stat, const char *fname) {
 
 #if !defined(l_inspectstat)	/* { */
 
-#if defined(LUA_USE_POSIX)
+#if defined(LUA_USE_POSIX) && !defined(__wasi__)
 
 #include <sys/wait.h>
 

lua-5.5.0/liolib.c

@@ -93,7 +93,7 @@ static int l_checkmode (const char *mode) {
 
 #if !defined(l_getc)		/* { */
 
-#if defined(LUA_USE_POSIX)
+#if defined(LUA_USE_POSIX) && !defined(__wasi__)
 #define l_getc(f)		getc_unlocked(f)
 #define l_lockfile(f)		flockfile(f)
 #define l_unlockfile(f)		funlockfile(f)
@@ -280,14 +280,17 @@ static int io_open (lua_State *L) {
 /*
 ** function to close 'popen' files
 */
+#if !defined(__wasi__)
 static int io_pclose (lua_State *L) {
   LStream *p = tolstream(L);
   errno = 0;
   return luaL_execresult(L, l_pclose(L, p->f));
 }
+#endif
 
 
 static int io_popen (lua_State *L) {
+#if !defined(__wasi__)
   const char *filename = luaL_checkstring(L, 1);
   const char *mode = luaL_optstring(L, 2, "r");
   LStream *p = newprefile(L);
@@ -296,14 +299,21 @@ static int io_popen (lua_State *L) {
   p->f = l_popen(L, filename, mode);
   p->closef = &io_pclose;
   return (p->f == NULL) ? luaL_fileresult(L, 0, filename) : 1;
+#else
+  luaL_error(L, "not supported on WASI");
+#endif
 }
 
 
 static int io_tmpfile (lua_State *L) {
+#if !defined(__wasi__)
   LStream *p = newfile(L);
   errno = 0;
   p->f = tmpfile();
   return (p->f == NULL) ? luaL_fileresult(L, 0, NULL) : 1;
+#else
+  luaL_error(L, "not supported on WASI");
+#endif
 }
 
 

lua-5.5.0/loslib.c

@@ -101,6 +101,7 @@
 ** ===================================================================
 */
 #if !defined(lua_tmpnam)	/* { */
+#if !defined(__wasi__)	  /* { */
 
 #if defined(LUA_USE_POSIX)	/* { */
 
@@ -124,14 +125,15 @@
 #define LUA_TMPNAMBUFSIZE	L_tmpnam
 #define lua_tmpnam(b,e)		{ e = (tmpnam(b) == NULL); }
 
+#endif				/* } */
 #endif				/* } */
 
 #endif				/* } */
 /* }================================================================== */
 
 
 #if !defined(l_system)
-#if defined(LUA_USE_IOS)
+#if defined(LUA_USE_IOS) || defined(__wasi__)
 /* Despite claiming to be ISO C, iOS does not implement 'system'. */
 #define l_system(cmd) ((cmd) == NULL ? 0 : -1)
 #else
@@ -170,13 +172,17 @@ static int os_rename (lua_State *L) {
 
 
 static int os_tmpname (lua_State *L) {
+#if !defined(__wasi__)
   char buff[LUA_TMPNAMBUFSIZE];
   int err;
   lua_tmpnam(buff, err);
   if (l_unlikely(err))
     return luaL_error(L, "unable to generate a unique filename");
   lua_pushstring(L, buff);
   return 1;
+#else
+  luaL_error(L, "not supported on WASI");
+#endif
 }
 
 
@@ -187,8 +193,12 @@ static int os_getenv (lua_State *L) {
 
 
 static int os_clock (lua_State *L) {
+#if !defined(__wasi__)
   lua_pushnumber(L, ((lua_Number)clock())/(lua_Number)CLOCKS_PER_SEC);
   return 1;
+#else
+  luaL_error(L, "not supported on WASI");
+#endif
 }
 
 

lua-5.5.0/ltablib.c

@@ -7,6 +7,10 @@
 #define ltablib_c
 #define LUA_LIB
 
+#if defined(__wasi__)
+#include <stdlib.h>
+#endif
+
 #include "lprefix.h"