Changeset 59 for trunk/Compiler/UCompiler.pas

Timestamp:

Jul 17, 2012, 6:44:54 AM (12 years ago)

Author:

chronos

Message:

• Modified: Compiler will accept source code not only from files but it can be feed by in-memory content.

File:

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

trunk/Compiler/UCompiler.pas

@@ -16 +16 @@
   end;
 
+  { TSourceFileManager }
+
+  TSourceFileManager = class
+    Files: TListString;
+    function LoadStringFromFile(FileName: string): string;
+    procedure SaveStringToFile(FileName: string; Content: string);
+  public
+    function GetFileContent(Name: string; var Content: string): Boolean;
+    function SetFileContent(Name: string; const Content: string): Boolean;
+    constructor Create;
+    destructor Destroy; override;
+  end;
+
   { TCompilerList }
 
@@ -21 +34 @@
   private
     FAnalyzer: TAnalyzer;
+    FOnLoadSource: TGetSourceEvent;
+    FOnSaveTarget: TWriteTargetEvent;
     FTarget: TTarget;
     FOnErrorMessage: TErrorMessageEvent;
-    function GetSource(Name: string; var SourceCode: string): Boolean;
-    function WriteTarget(Name: string; TargetCode: string): Boolean;
     procedure ErrorMessage(Text: string; Position: TPoint; FileName: string);
     procedure SetAnalyzer(const AValue: TAnalyzer);
@@ -38 +51 @@
     Targets: TListTarget;
     MainSource: string;
-    SourceFiles: TListString;
-    TargetFiles: TListString;
-    constructor Create;
+    constructor Create; virtual;
     destructor Destroy; override;
     procedure Init;
@@ -48 +59 @@
     property Analyzer: TAnalyzer read FAnalyzer write SetAnalyzer;
     property Target: TTarget read FTarget write SetTarget;
+    property OnLoadSource: TGetSourceEvent read FOnLoadSource write FOnLoadSource;
+    property OnSaveTarget: TWriteTargetEvent read FOnSaveTarget write FOnSaveTarget;
   end;
 
@@ -60 +73 @@
   SRewritingExistedTarget = 'Reqriting existing target file %s';
 
+{ TSourceFileManager }
+
+function TSourceFileManager.LoadStringFromFile(FileName: string): string;
+var
+  F: TFileStream;
+begin
+  try
+    F := TFileStream.Create(UTF8Decode(FileName), fmOpenRead);
+    SetLength(Result, F.Size);
+    if F.Size > 0 then
+      F.Read(Result[1], F.Size);
+  finally
+    F.Free;
+  end;
+end;
+
+procedure TSourceFileManager.SaveStringToFile(FileName: string; Content: string);
+var
+  F: TFileStream;
+begin
+  try
+    ForceDirectoriesUTF8(ExtractFileDir(FileName));
+    if FileExistsUTF8(FileName) then
+      F := TFileStream.Create(UTF8Decode(FileName), fmOpenWrite)
+      else F := TFileStream.Create(UTF8Decode(FileName), fmCreate);
+    F.Size := 0;
+    if Length(Content) > 0 then
+      F.Write(Content[1], Length(Content));
+  finally
+    F.Free;
+  end;
+end;
+
+function TSourceFileManager.GetFileContent(Name: string; var Content: string): Boolean;
+var
+  I: Integer;
+begin
+  I := 0;
+  while (I < Files.Count) and (ExtractFileNameOnly(Files[I]) <> Name) do Inc(I);
+  if I < Files.Count then begin
+    if FileExistsUTF8(Files[I]) then begin
+      Content := LoadStringFromFile(Files[I]);
+      Result := True;
+    end else Result := False;
+  end else Result := False;
+end;
+
+function TSourceFileManager.SetFileContent(Name: string; const Content: string
+  ): Boolean;
+var
+  I: Integer;
+  F: TFileStream;
+begin
+  I := 0;
+  while (I < Files.Count) and (ExtractFileNameOnly(Files[I]) <> Name) do Inc(I);
+  if I >= Files.Count then begin
+    SaveStringToFile(Name, Content);
+    Result := True;
+    Files.Add(Name);
+  end else begin
+    Result := False;
+    //ErrorMessage(Format(SRewritingExistedTarget, [Name]), Point(0, 0), '');
+  end;
+end;
+
+constructor TSourceFileManager.Create;
+begin
+  Files := TListString.Create;
+end;
+
+destructor TSourceFileManager.Destroy;
+begin
+  Files.Free;
+  inherited Destroy;
+end;
+
 { TCompiler }
 
 procedure TCompiler.Compile;
 begin
+  Analyzer.OnGetSource := OnLoadSource;
   AnalyzeAll;
+  if Assigned(Target.Producer) then
+    Target.Producer.OnWriteTarget := OnSaveTarget;
   ProduceAll;
 end;
@@ -72 +164 @@
   Analyzer := TAnalyzerPascal.Create;
   Targets := TListTarget.Create;
-  SourceFiles := TListString.Create;
-  TargetFiles := TListString.Create;
 
   RegisterTargets(Self);
@@ -94 +184 @@
   Targets.Free;
   ErrorMessages.Free;
-  SourceFiles.Free;
-  TargetFiles.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;
-
-function TCompiler.WriteTarget(Name: string; TargetCode: string): Boolean;
-var
-  I: Integer;
-  F: TFileStream;
-begin
-  I := 0;
-  while (I < TargetFiles.Count) and (ExtractFileNameOnly(TargetFiles[I]) <> Name) do Inc(I);
-  if I >= TargetFiles.Count then begin
-    try
-      ForceDirectoriesUTF8(ExtractFileDir(Name));
-      if FileExistsUTF8(Name) then
-        F := TFileStream.Create(UTF8Decode(Name), fmOpenWrite)
-        else F := TFileStream.Create(UTF8Decode(Name), fmCreate);
-      F.Size := 0;
-      if Length(TargetCode) > 0 then
-        F.Write(TargetCode[1], Length(TargetCode));
-      Result := True;
-      TargetFiles.Add(Name);
-    finally
-      F.Free;
-    end;
-  end else begin
-    Result := False;
-    ErrorMessage(Format(SRewritingExistedTarget, [Name]), Point(0, 0), '');
-  end;
 end;
 
@@ -164 +204 @@
   if Assigned(Analyzer) then begin
     Analyzer.OnErrorMessage := ErrorMessage;
-    Analyzer.OnGetSource := GetSource;
+    Analyzer.OnGetSource := OnLoadSource;
   end;
 end;
@@ -170 +210 @@
 procedure TCompiler.AnalyzeAll;
 begin
-  if (SourceFiles.Count > 0) then begin
+  if MainSource <> '' then begin
     Analyzer.FileName := MainSource;
     Analyzer.OnGetSource(ExtractFileNameOnly(Analyzer.FileName), Analyzer.SourceCode);
@@ -208 +248 @@
   FTarget.Compiler := Self;
   if Assigned(FTarget.Producer) then
-    FTarget.Producer.OnWriteTarget := WriteTarget;
+    FTarget.Producer.OnWriteTarget := OnSaveTarget;
 end;