473a654900
change createTimer to accept 0 parameters Removed and shiften some internal counters in the pointerscanner and added nonstatic vtable pointers as an option
135 lines
3.4 KiB
ObjectPascal
135 lines
3.4 KiB
ObjectPascal
unit LuaTimer;
|
|
|
|
{$mode delphi}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, ExtCtrls, lua, lualib, lauxlib, CustomTimer;
|
|
|
|
procedure initializeLuaTimer;
|
|
|
|
implementation
|
|
|
|
uses luaclass, luahandler, luacaller, LuaComponent;
|
|
|
|
function createTimer(L: Plua_State): integer; cdecl;
|
|
var parameters: integer;
|
|
f: pointer;
|
|
|
|
t: TTimer;
|
|
begin
|
|
result:=0;
|
|
parameters:=lua_gettop(L);
|
|
|
|
|
|
|
|
|
|
if parameters>=1 then
|
|
f:=lua_toceuserdata(L, 1)
|
|
else
|
|
f:=nil;
|
|
|
|
t:=ttimer.create(f);
|
|
|
|
if parameters>=2 then
|
|
t.Enabled:=lua_toboolean(L, 2)
|
|
else
|
|
t.enabled:=true;
|
|
|
|
luaclass_newClass(L, t);
|
|
result:=1;
|
|
end;
|
|
|
|
function timer_getInterval(L: Plua_State): integer; cdecl;
|
|
var
|
|
t: TCustomTimer;
|
|
begin
|
|
t:=luaclass_getClassObject(L);
|
|
lua_pushinteger(L, t.Interval);
|
|
result:=1;
|
|
end;
|
|
|
|
function timer_setInterval(L: Plua_State): integer; cdecl;
|
|
var
|
|
t: TCustomTimer;
|
|
begin
|
|
result:=0;
|
|
t:=luaclass_getClassObject(L);
|
|
if lua_gettop(L)>=1 then
|
|
t.Interval:=lua_tointeger(L, -1);
|
|
end;
|
|
|
|
function timer_getOnTimer(L: PLua_State): integer; cdecl;
|
|
var
|
|
c: TCustomTimer;
|
|
begin
|
|
c:=luaclass_getClassObject(L);
|
|
LuaCaller_pushMethodProperty(L, TMethod(c.OnTimer), 'TNotifyEvent');
|
|
result:=1;
|
|
end;
|
|
|
|
function timer_setonTimer(L: PLua_State): integer; cdecl;
|
|
var
|
|
timer: TCustomTimer;
|
|
m: tmethod;
|
|
begin
|
|
if lua_gettop(L)>=1 then
|
|
begin
|
|
timer:=luaclass_getClassObject(L);
|
|
m:=tmethod(timer.ontimer);
|
|
LuaCaller_setMethodProperty(L, m, 'TNotifyEvent', lua_gettop(L));
|
|
timer.ontimer:=tnotifyevent(m);
|
|
end;
|
|
result:=0;
|
|
end;
|
|
|
|
function timer_getEnabled(L: Plua_State): integer; cdecl;
|
|
var
|
|
t: TCustomTimer;
|
|
begin
|
|
t:=luaclass_getClassObject(L);
|
|
lua_pushboolean(L, t.Enabled);
|
|
result:=1;
|
|
end;
|
|
|
|
function timer_setEnabled(L: Plua_State): integer; cdecl;
|
|
var
|
|
t: TCustomTimer;
|
|
begin
|
|
result:=0;
|
|
t:=luaclass_getClassObject(L);
|
|
if lua_gettop(L)>=1 then
|
|
t.Enabled:=lua_toboolean(L, -1);
|
|
end;
|
|
|
|
procedure timer_addMetaData(L: PLua_state; metatable: integer; userdata: integer );
|
|
begin
|
|
component_addMetaData(L, metatable, userdata);
|
|
luaclass_addClassFunctionToTable(L, metatable, userdata, 'getInterval', timer_setInterval);
|
|
luaclass_addClassFunctionToTable(L, metatable, userdata, 'setInterval', timer_setInterval);
|
|
luaclass_addClassFunctionToTable(L, metatable, userdata, 'getOnTimer', timer_getonTimer);
|
|
luaclass_addClassFunctionToTable(L, metatable, userdata, 'setOnTimer', timer_setonTimer);
|
|
luaclass_addClassFunctionToTable(L, metatable, userdata, 'setEnabled', timer_setEnabled);
|
|
luaclass_addClassFunctionToTable(L, metatable, userdata, 'getEnabled', timer_getEnabled);
|
|
|
|
Luaclass_addPropertyToTable(L, metatable, userdata, 'OnTimer', timer_getonTimer, timer_setonTimer);
|
|
Luaclass_addPropertyToTable(L, metatable, userdata, 'Enabled', timer_getEnabled, timer_setEnabled);
|
|
Luaclass_addPropertyToTable(L, metatable, userdata, 'Interval', timer_getInterval, timer_setInterval);
|
|
end;
|
|
|
|
procedure initializeLuaTimer;
|
|
begin
|
|
lua_register(LuaVM, 'createTimer', createTimer);
|
|
lua_register(LuaVM, 'timer_setInterval', timer_setInterval);
|
|
lua_register(LuaVM, 'timer_onTimer', timer_setonTimer);
|
|
lua_register(LuaVM, 'timer_setEnabled', timer_setEnabled);
|
|
lua_register(LuaVM, 'timer_getEnabled', timer_getEnabled);
|
|
end;
|
|
|
|
initialization
|
|
luaclass_register(TCustomTimer, timer_addMetaData);
|
|
|
|
end.
|
|
|