Add support for new ICompilerAutoDetect methods

Add methods to ICompilerAutoDetect in Compilers.UGlobals.
Implement methods in Compilers.UBorland
Update TPersistCompilers in Compilers.UCompilers to persist
CanAutoInstall "property" in config file.

Author: delphidabbler

Src/Compilers.UBorland.pas

@@ -35,6 +35,8 @@   TBorlandCompiler = class(TCompilerBase)
     var
       fId: TCompilerID;
         {Identifies compiler}
+      // Flags whether user permits compiler to be auto installed.
+      fCanAutoInstall: Boolean;
     function InstallPathFromReg(const RootKey: HKEY): string;
       {Gets compiler install root path from given registry root key, if present.
         @param RootKey [in] Given registry root key.
@@ -70,10 +72,35 @@   TBorlandCompiler = class(TCompilerBase)
         @param Obj Compiler object to copy.
       }
     { ICompilerAutoDetect }
+    ///  <summary>Detects and records path to command line compiler exe file,
+    ///  if compiler is registered as installed.</summary>
+    ///  <returns>Boolean. True if compiler is registered as installed, False
+    ///  otherwise.</returns>
+    ///  <remarks>
+    ///  <para>Does not check if the compiler exe file actually exists.</para>
+    ///  <para>Does not set compiler exe file if compiler is not installed.
+    ///  </para>
+    ///  <para>Method of ICompilerAutoDetect.</para>
+    ///  </remarks>
     function DetectExeFile: Boolean;
-      {Detects and records path to command line compiler if present.
-        @return True if compiler path found, false otherwise.
-      }
+    ///  <summary>Checks if the compiler is installed on the user's system.
+    ///  </summary>
+    ///  <returns>Boolean. True if compiler is physically installed, False
+    ///  otherwise.</returns>
+    ///  <remarks>
+    ///  <para>Checks if compiler exe is actually present.</para>
+    ///  <para>Method of ICompilerAutoDetect.</para>
+    ///  </remarks>
+    function IsInstalled: Boolean;
+    ///  <summary>Checks if the compiler is permitted to be automatically
+    ///  installed.</summary>
+    ///  <remarks>Method of ICompilerAutoDetect.</remarks>
+    function GetCanAutoInstall: Boolean;
+    ///  <summary>Determines whether the compiler can be automatically
+    ///  installed.</summary>
+    ///  <remarks>Method of ICompilerAutoDetect.</remarks>
+    procedure SetCanAutoInstall(const Value: Boolean);
+
     { ICompiler }
     function GetDefaultSwitches: string; override;
       {Returns default command line switches for compiler.
@@ -97,7 +124,7 @@ implementation
 
 uses
   // Delphi
-  SysUtils, Registry,
+  SysUtils, Registry, IOUtils,
   // Project
   UIStringList, UStrUtils, USystemInfo;
 
@@ -118,6 +145,7 @@ constructor TBorlandCompiler.CreateCopy(const Obj: TBorlandCompiler);
 begin
   inherited CreateCopy(Obj);
   fId := Obj.GetID;
+  fCanAutoInstall := Obj.GetCanAutoInstall;
 end;
 
 procedure TBorlandCompiler.DeleteObjFiles(const Path, Project: string);
@@ -144,6 +172,11 @@ function TBorlandCompiler.DetectExeFile: Boolean;
     SetExecFile(ExePath);
 end;
 
+function TBorlandCompiler.GetCanAutoInstall: Boolean;
+begin
+  Result := fCanAutoInstall;
+end;
+
 function TBorlandCompiler.GetDefaultSwitches: string;
   {Returns default command line switches for Borland compilers.
     @return Switches separated by commas.
@@ -211,6 +244,15 @@ function TBorlandCompiler.InstallPathFromReg(const RootKey: HKEY): string;
   end;
 end;
 
+function TBorlandCompiler.IsInstalled: Boolean;
+var
+  ExePath: string;
+begin
+  if not GetExePathIfInstalled(ExePath) then
+    Exit(False);
+  Result := TFile.Exists(ExePath, False);
+end;
+
 function TBorlandCompiler.SearchDirParams: string;
   {One of more parameters that define any search directories to be passed to
   compiler on command line.
@@ -228,5 +270,10 @@ function TBorlandCompiler.SearchDirParams: string;
     + ' ' + StrQuoteSpaced('-R' + Dirs.GetText(';', False));
 end;
 
+procedure TBorlandCompiler.SetCanAutoInstall(const Value: Boolean);
+begin
+  fCanAutoInstall := Value;
+end;
+
 end.
 

Src/Compilers.UCompilers.pas

@@ -328,6 +328,12 @@ procedure TPersistCompilers.Load(const Compilers: ICompilers);
     // Load search directories
     SearchDirNames := Storage.GetStrings('SearchDirCount', 'SearchDir%d');
     Compiler.SetSearchDirs(TSearchDirs.Create(SearchDirNames.ToArray));
+
+    // Check if compiler can be auto-detected
+    if Supports(Compiler, ICompilerAutoDetect) then
+      (Compiler as ICompilerAutoDetect).SetCanAutoInstall(
+        Storage.GetBoolean('CanAutoInstall', True)
+      );
   end;
 end;
 
@@ -363,6 +369,10 @@ procedure TPersistCompilers.Save(const Compilers: ICompilers);
       Storage.SetString('Namespaces', Compiler.GetRTLNamespaces);
     SearchDirNames := TIStringList.Create(Compiler.GetSearchDirs.ToStrings);
     Storage.SetStrings('SearchDirCount', 'SearchDir%d', SearchDirNames);
+    if Supports(Compiler, ICompilerAutoDetect) then
+      Storage.SetBoolean(
+        'CanAutoInstall', (Compiler as ICompilerAutoDetect).GetCanAutoInstall
+      );
     // save the data
     Storage.Save;
   end;

Src/Compilers.UGlobals.pas

@@ -299,7 +299,7 @@ interface
     property Count: Integer read GetCount;
 
     ///  <summary>Number of compilers installed on this computer and made
-    ///  available CodeSnip.</summary>
+    ///  available to CodeSnip.</summary>
     property AvailableCount: Integer read GetAvailableCount;
 
     ///  <summary>Checks if any compilers in the list are displayable.</summary>
@@ -327,6 +327,15 @@ interface
     ///  <summary>Detects and records the full path of the compiler's
     ///  executable.</summary>
     function DetectExeFile: Boolean;
+    ///  <summary>Checks if the compiler is installed on the user's system.
+    ///  </summary>
+    function IsInstalled: Boolean;
+    ///  <summary>Checks if the compiler is permitted to be automatically
+    ///  installed.</summary>
+    function GetCanAutoInstall: Boolean;
+    ///  <summary>Determines whether the compiler can be automatically
+    ///  installed.</summary>
+    procedure SetCanAutoInstall(const Value: Boolean);
   end;