hedgewars/SDLh.pas
changeset 2630 079ef82eac75
parent 2619 bc2786a00fb8
child 2633 9eb131794a6e
--- a/hedgewars/SDLh.pas	Fri Nov 20 14:56:43 2009 +0000
+++ b/hedgewars/SDLh.pas	Fri Nov 20 21:22:05 2009 +0000
@@ -16,16 +16,17 @@
  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
  *)
 
+{$INCLUDE "options.inc"}
+
 unit SDLh;
 interface
 
-{$INCLUDE "options.inc"}
 
 {$IFDEF LINUX}
-{$DEFINE UNIX}
+  {$DEFINE UNIX}
 {$ENDIF}
 {$IFDEF FREEBSD}
-{$DEFINE UNIX}
+  {$DEFINE UNIX}
 {$ENDIF}
 
 {$IFDEF UNIX}
@@ -42,18 +43,19 @@
 {$ENDIF}
 
 {$IFDEF DARWIN}
-	{$PASCALMAINNAME SDL_main}
-{$IFNDEF IPHONEOS}
-	{$linkframework Cocoa}
-	{$linkframework SDL}
-	{$linkframework SDL_net}
-	{$linkframework SDL_image}
-	{$linkframework SDL_ttf}
-	{$linkframework SDL_mixer}
-	{$linklib SDLmain}
-	{$linklib gcc}
+  {$PASCALMAINNAME SDL_main}
+  {$IFNDEF IPHONEOS}
+    {$linkframework Cocoa}
+    {$linkframework SDL}
+    {$linkframework SDL_net}
+    {$linkframework SDL_image}
+    {$linkframework SDL_ttf}
+    {$linkframework SDL_mixer}
+    {$linklib SDLmain}
+    {$linklib gcc}
+  {$ENDIF}
 {$ENDIF}
-{$ENDIF}
+
 
 (*  SDL  *)
 const
@@ -482,7 +484,7 @@
 {$ELSE}
 		SDL_GL_SWAP_CONTROL
 {$ENDIF}
-);
+		);
 
 {$IFDEF SDL13}
 	TSDL_ArrayByteOrder = (  // array component order, low byte -> high byte 
@@ -711,6 +713,11 @@
 procedure SDLNet_FreeSocketSet(_set: PSDLNet_SocketSet); cdecl; external SDL_NetLibName;
 function  SDLNet_AddSocket(_set: PSDLNet_SocketSet; sock: PTCPSocket): LongInt; cdecl; external SDL_NetLibName;
 function  SDLNet_CheckSockets(_set: PSDLNet_SocketSet; timeout: LongInt): LongInt; cdecl; external SDL_NetLibName;
+
+{$IFDEF IPHONEOS}
+function  get_documents_path: PChar; cdecl; external 'hwutils';
+{$ENDIF}
+
 {$ELSE}{$ENDIF}
 
 procedure SDLNet_Write16(value: Word; buf: pointer);