equal
deleted
inserted
replaced
17 *) |
17 *) |
18 |
18 |
19 unit SDLh; |
19 unit SDLh; |
20 interface |
20 interface |
21 |
21 |
22 {$INCLUDE options.inc} |
22 {$INCLUDE "options.inc"} |
23 |
23 |
24 {$IFDEF LINUX or FREEBSD} |
24 {$IFDEF LINUX} |
|
25 {$DEFINE UNIX} |
|
26 {$ENDIF} |
|
27 {$IFDEF FREEBSD} |
25 {$DEFINE UNIX} |
28 {$DEFINE UNIX} |
26 {$ENDIF} |
29 {$ENDIF} |
27 |
30 |
28 {$IFDEF UNIX} |
31 {$IFDEF UNIX} |
29 {$IFNDEF DARWIN} |
32 {$IFNDEF DARWIN} |
30 {$linklib c} |
33 {$linklib c} |
31 {$ENDIF} |
34 {$ENDIF} |
32 {$linklib pthread} |
35 {$linklib pthread} |
33 {$ENDIF} |
36 {$ENDIF} |
34 |
37 |
|
38 {$IFDEF FPC} |
35 {$PACKRECORDS C} |
39 {$PACKRECORDS C} |
|
40 {$ENDIF} |
36 |
41 |
37 {$IFDEF DARWIN} |
42 {$IFDEF DARWIN} |
38 {$PASCALMAINNAME SDL_main} |
43 {$PASCALMAINNAME SDL_main} |
39 {$IFNDEF IPHONEOS} |
44 {$IFNDEF IPHONEOS} |
40 {$linkframework Cocoa} |
45 {$linkframework Cocoa} |
203 1: (value: Longword); |
208 1: (value: Longword); |
204 end; |
209 end; |
205 |
210 |
206 |
211 |
207 PSDL_RWops = ^TSDL_RWops; |
212 PSDL_RWops = ^TSDL_RWops; |
208 TSeek = function( context: PSDL_RWops; offset: LongInt; whence: LongInt ): LongInt; cdecl; |
213 TSeek = function( context: PSDL_RWops; offset: LongInt; whence: LongInt ): LongInt; cdecl; |
209 TRead = function( context: PSDL_RWops; Ptr: Pointer; size: LongInt; maxnum : LongInt ): LongInt; cdecl; |
214 TRead = function( context: PSDL_RWops; Ptr: Pointer; size: LongInt; maxnum : LongInt ): LongInt; cdecl; |
210 TWrite = function( context: PSDL_RWops; Ptr: Pointer; size: LongInt; num: LongInt ): LongInt; cdecl; |
215 TWrite = function( context: PSDL_RWops; Ptr: Pointer; size: LongInt; num: LongInt ): LongInt; cdecl; |
211 TClose = function( context: PSDL_RWops ): LongInt; cdecl; |
216 TClose = function( context: PSDL_RWops ): LongInt; cdecl; |
212 |
217 |
213 TStdio = record |
218 TStdio = record |
214 autoclose: LongInt; |
219 autoclose: LongInt; |