vendor: 引入 Lua 5.0.3 官方源码 (lua_5.0 分支)

桥接层适配尚未完成。Lua 5.0 与 5.1+ 差异显著:
- 无 linit.c/loslib.c(luaopen_os 混于 liolib.c)
- 无 luaL_setfuncs/lua_getextraspace/lua_isinteger
- 无 LUA_REGISTRYINDEX 现代用法差异需逐一核对
后续移植需按 ADAPTATION.md 指引重写 I/O 重定向与 typed interop 层

lib/lua/lzio.h

@@ -1,5 +1,5 @@
 /*
-** $Id: lzio.h $
+** $Id: lzio.h,v 1.15 2003/03/20 16:00:56 roberto Exp $
 ** Buffered streams
 ** See Copyright Notice in lua.h
 */
@@ -10,58 +10,55 @@
 
 #include "lua.h"
 
-#include "lmem.h"
-
 
 #define EOZ	(-1)			/* end of stream */
 
 typedef struct Zio ZIO;
 
-#define zgetc(z)  (((z)->n--)>0 ?  cast_uchar(*(z)->p++) : luaZ_fill(z))
+
+#define char2int(c)	cast(int, cast(unsigned char, (c)))
+
+#define zgetc(z)  (((z)->n--)>0 ?  char2int(*(z)->p++) : luaZ_fill(z))
+
+#define zname(z)	((z)->name)
+
+void luaZ_init (ZIO *z, lua_Chunkreader reader, void *data, const char *name);
+size_t luaZ_read (ZIO* z, void* b, size_t n);	/* read next n bytes */
+int luaZ_lookahead (ZIO *z);
+
 
 
 typedef struct Mbuffer {
   char *buffer;
-  size_t n;
   size_t buffsize;
 } Mbuffer;
 
+
+char *luaZ_openspace (lua_State *L, Mbuffer *buff, size_t n);
+
 #define luaZ_initbuffer(L, buff) ((buff)->buffer = NULL, (buff)->buffsize = 0)
 
-#define luaZ_buffer(buff)	((buff)->buffer)
 #define luaZ_sizebuffer(buff)	((buff)->buffsize)
-#define luaZ_bufflen(buff)	((buff)->n)
-
-#define luaZ_buffremove(buff,i)	((buff)->n -= cast_sizet(i))
-#define luaZ_resetbuffer(buff) ((buff)->n = 0)
-
+#define luaZ_buffer(buff)	((buff)->buffer)
 
 #define luaZ_resizebuffer(L, buff, size) \
-	((buff)->buffer = luaM_reallocvchar(L, (buff)->buffer, \
-				(buff)->buffsize, size), \
+	(luaM_reallocvector(L, (buff)->buffer, (buff)->buffsize, size, char), \
 	(buff)->buffsize = size)
 
 #define luaZ_freebuffer(L, buff)	luaZ_resizebuffer(L, buff, 0)
 
 
-LUAI_FUNC void luaZ_init (lua_State *L, ZIO *z, lua_Reader reader,
-                                        void *data);
-LUAI_FUNC size_t luaZ_read (ZIO* z, void *b, size_t n);	/* read next n bytes */
-
-LUAI_FUNC const void *luaZ_getaddr (ZIO* z, size_t n);
-
-
 /* --------- Private Part ------------------ */
 
 struct Zio {
   size_t n;			/* bytes still unread */
   const char *p;		/* current position in buffer */
-  lua_Reader reader;		/* reader function */
-  void *data;			/* additional data */
-  lua_State *L;			/* Lua state (for reader) */
+  lua_Chunkreader reader;
+  void* data;			/* additional data */
+  const char *name;
 };
 
 
-LUAI_FUNC int luaZ_fill (ZIO *z);
+int luaZ_fill (ZIO *z);
 
 #endif