forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

added darwin code to get application data path

This commit is contained in:
Basile Burg 2015-07-17 16:30:48 +02:00
parent 4357515016
commit e690b7434e
1 changed files with 11 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
src/ce_common.pas
View File

@ -132,7 +132,7 @@ type
(**
* Returns the user data dir.
*)
function getUserDocPath: string;
function getUserDataPath: string;
(**
* Returns the documents and settings folder for Coedit.
@ -502,33 +502,26 @@ begin
exit( format('%s%s...%s',[drv,directorySeparator,pth1]) );
end;
function getUserDocPath: string;
{$IFDEF WINDOWS}
var
PIDL : PItemIDList;
Folder : array[0..MAX_PATH] of Char;
const
CSIDL_APPDATA = $001A;
{$ENDIF}
function getUserDataPath: string;
begin
{$IFDEF WINDOWS}
PIDL := nil;
SHGetSpecialFolderLocation(0, CSIDL_APPDATA, PIDL);
SHGetPathFromIDList(PIDL, Folder);
result := Folder;
result := sysutils.GetEnvironmentVariable('APPDATA');
{$ENDIF}
{$IFDEF UNIX}
result := ExpandFileName('~/');
{$IFDEF LINUX}
result := sysutils.GetEnvironmentVariable('HOME');
{$ENDIF}
{$IFDEF DARWIN}
raise Exception.Create('darwin: getUserDocPath() has to be implemented');
result := sysutils.GetEnvironmentVariable('HOME') + '/Library';
{$ENDIF}
result += directorySeparator;
if not DirectoryExists(result) then
raise Exception.Create('Coedit failed to retrieve the user data folder');
if result[length(result)] <> DirectorySeparator then
result += directorySeparator;
end;
function getCoeditDocPath: string;
begin
result := getUserDocPath + 'Coedit' + directorySeparator;
result := getUserDataPath + 'Coedit' + directorySeparator;
end;
function isFolder(sr: TSearchRec): boolean;