Changeset 72 for trunk/Compiler/UCompiler.pas

Timestamp:

Aug 1, 2012, 12:16:08 PM (12 years ago)

Author:

chronos

Message:

• Added: Introduced concept of graph of source file set converters similar to IntToStr, StrToInt, FloatToStr, StrToFloat, e.g.
• Modified: Some target definitions transformed to loadable modules.

File:

• trunk/Compiler/UCompiler.pas (modified) (5 diffs)

trunk/Compiler/UCompiler.pas

@@ -7 +7 @@
 uses
   SysUtils, Variants, Classes, Contnrs, FileUtil, UModularSystem, UCompilerAPI,
-  Dialogs, USourceCode, UProducer, UAnalyzer, SpecializedList, UTarget;
+  Dialogs, USourceCodePascal, UProducer, UAnalyzer, SpecializedList, UTarget;
 
 type
@@ -47 +47 @@
     CompiledFolder: string;
 
+    Targets: TListTarget;
+    Analyzers: TListAnalyzer;
+    Convertors: TListObject;
+    Executors: TListObject;
     API: TCompilerAPI;
     TargetFolder: string;
@@ -163 +167 @@
 constructor TCompiler.Create;
 begin
+  Targets := TListTarget.Create;
+  Analyzers := TListAnalyzer.Create;
+  Convertors := TListObject.Create;
+  Executors := TListObject.Create;
   API := TCompilerAPI.Create;
   AbstractCode := TProgram.Create;
@@ -182 +190 @@
   FreeAndNil(AbstractCode);
   FreeAndNil(ErrorMessages);
+  FreeAndNil(Targets);
+  FreeAndNil(Analyzers);
+  FreeAndNil(Executors);
+  FreeAndNil(Convertors);
 end;
 
@@ -210 +222 @@
   if MainSource <> '' then begin
     Analyzer.FileName := MainSource;
-    Analyzer.OnGetSource(ExtractFileName(Analyzer.FileName), Analyzer.SourceCode);
+    Analyzer.OnGetSource(ExtractFileName(Analyzer.FileName), Analyzer.SourceCode2);
     Analyzer.Process;
     //ShowMessage(IntToHex(Integer(Addr(Analyzer.OnGetSource)), 8));