lua headers including lua.5.2

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@2974 b956fd51-792f-4845-bead-9b4dfca2ff2c

1 files changed, 654 insertions, 213 deletions

diff --git a/src/lib/Lua/ULua.pas b/src/lib/Lua/ULua.pas
index 59161dde..763e0549 100644
--- a/src/lib/Lua/ULua.pas
+++ b/src/lib/Lua/ULua.pas
@@ -14,35 +14,49 @@ interface
   {$MODE Delphi}
 {$ENDIF}
 
-{$IFDEF UNIX}
+{$DEFINE HaveCONFIG}
+
+{$IFDEF HaveCONFIG}
 uses
-  dl,
   UConfig;
+{$ELSE}
+const
+  {$IFNDEF lua_VERSION_MAJOR}
+  LUA_VERSION_MAJOR = '5';
+  {$ENDIF}
+  {$IFNDEF lua_VERSION_MINOR}
+  LUA_VERSION_MINOR = '1';
+  {$ENDIF}
+  {$IFNDEF lua_VERSION_RELEASE}
+  LUA_VERSION_RELEASE = '4';
+  {$ENDIF}
+  LUA_VERSION_INT = 1000000*(ord(LUA_VERSION_MAJOR) - ord('0')) + 1000*(ord(LUA_VERSION_MINOR) - ord('0')) + lua_VERSION_RELEASE;
 {$ENDIF}
 
-{$DEFINE LUA51}
-
-type
-  size_t   = type Cardinal;
-  Psize_t  = ^size_t;
-  PPointer = ^Pointer;
-
-  lua_State = record end;
-  Plua_State = ^lua_State;
-
 const
+  LUA_VERSION_NUM =     100*(ord(LUA_VERSION_MAJOR) - ord('0')) +       ord(LUA_VERSION_MINOR) - ord('0');
+
 {$IFDEF WIN32}
-  LuaDLL = 'lua5.1.dll';
+  LUA_LIB_NAME = 'lua' + LUA_VERSION_MAJOR + '.' + lua_VERSION_MINOR + '.dll';
 {$ENDIF}
 {$IFDEF UNIX}
   {$IFDEF DARWIN}
-    LuaDLL = 'liblua.dylib';
+    LUA_LIB_NAME = 'liblua.dylib';
     {$linklib liblua}
   {$ELSE}
-    LuaDLL = lua_lib_name;
+    LUA_LIB_NAME = lua_lib_name;
   {$ENDIF}
 {$ENDIF}
 
+type
+  size_t   = Cardinal;
+  Psize_t  = ^size_t;
+  PPointer = ^Pointer;
+  ptrdiff_t = LongInt;
+
+  lua_State = record end;
+  Plua_State = ^lua_State;
+
 (* formats for Lua numbers *)
 {$IFNDEF LUA_NUMBER_SCAN}
 const
@@ -64,17 +78,31 @@ const
 ** See Copyright Notice in lua.h
 *)
 
+type
 (*
-** {==================================================================
+** ==================================================================
 @@ LUA_NUMBER is the type of numbers in Lua.
 ** CHANGE the following definitions only if you want to build Lua
 ** with a number type different from double. You may also need to
 ** change lua_number2int & lua_number2integer.
 ** ===================================================================
 *)
-type
-  LUA_NUMBER_  = type Double;            // ending underscore is needed in Pascal
-  LUA_INTEGER_ = type Integer;
+  LUA_NUMBER_   = type Double;            // ending underscore is needed in Pascal
+
+(*
+@@ LUA_INTEGER is the integral type used by lua_pushinteger/lua_tointeger.
+** CHANGE that if ptrdiff_t is not adequate on your machine. (On most
+** machines, ptrdiff_t gives a good choice between int or long.)
+*)
+  LUA_INTEGER_  = type ptrdiff_t;
+
+{$IF LUA_VERSION_NUM >= 502}
+(*
+@@ LUA_UNSIGNED is the integral type used by lua_pushunsigned/lua_tounsigned.
+** It must have at least 32 bits.
+*)
+  LUA_UNSIGNED_ = type UInt32;
+{$IFEND}
 
 (*
 @@ LUA_IDSIZE gives the maximum size for the description of the source
@@ -90,6 +118,7 @@ const
 const
   LUAL_BUFFERSIZE = 1024;
 
+{$IF LUA_VERSION_NUM = 501}
 (*
 @@ LUA_PROMPT is the default prompt used by stand-alone Lua.
 @@ LUA_PROMPT2 is the default continuation prompt used by stand-alone Lua.
@@ -124,6 +153,60 @@ procedure lua_freeline(L : Plua_State; b : PChar);
 *)
 const
   lua_stdin_is_tty = TRUE;
+{$IFEND}
+
+(*
+@@ LUAI_BITSINT defines the number of bits in an int.
+** CHANGE here if Lua cannot automatically detect the number of bits of
+** your machine. Probably you do not need to change this.
+*)
+(* avoid overflows in comparison *)
+{$IF MaxInt < 32780}
+  LUAI_BITSINT = 16;
+{$ELSEIF MaxInt > 2147483640}
+(* int has at least 32 bits *)
+  LUAI_BITSINT = 32;
+{$ELSE}
+  {$INFO You must define LUA_BITSINT with number of bits in an integer}
+{$ENDIF}
+
+(*
+@@ LUA_INT32 is an signed integer with exactly 32 bits.
+@@ LUAI_UMEM is an unsigned integer big enough to count the total
+@* memory used by Lua.
+@@ LUAI_MEM is a signed integer big enough to count the total memory
+@* used by Lua.
+** CHANGE here if for some weird reason the default definitions are not
+** good enough for your machine. Probably you do not need to change
+** this.
+*)
+type
+{$IF LUAI_BITSINT >= 32}
+  LUA_INT32 = Integer;
+  LUAI_UMEM = UInt32;
+  LUAI_MEM  = ptrdiff_t;
+{$ELSE}
+(* 16-bit ints *)
+  LUA_INT32 = long;
+  LUAI_UMEM = unsigned long;
+  LUAI_MEM  = long;
+{$ENDIF}
+
+(*
+@@ LUAI_MAXSTACK limits the size of the Lua stack.
+** CHANGE it if you need a different limit. This limit is arbitrary;
+** its only purpose is to stop Lua to consume unlimited stack
+** space (and to reserve some numbers for pseudo-indices).
+*)
+const
+{$IF LUAI_BITSINT >= 32}
+  LUAI_MAXSTACK = 1000000;
+{$ELSE}
+  LUAI_MAXSTACK = 15000;
+{$ENDIF}
+
+(* reserve some space for error handling *)
+  LUAI_FIRSTPSEUDOIDX = -LUAI_MAXSTACK - 1000;
 
 (*****************************************************************************)
 (*                                  lua.h                                    *)
@@ -138,54 +221,64 @@ const
 
 const
   LUA_VERSION     = 'Lua ' + LUA_VERSION_MAJOR + '.' + LUA_VERSION_MINOR;
-  LUA_VERSION_NUM = 100*(ord(LUA_VERSION_MAJOR) - ord('0')) + (ord(LUA_VERSION_MINOR) - ord('0'));
+  LUA_RELEASE     = LUA_VERSION + '.' + LUA_VERSION_RELEASE;
   LUA_COPYRIGHT   = 'Copyright (C) 1994-2006 Tecgraf, PUC-Rio';
   LUA_AUTHORS     = 'R. Ierusalimschy, L. H. de Figueiredo & W. Celes';
 
-  (* mark for precompiled code (`<esc>Lua') *)
+(* mark for precompiled code ('<esc>Lua') *)
   LUA_SIGNATURE = #27'Lua';
 
-  (* option for multiple returns in `lua_pcall' and `lua_call' *)
+(* option for multiple returns in `lua_pcall' and `lua_call' *)
   LUA_MULTRET = -1;
 
-  (*
-  ** pseudo-indices
-  *)
+(*
+** pseudo-indices
+*)
+{$IF LUA_VERSION_NUM = 501}
   LUA_REGISTRYINDEX = -10000;
   LUA_ENVIRONINDEX  = -10001;
   LUA_GLOBALSINDEX  = -10002;
+{$ELSEIF LUA_VERSION_NUM >= 502}
+  LUA_REGISTRYINDEX = LUAI_FIRSTPSEUDOIDX;
+{$IFEND}
 
 function lua_upvalueindex(idx : Integer) : Integer;   // a marco
 
 const
   (* thread status; 0 is OK *)
+{$IF LUA_VERSION_NUM >= 502}
+  LUA_OK        = 0;
+{$IFEND}
   LUA_YIELD_    = 1;     // Note: the ending underscore is needed in Pascal
   LUA_ERRRUN    = 2;
   LUA_ERRSYNTAX = 3;
   LUA_ERRMEM    = 4;
   LUA_ERRERR    = 5;
+{$IF LUA_VERSION_NUM >= 502}
+  LUA_ERRERR    = 6;
+{$IFEND}
 
 type
   lua_CFunction = function(L : Plua_State) : Integer; cdecl;
 
-  (*
-  ** functions that read/write blocks when loading/dumping Lua chunks
-  *)
+(*
+** functions that read/write blocks when loading/dumping Lua chunks
+*)
   lua_Reader = function (L : Plua_State; ud : Pointer;
                          sz : Psize_t) : PChar; cdecl;
   lua_Writer = function (L : Plua_State; const p : Pointer; sz : size_t;
                          ud : Pointer) : Integer; cdecl;
 
-  (*
-  ** prototype for memory-allocation functions
-  *)
+(*
+** prototype for memory-allocation functions
+*)
   lua_Alloc = function (ud, ptr : Pointer;
                         osize, nsize : size_t) : Pointer; cdecl;
 
 const
-  (*
-  ** basic types
-  *)
+(*
+** basic types
+*)
   LUA_TNONE          = -1;
 
   LUA_TNIL           = 0;
@@ -197,190 +290,307 @@ const
   LUA_TFUNCTION      = 6;
   LUA_TUSERDATA	     = 7;
   LUA_TTHREAD        = 8;
+{$IF LUA_VERSION_NUM >= 502}
+  LUA_NUMTAGS        = 9;
+{$IFEND}
 
-  (* minimum Lua stack available to a C function *)
+(* minimum Lua stack available to a C function *)
   LUA_MINSTACK = 20;
 
+{$IF LUA_VERSION_NUM >= 502}
+(* predefined values in the registry *)
+  LUA_RIDX_MAINTHREAD = 1;
+  LUA_RIDX_GLOBALS    = 2;
+  LUA_RIDX_LAST       = LUA_RIDX_GLOBALS;
+{$IFEND}
+
 type
-  (* type of numbers in Lua *)
+(* type of numbers in Lua *)
   lua_Number = LUA_NUMBER_;
 
-  (* type for integer functions *)
+(* type for integer functions *)
   lua_Integer = LUA_INTEGER_;
 
+{$IF LUA_VERSION_NUM >= 502}
+(* unsigned integer type *)
+  LUA_UNSIGNED = lua_Unsigned_;
+{$IFEND}
+
 (*
 ** state manipulation
 *)
 function  lua_newstate(f : lua_Alloc; ud : Pointer) : Plua_State;
-  cdecl; external LuaDLL;
-procedure lua_close(L: Plua_State);
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
+procedure lua_close(L : Plua_State);
+  cdecl; external LUA_LIB_NAME;
 function  lua_newthread(L : Plua_State) : Plua_State;
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
 
 function  lua_atpanic(L : Plua_State; panicf : lua_CFunction) : lua_CFunction;
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
+
+{$IF LUA_VERSION_NUM >= 502}
+function  lua_version(L : Plua_State) : Plua_Number;
+  cdecl; external LUA_LIB_NAME;
+{$IFEND}
 
 
 (*
 ** basic stack manipulation
 *)
+{$IF LUA_VERSION_NUM >= 502}
+function  lua_absindex(L : Plua_State; idx : Integer) : Integer;
+  cdecl; external LUA_LIB_NAME;
+{$IFEND}
 function  lua_gettop(L : Plua_State) : Integer;
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
 procedure lua_settop(L : Plua_State; idx : Integer);
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
 procedure lua_pushvalue(L : Plua_State; idx : Integer);
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
 procedure lua_remove(L : Plua_State; idx : Integer);
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
 procedure lua_insert(L : Plua_State; idx : Integer);
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
 procedure lua_replace(L : Plua_State; idx : Integer);
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
 function  lua_checkstack(L : Plua_State; sz : Integer) : LongBool;
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
 
 procedure lua_xmove(src, dest : Plua_State; n : Integer);
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
 
 
 (*
 ** access functions (stack -> C)
 *)
 function lua_isnumber(L : Plua_State; idx : Integer) : LongBool;
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
 function lua_isstring(L : Plua_State; idx : Integer) : LongBool;
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
 function lua_iscfunction(L : Plua_State; idx : Integer) : LongBool;
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
 function lua_isuserdata(L : Plua_State; idx : Integer) : LongBool;
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
 function lua_type(L : Plua_State; idx : Integer) : Integer;
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
 function lua_typename(L : Plua_State; tp : Integer) : PChar;
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
 
+{$IF LUA_VERSION_NUM = 501}
 function lua_equal(L : Plua_State; idx1, idx2 : Integer) : LongBool;
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
 function lua_rawequal(L : Plua_State; idx1, idx2 : Integer) : LongBool;
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
 function lua_lessthan(L : Plua_State; idx1, idx2 : Integer) : LongBool;
-  cdecl; external LuaDLL;
-
+  cdecl; external LUA_LIB_NAME;
 function lua_tonumber(L : Plua_State; idx : Integer) : lua_Number;
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
 function lua_tointeger(L : Plua_State; idx : Integer) : lua_Integer;
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
+{$ELSEIF LUA_VERSION_NUM >= 502}
+function lua_tonumberx(L : Plua_State; idx : Integer; isnum: PInteger) : lua_Number;
+  cdecl; external LUA_LIB_NAME;
+function lua_tointegerx(L : Plua_State; idx : Integer; isnum: PInteger) : lua_Integer;
+  cdecl; external LUA_LIB_NAME;
+function lua_tounsignedx(L : Plua_State; idx : Integer; isnum : PInteger) : lua_Unsigned;
+  cdecl; external LUA_LIB_NAME;
+{$IFEND}
 function lua_toboolean(L : Plua_State; idx : Integer) : LongBool;
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
 function lua_tolstring(L : Plua_State; idx : Integer;
                        len : Psize_t) : PChar;
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
+{$IF LUA_VERSION_NUM = 501}
 function lua_objlen(L : Plua_State; idx : Integer) : size_t;
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
+{$ELSEIF LUA_VERSION_NUM >= 502}
+function lua_rawlen(L : Plua_State; idx : Integer) : size_t;
+  cdecl; external LUA_LIB_NAME;
+{$IFEND}
 function lua_tocfunction(L : Plua_State; idx : Integer) : lua_CFunction;
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
 function lua_touserdata(L : Plua_State; idx : Integer) : Pointer;
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
 function lua_tothread(L : Plua_State; idx : Integer) : Plua_State;
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
 function lua_topointer(L : Plua_State; idx : Integer) : Pointer;
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
 
+{$IF LUA_VERSION_NUM >= 502}
+(*
+ ** Comparison and arithmetic functions
+ *)
+
+const
+  LUA_OPADD = 0;       (* ORDER TM *)
+  LUA_OPSUB = 1;
+  LUA_OPMUL = 2;
+  LUA_OPDIV = 3;
+  LUA_OPMOD = 4;
+  LUA_OPPOW = 5;
+  LUA_OPUNM = 6;
+
+procedure lua_arith(L : Plua_State; op : Integer); cdecl;
+
+const
+  LUA_OPEQ = 0;
+  LUA_OPLT = 1;
+  LUA_OPLE = 2,
+
+function lua_rawequal (L : Plua_State; idx1 : Integer; idx2 : Integer) : Integer;
+  cdecl; external LUA_LIB_NAME;
+function lua_compare  (L : Plua_State; idx1 : Integer; idx2 : Integer; op : Integer) : Integer;
+  cdecl; external LUA_LIB_NAME;
+{$IFEND}
 
 (*
 ** push functions (C -> stack)
 *)
 procedure lua_pushnil(L : Plua_State);
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
 procedure lua_pushnumber(L : Plua_State; n : lua_Number);
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
 procedure lua_pushinteger(L : Plua_State; n : lua_Integer);
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
+{$IF LUA_VERSION_NUM = 501}
+procedure lua_pushlstring(L : Plua_State; const s : PChar; ls : size_t);
+  cdecl; external LUA_LIB_NAME;
+procedure lua_pushstring(L : Plua_State; const s : PChar);
+  cdecl; external LUA_LIB_NAME;
+{$ELSEIF LUA_VERSION_NUM >= 502}
+procedure lua_pushunsigned(L : Plua_State; n : lua_Unsigned);
+  cdecl; external LUA_LIB_NAME;
 procedure lua_pushlstring(L : Plua_State; const s : PChar; ls : size_t);
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
 procedure lua_pushstring(L : Plua_State; const s : PChar);
-  cdecl; external LuaDLL;
-function  lua_pushvfstring(L : Plua_State;
-                           const fmt : PChar; argp : Pointer) : PChar;
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
+{$IFEND}
+function  lua_pushvfstring(L : Plua_State; const fmt : PChar; argp : Pointer) : PChar;
+  cdecl; external LUA_LIB_NAME;
 function  lua_pushfstring(L : Plua_State; const fmt : PChar) : PChar; varargs;
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
 procedure lua_pushcclosure(L : Plua_State; fn : lua_CFunction; n : Integer);
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
 procedure lua_pushboolean(L : Plua_State; b : LongBool);
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
 procedure lua_pushlightuserdata(L : Plua_State; p : Pointer);
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
 function  lua_pushthread(L : Plua_state) : Cardinal;
-  cdecl; external LuaDLL;
-
+  cdecl; external LUA_LIB_NAME;
 
 (*
 ** get functions (Lua -> stack)
 *)
-procedure lua_gettable(L : Plua_State ; idx : Integer);
-  cdecl; external LuaDLL;
+{$IF LUA_VERSION_NUM >= 502}
+procedure lua_getglobal(L : Plua_State; var_: PChar);
+  cdecl; external LUA_LIB_NAME;
+{$IFEND}
+procedure lua_gettable(L : Plua_State; idx : Integer);
+  cdecl; external LUA_LIB_NAME;
 procedure lua_getfield(L : Plua_State; idx : Integer; k : PChar);
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
 procedure lua_rawget(L : Plua_State; idx : Integer);
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
 procedure lua_rawgeti(L : Plua_State; idx, n : Integer);
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
+{$IF LUA_VERSION_NUM >= 502}
+procedure lua_rawgetp(L : Plua_State; idx : Integer; p : Pointer);
+  cdecl; external LUA_LIB_NAME;
+{$IFEND}
 procedure lua_createtable(L : Plua_State; narr, nrec : Integer);
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
 function  lua_newuserdata(L : Plua_State; sz : size_t) : Pointer;
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
 function  lua_getmetatable(L : Plua_State; objindex : Integer) : LongBool;
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
+{$IF LUA_VERSION_NUM = 501}
 procedure lua_getfenv(L : Plua_State; idx : Integer);
-  cdecl; external LuaDLL;
-
+  cdecl; external LUA_LIB_NAME;
+{$ELSEIF LUA_VERSION_NUM >= 502}
+procedure lua_getuservalue(L : Plua_State; idx : Integer);
+  cdecl; external LUA_LIB_NAME;
+{$IFEND}
 
 (*
 ** set functions (stack -> Lua)
 *)
+{$IF LUA_VERSION_NUM >= 502}
+procedure lua_setglobal(L : Plua_State; var_: PChar);
+  cdecl; external LUA_LIB_NAME;
+{$IFEND}
 procedure lua_settable(L : Plua_State; idx : Integer);
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
 procedure lua_setfield(L : Plua_State; idx : Integer; const k : PChar);
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
 procedure lua_rawset(L : Plua_State; idx : Integer);
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
 procedure lua_rawseti(L : Plua_State; idx , n: Integer);
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
+{$IF LUA_VERSION_NUM >= 502}
+procedure lua_rawsetp(L : Plua_State; idx : Integer; p : Pointer);
+  cdecl; external LUA_LIB_NAME;
+{$IFEND}
 function lua_setmetatable(L : Plua_State; objindex : Integer): LongBool;
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
+{$IF LUA_VERSION_NUM = 501}
 function lua_setfenv(L : Plua_State; idx : Integer): LongBool;
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
+{$ELSEIF LUA_VERSION_NUM >= 502}
+procedure lua_setuservalue(L : Plua_State; idx : Integer);
+  cdecl; external LUA_LIB_NAME;
+{$IFEND}
 
 (*
-** `load' and `call' functions (load and run Lua code)
+** 'load' and 'call' functions (load and run Lua code)
 *)
+{$IF LUA_VERSION_NUM = 501}
+procedure lua_call(L : Plua_State; nargs, nresults : Integer);
+  cdecl; external LUA_LIB_NAME;
+function  lua_pcall(L : Plua_State; nargs, nresults, errfunc : Integer) : Integer;
+  cdecl; external LUA_LIB_NAME;
+function  lua_cpcall(L : Plua_State; func : lua_CFunction; ud : Pointer) : Integer;
+  cdecl; external LUA_LIB_NAME;
+function  lua_load(L : Plua_State; reader : lua_Reader; dt : Pointer; const chunkname : PChar) : Integer;
+  cdecl; external LUA_LIB_NAME;
+{$ELSEIF LUA_VERSION_NUM >= 502}
+procedure lua_callk(L : Plua_State; nargs, nresults, ctx : Integer; k : lua_CFunction);
+  cdecl; external LUA_LIB_NAME;
 procedure lua_call(L : Plua_State; nargs, nresults : Integer);
-  cdecl; external LuaDLL;
-function  lua_pcall(L : Plua_State;
-                    nargs, nresults, errfunc : Integer) : Integer;
-  cdecl; external LuaDLL;
-function  lua_cpcall(L : Plua_State;
-                     func : lua_CFunction; ud : Pointer) : Integer;
-  cdecl; external LuaDLL;
-function  lua_load(L : Plua_State; reader : lua_Reader;
-                   dt : Pointer; const chunkname : PChar) : Integer;
-  cdecl; external LuaDLL;
 
-function lua_dump(L : Plua_State; writer : lua_Writer; data: Pointer) : Integer;
-  cdecl; external LuaDLL;
+function  lua_getctx(L : Plua_State; ctx : PInteger) : Integer;
+  cdecl; external LUA_LIB_NAME;
 
+function  lua_pcallk(L : Plua_State; nargs, nresults, errfunc : Integer;
+                     ctx : Integer; k : lua_CFunction) : Integer;
+  cdecl; external LUA_LIB_NAME;
+function  lua_pcall(L : Plua_State; nargs, nresults, errfunc : Integer) : Integer;
+
+function  lua_load(L : Plua_State; reader : lua_Reader; dt : Pointer; 
+                   const chunkname : PChar;
+		   const mode : PChar) : Integer;
+  cdecl; external LUA_LIB_NAME;
+{$IFEND}
+
+function lua_dump(L : Plua_State; writer : lua_Writer; data: Pointer) : Integer;
+  cdecl; external LUA_LIB_NAME;
 
 (*
 ** coroutine functions
 *)
+{$IF LUA_VERSION_NUM = 501}
 function lua_yield(L : Plua_State; nresults : Integer) : Integer;
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
+{$ELSEIF LUA_VERSION_NUM >= 502}
+function lua_yieldk(L : Plua_State; nresults, ctx : Integer;
+                    k : lua_CFunction) : Integer;
+  cdecl; external LUA_LIB_NAME;
+function lua_yield(L : Plua_State; n : Integer) : Integer;//          lua_yieldk(L, (n), 0, NULL)
+{$IFEND}
 function lua_resume(L : Plua_State; narg : Integer) : Integer;
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
 function lua_status(L : Plua_State) : Integer;
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
 
 (*
 ** garbage-collection functions and options
@@ -394,32 +604,48 @@ const
   LUA_GCSTEP       = 5;
   LUA_GCSETPAUSE   = 6;
   LUA_GCSETSTEPMUL = 7;
+{$IF LUA_VERSION_NUM >= 502}
+  LUA_GCSETMAJORINC = 8;
+  LUA_GCISRUNNING   = 9;
+  LUA_GCGEN         = 10;
+  LUA_GCINC         = 11;
+{$IFEND}
 
 function lua_gc(L : Plua_State; what, data : Integer) : Integer;
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
 
 (*
 ** miscellaneous functions
 *)
 function lua_error(L : Plua_State) : Integer;
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
 
 function lua_next(L : Plua_State; idx : Integer) : Integer;
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
 
 procedure lua_concat(L : Plua_State; n : Integer);
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
+
+{$IF LUA_VERSION_NUM >= 502}
+procedure lua_len(L : Plua_State; idx : Integer);
+  cdecl; external LUA_LIB_NAME;
+{$IFEND}
 
 function  lua_getallocf(L : Plua_State; ud : PPointer) : lua_Alloc;
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
 procedure lua_setallocf(L : Plua_State; f : lua_Alloc; ud : Pointer);
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
 
 (*
 ** ===============================================================
 ** some useful macros
 ** ===============================================================
 *)
+{$IF LUA_VERSION_NUM >= 502}
+procedure lua_tonumber(L : Plua_State; i : Integer);    //   lua_tonumberx(L,i,NULL)
+procedure lua_tointeger(L : Plua_State; i : Integer);   //   lua_tointegerx(L,i,NULL)
+procedure lua_tounsigned(L : Plua_State; i : Integer);  //   lua_tounsignedx(L,i,NULL)
+{$IFEND}
 procedure lua_pop(L : Plua_State; n : Integer);
 
 procedure lua_newtable(L : Plua_State);
@@ -428,7 +654,9 @@ procedure lua_register(L : Plua_State; n : PChar; f : lua_CFunction);
 
 procedure lua_pushcfunction(L : Plua_State; f : lua_CFunction);
 
+{$IF LUA_VERSION_NUM = 501}
 function  lua_strlen(L : Plua_State; idx : Integer) : Integer;
+{$IFEND}
 
 function lua_isfunction(L : Plua_State; n : Integer) : Boolean;
 function lua_istable(L : Plua_State; n : Integer) : Boolean;
@@ -447,6 +675,7 @@ procedure lua_getglobal(L : Plua_State; s : PChar);
 function lua_tostring(L : Plua_State; idx : Integer) : PChar;
 
 
+{$IF LUA_VERSION_NUM = 501}
 (*
 ** compatibility macros and functions
 *)
@@ -457,13 +686,19 @@ procedure lua_getregistry(L : Plua_State);
 function lua_getgccount(L : Plua_State) : Integer;
 
 type
-  lua_Chuckreader = type lua_Reader;
-  lua_Chuckwriter = type lua_Writer;
+  lua_Chuckreader = lua_Reader;
+  lua_Chuckwriter = lua_Writer;
+
+(* hack *)
+procedure lua_setlevel(from : Plua_State; to_ : Plua_State);
+  cdecl; external LUA_LIB_NAME;
+
+{$IFEND}
 
 (* ====================================================================== *)
 
 (*
-** {======================================================================
+** ======================================================================
 ** Debug API
 ** =======================================================================
 *)
@@ -476,7 +711,11 @@ const
   LUA_HOOKRET     = 1;
   LUA_HOOKLINE    = 2;
   LUA_HOOKCOUNT   = 3;
+{$IF LUA_VERSION_NUM = 501}
   LUA_HOOKTAILRET = 4;
+{$ELSEIF LUA_VERSION_NUM >= 502}
+  LUA_HOOKTAILCALL = 4;
+{$IFEND}
 
 
 (*
@@ -490,52 +729,65 @@ const
 type
   lua_Debug = packed record
     event : Integer;
-    name : PChar;          (* (n) *)
-    namewhat : PChar;      (* (n) `global', `local', `field', `method' *)
-    what : PChar;          (* (S) `Lua', `C', `main', `tail' *)
-    source : PChar;        (* (S) *)
-    currentline : Integer; (* (l) *)
-    nups : Integer;        (* (u) number of upvalues *)
-    linedefined : Integer; (* (S) *)
+    name : PChar;              (* (n) *)
+    namewhat : PChar;          (* (n) `global', `local', `field', `method' *)
+    what : PChar;              (* (S) `Lua', `C', `main', `tail' *)
+    source : PChar;            (* (S) *)
+    currentline : Integer;     (* (l) *)
+{$IF LUA_VERSION_NUM = 501}
+    nups : Integer;            (* (u) number of upvalues *)
+    linedefined : Integer;     (* (S) *)
+    lastlinedefined : Integer; (* (S) *)
     short_src : array [0..LUA_IDSIZE-1] of Char; (* (S) *)
     (* private part *)
-    i_ci : Integer;        (* active function *)
+    i_ci : Integer;            (* active function *)
+{$ELSEIF LUA_VERSION_NUM >= 502}
+    linedefined : Integer;     (* (S) *)
+    lastlinedefined : Integer; (* (S) *)
+	nups : Byte;               (* (u) number of upvalues *)
+	nparams : Byte;            (* (u) number of parameters *)
+	isvararg : Char;           (* (u) *)
+	istailcall: Char;          (* (t) *)
+    short_src : array [0..LUA_IDSIZE-1] of Char; (* (S) *)
+	(* private part *)
+	i_ci : PCallInfo           (* active function *)
+{$IFEND}
   end;
   Plua_Debug = ^lua_Debug;
 
-  (* Functions to be called by the debuger in specific events *)
+(* Functions to be called by the debuger in specific events *)
   lua_Hook = procedure (L : Plua_State; ar : Plua_Debug); cdecl;
 
-
-function lua_getstack(L : Plua_State; level : Integer;
-                      ar : Plua_Debug) : Integer;
-  cdecl; external LuaDLL;
-function lua_getinfo(L : Plua_State; const what : PChar;
-                     ar: Plua_Debug): Integer;
-  cdecl; external LuaDLL;
-function lua_getlocal(L : Plua_State;
-                      ar : Plua_Debug; n : Integer) : PChar;
-  cdecl; external LuaDLL;
-function lua_setlocal(L : Plua_State;
-                      ar : Plua_Debug; n : Integer) : PChar;
-  cdecl; external LuaDLL;
+function lua_getstack(L : Plua_State; level : Integer; ar : Plua_Debug) : Integer;
+  cdecl; external LUA_LIB_NAME;
+function lua_getinfo(L : Plua_State; const what : PChar; ar: Plua_Debug): Integer;
+  cdecl; external LUA_LIB_NAME;
+function lua_getlocal(L : Plua_State; ar : Plua_Debug; n : Integer) : PChar;
+  cdecl; external LUA_LIB_NAME;
+function lua_setlocal(L : Plua_State; ar : Plua_Debug; n : Integer) : PChar;
+  cdecl; external LUA_LIB_NAME;
 function lua_getupvalue(L : Plua_State; funcindex, n : Integer) : PChar;
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
 function lua_setupvalue(L : Plua_State; funcindex, n : Integer) : PChar;
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
+
+{$IF LUA_VERSION_NUM >= 502}
+function  lua_upvalueid   (L : Plua_State; fidx, n : Integer): Pointer;
+  cdecl; external LUA_LIB_NAME;
+procedure lua_upvaluejoin (L : Plua_State; fidx1, n1, fidx2, n2 : Integer);
+  cdecl; external LUA_LIB_NAME;
+{$IFEND}
+
+function lua_sethook(L : Plua_State; func : lua_Hook; mask, count: Integer): Integer;
+  cdecl; external LUA_LIB_NAME;
 
-function lua_sethook(L : Plua_State; func : lua_Hook;
-                     mask, count: Integer): Integer;
-  cdecl; external LuaDLL;
-{
 function lua_gethook(L : Plua_State) : lua_Hook;
-  cdecl; external LuaDLL;
-}
+  cdecl; external LUA_LIB_NAME;
+
 function lua_gethookmask(L : Plua_State) : Integer;
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
 function lua_gethookcount(L : Plua_State) : Integer;
-  cdecl; external LuaDLL;
-
+  cdecl; external LUA_LIB_NAME;
 
 (*****************************************************************************)
 (*                                  lualib.h                                 *)
@@ -548,48 +800,54 @@ function lua_gethookcount(L : Plua_State) : Integer;
 *)
 
 const
-  (* Key to file-handle type *)
-  LUA_FILEHANDLE  = 'FILE*';
 
   LUA_COLIBNAME   = 'coroutine';
   LUA_TABLIBNAME  = 'table';
   LUA_IOLIBNAME   = 'io';
   LUA_OSLIBNAME   = 'os';
   LUA_STRLIBNAME  = 'string';
+{$IF LUA_VERSION_NUM >= 502}
+  LUA_MATHLIBNAME = 'bit32';
+{$IFEND}
   LUA_MATHLIBNAME = 'math';
   LUA_DBLIBNAME   = 'debug';
   LUA_LOADLIBNAME = 'package';
 
 function luaopen_base(L : Plua_State) : Integer;
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
 
 function luaopen_table(L : Plua_State) : Integer;
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
 
 function luaopen_io(L : Plua_State) : Integer;
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
 
 function luaopen_os(L : Plua_State) : Integer;
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
 
 function luaopen_string(L : Plua_State) : Integer;
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
+
+{$IF LUA_VERSION_NUM >= 502}
+function luaopen_bit32(L : Plua_State) : Integer;
+  cdecl; external LUA_LIB_NAME;
+{$IFEND}
 
 function luaopen_math(L : Plua_State) : Integer;
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
 
 function luaopen_debug(L : Plua_State) : Integer;
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
 
 function luaopen_package(L : Plua_State) : Integer;
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
 
+{* open all previous libraries *}
 procedure luaL_openlibs(L : Plua_State);
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
 
 procedure lua_assert(x : Boolean);    // a macro
 
-
 (*****************************************************************************)
 (*                                  lauxlib.h                                *)
 (*****************************************************************************)
@@ -600,10 +858,13 @@ procedure lua_assert(x : Boolean);    // a macro
 ** See Copyright Notice at the end of this file.
 *)
 
+{$IF LUA_VERSION_NUM = 501}
 // not compatibility with the behavior of setn/getn in Lua 5.0
-function  luaL_getn(L : Plua_State; idx : Integer) : Integer;
-procedure luaL_setn(L : Plua_State; i, j : Integer);
+function  luaL_getn(L : Plua_State; idx : Integer) : Integer; deprecated;
+procedure luaL_setn(L : Plua_State; i, j : Integer); deprecated;
+{$IFEND}
 
+(* extra error code for `luaL_load' *)
 const
   LUA_ERRFILE = LUA_ERRERR + 1;
 
@@ -614,89 +875,163 @@ type
   end;
   PluaL_Reg = ^luaL_Reg;
 
-
+{$IF LUA_VERSION_NUM = 501}
 procedure luaL_openlib(L : Plua_State; const libname : PChar;
                        const lr : PluaL_Reg; nup : Integer);
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
 procedure luaL_register(L : Plua_State; const libname : PChar;
                        const lr : PluaL_Reg);
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
+{$IFEND}
+
+{$IF LUA_VERSION_NUM >= 502}
+procedure luaL_checkversion(L : Plua_State);
+procedure luaL_checkversion_(L : Plua_State; ver : lua_Number);
+  cdecl; external LUA_LIB_NAME;
+{$IFEND}
+
 function luaL_getmetafield(L : Plua_State; obj : Integer;
                            const e : PChar) : Integer;
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
 function luaL_callmeta(L : Plua_State; obj : Integer;
                        const e : PChar) : Integer;
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
+{$IF LUA_VERSION_NUM = 501}
 function luaL_typerror(L : Plua_State; narg : Integer;
                        const tname : PChar) : Integer;
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
+{$ELSEIF LUA_VERSION_NUM >= 502}
+function luaL_tolstring(L : Plua_State; idx : Integer;
+                        len : Psize_t) : PChar;
+  cdecl; external LUA_LIB_NAME;
+{$IFEND}
 function luaL_argerror(L : Plua_State; numarg : Integer;
                        const extramsg : PChar) : Integer;
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
 function luaL_checklstring(L : Plua_State; numArg : Integer;
                            ls : Psize_t) : PChar;
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
 function luaL_optlstring(L : Plua_State; numArg : Integer;
                          const def: PChar; ls: Psize_t) : PChar;
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
 function luaL_checknumber(L : Plua_State; numArg : Integer) : lua_Number;
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
 function luaL_optnumber(L : Plua_State; nArg : Integer;
                         def : lua_Number) : lua_Number;
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
 
 function luaL_checkinteger(L : Plua_State; numArg : Integer) : lua_Integer;
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
 function luaL_optinteger(L : Plua_State; nArg : Integer;
                         def : lua_Integer) : lua_Integer;
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
+{$IF LUA_VERSION_NUM >= 502}
+function luaL_checkunsigned(L : Plua_State; numArg : Integer) : lua_Unsigned;
+  cdecl; external LUA_LIB_NAME;
+function luaL_optunsigned(L : Plua_State; numArg : Integer;
+                          def : lua_Unsigned) : lua_Unsigned;
+  cdecl; external LUA_LIB_NAME;
+{$IFEND}
 
 procedure luaL_checkstack(L : Plua_State; sz : Integer; const msg : PChar);
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
 procedure luaL_checktype(L : Plua_State; narg, t : Integer);
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
 procedure luaL_checkany(L : Plua_State; narg : Integer);
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
 
 function luaL_newmetatable(L : Plua_State; const tname : PChar) : Integer;
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
+{$IF LUA_VERSION_NUM >= 502}
+procedure luaL_setmetatable(L : Plua_State; const tname : PChar);
+  cdecl; external LUA_LIB_NAME;
+function luaL_testudata(L : Plua_State; ud : Integer;
+                        const tname : PChar) : Pointer;
+  cdecl; external LUA_LIB_NAME;
+{$IFEND}
 function luaL_checkudata(L : Plua_State; ud : Integer;
                          const tname : PChar) : Pointer;
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
 
 procedure luaL_where(L : Plua_State; lvl : Integer);
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
 function  luaL_error(L : Plua_State; const fmt : PChar) : Integer; varargs;
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
 
 function luaL_checkoption(L : Plua_State; narg : Integer; const def : PChar;
                           const lst : array of PChar) : Integer;
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
+
+{$IF LUA_VERSION_NUM >= 502}
+function  luaL_fileresult(L : Plua_State; stat : Integer; 
+                          const fname : PChar) : Integer;
+  cdecl; external LUA_LIB_NAME;
+function  luaL_execresult(L : Plua_State; stat : Integer) : Integer;
+  cdecl; external LUA_LIB_NAME;
+
+(* pre-defined references *)
+const
+  LUA_NOREF  = -2;
+  LUA_REFNIL = -1;
+{$IFEND}
 
 function  luaL_ref(L : Plua_State; t : Integer) : Integer;
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
 procedure luaL_unref(L : Plua_State; t, ref : Integer);
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
 
 function luaL_loadfile(L : Plua_State; const filename : PChar) : Integer;
-  cdecl; external LuaDLL;
+{$IF LUA_VERSION_NUM = 501}
+  cdecl; external LUA_LIB_NAME;
+{$ELSEIF LUA_VERSION_NUM >= 502}
+function luaL_loadfilex(L: Plua_State; const filename, mode: PChar): Integer;
+  cdecl; external LUA_LIB_NAME;
+{$IFEND}
+
 function luaL_loadbuffer(L : Plua_State; const buff : PChar;
                          sz : size_t; const name: PChar) : Integer;
-  cdecl; external LuaDLL;
+{$IF LUA_VERSION_NUM = 501}
+  cdecl; external LUA_LIB_NAME;
+{$ELSEIF LUA_VERSION_NUM >= 502}
+function luaL_loadbufferx(L : Plua_State; const buff : PChar;
+                          sz : size_t; const name: PChar; const mode: PChar) : Integer;
+  cdecl; external LUA_LIB_NAME;
+{$IFEND}
 
 function luaL_loadstring(L : Plua_State; const s : Pchar) : Integer;
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
 
 function luaL_newstate : Plua_State;
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
+
+{$IF LUA_VERSION_NUM >= 502}
+function luaL_len(L : Plua_State; idx : Integer) : Integer;
+  cdecl; external LUA_LIB_NAME;
+{$IFEND}
 
 function luaL_gsub(L : Plua_State; const s, p, r : PChar) : PChar;
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
 
+{$IF LUA_VERSION_NUM = 501}
 function luaL_findtable(L : Plua_State; idx : Integer;
                         const fname : PChar; szhint : Integer) : PChar;
-  cdecl; external LuaDLL;
-
+  cdecl; external LUA_LIB_NAME;
+{$ELSEIF LUA_VERSION_NUM >= 502}
+procedure luaL_setfuncs(L : Plua_State; const l : PluaL_Reg;
+                        nup : Integer); overload;
+  cdecl; external LUA_LIB_NAME;
+procedure luaL_setfuncs(L : Plua_State; const l : array of luaL_Reg;
+                        nup : Integer); overload;
+function luaL_getsubtable(L : Plua_State; idx : Integer;
+                          const fname : PChar) : Integer;
+  cdecl; external LUA_LIB_NAME;
+procedure luaL_traceback(L : Plua_State; L1 : Plua_State;
+                         const msg : PChar; level : Integer);
+  cdecl; external LUA_LIB_NAME;
+procedure luaL_requiref(L : Plua_State; const modname : PChar;
+                        openf : lua_CFunction; glb : Integer);
+  cdecl; external LUA_LIB_NAME;
+{$IFEND}
 
 (*
 ** ===============================================================
@@ -704,6 +1039,12 @@ function luaL_findtable(L : Plua_State; idx : Integer;
 ** ===============================================================
 *)
 
+{$IF LUA_VERSION_NUM >= 502}
+procedure luaL_newlibtable(L : Plua_State; l : array of luaL_Reg); overload;
+procedure luaL_newlibtable(L : Plua_State; l : PluaL_Reg); overload;
+procedure luaL_newlib(L : Plua_State; l : array of luaL_Reg); overload;
+procedure luaL_newlib(L : Plua_State; l : PluaL_Reg); overload;
+{$IFEND}
 function luaL_argcheck(L : Plua_State; cond : Boolean; numarg : Integer;
                        extramsg : PChar): Integer;
 function luaL_checkstring(L : Plua_State; n : Integer) : PChar;
@@ -726,21 +1067,32 @@ procedure luaL_getmetatable(L : Plua_State; n : PChar);
 *)
 
 (*
-** {======================================================
+** ======================================================
 ** Generic Buffer manipulation
 ** =======================================================
 *)
 
 type
   luaL_Buffer = packed record
-    p : PChar;       (* current position in buffer *)
-    lvl : Integer;   (* number of strings in the stack (level) *)
-    L : Plua_State;
+{$IF LUA_VERSION_NUM = 501}
+    p      : PChar;      (* current position in buffer *)
+    lvl    : Integer;    (* number of strings in the stack (level) *)
+    L      : Plua_State;
     buffer : array [0..LUAL_BUFFERSIZE-1] of Char;
+{$ELSEIF LUA_VERSION_NUM >= 502}
+    b     : PChar;      (* buffer address *)
+    size  : size_t;     (* buffer size *)
+    n     : size_t;     (* number of characters in buffer *)
+    L     : Plua_State;
+    initb : array [0..LUAL_BUFFERSIZE-1] of Char;  (* initial buffer *)
+{$IFEND}
   end;
   PluaL_Buffer = ^luaL_Buffer;
 
+{$IF LUA_VERSION_NUM = 501}
+(* compatibility only *)
 procedure luaL_addchar(B : PluaL_Buffer; c : Char);
+{$IFEND}
 
 (* compatibility only *)
 procedure luaL_putchar(B : PluaL_Buffer; c : Char);
@@ -748,21 +1100,28 @@ procedure luaL_putchar(B : PluaL_Buffer; c : Char);
 procedure luaL_addsize(B : PluaL_Buffer; n : Integer);
 
 procedure luaL_buffinit(L : Plua_State; B : PluaL_Buffer);
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
 function  luaL_prepbuffer(B : PluaL_Buffer) : PChar;
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
 procedure luaL_addlstring(B : PluaL_Buffer; const s : PChar; ls : size_t);
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
 procedure luaL_addstring(B : PluaL_Buffer; const s : PChar);
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
 procedure luaL_addvalue(B : PluaL_Buffer);
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
 procedure luaL_pushresult(B : PluaL_Buffer);
-  cdecl; external LuaDLL;
+  cdecl; external LUA_LIB_NAME;
 
-(* ====================================================== *)
+{$IF LUA_VERSION_NUM >= 502}
+procedure luaL_pushresultsize(B : PluaL_Buffer; sz : size_t);
+  cdecl; external LUA_LIB_NAME;
+function  luaL_buffinitsize(L : PluaL_Buffer; L : PluaL_Buffer; sz : size_t) : PChar;
+  cdecl; external LUA_LIB_NAME;
+{$IFEND}
 
+(* ====================================================== *)
 
+{$IF LUA_VERSION_NUM = 501}
 (* compatibility with ref system *)
 
 (* pre-defined references *)
@@ -776,6 +1135,30 @@ procedure lua_unref(L : Plua_State; ref : Integer);
 
 procedure lua_getref(L : Plua_State; ref : Integer);
 
+{$ELSEIF LUA_VERSION_NUM >= 502}
+
+(*
+** =======================================================
+** File handles for IO library
+** =======================================================
+*)
+
+(*
+** A file handle is a userdata with metatable 'LUA_FILEHANDLE' and
+** initial structure 'luaL_Stream' (it may contain other fields
+** after that initial structure).
+*)
+
+const
+  LUA_FILEHANDLE  = 'FILE*';
+
+type
+  luaL_Stream = record
+    f:  Pointer;           (* stream (NULL for incompletely created streams) *)
+    closef: lua_CFunction; (* to close stream (NULL for closed streams) *)
+  end;
+
+{$IFEND}
 
 (******************************************************************************)
 (******************************************************************************)
@@ -933,6 +1316,7 @@ end;
 (*                                  lauxlib.h    n                           *)
 (*****************************************************************************)
 
+{$IF LUA_VERSION_NUM = 501}
 function luaL_getn(L : Plua_State; idx : Integer) : Integer;
 begin
   luaL_getn := lua_objlen(L, idx);
@@ -943,6 +1327,60 @@ begin
   (* no op *)
 end;
 
+{$ELSEIF LUA_VERSION_NUM >= 502}
+
+procedure luaL_checkversion(L : Plua_State);
+begin
+  luaL_checkversion_(L, LUA_VERSION_NUM);
+end;
+
+function luaL_loadfile(L : Plua_State; const filename: PChar): Integer;
+begin
+   Result := luaL_loadfilex(L, filename, nil);
+end;
+
+function luaL_loadbuffer(L : Plua_State; const buff: PChar; size: size_t; const name: PChar): Integer;
+begin
+   Result := luaL_loadbufferx(L, buff, size, name, nil);
+end;
+
+procedure luaL_setfuncs(L : Plua_State; const l : array of luaL_Reg;
+                        nup : Integer);
+begin
+  luaL_setfuncs(L, @l, nup);
+end;
+
+procedure luaL_newlibtable(L : Plua_State; l : array of luaL_Reg);
+begin
+   lua_createtable(L, 0, High(l));
+end;
+
+procedure luaL_newlibtable(L : Plua_State; l : PluaL_Reg);
+   var
+      n: Integer;
+begin
+   n := 0;
+   while l^.name <> nil do
+   begin
+     inc(n);
+     inc(l);
+   end;
+   lua_createtable(L, 0, n);
+end;
+
+procedure luaL_newlib(L : Plua_State; l : array of luaL_Reg);
+begin
+   luaL_newlibtable(L, l);
+   luaL_setfuncs(L, @l, 0);
+end;
+
+procedure luaL_newlib(L : Plua_State; l : PluaL_Reg);
+begin
+   luaL_newlibtable(L, l);
+   luaL_setfuncs(L, l, 0);
+end;
+{$IFEND}
+
 function luaL_argcheck(L : Plua_State; cond : Boolean; numarg : Integer;
                        extramsg : PChar): Integer;
 begin
@@ -1014,6 +1452,7 @@ begin
   lua_getfield(L, LUA_REGISTRYINDEX, n);
 end;
 
+{$IF LUA_VERSION_NUM = 501}
 procedure luaL_addchar(B : PluaL_Buffer; c : Char);
 begin
   if not(B^.p < B^.buffer + LUAL_BUFFERSIZE) then
@@ -1021,6 +1460,7 @@ begin
   B^.p^ := c;
   Inc(B^.p);
 end;
+{$IFEND}
 
 procedure luaL_putchar(B : PluaL_Buffer; c : Char);
 begin
@@ -1032,6 +1472,7 @@ begin
   Inc(B^.p, n);
 end;
 
+{$IF LUA_VERSION_NUM = 501}
 function lua_ref(L : Plua_State; lock : Boolean) : Integer;
 begin
   if lock then
@@ -1052,7 +1493,7 @@ procedure lua_getref(L : Plua_State; ref : Integer);
 begin
   lua_rawgeti(L, LUA_REGISTRYINDEX, ref);
 end;
-
+{$IFEND}
 
 (******************************************************************************
 * Original copyright for the lua source and headers: