Changeset 92

Timestamp:

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

Author:

chronos

Message:

• Added: Allow to register analyzer.

Location:

branches/dcomp/CmdLine

Files:

• Compiler/UAnalyzer.pas (modified) (1 diff)
• Compiler/UAnalyzerPascal.pas (added)
• Compiler/UCompiler.pas (modified) (4 diffs)
• dcomp.dpr (modified) (2 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.

branches/dcomp/CmdLine/dcomp.dpr

@@ -2 +2 @@
 
 uses
-  UCompiler, UTargetPHP;
+  UCompiler, UTargetPHP, UAnalyzerPascal;
 
 var
@@ -9 +9 @@
   Compiler := TCompiler.Create;
   Compiler.RegisterTarget(TTargetPHP);
+  Compiler.RegisterAnalyzer(TAnalyzerPascal);
   Compiler.Compile;
   Compiler.Free;