macosx support, more to check

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;

src/ce_dcd.pas

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