Add external file change detection before Run/Compile

Author: Rico-Rodriguez

Source/ide/simba.form_tabs.pas

@@ -89,6 +89,7 @@   TSimbaTabsForm = class(TForm)
     procedure Find;
     procedure FindNext;
     procedure FindPrevious;
+    function CheckForFileChanges: Boolean;
 
     function AddTab: TSimbaScriptTab;
     function FindTab(ID: Integer): TSimbaScriptTab;
@@ -523,6 +524,28 @@ procedure TSimbaTabsForm.FindPrevious;
     FEditorFind.FindPrev(CurrentEditor);
 end;
 
+function TSimbaTabsForm.CheckForFileChanges: Boolean;
+var
+  Tab: TSimbaScriptTab;
+begin
+  Result := False;
+  Tab := CurrentTab;
+  if (Tab = nil) or (Tab.ScriptFileName = '') or (not FileExists(Tab.ScriptFileName)) then
+    Exit;
+
+  if (FileDateToDateTime(FileAge(Tab.ScriptFileName)) > Tab.DiskAge) then
+  begin
+    if MessageDlg('File "' + Tab.ScriptFileName + '" has changed on disk.' + sLineBreak + 'Do you want to reload it?',
+                  mtConfirmation, [mbYes, mbNo], 0) = mrYes then
+    begin
+      Tab.Load(Tab.ScriptFileName);
+      Result := True;
+    end
+    else
+      Tab.UpdateDiskAge();
+  end;
+end;
+
 function TSimbaTabsForm.AddTab: TSimbaScriptTab;
 begin
   Result := FTabControl.AddTab() as TSimbaScriptTab;

Source/ide/simba.ide_tab.pas

@@ -84,11 +84,13 @@   TSimbaScriptTab = class(TSimbaTab)
     FSavedText: String;
     FScriptFileName: String;
     FScriptTitle: String;
+    FDiskAge: TDateTime;
 
     FScriptRunner: TSimbaScriptTabRunner;
 
     FOutputBox: TSimbaOutputBox;
 
+    procedure UpdateDiskAge;
     procedure LoadDefaultScript;
     procedure FindDeclarationAtCaretASync(Data: PtrInt);
 
@@ -114,7 +116,9 @@   TSimbaScriptTab = class(TSimbaTab)
     property ScriptChanged: Boolean read GetScriptChanged;
     property Script: String read GetScript;
     property Editor: TSimbaEditor read FEditor;
+    property DiskAge: TDateTime read FDiskAge;
 
+    procedure UpdateDiskAge;
     function SaveAsDialog: String;
 
     function Save(FileName: String): Boolean;
@@ -342,6 +346,14 @@ function TSimbaScriptTab.GetScriptChanged: Boolean;
   Result := FEditor.Text <> FSavedText;
 end;
 
+procedure TSimbaScriptTab.UpdateDiskAge;
+begin
+  if (FScriptFileName <> '') and FileExists(FScriptFileName) then
+    FDiskAge := FileDateToDateTime(FileAge(FScriptFileName))
+  else
+    FDiskAge := 0;
+end;
+
 procedure TSimbaScriptTab.LoadDefaultScript;
 begin
   case SimbaSettings.Editor.DefaultScriptType.Value of
@@ -460,6 +472,7 @@ function TSimbaScriptTab.Save(FileName: String): Boolean;
     FScriptTitle := FScriptTitle.Before('.simba');
 
   Caption := FScriptTitle;
+  UpdateDiskAge();
 end;
 
 function TSimbaScriptTab.Load(FileName: String): Boolean;
@@ -490,6 +503,7 @@ function TSimbaScriptTab.Load(FileName: String): Boolean;
     FScriptTitle := FScriptTitle.Before('.simba');
 
   Caption := FScriptTitle;
+  UpdateDiskAge();
   if Result then
     SimbaIDEEvents.Notify(SimbaIDEEvent.TAB_LOADED, Self);
 end;
@@ -573,6 +587,9 @@ procedure TSimbaScriptTab.Run(Target: TWindowHandle);
 begin
   //DebugLn('TSimbaScriptTab.Run :: ' + ScriptTitle + ' ' + ScriptFileName);
 
+  if SimbaTabsForm.CheckForFileChanges() then
+    Exit;
+
   if (FScriptRunner <> nil) then
     FScriptRunner.Resume()
   else
@@ -592,6 +609,9 @@ procedure TSimbaScriptTab.Compile;
 begin
   //DebugLn('TSimbaScriptTab.Compile :: ' + ScriptTitle + ' ' + ScriptFileName);
 
+  if SimbaTabsForm.CheckForFileChanges() then
+    Exit;
+
   if (FScriptRunner = nil) then
   begin
     if (not FEditor.ReadOnly) and (FScriptFileName <> '') then