hedgewars: comparison hedgewars/SDLh.pas

equal deleted inserted replaced

-:12dc696f1c81
+:d53918cd22bb
 {$INCLUDE "options.inc"}
 unit SDLh;
 interface
 {$IFDEF LINUX}
 {$DEFINE UNIX}
 {$ENDIF}
 {$IFDEF FREEBSD}
 {$DEFINE UNIX}
 {$linkframework SDL_net}
 {$linkframework SDL_image}
 {$linkframework SDL_ttf}
 {$linkframework SDL_mixer}
 {$linklib SDLmain}
-{$linklib gcc}
 {$ENDIF}
 {$ENDIF}
 (*  SDL  *)
 	SDL_TTFLibName = 'SDL_ttf.dll';
 	SDL_MixerLibName = 'SDL_mixer.dll';
 	SDL_ImageLibName = 'SDL_image.dll';
 	SDL_NetLibName = 'SDL_net.dll';
 {$ELSE}
-	{$IFDEF DARWIN}
+{$IFDEF DARWIN}
-		SDLLibName = 'SDL';
+	SDLLibName = 'SDL';
-		SDL_TTFLibName = 'SDL_ttf';
+	SDL_TTFLibName = 'SDL_ttf';
-		SDL_MixerLibName = 'SDL_mixer';
+	SDL_MixerLibName = 'SDL_mixer';
-		SDL_ImageLibName = 'SDL_image';
+	SDL_ImageLibName = 'SDL_image';
-		SDL_NetLibName = 'SDL_net';
+	SDL_NetLibName = 'SDL_net';
 {$ELSE}
-		SDLLibName = 'libSDL.so';
+	SDLLibName = 'libSDL.so';
-		SDL_TTFLibName = 'libSDL_ttf.so';
+	SDL_TTFLibName = 'libSDL_ttf.so';
-		SDL_MixerLibName = 'libSDL_mixer.so';
+	SDL_MixerLibName = 'libSDL_mixer.so';
-		SDL_ImageLibName = 'libSDL_image.so';
+	SDL_ImageLibName = 'libSDL_image.so';
-		SDL_NetLibName = 'libSDL_net.so';
+	SDL_NetLibName = 'libSDL_net.so';
 {$ENDIF}
 {$ENDIF}
 /////////////////////////////////////////////////////////////////
 /////////////////////  CONSTANT DEFINITIONS /////////////////////
 /////////////////////////////////////////////////////////////////
 	SDL_APPINPUTFOCUS    = 2;
 	SDL_BUTTON_WHEELDUP  = 4;
 	SDL_BUTTON_WHEELDOWN = 5;
-{*begin sdl_event binding*}
+{*begin SDL_Event binding*}
 	SDL_NOEVENT = 0;
 	SDL_KEYDOWN = 2;
 	SDL_KEYUP = 3;
 {$IFDEF SDL13}
 SDL_WINDOWEVENT = 1;
 	SDL_JOYBUTTONDOWN = 10;
 	SDL_JOYBUTTONUP = 11;
 	SDL_QUITEV = 12;
 	SDL_VIDEORESIZE = 16; // TODO: outdated? no longer in SDL 1.3?
 {$ENDIF}
-{*end sdl_event binding*}
+{*end SDL_Event binding*}
 {$IFDEF SDL13}
 	SDL_ASYNCBLIT   = $08000000;
 	SDL_ANYFORMAT   = $10000000;
 	SDL_HWPALETTE   = $00200000;
 		modifier: Longword;
 		unicode: Word;
 		end;
-{* SDL_event type definition *}
+{* SDL_Event type definition *}
 {$IFDEF SDL13}
 	TSDL_WindowID = LongInt;
 	TSDL_WindowEvent = record
-{$ELSE}
-	TSDL_ActiveEvent = record
-{$ENDIF}
 		type_: byte;
 		gain: byte;
 		state: byte;
-{$IFDEF SDL13}
 		windowID: TSDL_WindowID;
 		data1, data2: LongInt;
-{$ENDIF}
+		end;
-		end;
+// implement SDL_TextEditingEvent + SDL_TextInputEvent for sdl13
-//SDL_TextEditingEvent + SDL_TextInputEvent for sdl13
+{$ELSE}
+	TSDL_ActiveEvent = record
+		type_: byte;
+		gain: byte;
+		state: byte;
+		end;
+{$ENDIF}
 	TSDL_MouseMotionEvent = record
-type_: byte;
+		type_: byte;
-which: byte;
+		which: byte;
-state: byte;
+		state: byte;
 {$IFDEF SDL13}
-x, y, xrel, yrel : LongInt;
+		x, y, xrel, yrel : LongInt;
-			     pressure, pressure_max, pressure_min,
+		pressure, pressure_max, pressure_min,
-			     rotation, tilt, cursor: LongInt;
+		rotation, tilt, cursor: LongInt;
 {$ELSE}
-x, y, xrel, yrel : word;
+		x, y, xrel, yrel : word;
 {$ENDIF}
-end;
+		end;
 	TSDL_KeyboardEvent = record
 		type_: Byte;
 {$IFDEF SDL13}
 		windowID: TSDL_WindowID;
 /////////////////////////////////////////////////////////////////
 /////////////////////  FUNCTION DEFINITIONS /////////////////////
 /////////////////////////////////////////////////////////////////
-{$IFDEF FPC}
 {* SDL *}
 function  SDL_Init(flags: Longword): LongInt; cdecl; external SDLLibName;
 procedure SDL_Quit; cdecl; external SDLLibName;
 function  SDL_VideoDriverName(var namebuf; maxlen: LongInt): PChar; cdecl; external SDLLibName;
 function  SDL_UnlockMutex(mutex: PSDL_mutex): LongInt; cdecl; external SDLLibName name 'SDL_mutexV';
 function  SDL_GL_SetAttribute(attr: TSDL_GLattr; value: LongInt): LongInt; cdecl; external SDLLibName;
 procedure SDL_GL_SwapBuffers(); cdecl; external SDLLibName;
-{$IFDEF SDL13}
 {$IFDEF IPHONEOS}
 function  SDL_iPhoneKeyboardShow(windowID: LongInt): LongInt; cdecl; external SDLLibName;
 function  SDL_iPhoneKeyboardHide(windowID: LongInt): LongInt; cdecl; external SDLLibName;
 function  SDL_iPhoneKeyboardIsShown(windowID: LongInt): boolean; cdecl; external SDLLibName;
 function  SDL_iPhoneKeyboardToggle(windowID: LongInt): LongInt; cdecl; external SDLLibName;
-{$ENDIF}
 {$ENDIF}
 function  SDL_NumJoysticks: LongInt; cdecl; external SDLLibName;
 function  SDL_JoystickName(idx: LongInt): PChar; cdecl; external SDLLibName;
 function  SDL_JoystickOpen(idx: LongInt): PSDL_Joystick; cdecl; external SDLLibName;
 procedure SDLNet_TCP_Close(sock: PTCPsocket); cdecl; external SDL_NetLibName;
 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);
 procedure SDLNet_Write32(value: LongWord; buf: pointer);
 function  SDLNet_Read16(buf: pointer): Word;
 function  SDLNet_Read32(buf: pointer): LongWord;
 implementation
 function SDL_MustLock(Surface: PSDL_Surface): Boolean;
 begin
-SDL_MustLock:= ( surface^.offset <> 0 ) or (( surface^.flags and (SDL_HWSURFACE or SDL_ASYNCBLIT or SDL_RLEACCEL)) <> 0)
+	SDL_MustLock:= ( surface^.offset <> 0 ) or (( surface^.flags and (SDL_HWSURFACE or SDL_ASYNCBLIT or SDL_RLEACCEL)) <> 0)
 end;
 procedure SDLNet_Write16(value: Word; buf: pointer);
 begin
-PByteArray(buf)^[1]:= value;
+	PByteArray(buf)^[1]:= value;
-PByteArray(buf)^[0]:= value shr 8
+	PByteArray(buf)^[0]:= value shr 8
 end;
 procedure SDLNet_Write32(value: LongWord; buf: pointer);
 begin
-PByteArray(buf)^[3]:= value;
+	PByteArray(buf)^[3]:= value;
-PByteArray(buf)^[2]:= value shr  8;
+	PByteArray(buf)^[2]:= value shr  8;
-PByteArray(buf)^[1]:= value shr 16;
+	PByteArray(buf)^[1]:= value shr 16;
-PByteArray(buf)^[0]:= value shr 24
+	PByteArray(buf)^[0]:= value shr 24
 end;
 function SDLNet_Read16(buf: pointer): Word;
 begin
-SDLNet_Read16:= PByteArray(buf)^[1] or
+	SDLNet_Read16:= PByteArray(buf)^[1] or
 (PByteArray(buf)^[0] shl 8)
 end;
 function SDLNet_Read32(buf: pointer): LongWord;
 begin
-SDLNet_Read32:=  PByteArray(buf)^[3] or
+	SDLNet_Read32:=  PByteArray(buf)^[3] or
 (PByteArray(buf)^[2] shl  8) or
 (PByteArray(buf)^[1] shl 16) or
 (PByteArray(buf)^[0] shl 24)
 end;

changeset 2663	d53918cd22bb
parent 2633	9eb131794a6e
child 2664	949c189ba568