From 741d7034818aa3f9328b9c558489a3541871a346 Mon Sep 17 00:00:00 2001
From: ame <amelia@amyy.cc>
Date: Thu, 1 Feb 2024 15:57:48 -0600
Subject: multiple function and globals soon maybe

---
 src/lua.c | 87 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 87 insertions(+)
 create mode 100644 src/lua.c

(limited to 'src/lua.c')

diff --git a/src/lua.c b/src/lua.c
new file mode 100644
index 0000000..13cbd9b
--- /dev/null
+++ b/src/lua.c
@@ -0,0 +1,87 @@
+#include "lua.h"
+#include <stdio.h>
+#include "io.h"
+#include <stdlib.h>
+#include <string.h>
+#include "i_str.h"
+#include "parray.h"
+
+static int ii = 0;
+void i_dcopy(lua_State* src, lua_State* dest, void* _seen){
+    parray_t* seen = (parray_t*)_seen;
+    if(seen == NULL) seen = parray_init();
+    size_t len;
+    int at, at2;
+    int *sp = malloc(1);
+    char* s;
+    void* whar;
+    int old_top = lua_gettop(src);
+    //printf("%i\n",ii++);
+    switch(lua_type(src, -1)){
+        case LUA_TNUMBER:
+            lua_pushnumber(dest, luaL_checknumber(src, -1));
+            break;
+        case LUA_TSTRING:
+            s = (char*)luaL_checklstring(src, -1, &len);
+            lua_pushlstring(dest, s, len);
+            break;
+        case LUA_TTABLE:
+            lua_newtable(dest);
+            at = lua_gettop(dest);
+            at2 = lua_gettop(src);
+
+            *sp = at2;
+            whar = parray_get(seen, (void*)lua_topointer(src, at2));
+            if( whar != NULL){
+                //printf("%s\n",lua_tostring(src, at2));
+                //printf("WHAR\n");
+                    
+                lua_pushvalue(dest, *(int*)whar);
+                return;
+            } else parray_set(seen, (void*)lua_topointer(src, at2), sp);
+
+            lua_pushnil(src);
+            for(;lua_next(src, at2) != 0;){
+                lua_pushvalue(src, -2);
+                
+                i_dcopy(src, dest, seen);
+
+                lua_pushvalue(src, -2);
+                i_dcopy(src, dest, seen);
+                
+                lua_settable(dest, at);
+                lua_pop(src, 3);
+            }
+            lua_settop(dest, at);
+            break;
+        case LUA_TFUNCTION:
+            //lua_pushnil(dest);
+            //break;
+            if(lua_iscfunction(src, old_top)){
+                //kinda silly
+                lua_pushcfunction(dest, lua_tocfunction(src, -1));
+                break;
+            }
+            
+            lua_getglobal(src, "string");
+            lua_pushstring(src, "dump");
+            lua_gettable(src, -2);
+            lua_pushvalue(src, old_top);
+            lua_call(src, 1, 1);
+
+            s = (char*)luaL_checklstring(src, -1, &len);
+            lua_pushlstring(dest, s, len);
+            //for(int i = 0; i != len; i++) printf("%c",s[i]);
+            printf("%i\n",luaL_loadbuffer(dest, s, len, "test"));
+            //lua_pushvalue(dest, -1);
+            break;
+        case LUA_TUSERDATA:
+            lua_pushlightuserdata(dest, lua_touserdata(src, -1));
+            break;
+        default:
+            printf("%i\n",lua_type(src, -1));
+            lua_pushnil(dest);
+            break;
+    }
+    //lua_settop(src, old_top);
+}
\ No newline at end of file
-- 
cgit v1.2.3