From fb59694e5852a128b9ddb035a7107be84433131e Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Thu, 28 May 2015 06:57:29 +0200
Subject: [PATCH] macosx support, more to check

---
 src/ce_common.pas | 11 +++++++++++
 src/ce_dcd.pas    |  3 +++
 2 files changed, 14 insertions(+)

diff --git a/src/ce_common.pas b/src/ce_common.pas
index e362ddc7..60e31f46 100644
--- a/src/ce_common.pas
+++ b/src/ce_common.pas
@@ -382,6 +382,9 @@ begin
   {$IFDEF UNIX}
   result := patchProc(result, '\');
   {$ENDIF}
+  {$IFDEF DARWIN}
+  result := patchProc(result, '\');
+  {$ENDIF}
 end;
 
 procedure patchPlateformPaths(const sPaths: TStrings);
@@ -512,6 +515,9 @@ begin
   {$IFDEF UNIX}
   result := ExpandFileName('~/');
   {$ENDIF}
+  {$IFDEF DARWIN}
+  raise Exception.Create('darwin: getUserDocPath() has to be implemented');
+  {$ENDIF}
   result += directorySeparator;
 end;
 
@@ -641,6 +647,11 @@ begin
   {$IFDEF LINUX}
   aList.Add('//');
   {$ENDIF}
+  {$IFDEF DARWIN}
+  // tobe checked
+  // aList.Add('//');
+  raise Exception.Create('darwin: listDrives() has to be implemented');
+  {$ENDIF}
 end;
 
 function shellOpen(const aFilename: string): boolean;
diff --git a/src/ce_dcd.pas b/src/ce_dcd.pas
index 74b56138..ea823c0b 100644
--- a/src/ce_dcd.pas
+++ b/src/ce_dcd.pas
@@ -205,6 +205,9 @@ begin
   fClient.Terminate(0);
   fServer.Terminate(0);
   {$ENDIF}
+  {$IFDEF DARWIN}
+  //
+  {$ENDIF}
 end;
 
 procedure TCEDcdWrapper.waitClient;