6c72f2a9d5
Also added some new fields to get in the dotnetdatacollector and monodatacollector so you'll need to recompile those
601 lines
14 KiB
ObjectPascal
601 lines
14 KiB
ObjectPascal
unit LuaDotNetPipe;
|
|
|
|
{$mode delphi}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils;
|
|
|
|
procedure initializeLuaDotNetPipe;
|
|
|
|
implementation
|
|
|
|
uses luahandler, lua, lauxlib, lualib, luaclass, LuaObject, symbolhandler, dotnetpipe, Maps;
|
|
|
|
function dotnetpipe_enumDomains(L: PLua_state): integer; cdecl;
|
|
var
|
|
dnp: TDotNetPipe;
|
|
domains: TDotNetDomainArray;
|
|
i: integer;
|
|
arraytable: integer;
|
|
begin
|
|
dnp:=luaclass_getClassObject(L);
|
|
|
|
setlength(domains,0);
|
|
dnp.EnumDomains(domains);
|
|
lua_createtable(L,length(domains),0);
|
|
|
|
for i:=0 to length(domains)-1 do
|
|
begin
|
|
lua_pushinteger(L,i+1);
|
|
lua_createtable(L,0,2);
|
|
|
|
lua_pushstring(L, 'DomainHandle');
|
|
lua_pushinteger(L, domains[i |