1 | #ifdef _WIN32 |
1 | #ifdef _WIN32 |
2 | # include <malloc.h> |
2 | # include <malloc.h> |
|
|
3 | # pragma warning(disable:4244) |
3 | #endif |
4 | #endif |
4 | |
5 | |
5 | #include "EXTERN.h" |
6 | #include "EXTERN.h" |
6 | #include "perl.h" |
7 | #include "perl.h" |
7 | #include "XSUB.h" |
8 | #include "XSUB.h" |
… | |
… | |
258 | } |
259 | } |
259 | } |
260 | } |
260 | } |
261 | } |
261 | |
262 | |
262 | static void |
263 | static void |
263 | music_finished () |
264 | music_finished (void) |
264 | { |
265 | { |
265 | SDL_UserEvent ev; |
266 | SDL_UserEvent ev; |
266 | |
267 | |
267 | ev.type = SDL_USEREVENT; |
268 | ev.type = SDL_USEREVENT; |
268 | ev.code = 0; |
269 | ev.code = 0; |
… | |
… | |
277 | { |
278 | { |
278 | SDL_UserEvent ev; |
279 | SDL_UserEvent ev; |
279 | |
280 | |
280 | ev.type = SDL_USEREVENT; |
281 | ev.type = SDL_USEREVENT; |
281 | ev.code = 1; |
282 | ev.code = 1; |
282 | ev.data1 = (void *)channel; |
283 | ev.data1 = (void *)(long)channel; |
283 | ev.data2 = 0; |
284 | ev.data2 = 0; |
284 | |
285 | |
285 | SDL_PushEvent ((SDL_Event *)&ev); |
286 | SDL_PushEvent ((SDL_Event *)&ev); |
286 | } |
287 | } |
287 | |
288 | |
… | |
… | |
514 | XPUSHs (sv_2mortal (newRV_noinc ((SV *)hv))); |
515 | XPUSHs (sv_2mortal (newRV_noinc ((SV *)hv))); |
515 | } |
516 | } |
516 | } |
517 | } |
517 | |
518 | |
518 | int |
519 | int |
519 | Mix_OpenAudio (int frequency = 22050, int format = MIX_DEFAULT_FORMAT, int channels = 1, int chunksize = 512) |
520 | Mix_OpenAudio (int frequency = 48000, int format = MIX_DEFAULT_FORMAT, int channels = 1, int chunksize = 2048) |
520 | POSTCALL: |
521 | POSTCALL: |
521 | Mix_HookMusicFinished (music_finished); |
522 | Mix_HookMusicFinished (music_finished); |
522 | Mix_ChannelFinished (channel_finished); |
523 | Mix_ChannelFinished (channel_finished); |
523 | |
524 | |
524 | void |
525 | void |