NeoFlock/neonucleus
9
1
Fork 0
Code Issues Packages Projects Releases Wiki Activity

I will murder someone for this

Browse Source
This commit is contained in:
IonutParau
2025-07-01 18:53:24 +02:00
parent eccbf800eb
commit 44bb1ec866
6 changed files with 86 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
src/testLuaArch.c
View File

@@ -3,10 +3,29 @@
#include <lauxlib.h>
#include <assert.h>
#include <string.h>
#include <math.h>
#include "neonucleus.h"
char *testLuaSandbox = NULL;
#if LUA_VERSION_NUM == 502
// monkey patching
bool lua_isinteger(lua_State *L, int i) {
if(lua_type(L, i) != LUA_TNUMBER) return false;
double x = lua_tonumber(L, i);
if(isinf(x)) return false;
if(isnan(x)) return false;
return trunc(x) == x;
}
void lua_seti(lua_State *L, int arr, int i) {
lua_rawseti(L, arr, i);
}
#endif
typedef struct testLuaArch {
lua_State *L;
nn_computer *computer;
@@ -55,12 +74,12 @@ static nn_value testLuaArch_getValue(lua_State *L, int index) {
const char *s = lua_tolstring(L, index, &l);
return nn_values_string(s, l);
}
if(type == LUA_TNUMBER && lua_isnumber(L, index)) {
return nn_values_number(lua_tonumber(L, index));
}
if(type == LUA_TNUMBER && lua_isinteger(L, index)) {
return nn_values_integer(lua_tointeger(L, index));
}
if(type == LUA_TNUMBER && lua_isnumber(L, index)) {
return nn_values_number(lua_tonumber(L, index));
}
//TODO: bring it back once I make everything else not leak memory
//luaL_argcheck(L, false, index, luaL_typename(L, index));
return nn_values_nil();
@@ -628,7 +647,15 @@ void testLuaArch_teardown(nn_computer *computer, testLuaArch *arch, void *_) {
void testLuaArch_tick(nn_computer *computer, testLuaArch *arch, void *_) {
int ret = 0;
#if LUA_VERSION_NUM == 504
int res = lua_resume(arch->L, NULL, 0, &ret);
#endif
#if LUA_VERSION_NUM == 503
int res = lua_resume(arch->L, NULL, 0);
#endif
#if LUA_VERSION_NUM == 502
int res = lua_resume(arch->L, NULL, 0);
#endif
if(res == LUA_OK) {
// machine halted, this is no good
lua_pop(arch->L, ret);