feat: 适配 Lua 5.1.5 (lua_5.1.5 分支)

- lib/lua 替换为 Lua 5.1.5 官方源码; CMakeLists 删除 5.1 不存在的
  lcorolib.c/lctype.c/lutf8lib.c/lbitlib.c
- 补充 lua.hpp C++ 包装头(5.1 官方不提供, 保持桥接 include 路径不变)
- LUA_OK 兼容宏: 5.1 无此定义(成功返回值为 0)
- luaL_tolstring 兼容: 5.1 无此 API, l_print 改用 lua_tostring +
  lua_typename 兜底(#if LUA_VERSION_NUM >= 502 条件编译, 弹栈逻辑同步分支)
- luaL_setfuncs 兼容: 5.1 无此 API, push_tty_file 改手动循环注册
- I/O 重定向沿用 Registry 方案(自 5.2.4 分支同步), typed interop
  版本自适应断言同步
- 验证: GTest 44/44 通过

lib/lua_cj_api.cpp

@@ -1,4 +1,14 @@
 #include "lua_cj_api.h"
+#include <new>
+
+// Lua 5.1 兼容：无 LUA_OK 宏，成功返回值为 0
+#ifndef LUA_OK
+#define LUA_OK 0
+#endif
+
+// Lua 5.2/5.1 无 lua_getextraspace，改用 Registry 固定索引存储 iopath 指针
+#define IOPATH_REG_IDX  1
+
 extern "C"
 {
     #include <string.h>
@@ -351,15 +361,36 @@ int cleanup(void *selfd)
 int free_lua(void *selfd)
 {
     lua_runner* self = (lua_runner*)selfd;
+    // 释放 Registry 中的 iopath（若存在）
+    Lua_runner *runner = (Lua_runner*)self->lua_obj;
+    if (runner != NULL) {
+        lua_State *L = runner->get_lua_State();
+        if (L != NULL) {
+            lua_rawgeti(L, LUA_REGISTRYINDEX, IOPATH_REG_IDX);
+            iopath *p = (iopath*)lua_touserdata(L, -1);
+            lua_pop(L, 1);
+            delete p;  // NULL 也安全
+        }
+    }
     delete((Lua_runner*)self->lua_obj);
     free(self);
     return 0;
 }
 
 /*-------------重定向io操作------------------------*/
+/* Lua 5.2/5.1 无 lua_getextraspace，改用 Registry 固定索引存储 iopath 指针 */
+
+static iopath *get_iopath(lua_State *L)
+{
+    lua_rawgeti(L, LUA_REGISTRYINDEX, IOPATH_REG_IDX);
+    iopath *r = (iopath *)lua_touserdata(L, -1);
+    lua_pop(L, 1);
+    return r;
+}
+
 static const char *full_path(lua_State *L, int isOut)
 {
-    iopath *r = (iopath *)lua_getextraspace(L);
+    iopath *r = get_iopath(L);
     static char buf[512];
     snprintf(buf, sizeof(buf), "%s/%s", r->iopath, isOut ? "output" : "input");
     return buf;
@@ -368,7 +399,7 @@ static const char *full_path(lua_State *L, int isOut)
 //劫持读取终端输入，触发回调
 static int l_tty_read(lua_State *L)
 {
-    iopath *r = (iopath *)lua_getextraspace(L);
+    iopath *r = get_iopath(L);
     if (r->funcs.io_input) r->funcs.io_input();
     const char *fname = full_path(L, 0);
     FILE *fp = fopen(fname, "rb");
@@ -394,7 +425,7 @@ static int l_tty_read(lua_State *L)
 //劫持到终端输出，输出结束触发回调
 static int l_tty_write(lua_State *L)
 {
-    iopath *r = (iopath *)lua_getextraspace(L);
+    iopath *r = get_iopath(L);
     const char *fname = full_path(L, 1);
     FILE *fp = fopen(fname, "a");
     if (!fp) return luaL_error(L, "tty write open fail: %s", fname);
@@ -406,7 +437,7 @@ static int l_tty_write(lua_State *L)
     return 0;
 }
 static int l_print(lua_State *L) {
-    iopath *r = (iopath *)lua_getextraspace(L);
+    iopath *r = get_iopath(L);
     const char *fname = full_path(L, 1);  // 输出到 output 文件
     FILE *fp = fopen(fname, "a");
     if (!fp) return luaL_error(L, "print redirect open fail: %s", fname);
@@ -414,9 +445,18 @@ static int l_print(lua_State *L) {
     int n = lua_gettop(L);
     for (int i = 1; i <= n; ++i) {
         if (i > 1) fputc('\t', fp);
+#if LUA_VERSION_NUM >= 502
         const char *str = luaL_tolstring(L, i, NULL);
+#else
+        /* Lua 5.1 无 luaL_tolstring：lua_tostring 对非字符串做 tostring 元方法转换，
+           转换失败(如 table/function)时返回 NULL，退化为类型名 */
+        const char *str = lua_tostring(L, i);
+        if (!str) str = lua_typename(L, lua_type(L, i));
+#endif
         fputs(str, fp);
-        lua_pop(L, 1);
+#if LUA_VERSION_NUM >= 502
+        lua_pop(L, 1);   /* luaL_tolstring 压入的结果需弹出；lua_tostring 不压栈 */
+#endif
     }
     fputc('\n', fp);
     fclose(fp);
@@ -451,7 +491,15 @@ static void push_tty_file(lua_State *L, int isout, const luaL_Reg *fake_tty_meta
     lua_newuserdata(L, sizeof(int));
     luaL_newmetatable(L, isout ? "tty_out" : "tty_in");
     
+#if LUA_VERSION_NUM >= 502
     luaL_setfuncs(L, fake_tty_meta, 0);
+#else
+    /* Lua 5.1 无 luaL_setfuncs：手动注册函数表 */
+    for (const luaL_Reg *l = fake_tty_meta; l->name; l++) {
+        lua_pushcfunction(L, l->func);
+        lua_setfield(L, -2, l->name);
+    }
+#endif
     lua_pushvalue(L, -1);
     lua_setfield(L, -2, "__index");
     
@@ -475,7 +523,7 @@ int redirecct_path(lua_State *L)
         errno = LUAERR_LUA_STATE;
         return -1;
     }
-    iopath *p = (iopath*)lua_getextraspace(L);
+    iopath *p = get_iopath(L);
     static const luaL_Reg fake_methods[] = {
         {"read",   l_tty_read},
         {"write",  l_tty_write},
@@ -547,15 +595,16 @@ void *init_lua_runner(const char *pathio,const char *pkgpath,int(*input)(),int(*
         errno = LUAERR_LUA_STATE;
         return NULL;
     }
-    iopath *io_path = (iopath*)lua_getextraspace(L);
-    //申请额外空间
+    // Lua 5.2/5.1 无 extraspace：new 一个 iopath 存入 Registry
+    iopath *io_path = new (std::nothrow) iopath();
     if(pathio == NULL)
     {
+        delete io_path;
         goto WITHOUT_REDIRECT;
     }
     
     if(io_path == NULL){
-        errno = LUAERR_CALLBACK;
+        errno = LUAERR_CLASS_LOST;
         return NULL;
     }
 
@@ -564,6 +613,9 @@ void *init_lua_runner(const char *pathio,const char *pkgpath,int(*input)(),int(*
     io_path->funcs.io_output = output;
     //装载重定向路径
     strcpy(io_path->iopath,pathio);
+    //存入 Registry 固定索引供回调取用
+    lua_pushlightuserdata(L, (void*)io_path);
+    lua_rawseti(L, LUA_REGISTRYINDEX, IOPATH_REG_IDX);
     //注册重定向
     if(redirecct_path(L)==-1){
         errno = LUAERR_LUA_STATE;