vendor: 引入 Lua 2.5 官方源码 + 移植评估 (lua_2.5 分支)

- 前 lua_State 时代 API, 比 3.2 更原始(无 upvalue/无独立编译)
- 评估结论: 不建议移植(多实例冲突+管道模式不可实现), 见 doc/ADAPTATION-lua25.md
- 建议历史脚本用 5.1 兼容模式运行替代

lib/lua/include/Makefile

@@ -0,0 +1,17 @@
+# makefile for lua distribution (includes)
+
+LUA= ..
+
+include $(LUA)/config
+
+SRCS= lua.h lualib.h luadebug.h
+
+all:
+
+clean:
+
+co:
+	co -f -M $(SRCS)
+
+klean:	clean
+	rm -f $(SRCS)

lib/lua/include/lua.h

@@ -0,0 +1,116 @@
+/*
+** LUA - Linguagem para Usuarios de Aplicacao
+** Grupo de Tecnologia em Computacao Grafica
+** TeCGraf - PUC-Rio
+** $Id: lua.h,v 3.32 1996/11/20 13:49:32 roberto Exp $
+*/
+
+
+#ifndef lua_h
+#define lua_h
+
+#define LUA_VERSION	"Lua 2.5.1"
+#define LUA_COPYRIGHT	"Copyright (C) 1994-1996 TeCGraf"
+#define LUA_AUTHORS 	"W. Celes, R. Ierusalimschy & L. H. de Figueiredo"
+
+
+/* Private Part */
+ 
+typedef enum
+{
+ LUA_T_NIL	= -1,
+ LUA_T_NUMBER	= -2,
+ LUA_T_STRING	= -3,
+ LUA_T_ARRAY	= -4,
+ LUA_T_FUNCTION	= -5,
+ LUA_T_CFUNCTION= -6,
+ LUA_T_MARK	= -7,
+ LUA_T_CMARK	= -8,
+ LUA_T_LINE	= -9,
+ LUA_T_USERDATA = 0
+} lua_Type;
+ 
+
+/* Public Part */
+
+#define LUA_NOOBJECT  0
+
+typedef void (*lua_CFunction) (void);
+typedef unsigned int lua_Object;
+
+lua_Object     lua_setfallback		(char *name, lua_CFunction fallback);
+
+void           lua_error		(char *s);
+int            lua_dofile 		(char *filename);
+int            lua_dostring 		(char *string);
+int            lua_callfunction		(lua_Object function);
+int	       lua_call			(char *funcname);
+
+void	       lua_beginblock		(void);
+void	       lua_endblock		(void);
+
+lua_Object     lua_getparam 		(int number);
+#define	       lua_getresult(_)		lua_getparam(_)
+
+#define        lua_isnil(_)             (lua_type(_)==LUA_T_NIL)
+#define        lua_istable(_)           (lua_type(_)==LUA_T_ARRAY)
+#define        lua_isuserdata(_)        (lua_type(_)>=LUA_T_USERDATA)
+#define        lua_iscfunction(_)       (lua_type(_)==LUA_T_CFUNCTION)
+int            lua_isnumber             (lua_Object object);
+int            lua_isstring             (lua_Object object);
+int            lua_isfunction           (lua_Object object);
+
+float          lua_getnumber 		(lua_Object object);
+char          *lua_getstring 		(lua_Object object);
+lua_CFunction  lua_getcfunction 	(lua_Object object);
+void          *lua_getuserdata  	(lua_Object object);
+
+void 	       lua_pushnil 		(void);
+void           lua_pushnumber 		(float n);
+void           lua_pushstring 		(char *s);
+void           lua_pushcfunction	(lua_CFunction fn);
+void           lua_pushusertag     	(void *u, int tag);
+void           lua_pushobject       	(lua_Object object);
+
+lua_Object     lua_getglobal 		(char *name);
+void           lua_storeglobal		(char *name);
+
+void           lua_storesubscript	(void);
+lua_Object     lua_getsubscript         (void);
+
+int            lua_type 		(lua_Object object);
+
+
+int            lua_ref			(int lock);
+lua_Object     lua_getref		(int ref);
+void	       lua_pushref		(int ref);
+void	       lua_unref		(int ref);
+
+lua_Object     lua_createtable		(void);
+
+
+/* some useful macros */
+
+#define lua_refobject(o,l)	(lua_pushobject(o), lua_ref(l))
+
+#define lua_register(n,f)	(lua_pushcfunction(f), lua_storeglobal(n))
+
+#define lua_pushuserdata(u)     lua_pushusertag(u, LUA_T_USERDATA)
+
+
+/* for compatibility with old versions. Avoid using these macros */
+
+#define lua_lockobject(o)  lua_refobject(o,1)
+#define	lua_lock() lua_ref(1)
+#define lua_getlocked lua_getref
+#define	lua_pushlocked lua_pushref
+#define	lua_unlock lua_unref
+
+#define lua_pushliteral(o)  lua_pushstring(o)
+
+#define lua_getindexed(o,n) (lua_pushobject(o), lua_pushnumber(n), lua_getsubscript())
+#define lua_getfield(o,f)   (lua_pushobject(o), lua_pushliteral(f), lua_getsubscript())
+
+#define lua_copystring(o) (strdup(lua_getstring(o)))
+
+#endif

lib/lua/include/luadebug.h

@@ -0,0 +1,31 @@
+/*
+** LUA - Linguagem para Usuarios de Aplicacao
+** Grupo de Tecnologia em Computacao Grafica
+** TeCGraf - PUC-Rio
+** $Id: luadebug.h,v 1.6 1996/03/20 17:05:44 roberto Exp $
+*/
+
+
+#ifndef luadebug_h
+#define luadebug_h
+
+#include "lua.h"
+
+typedef lua_Object lua_Function;
+
+typedef void (*lua_LHFunction) (int line);
+typedef void (*lua_CHFunction) (lua_Function func, char *file, int line);
+
+lua_Function lua_stackedfunction (int level);
+void lua_funcinfo (lua_Object func, char **filename, int *linedefined);
+int lua_currentline (lua_Function func);
+char *lua_getobjname (lua_Object o, char **name);
+
+lua_Object lua_getlocal (lua_Function func, int local_number, char **name);
+int lua_setlocal (lua_Function func, int local_number);
+
+extern lua_LHFunction lua_linehook;
+extern lua_CHFunction lua_callhook;
+extern int lua_debug;
+
+#endif

lib/lua/include/lualib.h

@@ -0,0 +1,38 @@
+/*
+** Libraries to be used in LUA programs
+** Grupo de Tecnologia em Computacao Grafica
+** TeCGraf - PUC-Rio
+** $Id: lualib.h,v 1.10 1996/08/05 20:55:24 roberto Exp $
+*/
+
+#ifndef lualib_h
+#define lualib_h
+
+#include "lua.h"
+
+void iolib_open   (void);
+void strlib_open  (void);
+void mathlib_open (void);
+
+
+/* auxiliar functions (private) */
+
+struct lua_reg {
+  char *name;
+  lua_CFunction func;
+};
+
+void luaI_openlib (struct lua_reg *l, int n);
+void lua_arg_check(int cond, char *funcname);
+char *lua_check_string (int numArg, char *funcname);
+char *lua_opt_string (int numArg, char *def, char *funcname);
+double lua_check_number (int numArg, char *funcname);
+long lua_opt_number (int numArg, long def, char *funcname);
+char *luaI_addchar (int c);
+void luaI_addquoted (char *s);
+
+char *item_end (char *p);
+int singlematch (int c, char *p);
+
+#endif
+