|
1 |
| -// based on "sdl.h" |
2 |
| - |
3 |
| -type |
4 |
| - PPSDL_Init = ^PSDL_Init; |
5 |
| - PSDL_Init = ^TSDL_Init; |
6 |
| - TSDL_Init = type cuint32; |
7 |
| - |
8 |
| -const |
9 |
| - SDL_INIT_TIMER = TSDL_Init($00000001); |
10 |
| - {$EXTERNALSYM SDL_INIT_TIMER} |
11 |
| - SDL_INIT_AUDIO = TSDL_Init($00000010); |
12 |
| - {$EXTERNALSYM SDL_INIT_AUDIO} |
13 |
| - SDL_INIT_VIDEO = TSDL_Init($00000020); // SDL_INIT_VIDEO implies SDL_INIT_EVENTS |
14 |
| - {$EXTERNALSYM SDL_INIT_VIDEO} |
15 |
| - SDL_INIT_JOYSTICK = TSDL_Init($00000200); // SDL_INIT_JOYSTICK implies SDL_INIT_EVENTS |
16 |
| - {$EXTERNALSYM SDL_INIT_JOYSTICK} |
17 |
| - SDL_INIT_HAPTIC = TSDL_Init($00001000); |
18 |
| - {$EXTERNALSYM SDL_INIT_HAPTIC} |
19 |
| - SDL_INIT_GAMECONTROLLER = TSDL_Init($00002000); //turn on game controller also implicitly does JOYSTICK |
20 |
| - {$EXTERNALSYM SDL_INIT_GAMECONTROLLER} // SDL_INIT_GAMECONTROLLER implies SDL_INIT_JOYSTICK |
21 |
| - SDL_INIT_EVENTS = TSDL_Init($00004000); |
22 |
| - {$EXTERNALSYM SDL_INIT_EVENTS} |
23 |
| - SDL_INIT_SENSOR = TSDL_Init($00008000); |
24 |
| - {$EXTERNALSYM SDL_INIT_SENSOR} |
25 |
| - SDL_INIT_NOPARACHUTE = TSDL_Init($00100000); //Don't catch fatal signals |
26 |
| - {$EXTERNALSYM SDL_INIT_NOPARACHUTE} // compatibility; this flag is ignored. |
27 |
| - SDL_INIT_EVERYTHING = TSDL_Init( |
28 |
| - SDL_INIT_TIMER or |
29 |
| - SDL_INIT_AUDIO or |
30 |
| - SDL_INIT_VIDEO or |
31 |
| - SDL_INIT_EVENTS or |
32 |
| - SDL_INIT_JOYSTICK or |
33 |
| - SDL_INIT_HAPTIC or |
34 |
| - SDL_INIT_GAMECONTROLLER or |
35 |
| - SDL_INIT_SENSOR |
36 |
| - ); |
37 |
| - {$EXTERNALSYM SDL_INIT_EVERYTHING} |
38 |
| - |
39 |
| -{** |
40 |
| - * This function initializes the subsystems specified by flags |
41 |
| - * Unless the SDL_INIT_NOPARACHUTE flag is set, it will install cleanup |
42 |
| - * signal handlers for some commonly ignored fatal signals (like SIGSEGV). |
43 |
| - *} |
44 |
| -{$ifdef SDL_DYNAMIC_LINKING} |
45 |
| -Type |
46 |
| - TSDL_Init_fun = function(flags: TSDL_Init): cint; cdecl; |
47 |
| -Var |
48 |
| - SDL_Init : TSDL_Init_fun = Nil; |
49 |
| -{$else} |
50 |
| - |
51 |
| -function SDL_Init(flags: TSDL_Init): cint; cdecl; |
52 |
| - external SDL_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_SDL_Init' {$ENDIF} {$ENDIF}; |
53 |
| -{$endif} |
54 |
| - |
55 |
| -{** |
56 |
| - * This function initializes specific SDL subsystems |
57 |
| - *} |
58 |
| -{$ifdef SDL_DYNAMIC_LINKING} |
59 |
| -Type |
60 |
| - TSDL_InitSubSystem_fun = function(flags: TSDL_Init): cint; cdecl; |
61 |
| -Var |
62 |
| - SDL_InitSubSystem : TSDL_InitSubSystem_fun = Nil; |
63 |
| -{$else} |
64 |
| - |
65 |
| -function SDL_InitSubSystem(flags: TSDL_Init): cint; cdecl; |
66 |
| - external SDL_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_SDL_InitSubSystem' {$ENDIF} {$ENDIF}; |
67 |
| -{$endif} |
68 |
| - |
69 |
| -{** |
70 |
| - * This function cleans up specific SDL subsystems |
71 |
| - *} |
72 |
| -{$ifdef SDL_DYNAMIC_LINKING} |
73 |
| -Type |
74 |
| - TSDL_QuitSubSystem_proc = procedure(flags: TSDL_Init); cdecl; |
75 |
| -Var |
76 |
| - SDL_QuitSubSystem : TSDL_QuitSubSystem_proc = Nil; |
77 |
| -{$else} |
78 |
| - |
79 |
| -procedure SDL_QuitSubSystem(flags: TSDL_Init); cdecl; |
80 |
| - external SDL_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_SDL_QuitSubSystem' {$ENDIF} {$ENDIF}; |
81 |
| -{$endif} |
82 |
| - |
83 |
| -{** |
84 |
| - * This function returns a mask of the specified subsystems which have |
85 |
| - * previously been initialized. |
86 |
| - * |
87 |
| - * If flags is 0, it returns a mask of all initialized subsystems. |
88 |
| - *} |
89 |
| -{$ifdef SDL_DYNAMIC_LINKING} |
90 |
| -Type |
91 |
| - TSDL_WasInit_fun = function(flags: TSDL_Init): cuint32; cdecl; |
92 |
| -Var |
93 |
| - SDL_WasInit : TSDL_WasInit_fun = Nil; |
94 |
| -{$else} |
95 |
| - |
96 |
| -function SDL_WasInit(flags: TSDL_Init): cuint32; cdecl; |
97 |
| - external SDL_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_SDL_WasInit' {$ENDIF} {$ENDIF}; |
98 |
| -{$endif} |
99 |
| - |
100 |
| -{** |
101 |
| - * This function cleans up all initialized subsystems. You should |
102 |
| - * call it upon all exit conditions. |
103 |
| - *} |
104 |
| -{$ifdef SDL_DYNAMIC_LINKING} |
105 |
| -Type |
106 |
| - TSDL_Quit_proc = procedure(); cdecl; |
107 |
| -Var |
108 |
| - SDL_Quit : TSDL_Quit_proc = Nil; |
109 |
| -{$else} |
110 |
| - |
111 |
| -procedure SDL_Quit(); cdecl; |
112 |
| - external SDL_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_SDL_Quit' {$ENDIF} {$ENDIF}; |
113 |
| -{$endif} |
114 |
| - |
| 1 | +// based on "sdl.h" |
| 2 | + |
| 3 | +type |
| 4 | + PPSDL_Init = ^PSDL_Init; |
| 5 | + PSDL_Init = ^TSDL_Init; |
| 6 | + TSDL_Init = type cuint32; |
| 7 | + |
| 8 | +const |
| 9 | + SDL_INIT_TIMER = TSDL_Init($00000001); |
| 10 | + {$EXTERNALSYM SDL_INIT_TIMER} |
| 11 | + SDL_INIT_AUDIO = TSDL_Init($00000010); |
| 12 | + {$EXTERNALSYM SDL_INIT_AUDIO} |
| 13 | + SDL_INIT_VIDEO = TSDL_Init($00000020); // SDL_INIT_VIDEO implies SDL_INIT_EVENTS |
| 14 | + {$EXTERNALSYM SDL_INIT_VIDEO} |
| 15 | + SDL_INIT_JOYSTICK = TSDL_Init($00000200); // SDL_INIT_JOYSTICK implies SDL_INIT_EVENTS |
| 16 | + {$EXTERNALSYM SDL_INIT_JOYSTICK} |
| 17 | + SDL_INIT_HAPTIC = TSDL_Init($00001000); |
| 18 | + {$EXTERNALSYM SDL_INIT_HAPTIC} |
| 19 | + SDL_INIT_GAMECONTROLLER = TSDL_Init($00002000); //turn on game controller also implicitly does JOYSTICK |
| 20 | + {$EXTERNALSYM SDL_INIT_GAMECONTROLLER} // SDL_INIT_GAMECONTROLLER implies SDL_INIT_JOYSTICK |
| 21 | + SDL_INIT_EVENTS = TSDL_Init($00004000); |
| 22 | + {$EXTERNALSYM SDL_INIT_EVENTS} |
| 23 | + SDL_INIT_SENSOR = TSDL_Init($00008000); |
| 24 | + {$EXTERNALSYM SDL_INIT_SENSOR} |
| 25 | + SDL_INIT_NOPARACHUTE = TSDL_Init($00100000); //Don't catch fatal signals |
| 26 | + {$EXTERNALSYM SDL_INIT_NOPARACHUTE} // compatibility; this flag is ignored. |
| 27 | + SDL_INIT_EVERYTHING = TSDL_Init( |
| 28 | + SDL_INIT_TIMER or |
| 29 | + SDL_INIT_AUDIO or |
| 30 | + SDL_INIT_VIDEO or |
| 31 | + SDL_INIT_EVENTS or |
| 32 | + SDL_INIT_JOYSTICK or |
| 33 | + SDL_INIT_HAPTIC or |
| 34 | + SDL_INIT_GAMECONTROLLER or |
| 35 | + SDL_INIT_SENSOR |
| 36 | + ); |
| 37 | + {$EXTERNALSYM SDL_INIT_EVERYTHING} |
| 38 | + |
| 39 | +{** |
| 40 | + * This function initializes the subsystems specified by flags |
| 41 | + * Unless the SDL_INIT_NOPARACHUTE flag is set, it will install cleanup |
| 42 | + * signal handlers for some commonly ignored fatal signals (like SIGSEGV). |
| 43 | + *} |
| 44 | +{$ifdef SDL_DYNAMIC_LINKING} |
| 45 | +Type |
| 46 | + TSDL_Init_fun = function(flags: TSDL_Init): cint; cdecl; |
| 47 | +Var |
| 48 | + SDL_Init : TSDL_Init_fun = Nil; |
| 49 | +{$else} |
| 50 | + |
| 51 | +function SDL_Init(flags: TSDL_Init): cint; cdecl; |
| 52 | + external SDL_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_SDL_Init' {$ENDIF} {$ENDIF}; |
| 53 | +{$endif} |
| 54 | + |
| 55 | +{** |
| 56 | + * This function initializes specific SDL subsystems |
| 57 | + *} |
| 58 | +{$ifdef SDL_DYNAMIC_LINKING} |
| 59 | +Type |
| 60 | + TSDL_InitSubSystem_fun = function(flags: TSDL_Init): cint; cdecl; |
| 61 | +Var |
| 62 | + SDL_InitSubSystem : TSDL_InitSubSystem_fun = Nil; |
| 63 | +{$else} |
| 64 | + |
| 65 | +function SDL_InitSubSystem(flags: TSDL_Init): cint; cdecl; |
| 66 | + external SDL_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_SDL_InitSubSystem' {$ENDIF} {$ENDIF}; |
| 67 | +{$endif} |
| 68 | + |
| 69 | +{** |
| 70 | + * This function cleans up specific SDL subsystems |
| 71 | + *} |
| 72 | +{$ifdef SDL_DYNAMIC_LINKING} |
| 73 | +Type |
| 74 | + TSDL_QuitSubSystem_proc = procedure(flags: TSDL_Init); cdecl; |
| 75 | +Var |
| 76 | + SDL_QuitSubSystem : TSDL_QuitSubSystem_proc = Nil; |
| 77 | +{$else} |
| 78 | + |
| 79 | +procedure SDL_QuitSubSystem(flags: TSDL_Init); cdecl; |
| 80 | + external SDL_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_SDL_QuitSubSystem' {$ENDIF} {$ENDIF}; |
| 81 | +{$endif} |
| 82 | + |
| 83 | +{** |
| 84 | + * This function returns a mask of the specified subsystems which have |
| 85 | + * previously been initialized. |
| 86 | + * |
| 87 | + * If flags is 0, it returns a mask of all initialized subsystems. |
| 88 | + *} |
| 89 | +{$ifdef SDL_DYNAMIC_LINKING} |
| 90 | +Type |
| 91 | + TSDL_WasInit_fun = function(flags: TSDL_Init): cuint32; cdecl; |
| 92 | +Var |
| 93 | + SDL_WasInit : TSDL_WasInit_fun = Nil; |
| 94 | +{$else} |
| 95 | + |
| 96 | +function SDL_WasInit(flags: TSDL_Init): cuint32; cdecl; |
| 97 | + external SDL_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_SDL_WasInit' {$ENDIF} {$ENDIF}; |
| 98 | +{$endif} |
| 99 | + |
| 100 | +{** |
| 101 | + * This function cleans up all initialized subsystems. You should |
| 102 | + * call it upon all exit conditions. |
| 103 | + *} |
| 104 | +{$ifdef SDL_DYNAMIC_LINKING} |
| 105 | +Type |
| 106 | + TSDL_Quit_proc = procedure(); cdecl; |
| 107 | +Var |
| 108 | + SDL_Quit : TSDL_Quit_proc = Nil; |
| 109 | +{$else} |
| 110 | + |
| 111 | +procedure SDL_Quit(); cdecl; |
| 112 | + external SDL_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_SDL_Quit' {$ENDIF} {$ENDIF}; |
| 113 | +{$endif} |
| 114 | + |
0 commit comments