Changeset 92 for branches/dcomp/CmdLine/Compiler/UCompiler.pas

Timestamp:

Nov 4, 2016, 4:25:29 PM (8 years ago)

Author:

chronos

Message:

• Added: Allow to register analyzer.

File:

• branches/dcomp/CmdLine/Compiler/UCompiler.pas (modified) (4 diffs)

branches/dcomp/CmdLine/Compiler/UCompiler.pas

@@ -7 +7 @@
 
 type
+
+  { TCompiler }
+
   TCompiler = class
+    Analyzers: array of TAnalyzer;
     Targets: array of TTarget;
     Analyzer: TAnalyzer;
@@ -13 +17 @@
     procedure Compile;
     procedure RegisterTarget(TargetClass: TTargetClass);
+    procedure RegisterAnalyzer(AnalyzerClass: TAnalyzerClass);
   end;
 
@@ -19 +24 @@
 procedure TCompiler.Compile;
 begin
+  if Assigned(Analyzer) then Analyzer.Analyze
+    else raise Exception.Create('Undefined analyzer');
   if Assigned(Target) then Target.Produce
     else raise Exception.Create('Undefined target');
@@ -32 +39 @@
 end;
 
+procedure TCompiler.RegisterAnalyzer(AnalyzerClass: TAnalyzerClass);
+begin
+  SetLength(Analyzers, Length(Analyzers) + 1);
+  Analyzers[Length(Analyzers) - 1] := AnalyzerClass.Create;
+  if not Assigned(Analyzer) then
+    Analyzer := Analyzers[Length(Analyzers) - 1];
+end;
+
 end.