Changeset 647 for trunk/Packages/CevoComponents/Directories.pas

Timestamp:

Feb 19, 2025, 9:18:32 AM (3 days ago)

Author:

chronos

Message:

• Modified: Detect data files usr/share/c-evo directory on Linux as relative directory to usr/bin directory.

File:

• trunk/Packages/CevoComponents/Directories.pas (modified) (8 diffs)

trunk/Packages/CevoComponents/Directories.pas

@@ -4 +4 @@
 
 var
-  HomeDir: string;
   DataDir: string;
   LocaleCode: string = '';
@@ -16 +15 @@
 function GetSoundsDir: string;
 function GetAiDir: string;
+function GetAppShareDir(Dir: string): string;
+function GetAppShareFile(FileName: string): string;
 
 
@@ -21 +22 @@
 
 uses
-  FileUtil, LCLIntf, LCLType, LCLProc, LazUTF8, SysUtils;
+  FileUtil, LCLIntf, LCLType, LCLProc, LazUTF8, SysUtils, LazFileUtils, Forms;
+
+function GetAppShareDir(Dir: string): string;
+{$IFDEF UNIX}
+var
+  NewDir: string;
+{$ENDIF}
+begin
+  Result := ExtractFileDir(Application.ExeName) + DirectorySeparator + Dir;
+  {$IFDEF UNIX}
+  // If installed in Linux system then try to use different installation directory
+  if not DirectoryExists(Result) then begin
+    NewDir := ExtractFileDir(Application.ExeName) + DirectorySeparator + '..' +
+      DirectorySeparator + 'share' + DirectorySeparator +
+      ExtractFileNameOnly(Application.ExeName) + DirectorySeparator + Dir;
+    if DirectoryExists(NewDir) then Result := NewDir;
+  end;
+  {$ENDIF}
+end;
+
+function GetAppShareFile(FileName: string): string;
+{$IFDEF UNIX}
+var
+  NewFile: string;
+{$ENDIF}
+begin
+  Result := ExtractFileDir(Application.ExeName) + DirectorySeparator + FileName;
+  {$IFDEF UNIX}
+  // If installed in Linux system then try to use different installation directory
+  if not FileExists(Result) then begin
+    NewFile := ExtractFileDir(Application.ExeName) + DirectorySeparator + '..' +
+      DirectorySeparator + 'share' + DirectorySeparator +
+      ExtractFileNameOnly(Application.ExeName) + DirectorySeparator + FileName;
+    if FileExists(NewFile) then Result := NewFile;
+  end;
+  {$ENDIF}
+end;
 
 function GetLocale: string;
@@ -57 +94 @@
 
   if LocaleCode <> 'en' then begin
-    Result := HomeDir + 'Localization' + DirectorySeparator + LocaleCodeDir + DirectorySeparator + Path;
+    Result := GetAppShareFile('Localization' + DirectorySeparator + LocaleCodeDir + DirectorySeparator + Path);
     if not DirectoryExists(Result) and not FileExists(Result) then
-      Result := HomeDir + Path;
-  end else Result := HomeDir + Path;
+      Result := GetAppShareFile(Path);
+  end else Result := GetAppShareFile(Path);
 end;
 
@@ -92 +129 @@
 begin
   LocaleCode := '';
-  HomeDir := ExtractFilePath(ParamStr(0));
 
   AppDataDir := GetAppConfigDir(False);
-  if AppDataDir = '' then DataDir := HomeDir
+  if AppDataDir = '' then DataDir := GetAppShareDir('')
   else begin
     if not DirectoryExists(AppDataDir) then ForceDirectories(AppDataDir);
@@ -105 +141 @@
 function GetSavedDir(Home: Boolean = False): string;
 begin
-  if Home then Result := HomeDir + 'Saved'
+  if Home then Result := GetAppShareDir('Saved')
     else Result := DataDir + 'Saved';
 end;
@@ -111 +147 @@
 function GetMapsDir(Home: Boolean = False): string;
 begin
-  if Home then Result := HomeDir + 'Maps'
+  if Home then Result := GetAppShareDir('Maps')
     else Result := DataDir + 'Maps';
 end;
@@ -117 +153 @@
 function GetGraphicsDir: string;
 begin
-  Result := HomeDir + 'Graphics';
+  Result := GetAppShareDir('Graphics');
 end;
 
 function GetSoundsDir: string;
 begin
-  Result := HomeDir + 'Sounds';
+  Result := GetAppShareDir('Sounds');
 end;
 
 function GetAiDir: string;
 begin
-  Result := HomeDir + 'AI';
+  Result := GetAppShareDir('AI');
 end;