Changeset 59 for trunk/IDE/UCore.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/IDE/UCore.pas (modified) (5 diffs)

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.