Changeset 92 for branches/dcomp/CmdLine/Compiler

Timestamp:

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

Author:

chronos

Message:

• Added: Allow to register analyzer.

Location:

branches/dcomp/CmdLine/Compiler

Files:

• UAnalyzer.pas (modified) (1 diff)
• UAnalyzerPascal.pas (added)
• UCompiler.pas (modified) (4 diffs)

branches/dcomp/CmdLine/Compiler/UAnalyzer.pas

@@ -5 +5 @@
 type
   TAnalyzer = class
-    procedure Analyze;
+    procedure Analyze; virtual;
   end;
+
+  TAnalyzerClass = class of TAnalyzer;
 
 implementation

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.