author | koda |
Tue, 20 Oct 2009 21:22:16 +0000 | |
changeset 2569 | 6f77dd38294a |
parent 2567 | 02ff5f9510b5 |
child 2575 | d06e0e829828 |
permissions | -rw-r--r-- |
4 | 1 |
(* |
1066 | 2 |
* Hedgewars, a free turn based strategy game |
883 | 3 |
* Copyright (c) 2004-2008 Andrey Korotaev <unC0Rr@gmail.com> |
4 | 4 |
* |
183 | 5 |
* This program is free software; you can redistribute it and/or modify |
6 |
* it under the terms of the GNU General Public License as published by |
|
7 |
* the Free Software Foundation; version 2 of the License |
|
4 | 8 |
* |
183 | 9 |
* This program is distributed in the hope that it will be useful, |
10 |
* but WITHOUT ANY WARRANTY; without even the implied warranty of |
|
11 |
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
|
12 |
* GNU General Public License for more details. |
|
4 | 13 |
* |
183 | 14 |
* You should have received a copy of the GNU General Public License |
15 |
* along with this program; if not, write to the Free Software |
|
16 |
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA |
|
4 | 17 |
*) |
18 |
||
19 |
unit SDLh; |
|
20 |
interface |
|
753 | 21 |
|
2241
7992f7ba388d
completes removal of wav files, updates SDLh and adds DEBUGFILE to hwengine when compiled in Debug mode
koda
parents:
2240
diff
changeset
|
22 |
{$IFDEF LINUX or FREEBSD} |
4 | 23 |
{$DEFINE UNIX} |
24 |
{$ENDIF} |
|
25 |
||
26 |
{$IFDEF UNIX} |
|
1903 | 27 |
{$IFNDEF DARWIN} |
1556
3369f016b79d
Patch for engine to successfully build on Mac OS X by Michael Schindler
unc0rr
parents:
1225
diff
changeset
|
28 |
{$linklib c} |
3369f016b79d
Patch for engine to successfully build on Mac OS X by Michael Schindler
unc0rr
parents:
1225
diff
changeset
|
29 |
{$ENDIF} |
3369f016b79d
Patch for engine to successfully build on Mac OS X by Michael Schindler
unc0rr
parents:
1225
diff
changeset
|
30 |
{$linklib pthread} |
4 | 31 |
{$ENDIF} |
32 |
||
432 | 33 |
{$PACKRECORDS C} |
4 | 34 |
|
1819 | 35 |
{$IFDEF DARWIN} |
2200
8192be6e3aef
koda/Smaxx changes to openal for crossplatform building
nemo
parents:
2191
diff
changeset
|
36 |
{$PASCALMAINNAME SDL_main} |
2152 | 37 |
{$IFNDEF IPHONEOS} |
2200
8192be6e3aef
koda/Smaxx changes to openal for crossplatform building
nemo
parents:
2191
diff
changeset
|
38 |
{$linkframework Cocoa} |
8192be6e3aef
koda/Smaxx changes to openal for crossplatform building
nemo
parents:
2191
diff
changeset
|
39 |
{$linkframework SDL} |
8192be6e3aef
koda/Smaxx changes to openal for crossplatform building
nemo
parents:
2191
diff
changeset
|
40 |
{$linkframework SDL_net} |
8192be6e3aef
koda/Smaxx changes to openal for crossplatform building
nemo
parents:
2191
diff
changeset
|
41 |
{$linkframework SDL_image} |
8192be6e3aef
koda/Smaxx changes to openal for crossplatform building
nemo
parents:
2191
diff
changeset
|
42 |
{$linkframework SDL_ttf} |
2515
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
43 |
{$linkframework SDL_mixer} |
2200
8192be6e3aef
koda/Smaxx changes to openal for crossplatform building
nemo
parents:
2191
diff
changeset
|
44 |
{$linklib SDLmain} |
8192be6e3aef
koda/Smaxx changes to openal for crossplatform building
nemo
parents:
2191
diff
changeset
|
45 |
{$linklib gcc} |
1819 | 46 |
{$ENDIF} |
1916 | 47 |
{$ENDIF} |
1819 | 48 |
|
1997 | 49 |
(* SDL *) |
2390 | 50 |
const |
51 |
{$IFDEF WIN32} |
|
52 |
SDLLibName = 'SDL.dll'; |
|
53 |
{$ENDIF} |
|
54 |
{$IFDEF UNIX} |
|
55 |
{$IFDEF DARWIN} |
|
56 |
SDLLibName = 'SDL'; |
|
57 |
{$ELSE} |
|
58 |
SDLLibName = 'libSDL.so'; |
|
59 |
{$ENDIF} |
|
60 |
{$ENDIF} |
|
2379 | 61 |
SDL_SWSURFACE = $00000000; |
62 |
SDL_HWSURFACE = $00000001; |
|
63 |
SDL_SRCALPHA = $00010000; |
|
64 |
SDL_INIT_VIDEO = $00000020; |
|
65 |
SDL_INIT_AUDIO = $00000010; |
|
2428 | 66 |
SDL_INIT_JOYSTICK = $00000200; |
2240
7ce9e6b7be3b
-Removal of older WAV files, now useless thanks to OpenAL
koda
parents:
2200
diff
changeset
|
67 |
|
2477 | 68 |
SDL_APPINPUTFOCUS=$00000002; |
2390 | 69 |
|
2241
7992f7ba388d
completes removal of wav files, updates SDLh and adds DEBUGFILE to hwengine when compiled in Debug mode
koda
parents:
2240
diff
changeset
|
70 |
{$IFDEF SDL13} |
2379 | 71 |
SDL_ASYNCBLIT = $08000000; |
72 |
SDL_ANYFORMAT = $10000000; |
|
73 |
SDL_HWPALETTE = $00200000; |
|
74 |
SDL_DOUBLEBUF = $00400000; |
|
75 |
SDL_FULLSCREEN = $00800000; |
|
76 |
SDL_HWACCEL = $08000000; |
|
77 |
SDL_SRCCOLORKEY = $00020000; |
|
78 |
SDL_RLEACCEL = $08000000; |
|
79 |
SDL_NOFRAME = $02000000; |
|
80 |
SDL_OPENGL = $04000000; |
|
81 |
SDL_RESIZABLE = $01000000; |
|
2241
7992f7ba388d
completes removal of wav files, updates SDLh and adds DEBUGFILE to hwengine when compiled in Debug mode
koda
parents:
2240
diff
changeset
|
82 |
{$ELSE} |
2379 | 83 |
SDL_ASYNCBLIT = $00000004; |
84 |
SDL_ANYFORMAT = $00100000; |
|
85 |
SDL_HWPALETTE = $20000000; |
|
86 |
SDL_DOUBLEBUF = $40000000; |
|
87 |
SDL_FULLSCREEN = $80000000; |
|
88 |
SDL_HWACCEL = $00000100; |
|
89 |
SDL_SRCCOLORKEY = $00001000; |
|
90 |
SDL_RLEACCEL = $00004000; |
|
91 |
SDL_NOFRAME = $00000020; |
|
92 |
SDL_OPENGL = $00000002; |
|
93 |
SDL_RESIZABLE = $00000010; |
|
2241
7992f7ba388d
completes removal of wav files, updates SDLh and adds DEBUGFILE to hwengine when compiled in Debug mode
koda
parents:
2240
diff
changeset
|
94 |
{$ENDIF} |
945
4ead9cde4e14
- Start chat implementation: chat strings are on the screen
unc0rr
parents:
883
diff
changeset
|
95 |
|
2390 | 96 |
{*begin sdl_event binding*} |
2379 | 97 |
SDL_NOEVENT = 0; |
98 |
SDL_KEYDOWN = 2; |
|
99 |
SDL_KEYUP = 3; |
|
2428 | 100 |
//SDL_QUITEV = 12; |
101 |
SDL_VIDEORESIZE = 16; // TODO: outdated? no longer in SDL 1.3? |
|
4 | 102 |
|
2242 | 103 |
{$IFDEF SDL13} |
2390 | 104 |
SDL_WINDOWEVENT = 1; |
105 |
SDL_TEXTINPUT = 4; |
|
2379 | 106 |
SDL_MOUSEMOTION = 5; |
2390 | 107 |
SDL_MOUSEBUTTONDOWN = 6; |
108 |
SDL_MOUSEBUTTONUP = 7; |
|
109 |
SDL_MOUSEWHEEL = 8; //different handling, should create SDL_MouseWheelEvent type |
|
2428 | 110 |
SDL_JOYAXIS = 10; |
111 |
SDL_JOYHAT = 12; |
|
112 |
SDL_JOYBUTTONDOWN = 13; |
|
113 |
SDL_JOYBUTTONUP = 14; |
|
114 |
SDL_QUITEV = 15; |
|
2390 | 115 |
{$ELSE} |
116 |
SDL_ACTIVEEVENT = 1; |
|
117 |
SDL_MOUSEBUTTONDOWN = 5; |
|
118 |
SDL_MOUSEBUTTONUP = 6; |
|
119 |
SDL_BUTTON_WHEELDUP = 4; |
|
120 |
SDL_BUTTON_WHEELDOWN = 5; |
|
2428 | 121 |
SDL_JOYAXIS = 7; |
122 |
SDL_JOYHAT = 9; |
|
123 |
SDL_JOYBUTTONDOWN = 10; |
|
124 |
SDL_JOYBUTTONUP = 11; |
|
125 |
SDL_QUITEV = 12; |
|
2242 | 126 |
{$ENDIF} |
2390 | 127 |
{*end sdl_event binding*} |
753 | 128 |
|
2567 | 129 |
{$IFDEF SDL13} |
130 |
{*#define SDL_BUTTON(X) (1 << ((X)-1)) |
|
131 |
#define SDL_BUTTON_LEFT 1 |
|
132 |
#define SDL_BUTTON_MIDDLE 2 |
|
133 |
#define SDL_BUTTON_RIGHT 3 |
|
134 |
#define SDL_BUTTON_X1 4 |
|
135 |
#define SDL_BUTTON_X2 5 |
|
136 |
#define SDL_BUTTON_LMASK SDL_BUTTON(SDL_BUTTON_LEFT) |
|
137 |
#define SDL_BUTTON_MMASK SDL_BUTTON(SDL_BUTTON_MIDDLE) |
|
138 |
#define SDL_BUTTON_RMASK SDL_BUTTON(SDL_BUTTON_RIGHT) |
|
139 |
#define SDL_BUTTON_X1MASK SDL_BUTTON(SDL_BUTTON_X1) |
|
140 |
#define SDL_BUTTON_X2MASK SDL_BUTTON(SDL_BUTTON_X2)*} |
|
141 |
{$ENDIF} |
|
142 |
||
2379 | 143 |
RMask = $000000FF; |
144 |
GMask = $0000FF00; |
|
145 |
BMask = $00FF0000; |
|
146 |
AMask = $FF000000; |
|
754 | 147 |
|
4 | 148 |
type PSDL_Rect = ^TSDL_Rect; |
2379 | 149 |
TSDL_Rect = record |
2390 | 150 |
{$IFDEF SDL13} |
2379 | 151 |
x, y, w, h: LongInt; |
2390 | 152 |
{$ELSE} |
2379 | 153 |
x, y: SmallInt; |
154 |
w, h: Word; |
|
2390 | 155 |
{$ENDIF} |
2379 | 156 |
end; |
4 | 157 |
|
2379 | 158 |
TPoint = record |
159 |
X: LongInt; |
|
160 |
Y: LongInt; |
|
161 |
end; |
|
4 | 162 |
|
2379 | 163 |
PSDL_PixelFormat = ^TSDL_PixelFormat; |
164 |
TSDL_PixelFormat = record |
|
165 |
palette: Pointer; |
|
166 |
BitsPerPixel : Byte; |
|
167 |
BytesPerPixel: Byte; |
|
168 |
Rloss : Byte; |
|
169 |
Gloss : Byte; |
|
170 |
Bloss : Byte; |
|
171 |
Aloss : Byte; |
|
172 |
Rshift: Byte; |
|
173 |
Gshift: Byte; |
|
174 |
Bshift: Byte; |
|
175 |
Ashift: Byte; |
|
176 |
RMask : Longword; |
|
177 |
GMask : Longword; |
|
178 |
BMask : Longword; |
|
179 |
AMask : Longword; |
|
180 |
colorkey: Longword; |
|
181 |
alpha : Byte; |
|
182 |
end; |
|
4 | 183 |
|
184 |
||
2379 | 185 |
PSDL_Surface = ^TSDL_Surface; |
186 |
TSDL_Surface = record |
|
187 |
flags : Longword; |
|
188 |
format: PSDL_PixelFormat; |
|
189 |
w, h : LongInt; |
|
190 |
pitch : Word; |
|
191 |
pixels: Pointer; |
|
192 |
offset: LongInt; |
|
193 |
end; |
|
4 | 194 |
|
2248
26e11cb27c61
real fix for iphone color (reverting previous commit)
koda
parents:
2242
diff
changeset
|
195 |
|
2379 | 196 |
PSDL_Color = ^TSDL_Color; |
197 |
TSDL_Color = record |
|
198 |
case byte of |
|
199 |
0: (r: Byte; |
|
200 |
g: Byte; |
|
201 |
b: Byte; |
|
202 |
unused: Byte; |
|
203 |
); |
|
204 |
1: (value: Longword); |
|
205 |
end; |
|
4 | 206 |
|
2248
26e11cb27c61
real fix for iphone color (reverting previous commit)
koda
parents:
2242
diff
changeset
|
207 |
|
2379 | 208 |
PSDL_RWops = ^TSDL_RWops; |
209 |
TSeek = function( context: PSDL_RWops; offset: LongInt; whence: LongInt ): LongInt; cdecl; |
|
210 |
TRead = function( context: PSDL_RWops; Ptr: Pointer; size: LongInt; maxnum : LongInt ): LongInt; cdecl; |
|
211 |
TWrite = function( context: PSDL_RWops; Ptr: Pointer; size: LongInt; num: LongInt ): LongInt; cdecl; |
|
212 |
TClose = function( context: PSDL_RWops ): LongInt; cdecl; |
|
4 | 213 |
|
2379 | 214 |
TStdio = record |
215 |
autoclose: LongInt; |
|
216 |
fp: pointer; |
|
217 |
end; |
|
218 |
||
219 |
TMem = record |
|
220 |
base: PByte; |
|
221 |
here: PByte; |
|
222 |
stop: PByte; |
|
223 |
end; |
|
4 | 224 |
|
2379 | 225 |
TUnknown = record |
226 |
data1: Pointer; |
|
227 |
end; |
|
4 | 228 |
|
2379 | 229 |
TSDL_RWops = record |
230 |
seek: TSeek; |
|
231 |
read: TRead; |
|
232 |
write: TWrite; |
|
233 |
close: TClose; |
|
234 |
type_: Longword; |
|
235 |
case Byte of |
|
236 |
0: (stdio: TStdio); |
|
237 |
1: (mem: TMem); |
|
238 |
2: (unknown: TUnknown); |
|
239 |
end; |
|
240 |
||
241 |
TSDL_KeySym = record |
|
242 |
scancode: Byte; |
|
243 |
sym: Longword; |
|
244 |
modifier: Longword; |
|
245 |
unicode: Word; |
|
246 |
end; |
|
4 | 247 |
|
2379 | 248 |
TSDL_ActiveEvent = record |
249 |
type_: byte; |
|
250 |
gain: byte; |
|
251 |
state: byte; |
|
252 |
end; |
|
4 | 253 |
|
2379 | 254 |
TSDL_KeyboardEvent = record |
255 |
type_: Byte; |
|
256 |
which: Byte; |
|
257 |
state: Byte; |
|
258 |
keysym: TSDL_KeySym; |
|
259 |
end; |
|
308 | 260 |
|
2379 | 261 |
TSDL_MouseButtonEvent = record |
262 |
_type, |
|
263 |
which, |
|
264 |
button, |
|
265 |
state: byte; |
|
266 |
x, y: word; |
|
267 |
end; |
|
2376 | 268 |
|
2379 | 269 |
TSDL_GLattr = ( |
270 |
SDL_GL_RED_SIZE, |
|
271 |
SDL_GL_GREEN_SIZE, |
|
272 |
SDL_GL_BLUE_SIZE, |
|
273 |
SDL_GL_ALPHA_SIZE, |
|
274 |
SDL_GL_BUFFER_SIZE, |
|
275 |
SDL_GL_DOUBLEBUFFER, |
|
276 |
SDL_GL_DEPTH_SIZE, |
|
277 |
SDL_GL_STENCIL_SIZE, |
|
278 |
SDL_GL_ACCUM_RED_SIZE, |
|
279 |
SDL_GL_ACCUM_GREEN_SIZE, |
|
280 |
SDL_GL_ACCUM_BLUE_SIZE, |
|
281 |
SDL_GL_ACCUM_ALPHA_SIZE, |
|
282 |
SDL_GL_STEREO, |
|
283 |
SDL_GL_MULTISAMPLEBUFFERS, |
|
284 |
SDL_GL_MULTISAMPLESAMPLES, |
|
285 |
SDL_GL_ACCELERATED_VISUAL, |
|
286 |
SDL_GL_RETAINED_BACKING, |
|
287 |
SDL_GL_CONTEXT_MAJOR_VERSION, |
|
288 |
SDL_GL_CONTEXT_MINOR_VERSION |
|
289 |
); |
|
2376 | 290 |
|
2252 | 291 |
{$IFDEF SDL13} |
292 |
TSDL_MouseMotionEvent = record |
|
293 |
type_: byte; |
|
294 |
which: byte; |
|
295 |
state: byte; |
|
296 |
x : LongInt; |
|
297 |
y : LongInt; |
|
298 |
xrel : LongInt; |
|
299 |
yrel : LongInt; |
|
300 |
end; |
|
301 |
{$ENDIF} |
|
4 | 302 |
|
303 |
TSDL_QuitEvent = record |
|
304 |
type_: Byte; |
|
305 |
end; |
|
2252 | 306 |
TSDL_ResizeEvent = record |
1120 | 307 |
type_: Byte; |
308 |
w, h: LongInt; |
|
309 |
end; |
|
310 |
||
2428 | 311 |
TSDL_JoyAxisEvent = record |
312 |
type_: Byte; |
|
313 |
which: Byte; |
|
314 |
axis: Byte; |
|
315 |
value: LongInt; |
|
316 |
end; |
|
317 |
||
318 |
TSDL_JoyHatEvent = record |
|
319 |
type_: Byte; |
|
320 |
which: Byte; |
|
321 |
hat: Byte; |
|
322 |
value: Byte; |
|
323 |
end; |
|
324 |
||
325 |
TSDL_JoyButtonEvent = record |
|
326 |
type_: Byte; |
|
327 |
which: Byte; |
|
328 |
button: Byte; |
|
329 |
state: Byte; |
|
330 |
end; |
|
331 |
||
332 |
PSDL_Event = ^TSDL_Event; |
|
4 | 333 |
TSDL_Event = record |
334 |
case Byte of |
|
2390 | 335 |
{$IFDEF SDL13} |
336 |
//doublecheck the type of WINDOWEVENT TEXTINPUT |
|
337 |
SDL_NOEVENT: (type_: byte); |
|
338 |
SDL_WINDOWEVENT: (active: TSDL_ActiveEvent); |
|
339 |
SDL_KEYDOWN, |
|
340 |
SDL_KEYUP: (key: TSDL_KeyboardEvent); |
|
341 |
SDL_TEXTINPUT: (txtin: byte); |
|
342 |
SDL_MOUSEMOTION: (motion: TSDL_MouseMotionEvent); |
|
343 |
SDL_MOUSEBUTTONDOWN, |
|
344 |
SDL_MOUSEBUTTONUP: (button: TSDL_MouseButtonEvent); |
|
345 |
{$ELSE} |
|
4 | 346 |
SDL_NOEVENT: (type_: byte); |
308 | 347 |
SDL_ACTIVEEVENT: (active: TSDL_ActiveEvent); |
2390 | 348 |
SDL_KEYDOWN, |
349 |
SDL_KEYUP: (key: TSDL_KeyboardEvent); |
|
4 | 350 |
SDL_QUITEV: (quit: TSDL_QuitEvent); |
1120 | 351 |
SDL_VIDEORESIZE: (resize: TSDL_ResizeEvent); |
2379 | 352 |
SDL_MOUSEBUTTONDOWN, |
353 |
SDL_MOUSEBUTTONUP: (button: TSDL_MouseButtonEvent); |
|
2252 | 354 |
{$ENDIF} |
2428 | 355 |
SDL_JOYAXIS: (jaxis: TSDL_JoyAxisEvent); |
356 |
SDL_JOYHAT: (jhat: TSDL_JoyHatEvent); |
|
357 |
SDL_JOYBUTTONDOWN, |
|
358 |
SDL_JOYBUTTONUP: (jbutton: TSDL_JoyButtonEvent); |
|
2252 | 359 |
end; |
4 | 360 |
|
361 |
PByteArray = ^TByteArray; |
|
316 | 362 |
TByteArray = array[0..65535] of Byte; |
363 |
PLongWordArray = ^TLongWordArray; |
|
364 |
TLongWordArray = array[0..16383] of LongWord; |
|
4 | 365 |
|
433 | 366 |
PSDL_Thread = Pointer; |
367 |
PSDL_mutex = Pointer; |
|
945
4ead9cde4e14
- Start chat implementation: chat strings are on the screen
unc0rr
parents:
883
diff
changeset
|
368 |
|
432 | 369 |
function SDL_Init(flags: Longword): LongInt; cdecl; external SDLLibName; |
4 | 370 |
procedure SDL_Quit; cdecl; external SDLLibName; |
432 | 371 |
function SDL_VideoDriverName(var namebuf; maxlen: LongInt): PChar; cdecl; external SDLLibName; |
372 |
procedure SDL_EnableUNICODE(enable: LongInt); cdecl; external SDLLibName; |
|
4 | 373 |
|
374 |
procedure SDL_Delay(msec: Longword); cdecl; external SDLLibName; |
|
375 |
function SDL_GetTicks: Longword; cdecl; external SDLLibName; |
|
376 |
||
377 |
function SDL_MustLock(Surface: PSDL_Surface): Boolean; |
|
432 | 378 |
function SDL_LockSurface(Surface: PSDL_Surface): LongInt; cdecl; external SDLLibName; |
4 | 379 |
procedure SDL_UnlockSurface(Surface: PSDL_Surface); cdecl; external SDLLibName; |
380 |
||
381 |
function SDL_GetError: PChar; cdecl; external SDLLibName; |
|
382 |
||
432 | 383 |
function SDL_SetVideoMode(width, height, bpp: LongInt; flags: Longword): PSDL_Surface; cdecl; external SDLLibName; |
384 |
function SDL_CreateRGBSurface(flags: Longword; Width, Height, Depth: LongInt; RMask, GMask, BMask, AMask: Longword): PSDL_Surface; cdecl; external SDLLibName; |
|
385 |
function SDL_CreateRGBSurfaceFrom(pixels: Pointer; width, height, depth, pitch: LongInt; RMask, GMask, BMask, AMask: Longword): PSDL_Surface; cdecl; external SDLLibName; |
|
4 | 386 |
procedure SDL_FreeSurface(Surface: PSDL_Surface); cdecl; external SDLLibName; |
105 | 387 |
function SDL_SetColorKey(surface: PSDL_Surface; flag, key: Longword): LongInt; cdecl; external SDLLibName; |
2017 | 388 |
function SDL_SetAlpha(surface: PSDL_Surface; flag, key: Longword): LongInt; cdecl; external SDLLibName; |
2248
26e11cb27c61
real fix for iphone color (reverting previous commit)
koda
parents:
2242
diff
changeset
|
389 |
function SDL_ConvertSurface(src: PSDL_Surface; fmt: PSDL_PixelFormat; flags: LongInt): PSDL_Surface; cdecl; external SDLLibName; |
4 | 390 |
|
105 | 391 |
function SDL_UpperBlit(src: PSDL_Surface; srcrect: PSDL_Rect; dst: PSDL_Surface; dstrect: PSDL_Rect): LongInt; cdecl; external SDLLibName; |
392 |
function SDL_FillRect(dst: PSDL_Surface; dstrect: PSDL_Rect; color: Longword): LongInt; cdecl; external SDLLibName; |
|
393 |
procedure SDL_UpdateRect(Screen: PSDL_Surface; x, y: LongInt; w, h: Longword); cdecl; external SDLLibName; |
|
432 | 394 |
function SDL_Flip(Screen: PSDL_Surface): LongInt; cdecl; external SDLLibName; |
4 | 395 |
|
396 |
procedure SDL_GetRGB(pixel: Longword; fmt: PSDL_PixelFormat; r, g, b: PByte); cdecl; external SDLLibName; |
|
107 | 397 |
function SDL_MapRGB(format: PSDL_PixelFormat; r, g, b: Byte): Longword; cdecl; external SDLLibName; |
4 | 398 |
|
399 |
function SDL_DisplayFormat(Surface: PSDL_Surface): PSDL_Surface; cdecl; external SDLLibName; |
|
35 | 400 |
function SDL_DisplayFormatAlpha(Surface: PSDL_Surface): PSDL_Surface; cdecl; external SDLLibName; |
4 | 401 |
|
402 |
function SDL_RWFromFile(filename, mode: PChar): PSDL_RWops; cdecl; external SDLLibName; |
|
432 | 403 |
function SDL_SaveBMP_RW(surface: PSDL_Surface; dst: PSDL_RWops; freedst: LongInt): LongInt; cdecl; external SDLLibName; |
4 | 404 |
|
2152 | 405 |
{$IFDEF SDL13} |
406 |
function SDL_GetKeyboardState(numkeys: PLongInt): PByteArray; cdecl; external SDLLibName; |
|
2242 | 407 |
function SDL_GetMouseState(index: LongInt; x, y: PLongInt): Byte; cdecl; external SDLLibName; |
408 |
function SDL_SelectMouse(index: LongInt): LongInt; cdecl; external SDLLibName; |
|
409 |
function SDL_GetRelativeMouseState(index: LongInt; x, y: PLongInt): Byte; cdecl; external SDLLibName; |
|
410 |
function SDL_GetNumMice : LongInt; cdecl; external SDLLibName; |
|
2152 | 411 |
{$ELSE} |
105 | 412 |
function SDL_GetKeyState(numkeys: PLongInt): PByteArray; cdecl; external SDLLibName; |
2242 | 413 |
function SDL_GetMouseState(x, y: PLongInt): Byte; cdecl; external SDLLibName; |
2152 | 414 |
{$ENDIF} |
4 | 415 |
function SDL_GetKeyName(key: Longword): PChar; cdecl; external SDLLibName; |
416 |
procedure SDL_WarpMouse(x, y: Word); cdecl; external SDLLibName; |
|
417 |
||
2428 | 418 |
procedure SDL_PumpEvents; cdecl; external SDLLibName; |
432 | 419 |
function SDL_PollEvent(event: PSDL_Event): LongInt; cdecl; external SDLLibName; |
4 | 420 |
|
432 | 421 |
function SDL_ShowCursor(toggle: LongInt): LongInt; cdecl; external SDLLibName; |
4 | 422 |
|
423 |
procedure SDL_WM_SetCaption(title: PChar; icon: PChar); cdecl; external SDLLibName; |
|
424 |
||
433 | 425 |
function SDL_CreateMutex: PSDL_mutex; cdecl; external SDLLibName; |
426 |
procedure SDL_DestroyMutex(mutex: PSDL_mutex); cdecl; external SDLLibName; |
|
427 |
function SDL_LockMutex(mutex: PSDL_mutex): LongInt; cdecl; external SDLLibName name 'SDL_mutexP'; |
|
428 |
function SDL_UnlockMutex(mutex: PSDL_mutex): LongInt; cdecl; external SDLLibName name 'SDL_mutexV'; |
|
429 |
||
2252 | 430 |
function SDL_GL_SetAttribute(attr: TSDL_GLattr; value: LongInt): LongInt; cdecl; external SDLLibName; |
753 | 431 |
procedure SDL_GL_SwapBuffers(); cdecl; external SDLLibName; |
432 |
||
2254 | 433 |
{$IFDEF SDL13} |
434 |
{$IFDEF IPHONEOS} |
|
435 |
function SDL_iPhoneKeyboardShow(windowID: LongInt): LongInt; cdecl; external SDLLibName; |
|
436 |
function SDL_iPhoneKeyboardHide(windowID: LongInt): LongInt; cdecl; external SDLLibName; |
|
437 |
function SDL_iPhoneKeyboardIsShown(windowID: LongInt): boolean; cdecl; external SDLLibName; |
|
438 |
function SDL_iPhoneKeyboardToggle(windowID: LongInt): LongInt; cdecl; external SDLLibName; |
|
439 |
{$ENDIF} |
|
440 |
{$ENDIF} |
|
441 |
||
4 | 442 |
|
443 |
||
2428 | 444 |
// Joystick/Controller support |
445 |
type PSDLJoystick = ^TSDLJoystick; |
|
446 |
TSDLJoystick = record |
|
447 |
end; |
|
448 |
||
449 |
function SDL_NumJoysticks: LongInt; cdecl; external SDLLibName; |
|
450 |
function SDL_JoystickName(idx: LongInt): PChar; cdecl; external SDLLibName; |
|
451 |
function SDL_JoystickOpen(idx: LongInt): PSDLJoystick; cdecl; external SDLLibName; |
|
452 |
function SDL_JoystickOpened(idx: LongInt): LongInt; cdecl; external SDLLibName; |
|
453 |
function SDL_JoystickIndex(joy: PSDLJoystick): LongInt; cdecl; external SDLLibName; |
|
454 |
function SDL_JoystickNumAxes(joy: PSDLJoystick): LongInt; cdecl; external SDLLibName; |
|
455 |
function SDL_JoystickNumBalls(joy: PSDLJoystick): LongInt; cdecl; external SDLLibName; |
|
456 |
function SDL_JoystickNumHats(joy: PSDLJoystick): LongInt; cdecl; external SDLLibName; |
|
457 |
function SDL_JoystickNumButtons(joy: PSDLJoystick): LongInt; cdecl; external SDLLibName; |
|
458 |
procedure SDL_JoystickUpdate; cdecl; external SDLLibName; |
|
459 |
function SDL_JoystickEventState(state: LongInt): LongInt; cdecl; external SDLLibName; |
|
460 |
function SDL_JoystickGetAxis(joy: PSDLJoystick; axis: LongInt): Word; cdecl; external SDLLibName; |
|
461 |
const SDL_HAT_CENTERED = $00; |
|
462 |
SDL_HAT_UP = $01; |
|
463 |
SDL_HAT_RIGHT = $02; |
|
464 |
SDL_HAT_DOWN = $04; |
|
465 |
SDL_HAT_LEFT = $08; |
|
466 |
SDL_HAT_RIGHTUP = SDL_HAT_RIGHT or SDL_HAT_UP; |
|
467 |
SDL_HAT_RIGHTDOWN = SDL_HAT_RIGHT or SDL_HAT_DOWN; |
|
468 |
SDL_HAT_LEFTUP = SDL_HAT_LEFT or SDL_HAT_UP; |
|
469 |
SDL_HAT_LEFTDOWN = SDL_HAT_LEFT or SDL_HAT_DOWN; |
|
470 |
function SDL_JoystickGetBall(joy: PSDLJoystick; ball: LongInt; dx: PInteger; dy: PInteger): Word; cdecl; external SDLLibName; |
|
471 |
function SDL_JoystickGetHat(joy: PSDLJoystick; hat: LongInt): Byte; cdecl; external SDLLibName; |
|
472 |
function SDL_JoystickGetButton(joy: PSDLJoystick; button: LongInt): Byte; cdecl; external SDLLibName; |
|
473 |
procedure SDL_JoystickClose(joy: PSDLJoystick); cdecl; external SDLLibName; |
|
474 |
||
2515
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
475 |
(* TTF *) |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
476 |
|
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
477 |
const {$IFDEF WIN32} |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
478 |
SDL_TTFLibName = 'SDL_ttf.dll'; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
479 |
{$ENDIF} |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
480 |
{$IFDEF UNIX} |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
481 |
{$IFDEF DARWIN} |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
482 |
SDL_TTFLibName = 'SDL_ttf'; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
483 |
{$ELSE} |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
484 |
SDL_TTFLibName = 'libSDL_ttf.so'; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
485 |
{$ENDIF} |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
486 |
{$ENDIF} |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
487 |
TTF_STYLE_NORMAL = 0; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
488 |
TTF_STYLE_BOLD = 1; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
489 |
TTF_STYLE_ITALIC = 2; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
490 |
|
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
491 |
type PTTF_Font = ^TTTF_font; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
492 |
TTTF_Font = record |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
493 |
end; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
494 |
|
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
495 |
function TTF_Init: LongInt; cdecl; external SDL_TTFLibName; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
496 |
procedure TTF_Quit; cdecl; external SDL_TTFLibName; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
497 |
|
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
498 |
|
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
499 |
function TTF_SizeUTF8(font: PTTF_Font; const text: PChar; var w, h: LongInt): LongInt; cdecl; external SDL_TTFLibName; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
500 |
(* TSDL_Color -> Longword conversion is workaround over freepascal bug. |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
501 |
See http://www.freepascal.org/mantis/view.php?id=7613 for details *) |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
502 |
function TTF_RenderUTF8_Solid(font: PTTF_Font; const text: PChar; fg: Longword): PSDL_Surface; cdecl; external SDL_TTFLibName; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
503 |
function TTF_RenderUTF8_Blended(font: PTTF_Font; const text: PChar; fg: Longword): PSDL_Surface; cdecl; external SDL_TTFLibName; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
504 |
function TTF_RenderUTF8_Shaded(font: PTTF_Font; const text: PChar; fg, bg: Longword): PSDL_Surface; cdecl; external SDL_TTFLibName; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
505 |
|
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
506 |
function TTF_OpenFont(const filename: PChar; size: LongInt): PTTF_Font; cdecl; external SDL_TTFLibName; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
507 |
procedure TTF_SetFontStyle(font: PTTF_Font; style: LongInt); cdecl; external SDL_TTFLibName; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
508 |
|
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
509 |
(* SDL_mixer *) |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
510 |
|
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
511 |
const {$IFDEF WIN32} |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
512 |
SDL_MixerLibName = 'SDL_mixer.dll'; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
513 |
{$ENDIF} |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
514 |
{$IFDEF UNIX} |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
515 |
{$IFDEF DARWIN} |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
516 |
SDL_MixerLibName = 'SDL_mixer'; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
517 |
{$ELSE} |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
518 |
SDL_MixerLibName = 'libSDL_mixer.so'; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
519 |
{$ENDIF} |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
520 |
{$ENDIF} |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
521 |
|
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
522 |
const MIX_MAX_VOLUME = 128; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
523 |
|
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
524 |
type PMixChunk = ^TMixChunk; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
525 |
TMixChunk = record |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
526 |
allocated: Longword; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
527 |
abuf : PByte; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
528 |
alen : Longword; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
529 |
volume : PByte; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
530 |
end; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
531 |
TMusic = (MUS_CMD, MUS_WAV, MUS_MOD, MUS_MID, MUS_OGG, MUS_MP3); |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
532 |
TMix_Fading = (MIX_NO_FADING, MIX_FADING_OUT, MIX_FADING_IN); |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
533 |
|
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
534 |
TMidiSong = record |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
535 |
samples : LongInt; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
536 |
events : pointer; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
537 |
end; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
538 |
|
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
539 |
TMusicUnion = record |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
540 |
case Byte of |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
541 |
0: ( midi : TMidiSong ); |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
542 |
1: ( ogg : pointer); |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
543 |
end; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
544 |
|
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
545 |
PMixMusic = ^TMixMusic; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
546 |
TMixMusic = record |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
547 |
end; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
548 |
|
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
549 |
function Mix_OpenAudio(frequency: LongInt; format: Word; channels: LongInt; chunksize: LongInt): LongInt; cdecl; external SDL_MixerLibName; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
550 |
procedure Mix_CloseAudio; cdecl; external SDL_MixerLibName; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
551 |
|
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
552 |
function Mix_Volume(channel: LongInt; volume: LongInt): LongInt; cdecl; external SDL_MixerLibName; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
553 |
function Mix_SetDistance(channel: LongInt; distance: Byte): LongInt; cdecl; external SDL_MixerLibName; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
554 |
function Mix_VolumeMusic(volume: LongInt): LongInt; cdecl; external SDL_MixerLibName; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
555 |
|
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
556 |
function Mix_AllocateChannels(numchans: LongInt): LongInt; cdecl; external SDL_MixerLibName; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
557 |
procedure Mix_FreeChunk(chunk: PMixChunk); cdecl; external SDL_MixerLibName; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
558 |
procedure Mix_FreeMusic(music: PMixMusic); cdecl; external SDL_MixerLibName; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
559 |
|
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
560 |
function Mix_LoadWAV_RW(src: PSDL_RWops; freesrc: LongInt): PMixChunk; cdecl; external SDL_MixerLibName; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
561 |
function Mix_LoadMUS(const filename: PChar): PMixMusic; cdecl; external SDL_MixerLibName; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
562 |
|
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
563 |
function Mix_Playing(channel: LongInt): LongInt; cdecl; external SDL_MixerLibName; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
564 |
function Mix_PlayingMusic: LongInt; cdecl; external SDL_MixerLibName; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
565 |
function Mix_FadeInMusic(music: PMixMusic; loops: LongInt; ms: LongInt): LongInt; cdecl; external SDL_MixerLibName; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
566 |
|
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
567 |
function Mix_PlayChannelTimed(channel: LongInt; chunk: PMixChunk; loops: LongInt; ticks: LongInt): LongInt; cdecl; external SDL_MixerLibName; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
568 |
function Mix_PlayMusic(music: PMixMusic; loops: LongInt): LongInt; cdecl; external SDL_MixerLibName; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
569 |
function Mix_PausedMusic(music: PMixMusic): LongInt; cdecl; external SDL_MixerLibName; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
570 |
function Mix_PauseMusic(music: PMixMusic): LongInt; cdecl; external SDL_MixerLibName; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
571 |
function Mix_ResumeMusic(music: PMixMusic): LongInt; cdecl; external SDL_MixerLibName; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
572 |
function Mix_HaltChannel(channel: LongInt): LongInt; cdecl; external SDL_MixerLibName; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
573 |
|
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
574 |
(* SDL_image *) |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
575 |
|
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
576 |
const {$IFDEF WIN32} |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
577 |
SDL_ImageLibName = 'SDL_image.dll'; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
578 |
{$ENDIF} |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
579 |
{$IFDEF UNIX} |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
580 |
{$IFDEF DARWIN} |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
581 |
SDL_ImageLibName = 'SDL_image'; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
582 |
{$ELSE} |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
583 |
SDL_ImageLibName = 'libSDL_image.so'; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
584 |
{$ENDIF} |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
585 |
{$ENDIF} |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
586 |
|
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
587 |
function IMG_Load(const _file: PChar): PSDL_Surface; cdecl; external SDL_ImageLibName; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
588 |
|
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
589 |
(* SDL_net *) |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
590 |
|
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
591 |
const {$IFDEF WIN32} |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
592 |
SDL_NetLibName = 'SDL_net.dll'; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
593 |
{$ENDIF} |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
594 |
{$IFDEF UNIX} |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
595 |
{$IFDEF DARWIN} |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
596 |
SDL_NetLibName = 'SDL_net'; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
597 |
{$ELSE} |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
598 |
SDL_NetLibName = 'libSDL_net.so'; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
599 |
{$ENDIF} |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
600 |
{$ENDIF} |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
601 |
|
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
602 |
type TIPAddress = record |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
603 |
host: Longword; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
604 |
port: Word; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
605 |
end; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
606 |
|
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
607 |
PTCPSocket = ^TTCPSocket; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
608 |
TTCPSocket = record |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
609 |
ready: LongInt; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
610 |
channel: LongInt; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
611 |
remoteAddress: TIPaddress; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
612 |
localAddress: TIPaddress; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
613 |
sflag: LongInt; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
614 |
end; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
615 |
PSDLNet_SocketSet = ^TSDLNet_SocketSet; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
616 |
TSDLNet_SocketSet = record |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
617 |
numsockets, |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
618 |
maxsockets: LongInt; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
619 |
sockets: PTCPSocket; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
620 |
end; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
621 |
|
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
622 |
function SDLNet_Init: LongInt; cdecl; external SDL_NetLibName; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
623 |
procedure SDLNet_Quit; cdecl; external SDL_NetLibName; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
624 |
|
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
625 |
function SDLNet_AllocSocketSet(maxsockets: LongInt): PSDLNet_SocketSet; cdecl; external SDL_NetLibName; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
626 |
function SDLNet_ResolveHost(var address: TIPaddress; host: PCHar; port: Word): LongInt; cdecl; external SDL_NetLibName; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
627 |
function SDLNet_TCP_Accept(server: PTCPsocket): PTCPSocket; cdecl; external SDL_NetLibName; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
628 |
function SDLNet_TCP_Open(var ip: TIPaddress): PTCPSocket; cdecl; external SDL_NetLibName; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
629 |
function SDLNet_TCP_Send(sock: PTCPsocket; data: Pointer; len: LongInt): LongInt; cdecl; external SDL_NetLibName; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
630 |
function SDLNet_TCP_Recv(sock: PTCPsocket; data: Pointer; len: LongInt): LongInt; cdecl; external SDL_NetLibName; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
631 |
procedure SDLNet_TCP_Close(sock: PTCPsocket); cdecl; external SDL_NetLibName; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
632 |
procedure SDLNet_FreeSocketSet(_set: PSDLNet_SocketSet); cdecl; external SDL_NetLibName; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
633 |
function SDLNet_AddSocket(_set: PSDLNet_SocketSet; sock: PTCPSocket): LongInt; cdecl; external SDL_NetLibName; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
634 |
function SDLNet_CheckSockets(_set: PSDLNet_SocketSet; timeout: LongInt): LongInt; cdecl; external SDL_NetLibName; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
635 |
|
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
636 |
procedure SDLNet_Write16(value: Word; buf: pointer); |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
637 |
procedure SDLNet_Write32(value: LongWord; buf: pointer); |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
638 |
function SDLNet_Read16(buf: pointer): Word; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
639 |
function SDLNet_Read32(buf: pointer): LongWord; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
640 |
|
4 | 641 |
implementation |
642 |
||
643 |
function SDL_MustLock(Surface: PSDL_Surface): Boolean; |
|
644 |
begin |
|
432 | 645 |
SDL_MustLock:= ( surface^.offset <> 0 ) |
4 | 646 |
or(( surface^.flags and (SDL_HWSURFACE or SDL_ASYNCBLIT or SDL_RLEACCEL)) <> 0) |
647 |
end; |
|
648 |
||
459
95163c6efa69
Do not use SDL_Net's to/from network byte order conversion functions
unc0rr
parents:
433
diff
changeset
|
649 |
procedure SDLNet_Write16(value: Word; buf: pointer); |
95163c6efa69
Do not use SDL_Net's to/from network byte order conversion functions
unc0rr
parents:
433
diff
changeset
|
650 |
begin |
95163c6efa69
Do not use SDL_Net's to/from network byte order conversion functions
unc0rr
parents:
433
diff
changeset
|
651 |
PByteArray(buf)^[1]:= value; |
95163c6efa69
Do not use SDL_Net's to/from network byte order conversion functions
unc0rr
parents:
433
diff
changeset
|
652 |
PByteArray(buf)^[0]:= value shr 8 |
95163c6efa69
Do not use SDL_Net's to/from network byte order conversion functions
unc0rr
parents:
433
diff
changeset
|
653 |
end; |
95163c6efa69
Do not use SDL_Net's to/from network byte order conversion functions
unc0rr
parents:
433
diff
changeset
|
654 |
|
95163c6efa69
Do not use SDL_Net's to/from network byte order conversion functions
unc0rr
parents:
433
diff
changeset
|
655 |
procedure SDLNet_Write32(value: LongWord; buf: pointer); |
95163c6efa69
Do not use SDL_Net's to/from network byte order conversion functions
unc0rr
parents:
433
diff
changeset
|
656 |
begin |
95163c6efa69
Do not use SDL_Net's to/from network byte order conversion functions
unc0rr
parents:
433
diff
changeset
|
657 |
PByteArray(buf)^[3]:= value; |
95163c6efa69
Do not use SDL_Net's to/from network byte order conversion functions
unc0rr
parents:
433
diff
changeset
|
658 |
PByteArray(buf)^[2]:= value shr 8; |
95163c6efa69
Do not use SDL_Net's to/from network byte order conversion functions
unc0rr
parents:
433
diff
changeset
|
659 |
PByteArray(buf)^[1]:= value shr 16; |
95163c6efa69
Do not use SDL_Net's to/from network byte order conversion functions
unc0rr
parents:
433
diff
changeset
|
660 |
PByteArray(buf)^[0]:= value shr 24 |
95163c6efa69
Do not use SDL_Net's to/from network byte order conversion functions
unc0rr
parents:
433
diff
changeset
|
661 |
end; |
95163c6efa69
Do not use SDL_Net's to/from network byte order conversion functions
unc0rr
parents:
433
diff
changeset
|
662 |
|
95163c6efa69
Do not use SDL_Net's to/from network byte order conversion functions
unc0rr
parents:
433
diff
changeset
|
663 |
function SDLNet_Read16(buf: pointer): Word; |
95163c6efa69
Do not use SDL_Net's to/from network byte order conversion functions
unc0rr
parents:
433
diff
changeset
|
664 |
begin |
95163c6efa69
Do not use SDL_Net's to/from network byte order conversion functions
unc0rr
parents:
433
diff
changeset
|
665 |
SDLNet_Read16:= PByteArray(buf)^[1] or |
95163c6efa69
Do not use SDL_Net's to/from network byte order conversion functions
unc0rr
parents:
433
diff
changeset
|
666 |
(PByteArray(buf)^[0] shl 8) |
95163c6efa69
Do not use SDL_Net's to/from network byte order conversion functions
unc0rr
parents:
433
diff
changeset
|
667 |
end; |
95163c6efa69
Do not use SDL_Net's to/from network byte order conversion functions
unc0rr
parents:
433
diff
changeset
|
668 |
|
95163c6efa69
Do not use SDL_Net's to/from network byte order conversion functions
unc0rr
parents:
433
diff
changeset
|
669 |
function SDLNet_Read32(buf: pointer): LongWord; |
95163c6efa69
Do not use SDL_Net's to/from network byte order conversion functions
unc0rr
parents:
433
diff
changeset
|
670 |
begin |
95163c6efa69
Do not use SDL_Net's to/from network byte order conversion functions
unc0rr
parents:
433
diff
changeset
|
671 |
SDLNet_Read32:= PByteArray(buf)^[3] or |
95163c6efa69
Do not use SDL_Net's to/from network byte order conversion functions
unc0rr
parents:
433
diff
changeset
|
672 |
(PByteArray(buf)^[2] shl 8) or |
95163c6efa69
Do not use SDL_Net's to/from network byte order conversion functions
unc0rr
parents:
433
diff
changeset
|
673 |
(PByteArray(buf)^[1] shl 16) or |
95163c6efa69
Do not use SDL_Net's to/from network byte order conversion functions
unc0rr
parents:
433
diff
changeset
|
674 |
(PByteArray(buf)^[0] shl 24) |
95163c6efa69
Do not use SDL_Net's to/from network byte order conversion functions
unc0rr
parents:
433
diff
changeset
|
675 |
end; |
95163c6efa69
Do not use SDL_Net's to/from network byte order conversion functions
unc0rr
parents:
433
diff
changeset
|
676 |
|
4 | 677 |
end. |
2241
7992f7ba388d
completes removal of wav files, updates SDLh and adds DEBUGFILE to hwengine when compiled in Debug mode
koda
parents:
2240
diff
changeset
|
678 |