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

macosx support, more to check

This commit is contained in:
Basile Burg 2015-05-28 06:57:29 +02:00
parent 9b9fefd0d0
commit fb59694e58
2 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/ce_common.pas
View File

@ -382,6 +382,9 @@ begin
{$IFDEF UNIX} {$IFDEF UNIX}
result := patchProc(result, '\'); result := patchProc(result, '\');
{$ENDIF} {$ENDIF}
{$IFDEF DARWIN}
result := patchProc(result, '\');
{$ENDIF}
end; end;
procedure patchPlateformPaths(const sPaths: TStrings); procedure patchPlateformPaths(const sPaths: TStrings);
@ -512,6 +515,9 @@ begin
{$IFDEF UNIX} {$IFDEF UNIX}
result := ExpandFileName('~/'); result := ExpandFileName('~/');
{$ENDIF} {$ENDIF}
{$IFDEF DARWIN}
raise Exception.Create('darwin: getUserDocPath() has to be implemented');
{$ENDIF}
result += directorySeparator; result += directorySeparator;
end; end;
@ -641,6 +647,11 @@ begin
{$IFDEF LINUX} {$IFDEF LINUX}
aList.Add('//'); aList.Add('//');
{$ENDIF} {$ENDIF}
{$IFDEF DARWIN}
// tobe checked
// aList.Add('//');
raise Exception.Create('darwin: listDrives() has to be implemented');
{$ENDIF}
end; end;
function shellOpen(const aFilename: string): boolean; function shellOpen(const aFilename: string): boolean;

3
src/ce_dcd.pas
View File

@ -205,6 +205,9 @@ begin
fClient.Terminate(0); fClient.Terminate(0);
fServer.Terminate(0); fServer.Terminate(0);
{$ENDIF} {$ENDIF}
{$IFDEF DARWIN}
//
{$ENDIF}
end; end;
procedure TCEDcdWrapper.waitClient; procedure TCEDcdWrapper.waitClient;