delphi调用LUA函数来处理一些逻辑-白红宇

delphi调用LUA函数来处理一些逻辑

阅读量：4983 次

发布时间：2019-06-12

本文共 45054 字，大约阅读时间需要 150 分钟。

替同事做了个洛奇英雄传自动染色程序,关于屏幕取色的.

因为里面他对颜色的要求比较复杂,改动也比较大,于是我让他把逻辑写在 lua 脚本里面.

[delphi]

uses LUA, LUALIB;

[delphi]

function lua_CheckColor(r,g,b:Integer):Boolean;

Lua : TLua;

begin

Lua := TLua.Create;

luaopen_debug(LuaInstance); //如果要使用debug库

// luaopen_io(LuaInstance);

luaopen_math(LuaInstance);// 如果要使用math库不然就会attempt to index global 'math' (a nil value)

luaopen_os(LuaInstance);

// luaopen_package(LuaInstance);

luaopen_string(LuaInstance);

luaopen_table(LuaInstance);

Lua.DoFile('lua_GetColor.lua');

lua_getglobal(Lua.LuaInstance,'nogi_GetColor');

lua_pushnumber(Lua.LuaInstance, r); //将脚本中add函数使用的参数压栈

lua_pushnumber(Lua.LuaInstance, g); //将脚本中add函数使用的参数压栈

lua_pushnumber(Lua.LuaInstance, b); //将脚本中add函数使用的参数压栈

lua_pcall(Lua.LuaInstance, 3, 1,0) ;

Result := (lua_toInteger(Lua.LuaInstance,-1) = 1);

Lua.Free;

end;

LUA 里面的内容是这样的

[delphi]

function nogi_GetColor(nR,nG,nB)

if nR <= 25 and nG <= 25 and nB <= 25 then -- 取出25以下黑色

return 1;

end;

return 0;

附上我这里带的 LUA.PAS 和 LUALIB.PAS

lua.pas

[delphi]

{

* @package Delphi Lua

* @copyright Copyright (c) 2009 Dennis D. Spreen (http://www.spreendigital.de/blog)

* @license http://opensource.org/licenses/gpl-license.php GNU Public License

* @author Dennis D. Spreen <dennis@spreendigital.de>

* @version 1.3

* @revision $Id: Lua.pas 102 2009-09-30 11:39:41Z dennis.spreen $

History

1.3 DS Improved Callback, now uses pointer instead of object index

Modified RegisterFunctions to allow methods from other class

to be registered, moved object table into TLua class

1.2 DS Added example on how to extend lua with a delphi dll

1.1 DS Improved global object table, this optimizes the delphi

function calls

1.0 DS Initial Release

This program is free software; you can redistribute it and/or modify

it under the terms of the GNU General Public License as published by

the Free Software Foundation; either version 2 of the License, or

(at your option) any later version.

This program is distributed in the hope that it will be useful,

but WITHOUT ANY WARRANTY; without even the implied warranty of

MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the

GNU General Public License for more details.

You should have received a copy of the GNU General Public License

along with this program; if not, write to the Free Software

Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA

}

unit Lua;

interface

uses

Classes,

LuaLib;

type

TLuaState = Lua_State;

TLua = class(TObject)

private

fAutoRegister: Boolean;

CallbackList: TList; // internal callback list

public

LuaInstance: TLuaState; // Lua instance

constructor Create(AutoRegister: Boolean = True); overload; virtual;

destructor Destroy; override;

function DoFile(Filename: String): Integer; virtual;// load file and execute

procedure RegisterFunction(FuncName: AnsiString; MethodName: AnsiString = ''; Obj: TObject = NIL); virtual; //register function

procedure AutoRegisterFunctions(Obj: TObject); // register all published functions

procedure UnregisterFunctions(Obj: TObject); // unregister all object functions

end;

implementation

type

TProc = function(L: TLuaState): Integer of object; // Lua Function

TCallback = class

Routine: TMethod; // Code and Data for the method

Exec: TProc; // Resulting execution function

end;

// This function is called by Lua, it extracts the object by

// pointer to the objects method by name, which is then called.

// @param Lua_State L Pointer to Lua instance

// @return Integer Number of result arguments on stack

function LuaCallBack(L: Lua_State): Integer; cdecl;

CallBack: TCallBack; // The Object stored in the Object Table

begin

// Retrieve first Closure Value (=Object Pointer)

CallBack := lua_topointer(L, lua_upvalueindex(1));

// Execute only if Object is valid

if (assigned(CallBack) and assigned(CallBack.Exec)) then

Result := CallBack.Exec(L)

else

Result := 0;

end;

{ TLua }

// Create a new Lua instance and optionally create Lua functions

// @param Boolean AutoRegister (optional)

// @return TLua Lua Instance

constructor TLua.Create(AutoRegister: Boolean = True);

begin

inherited Create;

// Load Lua Lib if not already done

if (not LuaLibLoaded) then

LoadLuaLib;

// Open Library

LuaInstance := Lua_Open();

luaopen_base(LuaInstance);

fAutoRegister := AutoRegister;

// Create Object List on initialization

CallBackList := TList.Create;

// if set then register published functions

if (AutoRegister) then

AutoRegisterFunctions(self);

end;

// Dispose Lua instance

destructor TLua.Destroy;

begin

// Unregister all functions if previously autoregistered

if (fAutoRegister) then

UnregisterFunctions(Self);

// dispose Object List on finalization

CallBackList.Free;

// Close instance

Lua_Close(LuaInstance);

inherited;

end;

// Wrapper for Lua File load and Execution

// @param String Filename Lua Script file name

// @return Integer

function TLua.DoFile(Filename: String): Integer;

begin

Result := lual_dofile(LuaInstance, PAnsiChar(AnsiString(Filename)));

end;

// Register a new Lua Function and map it to the Objects method name

// @param AnsiString FuncName Lua Function Name

// @param AnsiString MethodName (optional) Objects Method name

procedure TLua.RegisterFunction(FuncName: AnsiString; MethodName: AnsiString = ''; Obj: TObject = NIL);

CallBack: TCallBack; // Callback Object

begin

// if method name not specified use Lua function name

if (MethodName = '') then

MethodName := FuncName;

// if not object specified use this object

if (Obj = NIL) then

Obj := Self;

// Add Callback Object to the Object Index

CallBack := TCallBack.Create;

CallBack.Routine.Data := Obj;

CallBack.Routine.Code := Obj.MethodAddress(String(MethodName));

CallBack.Exec := TProc(CallBack.Routine);

CallbackList.Add(CallBack);

// prepare Closure value (Method Name)

lua_pushstring(LuaInstance, PAnsiChar(FuncName));

// prepare Closure value (CallBack Object Pointer)

lua_pushlightuserdata(LuaInstance, CallBack);

// set new Lua function with Closure value

lua_pushcclosure(LuaInstance, LuaCallBack, 1);

lua_settable(LuaInstance, LUA_GLOBALSINDEX);

end;

// UnRegister all new Lua Function

// @param TObject Object Object with prev registered lua functions

procedure TLua.UnregisterFunctions(Obj: TObject);

I: Integer;

CallBack: TCallBack;

begin

// remove obj from object list

for I := CallBackList.Count downto 1 do

begin

CallBack := CallBackList[I-1];

if (assigned(CallBack)) and (CallBack.Routine.Data = Obj) then

begin

CallBack.Free;

CallBackList.Items[I-1] := NIL;

CallBackList.Delete(I-1);

end;

end;

end;

// Register all published methods as Lua Functions

procedure TLua.AutoRegisterFunctions(Obj: TObject);

type

PPointer = ^Pointer;

PMethodRec = ^TMethodRec;

TMethodRec = packed record

wSize: Word;

pCode: Pointer;

sName: ShortString;

end;

MethodTable: PAnsiChar;

MethodRec: PMethodRec;

wCount: Word;

nMethod: Integer;

begin

// Get a pointer to the class's published method table

MethodTable := PAnsiChar(Pointer(PAnsiChar(Obj.ClassType) + vmtMethodTable)^);

if (MethodTable <> Nil) then

begin

// Get the count of the methods in the table

Move(MethodTable^, wCount, 2);

// Position the MethodRec pointer at the first method in the table

// (skip over the 2-byte method count)

MethodRec := PMethodRec(MethodTable + 2);

// Iterate through all the published methods of this class

for nMethod := 0 to wCount - 1 do

begin

// Add the method name to the lua functions

RegisterFunction(MethodRec.sName, MethodRec.sName, Obj);

// Skip to the next method

MethodRec := PMethodRec(PAnsiChar(MethodRec) + MethodRec.wSize);

end;

end;

end;

end.

lualib.pas

[delphi]

1. (******************************************************************************
2. * Original copyright for the lua source and headers:
3. * 1994-2004 Tecgraf, PUC-Rio.
4. * www.lua.org.
5. *
6. * Copyright for the Delphi adaptation:
7. * 2005 Rolf Meyerhoff
8. * www.matrix44.de
9. *
10. * Copyright for the Lua 5.1 adaptation:
11. * 2007 Marco Antonio Abreu
12. * www.marcoabreu.eti.br
13. *
14. * All rights reserved.
15. *
16. * Permission is hereby granted, free of charge, to any person obtaining
17. * a copy of this software and associated documentation files (the
18. * "Software"), to deal in the Software without restriction, including
19. * without limitation the rights to use, copy, modify, merge, publish,
20. * distribute, sublicense, and/or sell copies of the Software, and to
21. * permit persons to whom the Software is furnished to do so, subject to
22. * the following conditions:
23. *
24. * The above copyright notice and this permission notice shall be
25. * included in all copies or substantial portions of the Software.
26. *
27. * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
28. * EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
29. * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
30. * IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
31. * CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
32. * TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
33. * SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
34. ******************************************************************************)
35. unit LuaLib;
37. interface
39. const
40. LUA_VERSION = 'Lua 5.1';
41. LUA_RELEASE = 'Lua 5.1.2';
42. LUA_COPYRIGHT = 'Copyright (C) 1994-2004 Tecgraf, PUC-Rio';
43. LUA_AUTHORS = 'R. Ierusalimschy, L. H. de Figueiredo & W. Celes';
45. LUA_PASCAL_51_AUTHOR = 'Marco Antonio Abreu';
46. LUA_PASCAL_51_COPYRIGHT = 'Copyright (C) 2007 Marco Antonio Abreu';
48. (* mark for precompiled code (`<esc>Lua') *)
49. LUA_SIGNATURE = #27'Lua';
51. (* option for multiple returns in `lua_pcall' and `lua_call' *)
52. LUA_MULTRET = -1;
54. (*
55. ** pseudo-indices
56. *)
57. LUA_REGISTRYINDEX = -10000;
58. LUA_ENVIRONINDEX = -10001;
59. LUA_GLOBALSINDEX = -10002;
61. (* thread status; 0 is OK *)
62. LUA_TRD_YIELD = 1;
63. LUA_ERRRUN = 2;
64. LUA_ERRSYNTAX = 3;
65. LUA_ERRMEM = 4;
66. LUA_ERRERR = 5;
68. (* extra error code for `luaL_load' *)
69. LUA_ERRFILE = LUA_ERRERR + 1;
71. (*
72. ** basic types
73. *)
74. LUA_TNONE = -1;
75. LUA_TNIL = 0;
76. LUA_TBOOLEAN = 1;
77. LUA_TLIGHTUSERDATA = 2;
78. LUA_TNUMBER = 3;
79. LUA_TSTRING = 4;
80. LUA_TTABLE = 5;
81. LUA_TFUNCTION = 6;
82. LUA_TUSERDATA = 7;
83. LUA_TTHREAD = 8;
85. (* minimum Lua stack available to a C function *)
86. LUA_MINSTACK = 20;
88. (*
89. ** garbage-collection function and options
90. *)
91. LUA_GCSTOP = 0;
92. LUA_GCRESTART = 1;
93. LUA_GCCOLLECT = 2;
94. LUA_GCCOUNT = 3;
95. LUA_GCCOUNTB = 4;
96. LUA_GCSTEP = 5;
97. LUA_GCSETPAUSE = 6;
98. LUA_GCSETSTEPMUL = 7;
100. (*
101. ** {======================================================================
102. ** Debug API
103. ** =======================================================================
104. *)
106. (*
107. ** Event codes
108. *)
109. LUA_HOOKCALL = 0;
110. LUA_HOOKRET = 1;
111. LUA_HOOKLINE = 2;
112. LUA_HOOKCOUNT = 3;
113. LUA_HOOKTAILRET = 4;
115. (*
116. ** Event masks
117. *)
118. LUA_MASKCALL = (1 shl LUA_HOOKCALL);
119. LUA_MASKRET = (1 shl LUA_HOOKRET);
120. LUA_MASKLINE = (1 shl LUA_HOOKLINE);
121. LUA_MASKCOUNT = (1 shl LUA_HOOKCOUNT);
123. (*
124. ** {======================================================================
125. ** useful definitions for Lua kernel and libraries
126. ** =======================================================================
127. *)
129. (*
130. @@ LUA_NUMBER_SCAN is the format for reading numbers.
131. @@ LUA_NUMBER_FMT is the format for writing numbers.
132. @@ lua_number2str converts a number to a string.
133. @@ LUAI_MAXNUMBER2STR is maximum size of previous conversion.
134. @@ lua_str2number converts a string to a number.
135. *)
136. LUA_NUMBER_SCAN = '%lf';
137. LUA_NUMBER_FMT = '%.14g';
138. LUAI_MAXNUMBER2STR = 32; (* 16 digits, sign, point, and \0 *)
140. (* pre-defined references *)
141. LUA_NOREF = -2;
142. LUA_REFNIL = -1;
144. LUA_IDSIZE = 60;
146. (*
147. ** package names
148. *)
149. LUA_COLIBNAME = 'coroutine';
150. LUA_TABLIBNAME = 'table';
151. LUA_IOLIBNAME = 'io';
152. LUA_OSLIBNAME = 'os';
153. LUA_STRLIBNAME = 'string';
154. LUA_MATHLIBNAME = 'math';
155. LUA_DBLIBNAME = 'debug';
156. LUA_LOADLIBNAME = 'package';
158. (*
159. ** {======================================================
160. ** Generic Buffer manipulation
161. ** =======================================================
162. *)
164. BUFSIZ = 512; (* From stdio.h *)
165. LUAL_BUFFERSIZE = BUFSIZ;
167. type
168. lua_State = type Pointer;
170. lua_CFunction = function(L: lua_State): Integer; cdecl;
172. (*
173. ** functions that read/write blocks when loading/dumping Lua chunks
174. *)
175. lua_Reader = function(L: lua_State; data: Pointer; var size: Cardinal): PAnsiChar; cdecl;
176. lua_Writer = function(L: lua_State; p: Pointer; sz: Cardinal; ud: Pointer): Integer; cdecl;
178. (*
179. ** prototype for memory-allocation functions
180. *)
181. lua_Alloc = function(ud, ptr: Pointer; osize, nsize: Cardinal): Pointer; cdecl;
183. (* type of numbers in Lua *)
184. lua_Number = type double;
185. (* type for integer functions *)
186. lua_Integer = type integer;
188. lua_Debug = packed record
189. event: Integer;
190. name: PAnsiChar; (* (n) *)
191. namewhat: PAnsiChar; (* (n) `global', `local', `field', `method' *)
192. what: PAnsiChar; (* (S) `Lua', `C', `main', `tail' *)
193. source: PAnsiChar; (* (S) *)
194. currentline: Integer; (* (l) *)
195. nups: Integer; (* (u) number of upvalues *)
196. linedefined: Integer; (* (S) *)
197. lastlinedefine: Integer; (* (S) *)
198. short_src: array[0..LUA_IDSIZE - 1] of AnsiChar; (* (S) *)
199. (* private part *)
200. i_ci: Integer; (* active function *)
201. end;
203. (* Functions to be called by the debuger in specific events *)
204. lua_Hook = procedure(L: lua_State; var ar: lua_Debug); cdecl;
206. (* Lua Record *)
207. PluaL_reg = ^luaL_reg;
208. luaL_reg = packed record
209. name: PAnsiChar;
210. func: lua_CFunction;
211. end;
213. (*
214. ** {======================================================
215. ** Generic Buffer manipulation
216. ** =======================================================
217. *)
219. luaL_Buffer = packed record
220. p: PAnsiChar; (* current position in buffer *)
221. lvl: Integer; (* number of strings in the stack (level) *)
222. L: lua_State;
223. buffer: array[0..LUAL_BUFFERSIZE - 1] of AnsiChar;
224. end;
226. var
227. (*
228. ** state manipulation
229. *)
230. lua_newstate: function(f: lua_Alloc; ud: Pointer): lua_State; cdecl;
231. lua_close: procedure(L: lua_State); cdecl;
232. lua_newthread: function(L: lua_State): lua_State; cdecl;
233. lua_atpanic: function(L: lua_State; panicf: lua_CFunction): lua_CFunction; cdecl;
235. (*
236. ** basic stack manipulation
237. *)
238. lua_gettop: function(L: lua_State): Integer; cdecl;
239. lua_settop: procedure(L: lua_State; idx: Integer); cdecl;
240. lua_pushvalue: procedure(L: lua_State; idx: Integer); cdecl;
241. lua_remove: procedure(L: lua_State; idx: Integer); cdecl;
242. lua_insert: procedure(L: lua_State; idx: Integer); cdecl;
243. lua_replace: procedure(L: lua_State; idx: Integer); cdecl;
244. lua_checkstack: function(L: lua_State; extra: Integer): LongBool; cdecl;
245. lua_xmove: procedure(from, dest: lua_State; n: Integer); cdecl;
247. (*
248. ** access functions (stack -> C/Pascal)
249. *)
251. lua_isnumber: function(L: lua_State; idx: Integer): LongBool; cdecl;
252. lua_isstring: function(L: lua_State; idx: Integer): LongBool; cdecl;
253. lua_iscfunction: function(L: lua_State; idx: Integer): LongBool; cdecl;
254. lua_isuserdata: function(L: lua_State; idx: Integer): LongBool; cdecl;
255. lua_type: function(L: lua_State; idx: Integer): Integer; cdecl;
256. lua_typename: function(L: lua_State; tp: Integer): PAnsiChar; cdecl;
258. lua_equal: function(L: lua_State; idx1, idx2: Integer): LongBool; cdecl;
259. lua_rawequal: function(L: lua_State; idx1, idx2: Integer): LongBool; cdecl;
260. lua_lessthan: function(L: lua_State; idx1, idx2: Integer): LongBool; cdecl;
262. lua_tonumber: function(L: lua_State; idx: Integer): lua_Number; cdecl;
263. lua_tointeger: function(L: lua_State; idx: Integer): lua_Integer; cdecl;
264. lua_toboolean: function(L: lua_State; idx: Integer): LongBool; cdecl;
265. lua_tolstring: function(L: lua_State; idx: Integer; var len: Cardinal): PAnsiChar; cdecl;
266. lua_objlen: function(L: lua_State; idx: Integer): Cardinal; cdecl;
267. lua_tocfunction: function(L: lua_State; idx: Integer): lua_CFunction; cdecl;
268. lua_touserdata: function(L: lua_State; idx: Integer): Pointer; cdecl;
269. lua_tothread: function(L: lua_State; idx: Integer): lua_State; cdecl;
270. lua_topointer: function(L: lua_State; idx: Integer): Pointer; cdecl;
272. (*
273. ** push functions (C/Pascal -> stack)
274. *)
275. lua_pushnil: procedure(L: lua_State); cdecl;
276. lua_pushnumber: procedure(L: lua_State; n: lua_Number); cdecl;
277. lua_pushinteger: procedure(L: lua_State; n: lua_Integer); cdecl;
278. lua_pushlstring: procedure(L: lua_State; s: PAnsiChar; len: Cardinal); cdecl;
279. lua_pushstring: procedure(L: lua_State; s: PAnsiChar); cdecl;
280. lua_pushvfstring: function(L: lua_State; fmt, argp: PAnsiChar): PAnsiChar; cdecl;
282. lua_pushfstring: function(L: lua_State; fmt: PAnsiChar; args: array of const): PAnsiChar; cdecl;
283. lua_pushcclosure: procedure(L: lua_State; fn: lua_CFunction; n: Integer); cdecl;
284. lua_pushboolean: procedure(L: lua_State; b: LongBool); cdecl;
285. lua_pushlightuserdata: procedure(L: lua_State; p: Pointer); cdecl;
286. lua_pushthread: function(L: lua_State): Integer; cdecl;
288. (*
289. ** get functions (Lua -> stack)
290. *)
291. lua_gettable: procedure(L: lua_State; idx: Integer); cdecl;
292. lua_getfield: procedure(L: lua_State; idx: Integer; k: PAnsiChar); cdecl;
293. lua_rawget: procedure(L: lua_State; idx: Integer); cdecl;
294. lua_rawgeti: procedure(L: lua_State; idx, n: Integer); cdecl;
295. lua_createtable: procedure(L: lua_State; narr, nrec: Integer); cdecl;
296. lua_newuserdata: function(L: lua_State; size: Cardinal): Pointer; cdecl;
297. lua_getmetatable: function(L: lua_State; idx: Integer): LongBool; cdecl;
298. lua_getfenv: procedure(L: lua_State; idx: Integer); cdecl;
300. (*
301. ** set functions (stack -> Lua)
302. *)
303. lua_settable: procedure(L: lua_State; idx: Integer); cdecl;
304. lua_setfield: procedure(L: lua_State; idx: Integer; k: PAnsiChar ); cdecl;
305. lua_rawset: procedure(L: lua_State; idx: Integer); cdecl;
306. lua_rawseti: procedure(L: lua_State; idx, n: Integer); cdecl;
307. lua_setmetatable: function(L: lua_State; idx: Integer): LongBool; cdecl;
308. lua_setfenv: function(L: lua_State; idx: Integer): LongBool; cdecl;
310. (*
311. ** `load' and `call' functions (load and run Lua code)
312. *)
313. lua_call: procedure(L: lua_State; nargs, nresults: Integer); cdecl;
314. lua_pcall: function(L: lua_State; nargs, nresults, errfunc: Integer): Integer; cdecl;
315. lua_cpcall: function(L: lua_State; func: lua_CFunction; ud: Pointer): Integer; cdecl;
316. lua_load: function(L: lua_State; reader: lua_Reader; data: Pointer; chunkname: PAnsiChar): Integer; cdecl;
317. lua_dump: function(L: lua_State; writer: lua_Writer; data: Pointer): Integer; cdecl;
319. (*
320. ** coroutine functions
321. *)
322. lua_yield: function(L: lua_State; nresults: Integer): Integer; cdecl;
323. lua_resume: function(L: lua_State; narg: Integer): Integer; cdecl;
324. lua_status: function(L: lua_State): Integer; cdecl;
326. (*
327. ** garbage-collection functions
328. *)
329. lua_gc: function(L: lua_State; what, data: Integer): Integer; cdecl;
331. (*
332. ** miscellaneous functions
333. *)
335. lua_error: function(L: lua_State): Integer; cdecl;
336. lua_next: function(L: lua_State; idx: Integer): Integer; cdecl;
337. lua_concat: procedure(L: lua_State; n: Integer); cdecl;
339. lua_getallocf: function(L: lua_State; ud: Pointer): lua_Alloc; cdecl;
340. lua_setallocf: procedure(L: lua_State; f: lua_Alloc; ud: Pointer); cdecl;
342. (*
343. ** {======================================================================
344. ** Debug API
345. ** =======================================================================
346. *)
348. lua_getstack: function(L: lua_State; level: Integer; var ar: lua_Debug): Integer; cdecl;
349. lua_getinfo: function(L: lua_State; what: PAnsiChar; var ar: lua_Debug): Integer; cdecl;
350. lua_getlocal: function(L: lua_State; var ar: lua_Debug; n: Integer): PAnsiChar; cdecl;
351. lua_setlocal: function(L: lua_State; var ar: lua_Debug; n: Integer): PAnsiChar; cdecl;
352. lua_getupvalue: function(L: lua_State; funcindex, n: Integer): PAnsiChar; cdecl;
353. lua_setupvalue: function(L: lua_State; funcindex, n: Integer): PAnsiChar; cdecl;
355. lua_sethook: function(L: lua_State; func: lua_Hook; mask, count: Integer): Integer; cdecl;
356. lua_gethook: function(L: lua_State): lua_Hook; cdecl;
357. lua_gethookmask: function(L: lua_State): Integer; cdecl;
358. lua_gethookcount: function(L: lua_State): Integer; cdecl;
360. (* lua libraries *)
361. luaopen_base: function(L: lua_State): Integer; cdecl;
362. luaopen_debug: function(L: lua_State): Integer; cdecl;
363. luaopen_io: function(L: lua_State): Integer; cdecl;
364. luaopen_math: function(L: lua_State): Integer; cdecl;
365. luaopen_os: function(L: lua_State): Integer; cdecl;
366. luaopen_package: function(L: lua_State): Integer; cdecl;
367. luaopen_string: function(L: lua_State): Integer; cdecl;
368. luaopen_table: function(L: lua_State): Integer; cdecl;
369. (* open all previous libraries *)
370. luaL_openlibs: procedure(L: lua_State); cdecl;
372. luaL_register: procedure(L: lua_State; libname: PAnsiChar; lr: PluaL_reg); cdecl;
373. luaL_getmetafield: function(L: lua_State; obj: Integer; e: PAnsiChar): Integer; cdecl;
374. luaL_callmeta: function(L: lua_State; obj: Integer; e: PAnsiChar): Integer; cdecl;
375. luaL_typerror: function(L: lua_State; narg: Integer; tname: PAnsiChar): Integer; cdecl;
376. luaL_argerror: function(L: lua_State; narg: Integer; extramsg: PAnsiChar): Integer; cdecl;
377. luaL_checklstring: function(L: lua_State; narg: Integer; var len: Cardinal): PAnsiChar; cdecl;
378. luaL_optlstring: function(L: lua_State; narg: Integer; d: PAnsiChar; var len: Cardinal): PAnsiChar; cdecl;
379. luaL_checknumber: function(L: lua_State; narg: Integer): lua_Number; cdecl;
380. luaL_optnumber: function(L: lua_State; narg: Integer; d: lua_Number): lua_Number; cdecl;
382. luaL_checkinteger: function(L: lua_State; narg: Integer): lua_Integer; cdecl;
383. luaL_optinteger: function(L: lua_State; narg: Integer; d: lua_Integer): lua_Integer; cdecl;
385. luaL_checkstack: procedure(L: lua_State; sz: Integer; msg: PAnsiChar); cdecl;
386. luaL_checktype: procedure(L: lua_State; narg, t: Integer); cdecl;
387. luaL_checkany: procedure(L: lua_State; narg: Integer); cdecl;
389. luaL_newmetatable: function(L: lua_State; tname: PAnsiChar): Integer; cdecl;
390. luaL_checkudata: function(L: lua_State; narg: Integer; tname: PAnsiChar): Pointer; cdecl;
392. luaL_checkoption: function(L: lua_State; narg: Integer; def: PAnsiChar; lst: array of PAnsiChar): Integer; cdecl;
394. luaL_where: procedure(L: lua_State; lvl: Integer); cdecl;
395. luaL_error: function(L: lua_State; fmt: PAnsiChar; args: array of const): Integer; cdecl;
397. luaL_ref: function(L: lua_State; t: Integer): Integer; cdecl;
398. luaL_unref: procedure(L: lua_State; t, ref: Integer); cdecl;
400. {$ifdef LUA_COMPAT_GETN}
401. luaL_getn: function(L: lua_State; t: Integer): Integer; cdecl;
402. luaL_setn: procedure(L: lua_State; t, n: Integer); cdecl;
403. {
  $endif}
405. luaL_loadfile: function(L: lua_State; filename: PAnsiChar): Integer; cdecl;
406. luaL_loadbuffer: function(L: lua_State; buff: PAnsiChar; sz: Cardinal; name: PAnsiChar): Integer; cdecl;
407. luaL_loadstring: function(L: lua_State; s: PAnsiChar): Integer; cdecl;
409. luaL_newstate: function(): lua_State; cdecl;
410. luaL_gsub: function(L: lua_State; s, p, r: PAnsiChar): PAnsiChar; cdecl;
411. luaL_findtable: function(L: lua_State; idx: Integer; fname: PAnsiChar; szhint: Integer): PAnsiChar; cdecl;
413. luaL_buffinit: procedure(L: lua_State; var B: luaL_Buffer); cdecl;
414. luaL_prepbuffer: function(var B: luaL_Buffer): PAnsiChar; cdecl;
415. luaL_addlstring: procedure(var B: luaL_Buffer; s: PAnsiChar; l: Cardinal); cdecl;
416. luaL_addstring: procedure(var B: luaL_Buffer; s: PAnsiChar); cdecl;
417. luaL_addvalue: procedure(var B: luaL_Buffer); cdecl;
418. luaL_pushresult: procedure(var B: luaL_Buffer); cdecl;
420. (*
421. ** ===============================================================
422. ** some useful macros
423. ** ===============================================================
424. *)
426. {$ifndef LUA_COMPAT_GETN}
427. function luaL_getn(L: lua_State; t: Integer): Integer;
428. procedure luaL_setn(L: lua_State; t, n: Integer);
429. {
  $endif}
431. (* pseudo-indices *)
432. function lua_upvalueindex(i: Integer): Integer;
434. (* to help testing the libraries *)
435. procedure lua_assert(c: Boolean);
437. function lua_number2str(s: Lua_Number; n: Integer): String;
438. function lua_str2number(s: String; p: integer): Lua_Number;
440. (* argument and parameters checks *)
441. function luaL_argcheck(L: lua_State; cond: Boolean; narg: Integer; extramsg: PAnsiChar): Integer;
442. function luaL_checkstring(L: lua_State; narg: Integer): PAnsiChar;
443. function luaL_optstring(L: lua_State; narg: Integer; d: PAnsiChar): PAnsiChar;
444. function luaL_checkint(L: lua_State; narg: Integer): Integer;
445. function luaL_optint(L: lua_State; narg, d: Integer): Integer;
446. function luaL_checklong(L: lua_State; narg: Integer): LongInt;
447. function luaL_optlong(L: lua_State; narg: Integer; d: LongInt): LongInt;
449. function luaL_typename(L: lua_State; idx: Integer): PAnsiChar;
450. function luaL_dofile(L: lua_State; filename: PAnsiChar): Integer;
451. function luaL_dostring(L: lua_State; str: PAnsiChar): Integer;
453. procedure luaL_getmetatable(L: lua_State; tname: PAnsiChar);
455. (* Generic Buffer manipulation *)
456. procedure luaL_addchar(var B: luaL_Buffer; c: AnsiChar);
457. procedure luaL_putchar(var B: luaL_Buffer; c: AnsiChar);
458. procedure luaL_addsize(var B: luaL_Buffer; n: Cardinal);
460. function luaL_check_lstr(L: lua_State; numArg: Integer; var ls: Cardinal): PAnsiChar;
461. function luaL_opt_lstr(L: lua_State; numArg: Integer; def: PAnsiChar; var ls: Cardinal): PAnsiChar;
462. function luaL_check_number(L: lua_State; numArg: Integer): lua_Number;
463. function luaL_opt_number(L: lua_State; nArg: Integer; def: lua_Number): lua_Number;
464. function luaL_arg_check(L: lua_State; cond: Boolean; numarg: Integer; extramsg: PAnsiChar): Integer;
465. function luaL_check_string(L: lua_State; n: Integer): PAnsiChar;
466. function luaL_opt_string(L: lua_State; n: Integer; d: PAnsiChar): PAnsiChar;
467. function luaL_check_int(L: lua_State; n: Integer): Integer;
468. function luaL_check_long(L: lua_State; n: LongInt): LongInt;
469. function luaL_opt_int(L: lua_State; n, d: Integer): Integer;
470. function luaL_opt_long(L: lua_State; n: Integer; d: LongInt): LongInt;
472. procedure lua_pop(L: lua_State; n: Integer);
473. procedure lua_newtable(L: lua_State);
474. procedure lua_register(L: lua_state; name: PAnsiChar; f: lua_CFunction);
475. procedure lua_pushcfunction(L: lua_State; f: lua_CFunction);
476. function lua_strlen(L: lua_State; i: Integer): Cardinal;
478. function lua_isfunction(L: lua_State; idx: Integer): Boolean;
479. function lua_istable(L: lua_State; idx: Integer): Boolean;
480. function lua_islightuserdata(L: lua_State; idx: Integer): Boolean;
481. function lua_isnil(L: lua_State; idx: Integer): Boolean;
482. function lua_isboolean(L: lua_State; idx: Integer): Boolean;
483. function lua_isthread(L: lua_State; idx: Integer): Boolean;
484. function lua_isnone(L: lua_State; idx: Integer): Boolean;
485. function lua_isnoneornil(L: lua_State; idx: Integer): Boolean;
487. procedure lua_pushliteral(L: lua_State; s: PAnsiChar);
488. procedure lua_setglobal(L: lua_State; name: PAnsiChar);
489. procedure lua_getglobal(L: lua_State; name: PAnsiChar);
490. function lua_tostring(L: lua_State; idx: Integer): PAnsiChar;
492. (*
493. ** compatibility macros and functions
494. *)
496. function lua_open(): lua_State;
497. procedure lua_getregistry(L: lua_State);
498. function lua_getgccount(L: lua_State): Integer;
500. (* compatibility with ref system *)
501. function lua_ref(L: lua_State; lock: Boolean): Integer;
502. procedure lua_unref(L: lua_State; ref: Integer);
503. procedure lua_getref(L: lua_State; ref: Integer);
505. (*
506. ** Dynamic library manipulation
507. *)
508. function GetProcAddr( fHandle: THandle; const methodName: String; bErrorIfNotExists: Boolean = True ): Pointer;
509. procedure SetLuaLibFileName( newLuaLibFileName: String );
510. function GetLuaLibFileName(): String;
511. function LoadLuaLib( newLuaLibFileName: String = '' ): Integer;
512. procedure FreeLuaLib();
513. function LuaLibLoaded: Boolean;
515. implementation
517. uses
518. SysUtils, Math,
519. {$ifdef MSWINDOWS}
520. Windows
521. {
  $endif}
522. ;
524. var
525. fLibHandle: Integer = 0;
526. {$ifdef MSWINDOWS}
527. fLuaLibFileName: String = 'Lua5.1.dll';
528. {
  $endif}
529. {$ifdef LINUX}
530. fLuaLibFileName: String = 'liblua.so.5.1';
531. {
  $endif}
533. (*
534. ** Dynamic library manipulation
535. *)
537. function GetProcAddr( fHandle: THandle; const methodName: String; bErrorIfNotExists: Boolean = True ): Pointer;
538. begin
539. Result := GetProcAddress( fHandle, PAnsiChar( AnsiString(methodName) ) );
541. if bErrorIfNotExists and ( Result = nil ) then
542. Raise Exception.Create( 'Cannot load method ' + QuotedStr( methodName ) + ' from dynamic library.' );
543. end;
545. procedure SetLuaLibFileName( newLuaLibFileName: String );
546. begin
547. fLuaLibFileName := newLuaLibFileName;
548. end;
550. function GetLuaLibFileName(): String;
551. begin
552. Result := fLuaLibFileName;
553. end;
555. function LuaLibLoaded: Boolean;
556. begin
557. Result := fLibHandle <> 0;
558. end;
562. function LoadLuaLib(newLuaLibFileName: String): Integer;
563. begin
564. FreeLuaLib();
566. if newLuaLibFileName <> '' then
567. SetLuaLibFileName( newLuaLibFileName );
569. if not FileExists( GetLuaLibFileName() ) then begin
570. Result := -1;
571. exit;
572. end;
574. fLibHandle := LoadLibrary(PWideChar( (GetLuaLibFileName() ) ));
576. if fLibHandle = 0 then begin
577. Result := -2;
578. exit;
579. end;
581. lua_newstate := GetProcAddr( fLibHandle, 'lua_newstate' );
582. lua_close := GetProcAddr( fLibHandle, 'lua_close' );
583. lua_newthread := GetProcAddr( fLibHandle, 'lua_newthread' );
584. lua_atpanic := GetProcAddr( fLibHandle, 'lua_atpanic' );
585. lua_gettop := GetProcAddr( fLibHandle, 'lua_gettop' );
586. lua_settop := GetProcAddr( fLibHandle, 'lua_settop' );
587. lua_pushvalue := GetProcAddr( fLibHandle, 'lua_pushvalue' );
588. lua_remove := GetProcAddr( fLibHandle, 'lua_remove' );
589. lua_insert := GetProcAddr( fLibHandle, 'lua_insert' );
590. lua_replace := GetProcAddr( fLibHandle, 'lua_replace' );
591. lua_checkstack := GetProcAddr( fLibHandle, 'lua_checkstack' );
592. lua_xmove := GetProcAddr( fLibHandle, 'lua_xmove' );
593. lua_isnumber := GetProcAddr( fLibHandle, 'lua_isnumber' );
594. lua_isstring := GetProcAddr( fLibHandle, 'lua_isstring' );
595. lua_iscfunction := GetProcAddr( fLibHandle, 'lua_iscfunction' );
596. lua_isuserdata := GetProcAddr( fLibHandle, 'lua_isuserdata' );
597. lua_type := GetProcAddr( fLibHandle, 'lua_type' );
598. lua_typename := GetProcAddr( fLibHandle, 'lua_typename' );
599. lua_equal := GetProcAddr( fLibHandle, 'lua_equal' );
600. lua_rawequal := GetProcAddr( fLibHandle, 'lua_rawequal' );
601. lua_lessthan := GetProcAddr( fLibHandle, 'lua_lessthan' );
602. lua_tonumber := GetProcAddr( fLibHandle, 'lua_tonumber' );
603. lua_tointeger := GetProcAddr( fLibHandle, 'lua_tointeger' );
604. lua_toboolean := GetProcAddr( fLibHandle, 'lua_toboolean' );
605. lua_tolstring := GetProcAddr( fLibHandle, 'lua_tolstring' );
606. lua_objlen := GetProcAddr( fLibHandle, 'lua_objlen' );
607. lua_tocfunction := GetProcAddr( fLibHandle, 'lua_tocfunction' );
608. lua_touserdata := GetProcAddr( fLibHandle, 'lua_touserdata' );
609. lua_tothread := GetProcAddr( fLibHandle, 'lua_tothread' );
610. lua_topointer := GetProcAddr( fLibHandle, 'lua_topointer' );
611. lua_pushnil := GetProcAddr( fLibHandle, 'lua_pushnil' );
612. lua_pushnumber := GetProcAddr( fLibHandle, 'lua_pushnumber' );
613. lua_pushinteger := GetProcAddr( fLibHandle, 'lua_pushinteger' );
614. lua_pushlstring := GetProcAddr( fLibHandle, 'lua_pushlstring' );
615. lua_pushstring := GetProcAddr( fLibHandle, 'lua_pushstring' );
616. lua_pushvfstring := GetProcAddr( fLibHandle, 'lua_pushvfstring' );
617. lua_pushfstring := GetProcAddr( fLibHandle, 'lua_pushfstring' );
618. lua_pushcclosure := GetProcAddr( fLibHandle, 'lua_pushcclosure' );
619. lua_pushboolean := GetProcAddr( fLibHandle, 'lua_pushboolean' );
620. lua_pushlightuserdata := GetProcAddr( fLibHandle, 'lua_pushlightuserdata' );
621. lua_pushthread := GetProcAddr( fLibHandle, 'lua_pushthread' );
622. lua_gettable := GetProcAddr( fLibHandle, 'lua_gettable' );
623. lua_getfield := GetProcAddr( fLibHandle, 'lua_getfield' );
624. lua_rawget := GetProcAddr( fLibHandle, 'lua_rawget' );
625. lua_rawgeti := GetProcAddr( fLibHandle, 'lua_rawgeti' );
626. lua_createtable := GetProcAddr( fLibHandle, 'lua_createtable' );
627. lua_newuserdata := GetProcAddr( fLibHandle, 'lua_newuserdata' );
628. lua_getmetatable := GetProcAddr( fLibHandle, 'lua_getmetatable' );
629. lua_getfenv := GetProcAddr( fLibHandle, 'lua_getfenv' );
630. lua_settable := GetProcAddr( fLibHandle, 'lua_settable' );
631. lua_setfield := GetProcAddr( fLibHandle, 'lua_setfield' );
632. lua_rawset := GetProcAddr( fLibHandle, 'lua_rawset' );
633. lua_rawseti := GetProcAddr( fLibHandle, 'lua_rawseti' );
634. lua_setmetatable := GetProcAddr( fLibHandle, 'lua_setmetatable' );
635. lua_setfenv := GetProcAddr( fLibHandle, 'lua_setfenv' );
636. lua_call := GetProcAddr( fLibHandle, 'lua_call' );
637. lua_pcall := GetProcAddr( fLibHandle, 'lua_pcall' );
638. lua_cpcall := GetProcAddr( fLibHandle, 'lua_cpcall' );
639. lua_load := GetProcAddr( fLibHandle, 'lua_load' );
640. lua_dump := GetProcAddr( fLibHandle, 'lua_dump' );
641. lua_yield := GetProcAddr( fLibHandle, 'lua_yield' );
642. lua_resume := GetProcAddr( fLibHandle, 'lua_resume' );
643. lua_status := GetProcAddr( fLibHandle, 'lua_status' );
644. lua_gc := GetProcAddr( fLibHandle, 'lua_gc' );
645. lua_error := GetProcAddr( fLibHandle, 'lua_error' );
646. lua_next := GetProcAddr( fLibHandle, 'lua_next' );
647. lua_concat := GetProcAddr( fLibHandle, 'lua_concat' );
648. lua_getallocf := GetProcAddr( fLibHandle, 'lua_getallocf' );
649. lua_setallocf := GetProcAddr( fLibHandle, 'lua_setallocf' );
650. lua_getstack := GetProcAddr( fLibHandle, 'lua_getstack' );
651. lua_getinfo := GetProcAddr( fLibHandle, 'lua_getinfo' );
652. lua_getlocal := GetProcAddr( fLibHandle, 'lua_getlocal' );
653. lua_setlocal := GetProcAddr( fLibHandle, 'lua_setlocal' );
654. lua_getupvalue := GetProcAddr( fLibHandle, 'lua_getupvalue' );
655. lua_setupvalue := GetProcAddr( fLibHandle, 'lua_setupvalue' );
656. lua_sethook := GetProcAddr( fLibHandle, 'lua_sethook' );
657. lua_gethook := GetProcAddr( fLibHandle, 'lua_gethook' );
658. lua_gethookmask := GetProcAddr( fLibHandle, 'lua_gethookmask' );
659. lua_gethookcount := GetProcAddr( fLibHandle, 'lua_gethookcount' );
660. luaopen_base := GetProcAddr( fLibHandle, 'luaopen_base' );
661. luaopen_table := GetProcAddr( fLibHandle, 'luaopen_table' );
662. luaopen_io := GetProcAddr( fLibHandle, 'luaopen_io' );
663. luaopen_os := GetProcAddr( fLibHandle, 'luaopen_os' );
664. luaopen_string := GetProcAddr( fLibHandle, 'luaopen_string' );
665. luaopen_math := GetProcAddr( fLibHandle, 'luaopen_math' );
666. luaopen_debug := GetProcAddr( fLibHandle, 'luaopen_debug' );
667. luaopen_package := GetProcAddr( fLibHandle, 'luaopen_package' );
668. luaL_openlibs := GetProcAddr( fLibHandle, 'luaL_openlibs' );
669. luaL_register := GetProcAddr( fLibHandle, 'luaL_register' );
670. luaL_getmetafield := GetProcAddr( fLibHandle, 'luaL_getmetafield' );
671. luaL_callmeta := GetProcAddr( fLibHandle, 'luaL_callmeta' );
672. luaL_typerror := GetProcAddr( fLibHandle, 'luaL_typerror' );
673. luaL_argerror := GetProcAddr( fLibHandle, 'luaL_argerror' );
674. luaL_checklstring := GetProcAddr( fLibHandle, 'luaL_checklstring' );
675. luaL_optlstring := GetProcAddr( fLibHandle, 'luaL_optlstring' );
676. luaL_checknumber := GetProcAddr( fLibHandle, 'luaL_checknumber' );
677. luaL_optnumber := GetProcAddr( fLibHandle, 'luaL_optnumber' );
678. luaL_checkinteger := GetProcAddr( fLibHandle, 'luaL_checkinteger' );
679. luaL_optinteger := GetProcAddr( fLibHandle, 'luaL_optinteger' );
680. luaL_checkstack := GetProcAddr( fLibHandle, 'luaL_checkstack' );
681. luaL_checktype := GetProcAddr( fLibHandle, 'luaL_checktype' );
682. luaL_checkany := GetProcAddr( fLibHandle, 'luaL_checkany' );
683. luaL_newmetatable := GetProcAddr( fLibHandle, 'luaL_newmetatable' );
684. luaL_checkudata := GetProcAddr( fLibHandle, 'luaL_checkudata' );
685. luaL_where := GetProcAddr( fLibHandle, 'luaL_where' );
686. luaL_error := GetProcAddr( fLibHandle, 'luaL_error' );
687. luaL_checkoption := GetProcAddr( fLibHandle, 'luaL_checkoption' );
688. luaL_ref := GetProcAddr( fLibHandle, 'luaL_ref' );
689. luaL_unref := GetProcAddr( fLibHandle, 'luaL_unref' );
690. {$ifdef LUA_COMPAT_GETN}
691. luaL_getn := GetProcAddr( fLibHandle, 'luaL_getn' );
692. luaL_setn := GetProcAddr( fLibHandle, 'luaL_setn' );
693. {
  $endif}
694. luaL_loadfile := GetProcAddr( fLibHandle, 'luaL_loadfile' );
695. luaL_loadbuffer := GetProcAddr( fLibHandle, 'luaL_loadbuffer' );
696. luaL_loadstring := GetProcAddr( fLibHandle, 'luaL_loadstring' );
697. luaL_newstate := GetProcAddr( fLibHandle, 'luaL_newstate' );
698. luaL_gsub := GetProcAddr( fLibHandle, 'luaL_gsub' );
699. luaL_findtable := GetProcAddr( fLibHandle, 'luaL_findtable' );
700. luaL_buffinit := GetProcAddr( fLibHandle, 'luaL_buffinit' );
701. luaL_prepbuffer := GetProcAddr( fLibHandle, 'luaL_prepbuffer' );
702. luaL_addlstring := GetProcAddr( fLibHandle, 'luaL_addlstring' );
703. luaL_addstring := GetProcAddr( fLibHandle, 'luaL_addstring' );
704. luaL_addvalue := GetProcAddr( fLibHandle, 'luaL_addvalue' );
705. luaL_pushresult := GetProcAddr( fLibHandle, 'luaL_pushresult' );
707. Result := fLibHandle;
708. end;
710. procedure FreeLuaLib();
711. begin
712. lua_newstate := nil;
713. lua_close := nil;
714. lua_newthread := nil;
715. lua_atpanic := nil;
716. lua_gettop := nil;
717. lua_settop := nil;
718. lua_pushvalue := nil;
719. lua_remove := nil;
720. lua_insert := nil;
721. lua_replace := nil;
722. lua_checkstack := nil;
723. lua_xmove := nil;
724. lua_isnumber := nil;
725. lua_isstring := nil;
726. lua_iscfunction := nil;
727. lua_isuserdata := nil;
728. lua_type := nil;
729. lua_typename := nil;
730. lua_equal := nil;
731. lua_rawequal := nil;
732. lua_lessthan := nil;
733. lua_tonumber := nil;
734. lua_tointeger := nil;
735. lua_toboolean := nil;
736. lua_tolstring := nil;
737. lua_objlen := nil;
738. lua_tocfunction := nil;
739. lua_touserdata := nil;
740. lua_tothread := nil;
741. lua_topointer := nil;
742. lua_pushnil := nil;
743. lua_pushnumber := nil;
744. lua_pushinteger := nil;
745. lua_pushlstring := nil;
746. lua_pushstring := nil;
747. lua_pushvfstring := nil;
748. lua_pushfstring := nil;
749. lua_pushcclosure := nil;
750. lua_pushboolean := nil;
751. lua_pushlightuserdata := nil;
752. lua_pushthread := nil;
753. lua_gettable := nil;
754. lua_getfield := nil;
755. lua_rawget := nil;
756. lua_rawgeti := nil;
757. lua_createtable := nil;
758. lua_newuserdata := nil;
759. lua_getmetatable := nil;
760. lua_getfenv := nil;
761. lua_settable := nil;
762. lua_setfield := nil;
763. lua_rawset := nil;
764. lua_rawseti := nil;
765. lua_setmetatable := nil;
766. lua_setfenv := nil;
767. lua_call := nil;
768. lua_pcall := nil;
769. lua_cpcall := nil;
770. lua_load := nil;
771. lua_dump := nil;
772. lua_yield := nil;
773. lua_resume := nil;
774. lua_status := nil;
775. lua_gc := nil;
776. lua_error := nil;
777. lua_next := nil;
778. lua_concat := nil;
779. lua_getallocf := nil;
780. lua_setallocf := nil;
781. lua_getstack := nil;
782. lua_getinfo := nil;
783. lua_getlocal := nil;
784. lua_setlocal := nil;
785. lua_getupvalue := nil;
786. lua_setupvalue := nil;
787. lua_sethook := nil;
788. lua_gethook := nil;
789. lua_gethookmask := nil;
790. lua_gethookcount := nil;
791. luaopen_base := nil;
792. luaopen_table := nil;
793. luaopen_io := nil;
794. luaopen_os := nil;
795. luaopen_string := nil;
796. luaopen_math := nil;
797. luaopen_debug := nil;
798. luaopen_package := nil;
799. luaL_openlibs := nil;
800. luaL_register := nil;
801. luaL_getmetafield := nil;
802. luaL_callmeta := nil;
803. luaL_typerror := nil;
804. luaL_argerror := nil;
805. luaL_checklstring := nil;
806. luaL_optlstring := nil;
807. luaL_checknumber := nil;
808. luaL_optnumber := nil;
809. luaL_checkinteger := nil;
810. luaL_optinteger := nil;
811. luaL_checkstack := nil;
812. luaL_checktype := nil;
813. luaL_checkany := nil;
814. luaL_newmetatable := nil;
815. luaL_checkudata := nil;
816. luaL_where := nil;
817. luaL_error := nil;
818. luaL_checkoption := nil;
819. luaL_ref := nil;
820. luaL_unref := nil;
821. {$ifdef LUA_COMPAT_GETN}
822. luaL_getn := nil;
823. luaL_setn := nil;
824. {
  $endif}
825. luaL_loadfile := nil;
826. luaL_loadbuffer := nil;
827. luaL_loadstring := nil;
828. luaL_newstate := nil;
829. luaL_gsub := nil;
830. luaL_findtable := nil;
831. luaL_buffinit := nil;
832. luaL_prepbuffer := nil;
833. luaL_addlstring := nil;
834. luaL_addstring := nil;
835. luaL_addvalue := nil;
836. luaL_pushresult := nil;
838. if fLibHandle <> 0 then begin
839. FreeLibrary( fLibHandle );
840. fLibHandle := 0;
841. end;
842. end;
844. {$ifndef LUA_COMPAT_GETN}
845. function luaL_getn(L: lua_State; t: Integer): Integer;
846. begin
847. Result := lua_objlen(L, t);
848. end;
850. procedure luaL_setn(L: lua_State; t, n: Integer);
851. begin
852. end;
853. {
  $endif}
855. function lua_upvalueindex(i: Integer): Integer;
856. begin
857. Result := LUA_GLOBALSINDEX - i;
858. end;
860. procedure lua_pop(L: lua_State; n: Integer);
861. begin
862. lua_settop(L, -(n) - 1);
863. end;
865. procedure lua_newtable(L: lua_State);
866. begin
867. lua_createtable(L, 0, 0);
868. end;
870. function lua_strlen(L: lua_State; i: Integer): Cardinal;
871. begin
872. result := lua_objlen(L, i);
873. end;
875. procedure lua_register(L: lua_state; name: PAnsiChar; f: lua_CFunction);
876. begin
877. lua_pushcfunction(L, f);
878. lua_setglobal(L, name);
879. end;
881. procedure lua_pushcfunction(L: lua_State; f: lua_CFunction);
882. begin
883. lua_pushcclosure(L, f, 0);
884. end;
886. function lua_isfunction(L: lua_State; idx: Integer): Boolean;
887. begin
888. Result := lua_type(L, idx) = LUA_TFUNCTION;
889. end;
891. function lua_istable(L: lua_State; idx: Integer): Boolean;
892. begin
893. Result := lua_type(L, idx) = LUA_TTABLE;
894. end;
896. function lua_islightuserdata(L: lua_State; idx: Integer): Boolean;
897. begin
898. Result := lua_type(L, idx) = LUA_TLIGHTUSERDATA;
899. end;
901. function lua_isnil(L: lua_State; idx: Integer): Boolean;
902. begin
903. Result := lua_type(L, idx) = LUA_TNIL;
904. end;
906. function lua_isboolean(L: lua_State; idx: Integer): Boolean;
907. begin
908. Result := lua_type(L, idx) = LUA_TBOOLEAN;
909. end;
911. function lua_isthread(L: lua_State; idx: Integer): Boolean;
912. begin
913. Result := lua_type(L, idx) = LUA_TTHREAD;
914. end;
916. function lua_isnone(L: lua_State; idx: Integer): Boolean;
917. begin
918. Result := lua_type(L, idx) = LUA_TNONE;
919. end;
921. function lua_isnoneornil(L: lua_State; idx: Integer): Boolean;
922. begin
923. Result := lua_type(L, idx) <= 0;
924. end;
926. procedure lua_pushliteral(L: lua_State; s: PAnsiChar);
927. begin
928. lua_pushlstring(L, s, StrLen(s));
929. end;
931. procedure lua_setglobal(L: lua_State; name: PAnsiChar);
932. begin
933. lua_setfield(L, LUA_GLOBALSINDEX, name);
934. end;
936. procedure lua_getglobal(L: lua_State; name: PAnsiChar);
937. begin
938. lua_getfield(L, LUA_GLOBALSINDEX, name);
939. end;
941. function lua_tostring(L: lua_State; idx: Integer): PAnsiChar;
942. var
943. len: Cardinal;
944. begin
945. Result := lua_tolstring(L, idx, len);
946. end;
948. function lua_getgccount(L: lua_State): Integer;
949. begin
950. Result := lua_gc(L, LUA_GCCOUNT, 0);
951. end;
953. function lua_open(): lua_State;
954. begin
955. Result := luaL_newstate();
956. end;
958. procedure lua_getregistry(L: lua_State);
959. begin
960. lua_pushvalue(L, LUA_REGISTRYINDEX);
961. end;
963. function lua_ref(L: lua_State; lock: Boolean): Integer;
964. begin
965. if lock then
966. Result := luaL_ref(L, LUA_REGISTRYINDEX)
967. else begin
968. lua_pushstring(L, 'unlocked references are obsolete');
969. Result := lua_error(L);
970. end;
971. end;
973. procedure lua_unref(L: lua_State; ref: Integer);
974. begin
975. luaL_unref(L, LUA_REGISTRYINDEX, ref);
976. end;
978. procedure lua_getref(L: lua_State; ref: Integer);
979. begin
980. lua_rawgeti(L, LUA_REGISTRYINDEX, ref);
981. end;
983. procedure lua_assert(c: Boolean);
984. begin
985. end;
987. function lua_number2str(s: Lua_Number; n: Integer): String;
988. begin
989. Result := FormatFloat( LUA_NUMBER_FMT, RoundTo( s, n ) );
990. end;
992. function lua_str2number(s: String; p: integer): Lua_Number;
993. begin
994. Result := RoundTo( StrToFloat( s ), p );
995. end;
997. function luaL_argcheck(L: lua_State; cond: Boolean; narg: Integer; extramsg: PAnsiChar): Integer;
998. begin
999. if cond then
1000. Result := 0
1001. else
1002. Result := luaL_argerror(L, narg, extramsg);
1003. end;
1005. function luaL_checkstring(L: lua_State; narg: Integer): PAnsiChar;
1006. var
1007. ls: Cardinal;
1008. begin
1009. Result := luaL_checklstring(L, narg, ls);
1010. end;
1012. function luaL_optstring(L: lua_State; narg: Integer; d: PAnsiChar): PAnsiChar;
1013. var
1014. ls: Cardinal;
1015. begin
1016. Result := luaL_optlstring(L, narg, d, ls);
1017. end;
1019. function luaL_checkint(L: lua_State; narg: Integer): Integer;
1020. begin
1021. Result := Trunc(luaL_checkinteger(L, narg));
1022. end;
1024. function luaL_optint(L: lua_State; narg, d: Integer): Integer;
1025. begin
1026. Result := Trunc(luaL_optinteger(L, narg, d));
1027. end;
1029. function luaL_checklong(L: lua_State; narg: Integer): LongInt;
1030. begin
1031. Result := Trunc(luaL_checkinteger(L, narg));
1032. end;
1034. function luaL_optlong(L: lua_State; narg: Integer; d: LongInt): LongInt;
1035. begin
1036. Result := Trunc(luaL_optinteger(L, narg, d));
1037. end;
1039. function luaL_typename(L: lua_State; idx: Integer): PAnsiChar;
1040. begin
1041. Result := lua_typename(L, lua_type(L, idx));
1042. end;
1044. function luaL_dofile(L: lua_State; filename: PAnsiChar): Integer;
1045. begin
1046. Result := luaL_loadfile(L, filename);
1048. If Result = 0 Then
1049. Result := lua_pcall(L, 0, LUA_MULTRET, 0);
1050. end;
1052. function luaL_dostring(L: lua_State; str: PAnsiChar): Integer;
1053. begin
1054. Result := luaL_loadstring(L, str);
1056. If Result = 0 Then
1057. Result := lua_pcall(L, 0, LUA_MULTRET, 0);
1058. end;
1060. procedure luaL_getmetatable(L: lua_State; tname: PAnsiChar);
1061. begin
1062. lua_getfield(L, LUA_REGISTRYINDEX, tname);
1063. end;
1065. procedure luaL_addchar(var B: luaL_Buffer; c: AnsiChar);
1066. begin
1067. if Integer(B.p) < Integer(B.buffer + LUAL_BUFFERSIZE) then
1068. luaL_prepbuffer(B);
1070. B.p^ := c;
1071. Inc(B.p);
1072. { // original C code
1073. #define luaL_addchar(B,c) \
1074. ((void)((B)->p < ((B)->buffer+LUAL_BUFFERSIZE) || luaL_prepbuffer(B)), \
1075. (*(B)->p++ = (char)(c)))
1076. }
1077. end;
1079. procedure luaL_putchar(var B: luaL_Buffer; c: AnsiChar);
1080. begin
1081. luaL_addchar(B, c);
1082. end;
1084. procedure luaL_addsize(var B: luaL_Buffer; n: Cardinal);
1085. begin
1086. Inc(B.p, n);
1087. end;
1089. function luaL_check_lstr(L: lua_State; numArg: Integer; var ls: Cardinal): PAnsiChar;
1090. begin
1091. Result := luaL_checklstring(L, numArg, ls);
1092. end;
1094. function luaL_opt_lstr(L: lua_State; numArg: Integer; def: PAnsiChar; var ls: Cardinal): PAnsiChar;
1095. begin
1096. Result := luaL_optlstring(L, numArg, def, ls);
1097. end;
1099. function luaL_check_number(L: lua_State; numArg: Integer): lua_Number;
1100. begin
1101. Result := luaL_checknumber(L, numArg);
1102. end;
1104. function luaL_opt_number(L: lua_State; nArg: Integer; def: lua_Number): lua_Number;
1105. begin
1106. Result := luaL_optnumber(L, nArg, def);
1107. end;
1109. function luaL_arg_check(L: lua_State; cond: Boolean; numarg: Integer; extramsg: PAnsiChar): Integer;
1110. begin
1111. Result := luaL_argcheck(L, cond, numarg, extramsg);
1112. end;
1114. function luaL_check_string(L: lua_State; n: Integer): PAnsiChar;
1115. begin
1116. Result := luaL_checkstring(L, n);
1117. end;
1119. function luaL_opt_string(L: lua_State; n: Integer; d: PAnsiChar): PAnsiChar;
1120. begin
1121. Result := luaL_optstring(L, n, d);
1122. end;
1124. function luaL_check_int(L: lua_State; n: Integer): Integer;
1125. begin
1126. Result := luaL_checkint(L, n);
1127. end;
1129. function luaL_check_long(L: lua_State; n: LongInt): LongInt;
1130. begin
1131. Result := luaL_checklong(L, n);
1132. end;
1134. function luaL_opt_int(L: lua_State; n, d: Integer): Integer;
1135. begin
1136. Result := luaL_optint(L, n, d);
1137. end;
1139. function luaL_opt_long(L: lua_State; n: Integer; d: LongInt): LongInt;
1140. begin
1141. Result := luaL_optlong(L, n, d);
1142. end;
1144. end.