Changeset 38 for trunk/Compiler/UCompiler.pas

Timestamp:

Feb 25, 2012, 6:04:21 PM (12 years ago)

Author:

chronos

Message:

• Modified: Compiler now require source file list which should be composed of project files and project dependency packages files.

File:

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

trunk/Compiler/UCompiler.pas

@@ -6 +6 @@
 
 uses
-  SysUtils, Variants, Classes, Contnrs, UAnalyzers, UProducers,
-  Dialogs, USourceCode, UProducer, UAnalyzer;
+  SysUtils, Variants, Classes, Contnrs, UAnalyzers, UProducers, FileUtil,
+  Dialogs, USourceCode, UProducer, UAnalyzer, SpecializedList;
 
 type
@@ -36 +36 @@
     FOnErrorMessage: TErrorMessageEvent;
     FProducerType: TProducerType;
+    FProducer: TProducer;
+    function GetSource(Name: string; var SourceCode: string): Boolean;
     procedure ErrorMessage(Text: string; Position: TPoint; FileName: string);
     procedure SetAnalyzer(const AValue: TAnalyzer);
+    procedure SetProducer(AValue: TProducer);
+    procedure AnalyzeAll;
+    procedure ProduceAll;
   public
-    ProgramCode: TProgram;
-    Producer: TProducer;
-    ErrorMessages: TObjectList;
+    AbstractCode: TProgram;
+    ErrorMessages: TListObject;
     CompiledFolder: string;
     SupportedTargets: TCompilerTargetList;
@@ -48 +52 @@
     Producers: TListProducer;
     Analyzers: TListAnalyzer;
+    SourceFiles: TListString;
     constructor Create;
     destructor Destroy; override;
     procedure Init;
-    procedure Compile(ModuleName: string; Source: TStringList);
+    procedure Compile;
     property OnErrorMessage: TErrorMessageEvent read FOnErrorMessage
       write FOnErrorMessage;
     property Analyzer: TAnalyzer read FAnalyzer write SetAnalyzer;
+    property Producer: TProducer read FProducer write SetProducer;
   end;
 
 implementation
 
+resourcestring
+  SNothingToAnalyze = 'Nothing to analyze';
+
 { TCompiler }
 
-procedure TCompiler.Compile(ModuleName: string; Source: TStringList);
-var
-  NewModule: TModule;
-  ProducedCode: TStringList;
-  I: Integer;
-  TargetFileName: string;
-begin
-  try
-    ProducedCode := TStringList.Create;
-    Analyzer.FileName := ModuleName;
-    Analyzer.SourceCode := Source.Text;
-    Analyzer.Process;
-    //ShowMessage(IntToHex(Integer(Addr(Analyzer.OnGetSource)), 8));
-    Analyzer.ParseModule(ProgramCode);
-    with ProgramCode do
-    for I := 0 to Modules.Count - 1 do begin
-      Producer.Produce(TModule(Modules[I]));
-      Producer.AssignToStringList(ProducedCode);
-      TargetFileName := TargetFolder + DirectorySeparator +
-        CompiledFolder + DirectorySeparator + Producer.Name +
-        DirectorySeparator + TModule(Modules[I]).TargetFile;
-      ForceDirectories(ExtractFileDir(TargetFileName));
-      ProducedCode.SaveToFile(TargetFileName);
-    end;
-  finally
-    ProducedCode.Free;
-  end;
+procedure TCompiler.Compile;
+begin
+  AnalyzeAll;
+  ProduceAll;
 end;
 
@@ -94 +80 @@
   Analyzers := TListAnalyzer.Create;
   Producers := TListProducer.Create;
+  SourceFiles := TListString.Create;
 
   RegisterAnalyzers(Self);
@@ -106 +93 @@
   SupportedTargets.Add('Dallas', 'DS89C450', '8052');
 
-  ProgramCode := TProgram.Create;
+  AbstractCode := TProgram.Create;
   Producer := nil;
   Analyzer := nil;
-  ErrorMessages := TObjectList.Create;
+  ErrorMessages := TListObject.Create;
   CompiledFolder := 'Compiled';
 end;
@@ -116 +103 @@
 begin
   ErrorMessages.Clear;
-  ProgramCode.Modules.Clear;
+  AbstractCode.Modules.Clear;
 end;
 
 destructor TCompiler.Destroy;
 begin
-  ProgramCode.Free;
+  AbstractCode.Free;
   Analyzers.Free;
   Producers.Free;
   ErrorMessages.Free;
   SupportedTargets.Free;
+  SourceFiles.Free;
+end;
+
+function TCompiler.GetSource(Name: string; var SourceCode: string): Boolean;
+var
+  I: Integer;
+  F: TFileStream;
+begin
+  I := 0;
+  while (I < SourceFiles.Count) and (ExtractFileNameOnly(SourceFiles[I]) <> Name) do Inc(I);
+  if I < SourceFiles.Count then begin
+    if FileExistsUTF8(SourceFiles[I]) then
+      try
+        F := TFileStream.Create(UTF8Decode(SourceFiles[I]), fmOpenRead);
+        SetLength(SourceCode, F.Size);
+        if F.Size > 0 then
+          F.Read(SourceCode[1], F.Size);
+        Result := True;
+      finally
+        F.Free;
+      end else Result := False;
+  end else Result := False;
 end;
 
@@ -144 +153 @@
   if FAnalyzer = AValue then exit;
   FAnalyzer := AValue;
-  if Assigned(Analyzer) then
+  if Assigned(Analyzer) then begin
     Analyzer.OnErrorMessage := ErrorMessage;
+    Analyzer.OnGetSource := GetSource;
+  end;
+end;
+
+procedure TCompiler.SetProducer(AValue: TProducer);
+begin
+  if FProducer = AValue then Exit;
+  FProducer := AValue;
+end;
+
+procedure TCompiler.AnalyzeAll;
+begin
+  if SourceFiles.Count > 0 then begin
+    Analyzer.FileName := SourceFiles[0];
+    Analyzer.OnGetSource(ExtractFileNameOnly(Analyzer.FileName), Analyzer.SourceCode);
+    Analyzer.Process;
+    //ShowMessage(IntToHex(Integer(Addr(Analyzer.OnGetSource)), 8));
+    Analyzer.ParseModule(AbstractCode);
+  end else raise Exception.Create(SNothingToAnalyze);
+end;
+
+procedure TCompiler.ProduceAll;
+var
+  NewModule: TModule;
+  ProducedCode: TStringList;
+  I: Integer;
+  TargetFileName: string;
+begin
+  try
+    ProducedCode := TStringList.Create;
+    with AbstractCode do
+    for I := 0 to Modules.Count - 1 do begin
+      Producer.Produce(TModule(Modules[I]));
+      Producer.AssignToStringList(ProducedCode);
+      TargetFileName := TargetFolder + DirectorySeparator +
+        CompiledFolder + DirectorySeparator + Producer.Name +
+        DirectorySeparator + TModule(Modules[I]).TargetFile;
+      ForceDirectoriesUTF8(ExtractFileDir(TargetFileName));
+      ProducedCode.SaveToFile(TargetFileName);
+    end;
+  finally
+    ProducedCode.Free;
+  end;
 end;