att

Author: mateusmoutinho

LuaCembed.h

@@ -701,6 +701,12 @@ double private_lua_embed_floor(double x) {
 #include <string.h>
 #include <time.h>
 
+#ifdef _WIN32
+#include <windows.h>
+#else
+#include <unistd.h>
+#include <fcntl.h>
+#endif
 
 
 #define LUA_CORE
@@ -23917,19 +23923,38 @@ static int os_rename (lua_State *L) {
   const char *toname = luaL_checkstring(L, 2);
   return luaL_fileresult(L, rename(fromname, toname) == 0, NULL);
 }
+#ifdef __linux
+static int os_tmpname(lua_State *L) {
+  char buff[100];
+  const char *tmpdir = "/tmp/lua_XXXXXX";
+  int fd = mkstemp(buff);
+  if (fd == -1) {
+    return luaL_error(L, "unable to generate a unique filename");
+  }
 
+  close(fd);
+  lua_pushstring(L, buff);
+  return 1;
+}
+#endif
+#ifdef _WIN32
 
-static int os_tmpname (lua_State *L) {
-  char buff[LUA_TMPNAMBUFSIZE];
-  int err;
-  lua_tmpnam(buff, err);
-  if (l_unlikely(err))
+static int os_tmpname(lua_State *L) {
+  char buff[100] = {0};
+  const char *template = "lua_XXXXXX";
+  
+  GetTempPathA(sizeof(buff), buff);
+ 
+  UINT  fd = GetTempFileNameA(buff, template, 0, buff);
+  if (fd == -1) {
     return luaL_error(L, "unable to generate a unique filename");
+  }
+  close(fd);
+  // Empurrar o nome do arquivo temporário para a pilha Lua
   lua_pushstring(L, buff);
   return 1;
 }
-
-
+#endif
 static int os_getenv (lua_State *L) {
   lua_pushstring(L, getenv(luaL_checkstring(L, 1)));  
   return 1;

README.md

@@ -1486,15 +1486,15 @@ type string
 value: indexable random string
 ------------------------------------------
 index: 1
-key: name
-type string
-value: Mateus
-------------------------------------------
-index: 2
 key: age
 type number
 value: 27.000000
 ------------------------------------------
+index: 2
+key: name
+type string
+value: Mateus
+------------------------------------------
 index: 3
 key: single
 type boolean

output_test

@@ -1,15 +1,15 @@
-==21903== Memcheck, a memory error detector
-==21903== Copyright (C) 2002-2024, and GNU GPL'd, by Julian Seward et al.
-==21903== Using Valgrind-3.23.0 and LibVEX; rerun with -h for copyright info
-==21903== Command: ./tests/main_test/table_handle/T_setting_sub_table/exec.out
-==21903== Parent PID: 21293
-==21903== 
-==21903== 
-==21903== HEAP SUMMARY:
-==21903==     in use at exit: 0 bytes in 0 blocks
-==21903==   total heap usage: 143 allocs, 143 frees, 12,949 bytes allocated
-==21903== 
-==21903== All heap blocks were freed -- no leaks are possible
-==21903== 
-==21903== For lists of detected and suppressed errors, rerun with: -s
-==21903== ERROR SUMMARY: 0 errors from 0 contexts (suppressed: 0 from 0)
+==28218== Memcheck, a memory error detector
+==28218== Copyright (C) 2002-2024, and GNU GPL'd, by Julian Seward et al.
+==28218== Using Valgrind-3.23.0 and LibVEX; rerun with -h for copyright info
+==28218== Command: ./tests/main_test/table_handle/T_setting_sub_table/exec.out
+==28218== Parent PID: 27294
+==28218== 
+==28218== 
+==28218== HEAP SUMMARY:
+==28218==     in use at exit: 0 bytes in 0 blocks
+==28218==   total heap usage: 143 allocs, 143 frees, 12,949 bytes allocated
+==28218== 
+==28218== All heap blocks were freed -- no leaks are possible
+==28218== 
+==28218== For lists of detected and suppressed errors, rerun with: -s
+==28218== ERROR SUMMARY: 0 errors from 0 contexts (suppressed: 0 from 0)

src/dependencies/lua/loslib.c

@@ -166,7 +166,7 @@ static int os_rename (lua_State *L) {
 }
 #ifdef __linux
 static int os_tmpname(lua_State *L) {
-  char buff[LUA_TMPNAMBUFSIZE];
+  char buff[100];
   const char *tmpdir = "/tmp/lua_XXXXXX";
   int fd = mkstemp(buff);
   if (fd == -1) {

tests/LuaCEmbed.h

@@ -701,6 +701,12 @@ double private_lua_embed_floor(double x) {
 #include <string.h>
 #include <time.h>
 
+#ifdef _WIN32
+#include <windows.h>
+#else
+#include <unistd.h>
+#include <fcntl.h>
+#endif
 
 
 #define LUA_CORE
@@ -23917,19 +23923,38 @@ static int os_rename (lua_State *L) {
   const char *toname = luaL_checkstring(L, 2);
   return luaL_fileresult(L, rename(fromname, toname) == 0, NULL);
 }
+#ifdef __linux
+static int os_tmpname(lua_State *L) {
+  char buff[100];
+  const char *tmpdir = "/tmp/lua_XXXXXX";
+  int fd = mkstemp(buff);
+  if (fd == -1) {
+    return luaL_error(L, "unable to generate a unique filename");
+  }
 
+  close(fd);
+  lua_pushstring(L, buff);
+  return 1;
+}
+#endif
+#ifdef _WIN32
 
-static int os_tmpname (lua_State *L) {
-  char buff[LUA_TMPNAMBUFSIZE];
-  int err;
-  lua_tmpnam(buff, err);
-  if (l_unlikely(err))
+static int os_tmpname(lua_State *L) {
+  char buff[100] = {0};
+  const char *template = "lua_XXXXXX";
+  
+  GetTempPathA(sizeof(buff), buff);
+ 
+  UINT  fd = GetTempFileNameA(buff, template, 0, buff);
+  if (fd == -1) {
     return luaL_error(L, "unable to generate a unique filename");
+  }
+  close(fd);
+  // Empurrar o nome do arquivo temporário para a pilha Lua
   lua_pushstring(L, buff);
   return 1;
 }
-
-
+#endif
 static int os_getenv (lua_State *L) {
   lua_pushstring(L, getenv(luaL_checkstring(L, 1)));  
   return 1;

tests/main_test/table_handle/S_iterating_over_table/expected.txt

@@ -4,15 +4,15 @@ type string
 value: indexable random string
 ------------------------------------------
 index: 1
-key: name
-type string
-value: Mateus
-------------------------------------------
-index: 2
 key: age
 type number
 value: 27.000000
 ------------------------------------------
+index: 2
+key: name
+type string
+value: Mateus
+------------------------------------------
 index: 3
 key: single
 type boolean