mirror of https://gitlab.com/basile.b/dexed.git
85 lines
2.5 KiB
Plaintext
85 lines
2.5 KiB
Plaintext
program cedast_loader;
|
|
|
|
uses dynlibs, classes, sysutils;
|
|
|
|
type
|
|
|
|
TAstToken = NativeInt;
|
|
|
|
{$Z1}
|
|
TSerializationFormat = (json, pas);
|
|
|
|
TScanFile = function(filename: PChar): TAstToken; cdecl;
|
|
TScanBuffer = function(buffer: PByte; len: NativeUint): TAstToken; cdecl;
|
|
TRescanFile = procedure(tok: TAstToken); cdecl;
|
|
TRescanBuffer = procedure(tok: TAstToken; buffer: PByte; len: NativeUint); cdecl;
|
|
TUnleash = procedure(tok: TAstToken); cdecl;
|
|
|
|
TModuleName = function(tok: TAstToken): PChar; cdecl;
|
|
TSymbolList = function(tok: TAstToken; var len: NativeUint ; fmt: TSerializationFormat): PByte; cdecl;
|
|
|
|
|
|
|
|
var
|
|
dast: TLibHandle;
|
|
scanfile: TScanFile;
|
|
scanbuffer: TScanBuffer;
|
|
rescanfile: TRescanFile;
|
|
rescanbuffer: TRescanBuffer;
|
|
unleash: TUnleash;
|
|
moduleName: TModuleName;
|
|
symlist: TSymbolList;
|
|
tok: TAstToken;
|
|
len: NativeUint = 0;
|
|
ptr: PByte;
|
|
|
|
const
|
|
testModule = 'module a.b.c.d.e.f.g.h; import std.stdio; uint a; struct F{long c;}';
|
|
|
|
|
|
begin
|
|
|
|
dast := LoadLibrary('cedast');
|
|
if dast = NilHandle then
|
|
writeln('dast invalid handle')
|
|
else begin
|
|
scanfile := TScanFile(GetProcAddress(dast, 'scanFile'));
|
|
if scanFile = nil then writeln('invalid scanfile proc ptr')
|
|
else tok := scanfile(PChar('exception in call so ticket value is 0'));
|
|
|
|
rescanfile := TRescanFile(GetProcAddress(dast, 'rescanFile'));
|
|
if rescanfile = nil then writeln('invalid rescanFile proc ptr')
|
|
else rescanfile(tok);
|
|
|
|
scanbuffer := TScanBuffer(GetProcAddress(dast, 'scanBuffer'));
|
|
if scanbuffer = nil then writeln('invalid scanBuffer proc ptr')
|
|
else tok := scanbuffer(@testModule[1], length(testModule));
|
|
|
|
rescanbuffer := TRescanBuffer(GetProcAddress(dast, 'rescanBuffer'));
|
|
if rescanbuffer = nil then writeln('invalid rescanBuffer proc ptr')
|
|
else rescanbuffer(tok, @testmodule[1], length(testModule));
|
|
|
|
moduleName := TModuleName(GetProcAddress(dast, 'moduleName'));
|
|
if moduleName = nil then writeln('invalid moduleName proc ptr')
|
|
else if tok <> 0 then writeln(moduleName(tok));
|
|
|
|
symlist := TSymbolList(GetProcAddress(dast, 'symbolList'));
|
|
if symlist = nil then writeln('invalid symbolList proc ptr')
|
|
else if tok <> 0 then with TMemoryStream.Create do try
|
|
ptr := symlist(tok, len, TSerializationFormat.json);
|
|
write(ptr^, len);
|
|
SaveToFile('testsymlist.txt');
|
|
finally
|
|
free;
|
|
end;
|
|
|
|
unleash := TUnleash(GetProcAddress(dast, 'unleash'));
|
|
if unleash = nil then writeln('invalid unleash proc ptr')
|
|
else unleash(tok);
|
|
|
|
end;
|
|
|
|
readln;
|
|
end.
|
|
|