vendor: 引入 Lua 4.0.1 官方源码 + 移植评估文档 (lua_4.0 分支)

- Lua 4.0 是首个引入 lua_State* 的版本, 但 API 与 5.x 代际差异大
- 桥接层适配要点与工作量评估见 doc/ADAPTATION-lua40.md
- 本分支暂不承诺可编译, 后续按需移植

lib/lua/lapi.h

@@ -1,5 +1,5 @@
 /*
-** $Id: lapi.h $
+** $Id: lapi.h,v 1.20 2000/08/31 14:08:27 roberto Exp $
 ** Auxiliary functions from Lua API
 ** See Copyright Notice in lua.h
 */
@@ -8,58 +8,10 @@
 #define lapi_h
 
 
-#include "llimits.h"
-#include "lstate.h"
+#include "lobject.h"
 
 
-#if defined(LUA_USE_APICHECK)
-#include <assert.h>
-#define api_check(l,e,msg)	assert(e)
-#else	/* for testing */
-#define api_check(l,e,msg)	((void)(l), lua_assert((e) && msg))
-#endif
-
-
-
-/* Increments 'L->top.p', checking for stack overflows */
-#define api_incr_top(L)  \
-    (L->top.p++, api_check(L, L->top.p <= L->ci->top.p, "stack overflow"))
-
-
-/*
-** macros that are executed whenever program enters the Lua core
-** ('lua_lock') and leaves the core ('lua_unlock')
-*/
-#if !defined(lua_lock)
-#define lua_lock(L)	((void) 0)
-#define lua_unlock(L)	((void) 0)
-#endif
-
-
-
-/*
-** If a call returns too many multiple returns, the callee may not have
-** stack space to accommodate all results. In this case, this macro
-** increases its stack space ('L->ci->top.p').
-*/
-#define adjustresults(L,nres) \
-    { if ((nres) <= LUA_MULTRET && L->ci->top.p < L->top.p) \
-	L->ci->top.p = L->top.p; }
-
-
-/* Ensure the stack has at least 'n' elements */
-#define api_checknelems(L,n) \
-       api_check(L, (n) < (L->top.p - L->ci->func.p), \
-                         "not enough elements in the stack")
-
-
-/* Ensure the stack has at least 'n' elements to be popped. (Some
-** functions only update a slot after checking it for popping, but that
-** is only an optimization for a pop followed by a push.)
-*/
-#define api_checkpop(L,n) \
-	api_check(L, (n) < L->top.p - L->ci->func.p &&  \
-                     L->tbclist.p < L->top.p - (n), \
-			  "not enough free elements in the stack")
+TObject *luaA_index (lua_State *L, int index);
+void luaA_pushobject (lua_State *L, const TObject *o);
 
 #endif