mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

UPD: Use mbFindDirectory to get system folders

Browse source
This commit is contained in:
Alexander Koblov 2022-11-26 12:12:23 +03:00
commit 4a0e9aacd3
1 changed files with 23 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

27
src/platform/usysfolders.pas
View file

@ -60,7 +60,9 @@ uses
, BaseUnix, Unix, DCUnix
{$IF DEFINED(DARWIN)}
, CocoaAll, uMyDarwin
{$ELSEIF NOT DEFINED(HAIKU)}
{$ELSEIF DEFINED(HAIKU)}
, DCHaiku
{$ELSE}
, uXdg
{$ENDIF}
{$ENDIF}
@ -73,6 +75,11 @@ begin
end;
{$ELSE}
begin
{$IF DEFINED(HAIKU)}
if mbFindDirectory(B_USER_DIRECTORY, -1, True, Result) then
Result:= ExcludeBackPathDelimiter(Result)
else
{$ENDIF}
Result:= ExcludeBackPathDelimiter(SysToUTF8(GetEnvironmentVariable('HOME')));
end;
{$ENDIF}
@ -112,7 +119,11 @@ begin
end;
{$ELSEIF DEFINED(HAIKU)}
begin
Result:= GetHomeDir + '/config/settings/' + ApplicationName;
if mbFindDirectory(B_USER_SETTINGS_DIRECTORY, -1, True, Result) then
Result:= IncludeTrailingBackslash(Result) + ApplicationName
else begin
Result:= GetHomeDir + '/config/settings/' + ApplicationName;
end;
end;
{$ELSE}
var
@ -142,7 +153,11 @@ begin
end;
{$ELSEIF DEFINED(HAIKU)}
begin
Result:= GetHomeDir + '/config/cache/' + ApplicationName;
if mbFindDirectory(B_USER_CACHE_DIRECTORY, -1, True, Result) then
Result:= IncludeTrailingBackslash(Result) + ApplicationName
else begin
Result:= GetHomeDir + '/config/cache/' + ApplicationName;
end;
end;
{$ELSE}
var
@ -167,7 +182,11 @@ begin
end;
{$ELSEIF DEFINED(HAIKU)}
begin
Result:= GetAppConfigDir;
if mbFindDirectory(B_USER_DATA_DIRECTORY, -1, True, Result) then
Result:= IncludeTrailingBackslash(Result) + ApplicationName
else begin
Result:= GetHomeDir + '/config/data/' + ApplicationName;
end;
end;
{$ELSE}
begin