paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-05 19:38:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Patch from Michalis Kamburelis to implement correct config dir, following basedir-spec

Browse Source 
git-svn-id: trunk@1719 -
This commit is contained in:
michael 2005-11-10 20:40:11 +00:00
parent 367df58016
commit 59d3cd95a8
1 changed files with 15 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
rtl/unix/sysutils.pp
View File

@ -1083,7 +1083,19 @@ Function GetHomeDir : String;
begin
Result:=GetEnvironmentVariable('HOME');
If (Result<>'') then
Result:=IncludeTrailingPathDelimiter(Result);
Result:=IncludeTrailingPathDelimiter(Result);
end;
{ Follows base-dir spec,
see [http://freedesktop.org/Standards/basedir-spec].
Always ends with PathDelim. }
Function XdgConfigHome : String;
begin
Result:=GetEnvironmentVariable('XDG_CONFIG_HOME');
if (Result='') then
Result:=GetHomeDir + '.config/'
else
Result:=IncludeTrailingPathDelimiter(Result);
end;
Function GetAppConfigDir(Global : Boolean) : String;
@ -1092,7 +1104,7 @@ begin
If Global then
Result:=SysConfigDir
else
Result:=GetHomeDir+ApplicationName;
Result:=XdgConfigHome + ApplicationName;
end;
Function GetAppConfigFile(Global : Boolean; SubDir : Boolean) : String;
@ -1114,8 +1126,7 @@ begin
end
else
begin
Result:=GetHomeDir;
Result:=Result+'.'+ApplicationName;
Result:=XdgConfigHome + ApplicationName + ConfigExtension;
end;
end;
end;