-
Notifications
You must be signed in to change notification settings - Fork 34
/
uHelper.SyntaxNode.pas
101 lines (97 loc) · 3.07 KB
/
uHelper.SyntaxNode.pas
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
unit uHelper.SyntaxNode;
interface
uses
DelphiAST, DelphiAST.Classes, DelphiAST.Consts, DelphiAST.Writer,
System.Classes, System.IOUtils, System.SysUtils, uSerializer;
type
TSyntaxNodeHelper = class helper for TSyntaxNode
function FindMethodFromLine(ALine : Integer) : TSyntaxNode;
function FindMethodFromParent : TSyntaxNode;
class function ParseFile(const AFIleName : string; const APlatform: string) : string;
class function ParseText(const AText : string; const APlatform: string) : string;
end;
implementation
{ TSyntaxNodeHelper }
{------------------------------------------------------------------------------}
function TSyntaxNodeHelper.FindMethodFromLine(ALine: Integer): TSyntaxNode;
var
LChildNode, tempNode : TSyntaxNode;
begin
Result := nil;
if Line = ALine then
Result := Self
else
for LChildNode in ChildNodes do
begin
tempNode := LChildNode.FindMethodFromLine(ALine);
if Assigned(tempNode) then
begin
Result := tempNode.FindMethodFromParent;
Break;
end;
end;
end;
{------------------------------------------------------------------------------}
function TSyntaxNodeHelper.FindMethodFromParent: TSyntaxNode;
var
LIsFind : Boolean;
LParentNode, tempNode : TSyntaxNode;
begin
Result := nil;
LParentNode := self;
while Assigned(LParentNode) do
begin
if LParentNode.Typ <> TSyntaxNodeType.ntMethod then
LParentNode := LParentNode.ParentNode
else
begin
Result := LParentNode;
Break;
end;
end;
end;
{------------------------------------------------------------------------------}
class function TSyntaxNodeHelper.ParseFile(const AFileName: string; const APlatform: String): string;
var
ASTBuilder: TPasSyntaxTreeBuilder;
StringStream: TStringStream;
SyntaxTree: TSyntaxNode;
LStream : TStringStream;
LData : string;
begin
Result := '';
if TSerializerUtils.LoadString(AFileName, LData) then
Result := ParseText(LData, APlatform);
end;
{------------------------------------------------------------------------------}
class function TSyntaxNodeHelper.ParseText(const AText,
APlatform: string): string;
var
ASTBuilder: TPasSyntaxTreeBuilder;
StringStream: TStringStream;
SyntaxTree: TSyntaxNode;
LStream : TStringStream;
begin
Result := '';
StringStream := TStringStream.Create(AText, TEncoding.Unicode);
try
StringStream.Position := 0;
ASTBuilder := TPasSyntaxTreeBuilder.Create;
try
ASTBuilder.AddDefine(APlatform);
ASTBuilder.InitDefinesDefinedByCompiler;
SyntaxTree := ASTBuilder.Run(StringStream);
try
Result := TSyntaxTreeWriter.ToXML(SyntaxTree, True);
finally
SyntaxTree.Free;
end;
finally
ASTBuilder.Free;
end;
finally
StringStream.Free;
end;
end;
{------------------------------------------------------------------------------}
end.