Changeset 59 for trunk/IDE

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.

Location:

trunk/IDE

Files:

• Forms/UFormMain.pas (modified) (3 diffs)
• UCore.pas (modified) (5 diffs)

trunk/IDE/Forms/UFormMain.pas

@@ -168 +168 @@
 begin
   FormSourceCode.Save;
+  AProjectSave.Execute;
   with Core do begin
     // Compile project file
@@ -178 +179 @@
     if Project.Files.Count > 0 then
     with TProjectFile(Project.Files[0]) do begin
-      Compiler.SourceFiles.Clear;
-      Project.Files.DumpFileList(Compiler.SourceFiles);
+      Compiler.SourceFiles.Files.Clear;
+      Project.Files.DumpFileList(Compiler.SourceFiles.Files);
       Compiler.MainSource := Project.MainSource.AbsoluteFileName;
       TargetProject.FileName := ExtractFileDir(Project.FileName) + DirectorySeparator +
@@ -186 +187 @@
       Compiler.TargetFolder := ExtractFileDir(TargetProject.FileName);
       Compiler.Compile;
-      TargetProject.Files.LoadFromList(Compiler.TargetFiles);
+      TargetProject.Files.LoadFromList(Compiler.TargetFiles.Files);
       FormTargetProject.UpdateInterface;
     end;

trunk/IDE/UCore.pas

@@ -13 +13 @@
 
   TCustomCompiler = class(TCompiler)
+    SourceFiles: TSourceFileManager;
+    TargetFiles: TSourceFileManager;
     procedure LoadFromRegistry(Root: HKEY; Key: string);
     procedure SaveToRegistry(Root: HKEY; Key: string);
+    constructor Create; override;
+    destructor Destroy; override;
   end;
 
@@ -29 +33 @@
   private
     procedure ProjectChange(Sender: TObject);
+    function LoadSourceFile(FileName: string; var Content: string): Boolean;
+    function SaveSourceFile(FileName: string; const Content: string): Boolean;
   public
     ReopenLastOpenedFile: Boolean;
@@ -81 +87 @@
   DeleteFile(DebugLog1.FileName);
   Compiler := TCustomCompiler.Create;
+  //Compiler.OnLoadSource := LoadSourceFile;
+  //Compiler.OnSaveTarget := SaveSourceFile;
   Project := TProject.Create;
   ProjectTemplates := TProjectTemplateList.Create;
@@ -116 +124 @@
 begin
   FormMain.UpdateInterface;
+end;
+
+function TCore.LoadSourceFile(FileName: string; var Content: string): Boolean;
+begin
+
+end;
+
+function TCore.SaveSourceFile(FileName: string; const Content: string): Boolean;
+begin
+
 end;
 
@@ -205 +223 @@
 end;
 
+constructor TCustomCompiler.Create;
+begin
+  inherited Create;
+  SourceFiles := TSourceFileManager.Create;
+  TargetFiles := TSourceFileManager.Create;
+  OnLoadSource := SourceFiles.GetFileContent;
+  OnSaveTarget := TargetFiles.SetFileContent;
+end;
+
+destructor TCustomCompiler.Destroy;
+begin
+  TargetFiles.Free;
+  SourceFiles.Free;
+  inherited Destroy;
+end;
+
 
 end.