2 * This file was generated automatically by xsubpp version 1.9508 from the
3 * contents of SDL_perl.xs. Do not edit this file, edit SDL_perl.xs instead.
5 * ANY CHANGES MADE HERE WILL BE LOST!
13 // Copyright (C) 2005 David J. Goehrig <dgoehrig@cpan.org>
15 // ------------------------------------------------------------------------------
17 // This library is free software; you can redistribute it and/or
18 // modify it under the terms of the GNU Lesser General Public
19 // License as published by the Free Software Foundation; either
20 // version 2.1 of the License, or (at your option) any later version.
22 // This library is distributed in the hope that it will be useful,
23 // but WITHOUT ANY WARRANTY; without even the implied warranty of
24 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
25 // Lesser General Public License for more details.
27 // You should have received a copy of the GNU Lesser General Public
28 // License along with this library; if not, write to the Free Software
29 // Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
31 // ------------------------------------------------------------------------------
33 // Please feel free to send questions, suggestions or improvements to:
58 #include <SDL_image.h>
62 #include <SDL_mixer.h>
63 void (*mix_music_finished_cv)();
67 #include <SDL_sound.h>
78 #define TEXT_BLENDED 4
80 #define UTF8_SHADED 16
81 #define UTF8_BLENDED 32
82 #define UNICODE_SOLID 64
83 #define UNICODE_SHADED 128
84 #define UNICODE_BLENDED 256
88 #include <smpeg/smpeg.h>
90 static int sdl_perl_use_smpeg_audio = 0;
95 #include <SDL_rotozoom.h>
96 #include <SDL_gfxPrimitives.h>
97 #include <SDL_framerate.h>
98 #include <SDL_imageFilter.h>
106 #define HAVE_TLS_CONTEXT
112 sdl_perl_timer_callback ( Uint32 interval, void* param )
125 XPUSHs(sv_2mortal(newSViv(interval)));
128 if (0 != (back = call_sv(cmd,G_SCALAR))) {
130 if (back != 1 ) Perl_croak (aTHX_ "Timer Callback failed!");
133 Perl_croak(aTHX_ "Timer Callback failed!");
145 sdl_perl_audio_callback ( void* data, Uint8 *stream, int len )
156 XPUSHs(sv_2mortal(newSViv(PTR2IV(stream))));
157 XPUSHs(sv_2mortal(newSViv(len)));
160 call_sv(cmd,G_VOID|G_DISCARD);
169 #ifdef HAVE_SDL_MIXER
172 sdl_perl_music_callback ( void )
178 cmd = (SV*)Mix_GetMusicHookData();
185 call_sv(cmd,G_VOID|G_DISCARD);
195 sdl_perl_music_finished_callback ( void )
201 cmd = (SV*)mix_music_finished_cv;
202 if ( cmd == NULL ) return;
209 call_sv(cmd,G_VOID|G_DISCARD);
220 #define INIT_NS_APPLICATION
221 #define QUIT_NS_APPLICATION
225 sdl_perl_atexit (void)
232 void boot_SDL__OpenGL();
240 #line 241 "SDL_perl.c"
241 XS(XS_SDL_GetError); /* prototype to pass -Wmissing-prototypes */
246 Perl_croak(aTHX_ "Usage: SDL::GetError()");
250 #line 237 "SDL_perl.xs"
251 RETVAL = SDL_GetError();
252 #line 253 "SDL_perl.c"
253 sv_setpv(TARG, RETVAL); XSprePUSH; PUSHTARG;
258 XS(XS_SDL_Init); /* prototype to pass -Wmissing-prototypes */
263 Perl_croak(aTHX_ "Usage: SDL::Init(flags)");
265 Uint32 flags = (Uint32)SvUV(ST(0));
268 #line 245 "SDL_perl.xs"
270 RETVAL = SDL_Init(flags);
271 #ifdef HAVE_TLS_CONTEXT
272 Perl_call_atexit(PERL_GET_CONTEXT, (void*)sdl_perl_atexit,0);
274 atexit(sdl_perl_atexit);
276 #line 277 "SDL_perl.c"
277 XSprePUSH; PUSHi((IV)RETVAL);
282 XS(XS_SDL_InitSubSystem); /* prototype to pass -Wmissing-prototypes */
283 XS(XS_SDL_InitSubSystem)
287 Perl_croak(aTHX_ "Usage: SDL::InitSubSystem(flags)");
289 Uint32 flags = (Uint32)SvUV(ST(0));
292 #line 259 "SDL_perl.xs"
293 RETVAL = SDL_InitSubSystem(flags);
294 #line 295 "SDL_perl.c"
295 XSprePUSH; PUSHi((IV)RETVAL);
300 XS(XS_SDL_QuitSubSystem); /* prototype to pass -Wmissing-prototypes */
301 XS(XS_SDL_QuitSubSystem)
305 Perl_croak(aTHX_ "Usage: SDL::QuitSubSystem(flags)");
307 Uint32 flags = (Uint32)SvUV(ST(0));
308 #line 267 "SDL_perl.xs"
309 SDL_QuitSubSystem(flags);
310 #line 311 "SDL_perl.c"
315 XS(XS_SDL_Quit); /* prototype to pass -Wmissing-prototypes */
320 Perl_croak(aTHX_ "Usage: SDL::Quit()");
322 #line 272 "SDL_perl.xs"
325 #line 326 "SDL_perl.c"
330 XS(XS_SDL_WasInit); /* prototype to pass -Wmissing-prototypes */
335 Perl_croak(aTHX_ "Usage: SDL::WasInit(flags)");
337 Uint32 flags = (Uint32)SvUV(ST(0));
340 #line 279 "SDL_perl.xs"
341 RETVAL = SDL_WasInit(flags);
342 #line 343 "SDL_perl.c"
343 XSprePUSH; PUSHi((IV)RETVAL);
348 XS(XS_SDL_Delay); /* prototype to pass -Wmissing-prototypes */
353 Perl_croak(aTHX_ "Usage: SDL::Delay(ms)");
355 int ms = (int)SvIV(ST(0));
356 #line 287 "SDL_perl.xs"
358 #line 359 "SDL_perl.c"
363 XS(XS_SDL_GetTicks); /* prototype to pass -Wmissing-prototypes */
368 Perl_croak(aTHX_ "Usage: SDL::GetTicks()");
372 #line 292 "SDL_perl.xs"
373 RETVAL = SDL_GetTicks();
374 #line 375 "SDL_perl.c"
375 XSprePUSH; PUSHu((UV)RETVAL);
380 XS(XS_SDL_SetTimer); /* prototype to pass -Wmissing-prototypes */
385 Perl_croak(aTHX_ "Usage: SDL::SetTimer(interval, callback)");
387 Uint32 interval = (Uint32)SvUV(ST(0));
388 SDL_TimerCallback callback = INT2PTR(SDL_TimerCallback,SvIV(ST(1)));
391 #line 301 "SDL_perl.xs"
392 RETVAL = SDL_SetTimer(interval,callback);
393 #line 394 "SDL_perl.c"
394 XSprePUSH; PUSHi((IV)RETVAL);
399 XS(XS_SDL_AddTimer); /* prototype to pass -Wmissing-prototypes */
404 Perl_croak(aTHX_ "Usage: SDL::AddTimer(interval, callback, param)");
406 Uint32 interval = (Uint32)SvUV(ST(0));
407 SDL_NewTimerCallback callback = INT2PTR(SDL_NewTimerCallback,SvIV(ST(1)));
408 void * param = INT2PTR(void *,SvIV(ST(2)));
411 #line 311 "SDL_perl.xs"
412 RETVAL = SDL_AddTimer(interval,callback,param);
413 #line 414 "SDL_perl.c"
414 XSprePUSH; PUSHi(PTR2IV(RETVAL));
419 XS(XS_SDL_PerlTimerCallback); /* prototype to pass -Wmissing-prototypes */
420 XS(XS_SDL_PerlTimerCallback)
424 Perl_croak(aTHX_ "Usage: SDL::PerlTimerCallback()");
426 SDL_NewTimerCallback RETVAL;
428 #line 318 "SDL_perl.xs"
429 RETVAL = sdl_perl_timer_callback;
430 #line 431 "SDL_perl.c"
431 XSprePUSH; PUSHi(PTR2IV(RETVAL));
436 XS(XS_SDL_NewTimer); /* prototype to pass -Wmissing-prototypes */
441 Perl_croak(aTHX_ "Usage: SDL::NewTimer(interval, cmd)");
443 Uint32 interval = (Uint32)SvUV(ST(0));
444 void * cmd = INT2PTR(void *,SvIV(ST(1)));
447 #line 327 "SDL_perl.xs"
448 RETVAL = SDL_AddTimer(interval,sdl_perl_timer_callback,cmd);
449 #line 450 "SDL_perl.c"
450 XSprePUSH; PUSHi(PTR2IV(RETVAL));
455 XS(XS_SDL_RemoveTimer); /* prototype to pass -Wmissing-prototypes */
456 XS(XS_SDL_RemoveTimer)
460 Perl_croak(aTHX_ "Usage: SDL::RemoveTimer(id)");
462 SDL_TimerID id = INT2PTR(SDL_TimerID,SvIV(ST(0)));
465 #line 335 "SDL_perl.xs"
466 RETVAL = SDL_RemoveTimer(id);
467 #line 468 "SDL_perl.c"
468 XSprePUSH; PUSHu((UV)RETVAL);
473 XS(XS_SDL_RWFromFile); /* prototype to pass -Wmissing-prototypes */
474 XS(XS_SDL_RWFromFile)
478 Perl_croak(aTHX_ "Usage: SDL::RWFromFile(file, mode)");
480 char* file = (char *)SvPV_nolen(ST(0));
481 char * mode = (char *)SvPV_nolen(ST(1));
484 #line 344 "SDL_perl.xs"
485 RETVAL = SDL_RWFromFile(file,mode);
486 #line 487 "SDL_perl.c"
487 XSprePUSH; PUSHi(PTR2IV(RETVAL));
492 XS(XS_SDL_RWFromFP); /* prototype to pass -Wmissing-prototypes */
497 Perl_croak(aTHX_ "Usage: SDL::RWFromFP(fp, autoclose)");
499 FILE* fp = PerlIO_findFILE(IoIFP(sv_2io(ST(0))));
500 int autoclose = (int)SvIV(ST(1));
503 #line 353 "SDL_perl.xs"
504 RETVAL = SDL_RWFromFP(fp,autoclose);
505 #line 506 "SDL_perl.c"
506 XSprePUSH; PUSHi(PTR2IV(RETVAL));
511 XS(XS_SDL_RWFromMem); /* prototype to pass -Wmissing-prototypes */
516 Perl_croak(aTHX_ "Usage: SDL::RWFromMem(mem, size)");
518 char* mem = (char *)SvPV_nolen(ST(0));
519 int size = (int)SvIV(ST(1));
522 #line 362 "SDL_perl.xs"
523 RETVAL = SDL_RWFromMem((void*)mem,size);
524 #line 525 "SDL_perl.c"
525 XSprePUSH; PUSHi(PTR2IV(RETVAL));
530 XS(XS_SDL_RWFromConstMem); /* prototype to pass -Wmissing-prototypes */
531 XS(XS_SDL_RWFromConstMem)
535 Perl_croak(aTHX_ "Usage: SDL::RWFromConstMem(mem, size)");
537 const char* mem = (const char *)SvPV_nolen(ST(0));
538 int size = (int)SvIV(ST(1));
541 #line 371 "SDL_perl.xs"
542 RETVAL = SDL_RWFromConstMem((const void*)mem,size);
543 #line 544 "SDL_perl.c"
544 XSprePUSH; PUSHi(PTR2IV(RETVAL));
549 XS(XS_SDL_AllocRW); /* prototype to pass -Wmissing-prototypes */
554 Perl_croak(aTHX_ "Usage: SDL::AllocRW()");
558 #line 378 "SDL_perl.xs"
559 RETVAL = SDL_AllocRW();
560 #line 561 "SDL_perl.c"
561 XSprePUSH; PUSHi(PTR2IV(RETVAL));
566 XS(XS_SDL_FreeRW); /* prototype to pass -Wmissing-prototypes */
571 Perl_croak(aTHX_ "Usage: SDL::FreeRW(rw)");
573 SDL_RWops* rw = INT2PTR(SDL_RWops *,SvIV(ST(0)));
574 #line 386 "SDL_perl.xs"
576 #line 577 "SDL_perl.c"
581 XS(XS_SDL_RWseek); /* prototype to pass -Wmissing-prototypes */
586 Perl_croak(aTHX_ "Usage: SDL::RWseek(rw, off, whence)");
588 SDL_RWops* rw = INT2PTR(SDL_RWops *,SvIV(ST(0)));
589 int off = (int)SvIV(ST(1));
590 int whence = (int)SvIV(ST(2));
593 #line 394 "SDL_perl.xs"
594 RETVAL = SDL_RWseek(rw,off,whence);
595 #line 596 "SDL_perl.c"
596 XSprePUSH; PUSHi((IV)RETVAL);
601 XS(XS_SDL_RWtell); /* prototype to pass -Wmissing-prototypes */
606 Perl_croak(aTHX_ "Usage: SDL::RWtell(rw)");
608 SDL_RWops* rw = INT2PTR(SDL_RWops *,SvIV(ST(0)));
611 #line 402 "SDL_perl.xs"
612 RETVAL = SDL_RWtell(rw);
613 #line 614 "SDL_perl.c"
614 XSprePUSH; PUSHi((IV)RETVAL);
619 XS(XS_SDL_RWread); /* prototype to pass -Wmissing-prototypes */
624 Perl_croak(aTHX_ "Usage: SDL::RWread(rw, mem, size, n)");
626 SDL_RWops* rw = INT2PTR(SDL_RWops *,SvIV(ST(0)));
627 char* mem = (char *)SvPV_nolen(ST(1));
628 int size = (int)SvIV(ST(2));
629 int n = (int)SvIV(ST(3));
632 #line 413 "SDL_perl.xs"
633 RETVAL = SDL_RWread(rw,mem,size,n);
634 #line 635 "SDL_perl.c"
635 XSprePUSH; PUSHi((IV)RETVAL);
640 XS(XS_SDL_RWwrite); /* prototype to pass -Wmissing-prototypes */
645 Perl_croak(aTHX_ "Usage: SDL::RWwrite(rw, mem, size, n)");
647 SDL_RWops* rw = INT2PTR(SDL_RWops *,SvIV(ST(0)));
648 char* mem = (char *)SvPV_nolen(ST(1));
649 int size = (int)SvIV(ST(2));
650 int n = (int)SvIV(ST(3));
653 #line 424 "SDL_perl.xs"
654 RETVAL = SDL_RWwrite(rw,mem,size,n);
655 #line 656 "SDL_perl.c"
656 XSprePUSH; PUSHi((IV)RETVAL);
661 XS(XS_SDL_RWclose); /* prototype to pass -Wmissing-prototypes */
666 Perl_croak(aTHX_ "Usage: SDL::RWclose(rw)");
668 SDL_RWops* rw = INT2PTR(SDL_RWops *,SvIV(ST(0)));
671 #line 432 "SDL_perl.xs"
672 RETVAL = SDL_RWclose(rw);
673 #line 674 "SDL_perl.c"
674 XSprePUSH; PUSHi((IV)RETVAL);
679 XS(XS_SDL_CDNumDrives); /* prototype to pass -Wmissing-prototypes */
680 XS(XS_SDL_CDNumDrives)
684 Perl_croak(aTHX_ "Usage: SDL::CDNumDrives()");
688 #line 439 "SDL_perl.xs"
689 RETVAL = SDL_CDNumDrives();
690 #line 691 "SDL_perl.c"
691 XSprePUSH; PUSHi((IV)RETVAL);
696 XS(XS_SDL_CDName); /* prototype to pass -Wmissing-prototypes */
701 Perl_croak(aTHX_ "Usage: SDL::CDName(drive)");
703 int drive = (int)SvIV(ST(0));
706 #line 447 "SDL_perl.xs"
707 RETVAL = strdup(SDL_CDName(drive));
708 #line 709 "SDL_perl.c"
709 sv_setpv(TARG, RETVAL); XSprePUSH; PUSHTARG;
714 XS(XS_SDL_CDOpen); /* prototype to pass -Wmissing-prototypes */
719 Perl_croak(aTHX_ "Usage: SDL::CDOpen(drive)");
721 int drive = (int)SvIV(ST(0));
724 #line 455 "SDL_perl.xs"
725 RETVAL = SDL_CDOpen(drive);
726 #line 727 "SDL_perl.c"
727 XSprePUSH; PUSHi(PTR2IV(RETVAL));
732 XS(XS_SDL_CDTrackId); /* prototype to pass -Wmissing-prototypes */
737 Perl_croak(aTHX_ "Usage: SDL::CDTrackId(track)");
739 SDL_CDtrack * track = INT2PTR(SDL_CDtrack *,SvIV(ST(0)));
742 #line 463 "SDL_perl.xs"
744 #line 745 "SDL_perl.c"
745 XSprePUSH; PUSHu((UV)RETVAL);
750 XS(XS_SDL_CDTrackType); /* prototype to pass -Wmissing-prototypes */
751 XS(XS_SDL_CDTrackType)
755 Perl_croak(aTHX_ "Usage: SDL::CDTrackType(track)");
757 SDL_CDtrack * track = INT2PTR(SDL_CDtrack *,SvIV(ST(0)));
760 #line 471 "SDL_perl.xs"
761 RETVAL = track->type;
762 #line 763 "SDL_perl.c"
763 XSprePUSH; PUSHu((UV)RETVAL);
768 XS(XS_SDL_CDTrackLength); /* prototype to pass -Wmissing-prototypes */
769 XS(XS_SDL_CDTrackLength)
773 Perl_croak(aTHX_ "Usage: SDL::CDTrackLength(track)");
775 SDL_CDtrack * track = INT2PTR(SDL_CDtrack *,SvIV(ST(0)));
778 #line 479 "SDL_perl.xs"
779 RETVAL = track->length;
780 #line 781 "SDL_perl.c"
781 XSprePUSH; PUSHu((UV)RETVAL);
786 XS(XS_SDL_CDTrackOffset); /* prototype to pass -Wmissing-prototypes */
787 XS(XS_SDL_CDTrackOffset)
791 Perl_croak(aTHX_ "Usage: SDL::CDTrackOffset(track)");
793 SDL_CDtrack * track = INT2PTR(SDL_CDtrack *,SvIV(ST(0)));
796 #line 487 "SDL_perl.xs"
797 RETVAL = track->offset;
798 #line 799 "SDL_perl.c"
799 XSprePUSH; PUSHu((UV)RETVAL);
804 XS(XS_SDL_CDStatus); /* prototype to pass -Wmissing-prototypes */
809 Perl_croak(aTHX_ "Usage: SDL::CDStatus(cd)");
811 SDL_CD * cd = INT2PTR(SDL_CD *,SvIV(ST(0)));
814 #line 495 "SDL_perl.xs"
815 RETVAL = SDL_CDStatus(cd);
816 #line 817 "SDL_perl.c"
817 XSprePUSH; PUSHu((UV)RETVAL);
822 XS(XS_SDL_CDPlayTracks); /* prototype to pass -Wmissing-prototypes */
823 XS(XS_SDL_CDPlayTracks)
827 Perl_croak(aTHX_ "Usage: SDL::CDPlayTracks(cd, start_track, ntracks, start_frame, nframes)");
829 SDL_CD * cd = INT2PTR(SDL_CD *,SvIV(ST(0)));
830 int start_track = (int)SvIV(ST(1));
831 int ntracks = (int)SvIV(ST(2));
832 int start_frame = (int)SvIV(ST(3));
833 int nframes = (int)SvIV(ST(4));
836 #line 507 "SDL_perl.xs"
837 RETVAL = SDL_CDPlayTracks(cd,start_track,start_frame,ntracks,nframes);
838 #line 839 "SDL_perl.c"
839 XSprePUSH; PUSHi((IV)RETVAL);
844 XS(XS_SDL_CDPlay); /* prototype to pass -Wmissing-prototypes */
849 Perl_croak(aTHX_ "Usage: SDL::CDPlay(cd, start, length)");
851 SDL_CD * cd = INT2PTR(SDL_CD *,SvIV(ST(0)));
852 int start = (int)SvIV(ST(1));
853 int length = (int)SvIV(ST(2));
856 #line 517 "SDL_perl.xs"
857 RETVAL = SDL_CDPlay(cd,start,length);
858 #line 859 "SDL_perl.c"
859 XSprePUSH; PUSHi((IV)RETVAL);
864 XS(XS_SDL_CDPause); /* prototype to pass -Wmissing-prototypes */
869 Perl_croak(aTHX_ "Usage: SDL::CDPause(cd)");
871 SDL_CD * cd = INT2PTR(SDL_CD *,SvIV(ST(0)));
874 #line 525 "SDL_perl.xs"
875 RETVAL = SDL_CDPause(cd);
876 #line 877 "SDL_perl.c"
877 XSprePUSH; PUSHi((IV)RETVAL);
882 XS(XS_SDL_CDResume); /* prototype to pass -Wmissing-prototypes */
887 Perl_croak(aTHX_ "Usage: SDL::CDResume(cd)");
889 SDL_CD * cd = INT2PTR(SDL_CD *,SvIV(ST(0)));
892 #line 533 "SDL_perl.xs"
893 RETVAL = SDL_CDResume(cd);
894 #line 895 "SDL_perl.c"
895 XSprePUSH; PUSHi((IV)RETVAL);
900 XS(XS_SDL_CDStop); /* prototype to pass -Wmissing-prototypes */
905 Perl_croak(aTHX_ "Usage: SDL::CDStop(cd)");
907 SDL_CD * cd = INT2PTR(SDL_CD *,SvIV(ST(0)));
910 #line 541 "SDL_perl.xs"
911 RETVAL = SDL_CDStop(cd);
912 #line 913 "SDL_perl.c"
913 XSprePUSH; PUSHi((IV)RETVAL);
918 XS(XS_SDL_CDEject); /* prototype to pass -Wmissing-prototypes */
923 Perl_croak(aTHX_ "Usage: SDL::CDEject(cd)");
925 SDL_CD * cd = INT2PTR(SDL_CD *,SvIV(ST(0)));
928 #line 549 "SDL_perl.xs"
929 RETVAL = SDL_CDEject(cd);
930 #line 931 "SDL_perl.c"
931 XSprePUSH; PUSHi((IV)RETVAL);
936 XS(XS_SDL_CDClose); /* prototype to pass -Wmissing-prototypes */
941 Perl_croak(aTHX_ "Usage: SDL::CDClose(cd)");
943 SDL_CD * cd = INT2PTR(SDL_CD *,SvIV(ST(0)));
944 #line 557 "SDL_perl.xs"
946 #line 947 "SDL_perl.c"
951 XS(XS_SDL_CDId); /* prototype to pass -Wmissing-prototypes */
956 Perl_croak(aTHX_ "Usage: SDL::CDId(cd)");
958 SDL_CD * cd = INT2PTR(SDL_CD *,SvIV(ST(0)));
961 #line 563 "SDL_perl.xs"
963 #line 964 "SDL_perl.c"
964 XSprePUSH; PUSHi((IV)RETVAL);
969 XS(XS_SDL_CDNumTracks); /* prototype to pass -Wmissing-prototypes */
970 XS(XS_SDL_CDNumTracks)
974 Perl_croak(aTHX_ "Usage: SDL::CDNumTracks(cd)");
976 SDL_CD * cd = INT2PTR(SDL_CD *,SvIV(ST(0)));
979 #line 571 "SDL_perl.xs"
980 RETVAL = cd->numtracks;
981 #line 982 "SDL_perl.c"
982 XSprePUSH; PUSHi((IV)RETVAL);
987 XS(XS_SDL_CDCurTrack); /* prototype to pass -Wmissing-prototypes */
988 XS(XS_SDL_CDCurTrack)
992 Perl_croak(aTHX_ "Usage: SDL::CDCurTrack(cd)");
994 SDL_CD * cd = INT2PTR(SDL_CD *,SvIV(ST(0)));
997 #line 579 "SDL_perl.xs"
998 RETVAL = cd->cur_track;
999 #line 1000 "SDL_perl.c"
1000 XSprePUSH; PUSHi((IV)RETVAL);
1005 XS(XS_SDL_CDCurFrame); /* prototype to pass -Wmissing-prototypes */
1006 XS(XS_SDL_CDCurFrame)
1010 Perl_croak(aTHX_ "Usage: SDL::CDCurFrame(cd)");
1012 SDL_CD * cd = INT2PTR(SDL_CD *,SvIV(ST(0)));
1015 #line 587 "SDL_perl.xs"
1016 RETVAL = cd->cur_frame;
1017 #line 1018 "SDL_perl.c"
1018 XSprePUSH; PUSHi((IV)RETVAL);
1023 XS(XS_SDL_CDTrack); /* prototype to pass -Wmissing-prototypes */
1028 Perl_croak(aTHX_ "Usage: SDL::CDTrack(cd, number)");
1030 SDL_CD * cd = INT2PTR(SDL_CD *,SvIV(ST(0)));
1031 int number = (int)SvIV(ST(1));
1032 SDL_CDtrack * RETVAL;
1034 #line 596 "SDL_perl.xs"
1035 RETVAL = (SDL_CDtrack *)(cd->track + number);
1036 #line 1037 "SDL_perl.c"
1037 XSprePUSH; PUSHi(PTR2IV(RETVAL));
1042 XS(XS_SDL_PumpEvents); /* prototype to pass -Wmissing-prototypes */
1043 XS(XS_SDL_PumpEvents)
1047 Perl_croak(aTHX_ "Usage: SDL::PumpEvents()");
1049 #line 603 "SDL_perl.xs"
1051 #line 1052 "SDL_perl.c"
1056 XS(XS_SDL_PushEvent); /* prototype to pass -Wmissing-prototypes */
1057 XS(XS_SDL_PushEvent)
1061 Perl_croak(aTHX_ "Usage: SDL::PushEvent(e)");
1063 SDL_Event * e = INT2PTR(SDL_Event *,SvIV(ST(0)));
1066 #line 609 "SDL_perl.xs"
1067 RETVAL = SDL_PushEvent( e );
1068 #line 1069 "SDL_perl.c"
1069 XSprePUSH; PUSHi((IV)RETVAL);
1074 XS(XS_SDL_NewEvent); /* prototype to pass -Wmissing-prototypes */
1079 Perl_croak(aTHX_ "Usage: SDL::NewEvent()");
1083 #line 616 "SDL_perl.xs"
1084 RETVAL = (SDL_Event *) safemalloc (sizeof(SDL_Event));
1085 #line 1086 "SDL_perl.c"
1086 XSprePUSH; PUSHi(PTR2IV(RETVAL));
1091 XS(XS_SDL_FreeEvent); /* prototype to pass -Wmissing-prototypes */
1092 XS(XS_SDL_FreeEvent)
1096 Perl_croak(aTHX_ "Usage: SDL::FreeEvent(e)");
1098 SDL_Event * e = INT2PTR(SDL_Event *,SvIV(ST(0)));
1099 #line 624 "SDL_perl.xs"
1101 #line 1102 "SDL_perl.c"
1106 XS(XS_SDL_PollEvent); /* prototype to pass -Wmissing-prototypes */
1107 XS(XS_SDL_PollEvent)
1111 Perl_croak(aTHX_ "Usage: SDL::PollEvent(e)");
1113 SDL_Event * e = INT2PTR(SDL_Event *,SvIV(ST(0)));
1116 #line 630 "SDL_perl.xs"
1117 RETVAL = SDL_PollEvent(e);
1118 #line 1119 "SDL_perl.c"
1119 XSprePUSH; PUSHi((IV)RETVAL);
1124 XS(XS_SDL_WaitEvent); /* prototype to pass -Wmissing-prototypes */
1125 XS(XS_SDL_WaitEvent)
1129 Perl_croak(aTHX_ "Usage: SDL::WaitEvent(e)");
1131 SDL_Event * e = INT2PTR(SDL_Event *,SvIV(ST(0)));
1134 #line 638 "SDL_perl.xs"
1135 RETVAL = SDL_WaitEvent(e);
1136 #line 1137 "SDL_perl.c"
1137 XSprePUSH; PUSHi((IV)RETVAL);
1142 XS(XS_SDL_EventState); /* prototype to pass -Wmissing-prototypes */
1143 XS(XS_SDL_EventState)
1147 Perl_croak(aTHX_ "Usage: SDL::EventState(type, state)");
1149 Uint8 type = (unsigned char)SvUV(ST(0));
1150 int state = (int)SvIV(ST(1));
1153 #line 647 "SDL_perl.xs"
1154 RETVAL = SDL_EventState(type,state);
1155 #line 1156 "SDL_perl.c"
1156 XSprePUSH; PUSHu((UV)RETVAL);
1161 XS(XS_SDL_EventType); /* prototype to pass -Wmissing-prototypes */
1162 XS(XS_SDL_EventType)
1166 Perl_croak(aTHX_ "Usage: SDL::EventType(e)");
1168 SDL_Event * e = INT2PTR(SDL_Event *,SvIV(ST(0)));
1171 #line 655 "SDL_perl.xs"
1173 #line 1174 "SDL_perl.c"
1174 XSprePUSH; PUSHu((UV)RETVAL);
1179 XS(XS_SDL_SetEventType); /* prototype to pass -Wmissing-prototypes */
1180 XS(XS_SDL_SetEventType)
1184 Perl_croak(aTHX_ "Usage: SDL::SetEventType(e, type)");
1186 SDL_Event * e = INT2PTR(SDL_Event *,SvIV(ST(0)));
1187 Uint8 type = (unsigned char)SvUV(ST(1));
1190 #line 664 "SDL_perl.xs"
1193 #line 1194 "SDL_perl.c"
1194 XSprePUSH; PUSHu((UV)RETVAL);
1199 XS(XS_SDL_ActiveEventGain); /* prototype to pass -Wmissing-prototypes */
1200 XS(XS_SDL_ActiveEventGain)
1204 Perl_croak(aTHX_ "Usage: SDL::ActiveEventGain(e)");
1206 SDL_Event * e = INT2PTR(SDL_Event *,SvIV(ST(0)));
1209 #line 673 "SDL_perl.xs"
1210 RETVAL = e->active.gain;
1211 #line 1212 "SDL_perl.c"
1212 XSprePUSH; PUSHu((UV)RETVAL);
1217 XS(XS_SDL_ActiveEventState); /* prototype to pass -Wmissing-prototypes */
1218 XS(XS_SDL_ActiveEventState)
1222 Perl_croak(aTHX_ "Usage: SDL::ActiveEventState(e)");
1224 SDL_Event * e = INT2PTR(SDL_Event *,SvIV(ST(0)));
1227 #line 681 "SDL_perl.xs"
1228 RETVAL = e->active.state;
1229 #line 1230 "SDL_perl.c"
1230 XSprePUSH; PUSHu((UV)RETVAL);
1235 XS(XS_SDL_KeyEventState); /* prototype to pass -Wmissing-prototypes */
1236 XS(XS_SDL_KeyEventState)
1240 Perl_croak(aTHX_ "Usage: SDL::KeyEventState(e)");
1242 SDL_Event * e = INT2PTR(SDL_Event *,SvIV(ST(0)));
1245 #line 689 "SDL_perl.xs"
1246 RETVAL = e->key.state;
1247 #line 1248 "SDL_perl.c"
1248 XSprePUSH; PUSHu((UV)RETVAL);
1253 XS(XS_SDL_KeyEventSym); /* prototype to pass -Wmissing-prototypes */
1254 XS(XS_SDL_KeyEventSym)
1258 Perl_croak(aTHX_ "Usage: SDL::KeyEventSym(e)");
1260 SDL_Event * e = INT2PTR(SDL_Event *,SvIV(ST(0)));
1263 #line 697 "SDL_perl.xs"
1264 RETVAL = e->key.keysym.sym;
1265 #line 1266 "SDL_perl.c"
1266 XSprePUSH; PUSHi((IV)RETVAL);
1271 XS(XS_SDL_KeyEventMod); /* prototype to pass -Wmissing-prototypes */
1272 XS(XS_SDL_KeyEventMod)
1276 Perl_croak(aTHX_ "Usage: SDL::KeyEventMod(e)");
1278 SDL_Event * e = INT2PTR(SDL_Event *,SvIV(ST(0)));
1281 #line 705 "SDL_perl.xs"
1282 RETVAL = e->key.keysym.mod;
1283 #line 1284 "SDL_perl.c"
1284 XSprePUSH; PUSHi((IV)RETVAL);
1289 XS(XS_SDL_KeyEventUnicode); /* prototype to pass -Wmissing-prototypes */
1290 XS(XS_SDL_KeyEventUnicode)
1294 Perl_croak(aTHX_ "Usage: SDL::KeyEventUnicode(e)");
1296 SDL_Event * e = INT2PTR(SDL_Event *,SvIV(ST(0)));
1299 #line 713 "SDL_perl.xs"
1300 RETVAL = e->key.keysym.unicode;
1301 #line 1302 "SDL_perl.c"
1302 XSprePUSH; PUSHu((UV)RETVAL);
1307 XS(XS_SDL_KeyEventScanCode); /* prototype to pass -Wmissing-prototypes */
1308 XS(XS_SDL_KeyEventScanCode)
1312 Perl_croak(aTHX_ "Usage: SDL::KeyEventScanCode(e)");
1314 SDL_Event * e = INT2PTR(SDL_Event *,SvIV(ST(0)));
1317 #line 721 "SDL_perl.xs"
1318 RETVAL = e->key.keysym.scancode;
1319 #line 1320 "SDL_perl.c"
1320 XSprePUSH; PUSHu((UV)RETVAL);
1325 XS(XS_SDL_MouseMotionState); /* prototype to pass -Wmissing-prototypes */
1326 XS(XS_SDL_MouseMotionState)
1330 Perl_croak(aTHX_ "Usage: SDL::MouseMotionState(e)");
1332 SDL_Event * e = INT2PTR(SDL_Event *,SvIV(ST(0)));
1335 #line 729 "SDL_perl.xs"
1336 RETVAL = e->motion.state;
1337 #line 1338 "SDL_perl.c"
1338 XSprePUSH; PUSHu((UV)RETVAL);
1343 XS(XS_SDL_MouseMotionX); /* prototype to pass -Wmissing-prototypes */
1344 XS(XS_SDL_MouseMotionX)
1348 Perl_croak(aTHX_ "Usage: SDL::MouseMotionX(e)");
1350 SDL_Event * e = INT2PTR(SDL_Event *,SvIV(ST(0)));
1353 #line 737 "SDL_perl.xs"
1354 RETVAL = e->motion.x;
1355 #line 1356 "SDL_perl.c"
1356 XSprePUSH; PUSHu((UV)RETVAL);
1361 XS(XS_SDL_MouseMotionY); /* prototype to pass -Wmissing-prototypes */
1362 XS(XS_SDL_MouseMotionY)
1366 Perl_croak(aTHX_ "Usage: SDL::MouseMotionY(e)");
1368 SDL_Event * e = INT2PTR(SDL_Event *,SvIV(ST(0)));
1371 #line 745 "SDL_perl.xs"
1372 RETVAL = e->motion.y;
1373 #line 1374 "SDL_perl.c"
1374 XSprePUSH; PUSHu((UV)RETVAL);
1379 XS(XS_SDL_MouseMotionXrel); /* prototype to pass -Wmissing-prototypes */
1380 XS(XS_SDL_MouseMotionXrel)
1384 Perl_croak(aTHX_ "Usage: SDL::MouseMotionXrel(e)");
1386 SDL_Event * e = INT2PTR(SDL_Event *,SvIV(ST(0)));
1389 #line 753 "SDL_perl.xs"
1390 RETVAL = e->motion.xrel;
1391 #line 1392 "SDL_perl.c"
1392 XSprePUSH; PUSHi((IV)RETVAL);
1397 XS(XS_SDL_MouseMotionYrel); /* prototype to pass -Wmissing-prototypes */
1398 XS(XS_SDL_MouseMotionYrel)
1402 Perl_croak(aTHX_ "Usage: SDL::MouseMotionYrel(e)");
1404 SDL_Event * e = INT2PTR(SDL_Event *,SvIV(ST(0)));
1407 #line 761 "SDL_perl.xs"
1408 RETVAL = e->motion.yrel;
1409 #line 1410 "SDL_perl.c"
1410 XSprePUSH; PUSHi((IV)RETVAL);
1415 XS(XS_SDL_MouseButtonState); /* prototype to pass -Wmissing-prototypes */
1416 XS(XS_SDL_MouseButtonState)
1420 Perl_croak(aTHX_ "Usage: SDL::MouseButtonState(e)");
1422 SDL_Event * e = INT2PTR(SDL_Event *,SvIV(ST(0)));
1425 #line 769 "SDL_perl.xs"
1426 RETVAL = e->button.state;
1427 #line 1428 "SDL_perl.c"
1428 XSprePUSH; PUSHu((UV)RETVAL);
1433 XS(XS_SDL_MouseButton); /* prototype to pass -Wmissing-prototypes */
1434 XS(XS_SDL_MouseButton)
1438 Perl_croak(aTHX_ "Usage: SDL::MouseButton(e)");
1440 SDL_Event * e = INT2PTR(SDL_Event *,SvIV(ST(0)));
1443 #line 777 "SDL_perl.xs"
1444 RETVAL = e->button.button;
1445 #line 1446 "SDL_perl.c"
1446 XSprePUSH; PUSHu((UV)RETVAL);
1451 XS(XS_SDL_MouseButtonX); /* prototype to pass -Wmissing-prototypes */
1452 XS(XS_SDL_MouseButtonX)
1456 Perl_croak(aTHX_ "Usage: SDL::MouseButtonX(e)");
1458 SDL_Event * e = INT2PTR(SDL_Event *,SvIV(ST(0)));
1461 #line 785 "SDL_perl.xs"
1462 RETVAL = e->button.x;
1463 #line 1464 "SDL_perl.c"
1464 XSprePUSH; PUSHu((UV)RETVAL);
1469 XS(XS_SDL_MouseButtonY); /* prototype to pass -Wmissing-prototypes */
1470 XS(XS_SDL_MouseButtonY)
1474 Perl_croak(aTHX_ "Usage: SDL::MouseButtonY(e)");
1476 SDL_Event * e = INT2PTR(SDL_Event *,SvIV(ST(0)));
1479 #line 793 "SDL_perl.xs"
1480 RETVAL = e->button.y;
1481 #line 1482 "SDL_perl.c"
1482 XSprePUSH; PUSHu((UV)RETVAL);
1487 XS(XS_SDL_SysWMEventMsg); /* prototype to pass -Wmissing-prototypes */
1488 XS(XS_SDL_SysWMEventMsg)
1492 Perl_croak(aTHX_ "Usage: SDL::SysWMEventMsg(e)");
1494 SDL_Event * e = INT2PTR(SDL_Event *,SvIV(ST(0)));
1495 SDL_SysWMmsg * RETVAL;
1497 #line 801 "SDL_perl.xs"
1498 RETVAL = e->syswm.msg;
1499 #line 1500 "SDL_perl.c"
1500 XSprePUSH; PUSHi(PTR2IV(RETVAL));
1505 XS(XS_SDL_EnableUnicode); /* prototype to pass -Wmissing-prototypes */
1506 XS(XS_SDL_EnableUnicode)
1510 Perl_croak(aTHX_ "Usage: SDL::EnableUnicode(enable)");
1512 int enable = (int)SvIV(ST(0));
1515 #line 809 "SDL_perl.xs"
1516 RETVAL = SDL_EnableUNICODE(enable);
1517 #line 1518 "SDL_perl.c"
1518 XSprePUSH; PUSHi((IV)RETVAL);
1523 XS(XS_SDL_EnableKeyRepeat); /* prototype to pass -Wmissing-prototypes */
1524 XS(XS_SDL_EnableKeyRepeat)
1528 Perl_croak(aTHX_ "Usage: SDL::EnableKeyRepeat(delay, interval)");
1530 int delay = (int)SvIV(ST(0));
1531 int interval = (int)SvIV(ST(1));
1532 #line 818 "SDL_perl.xs"
1533 SDL_EnableKeyRepeat(delay,interval);
1534 #line 1535 "SDL_perl.c"
1539 XS(XS_SDL_GetModState); /* prototype to pass -Wmissing-prototypes */
1540 XS(XS_SDL_GetModState)
1544 Perl_croak(aTHX_ "Usage: SDL::GetModState()");
1548 #line 823 "SDL_perl.xs"
1549 RETVAL = SDL_GetModState();
1550 #line 1551 "SDL_perl.c"
1551 XSprePUSH; PUSHu((UV)RETVAL);
1556 XS(XS_SDL_SetModState); /* prototype to pass -Wmissing-prototypes */
1557 XS(XS_SDL_SetModState)
1561 Perl_croak(aTHX_ "Usage: SDL::SetModState(state)");
1563 Uint32 state = (Uint32)SvUV(ST(0));
1564 #line 831 "SDL_perl.xs"
1565 SDL_SetModState(state);
1566 #line 1567 "SDL_perl.c"
1571 XS(XS_SDL_GetKeyName); /* prototype to pass -Wmissing-prototypes */
1572 XS(XS_SDL_GetKeyName)
1576 Perl_croak(aTHX_ "Usage: SDL::GetKeyName(sym)");
1578 int sym = (int)SvIV(ST(0));
1581 #line 837 "SDL_perl.xs"
1582 RETVAL = SDL_GetKeyName(sym);
1583 #line 1584 "SDL_perl.c"
1584 sv_setpv(TARG, RETVAL); XSprePUSH; PUSHTARG;
1589 XS(XS_SDL_CreateRGBSurface); /* prototype to pass -Wmissing-prototypes */
1590 XS(XS_SDL_CreateRGBSurface)
1594 Perl_croak(aTHX_ "Usage: SDL::CreateRGBSurface(flags, width, height, depth, Rmask, Gmask, Bmask, Amask)");
1596 Uint32 flags = (Uint32)SvUV(ST(0));
1597 int width = (int)SvIV(ST(1));
1598 int height = (int)SvIV(ST(2));
1599 int depth = (int)SvIV(ST(3));
1600 Uint32 Rmask = (Uint32)SvUV(ST(4));
1601 Uint32 Gmask = (Uint32)SvUV(ST(5));
1602 Uint32 Bmask = (Uint32)SvUV(ST(6));
1603 Uint32 Amask = (Uint32)SvUV(ST(7));
1604 SDL_Surface * RETVAL;
1606 #line 852 "SDL_perl.xs"
1607 RETVAL = SDL_CreateRGBSurface ( flags, width, height,
1608 depth, Rmask, Gmask, Bmask, Amask );
1609 #line 1610 "SDL_perl.c"
1610 XSprePUSH; PUSHi(PTR2IV(RETVAL));
1615 XS(XS_SDL_CreateRGBSurfaceFrom); /* prototype to pass -Wmissing-prototypes */
1616 XS(XS_SDL_CreateRGBSurfaceFrom)
1620 Perl_croak(aTHX_ "Usage: SDL::CreateRGBSurfaceFrom(pixels, width, height, depth, pitch, Rmask, Gmask, Bmask, Amask)");
1622 char * pixels = (char *)SvPV_nolen(ST(0));
1623 int width = (int)SvIV(ST(1));
1624 int height = (int)SvIV(ST(2));
1625 int depth = (int)SvIV(ST(3));
1626 int pitch = (int)SvIV(ST(4));
1627 Uint32 Rmask = (Uint32)SvUV(ST(5));
1628 Uint32 Gmask = (Uint32)SvUV(ST(6));
1629 Uint32 Bmask = (Uint32)SvUV(ST(7));
1630 Uint32 Amask = (Uint32)SvUV(ST(8));
1631 SDL_Surface * RETVAL;
1633 #line 870 "SDL_perl.xs"
1635 Uint32 len = pitch * height;
1636 New(0,pixeldata,len,Uint8);
1637 Copy(pixels,pixeldata,len,Uint8);
1638 RETVAL = SDL_CreateRGBSurfaceFrom ( pixeldata, width, height,
1639 depth, pitch, Rmask, Gmask, Bmask, Amask );
1640 #line 1641 "SDL_perl.c"
1641 XSprePUSH; PUSHi(PTR2IV(RETVAL));
1646 #ifdef HAVE_SDL_IMAGE
1647 #define XSubPPtmpAAAA 1
1649 XS(XS_SDL_IMGLoad); /* prototype to pass -Wmissing-prototypes */
1654 Perl_croak(aTHX_ "Usage: SDL::IMGLoad(fname)");
1656 char * fname = (char *)SvPV_nolen(ST(0));
1657 SDL_Surface * RETVAL;
1659 #line 885 "SDL_perl.xs"
1660 RETVAL = IMG_Load(fname);
1661 #line 1662 "SDL_perl.c"
1662 XSprePUSH; PUSHi(PTR2IV(RETVAL));
1668 XS(XS_SDL_SurfaceCopy); /* prototype to pass -Wmissing-prototypes */
1669 XS(XS_SDL_SurfaceCopy)
1673 Perl_croak(aTHX_ "Usage: SDL::SurfaceCopy(surface)");
1675 SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0)));
1676 SDL_Surface * RETVAL;
1678 #line 895 "SDL_perl.xs"
1680 Uint32 size = surface->pitch * surface->h;
1681 New(0,pixels,size,Uint8);
1682 Copy(surface->pixels,pixels,size,Uint8);
1683 RETVAL = SDL_CreateRGBSurfaceFrom(pixels,surface->w,surface->h,
1684 surface->format->BitsPerPixel, surface->pitch,
1685 surface->format->Rmask, surface->format->Gmask,
1686 surface->format->Bmask, surface->format->Amask);
1687 #line 1688 "SDL_perl.c"
1688 XSprePUSH; PUSHi(PTR2IV(RETVAL));
1693 XS(XS_SDL_FreeSurface); /* prototype to pass -Wmissing-prototypes */
1694 XS(XS_SDL_FreeSurface)
1698 Perl_croak(aTHX_ "Usage: SDL::FreeSurface(surface)");
1700 SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0)));
1701 #line 910 "SDL_perl.xs"
1703 Uint8* pixels = surface->pixels;
1704 Uint32 flags = surface->flags;
1705 SDL_FreeSurface(surface);
1706 if (flags & SDL_PREALLOC)
1709 #line 1710 "SDL_perl.c"
1714 XS(XS_SDL_SurfaceFlags); /* prototype to pass -Wmissing-prototypes */
1715 XS(XS_SDL_SurfaceFlags)
1719 Perl_croak(aTHX_ "Usage: SDL::SurfaceFlags(surface)");
1721 SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0)));
1724 #line 922 "SDL_perl.xs"
1725 RETVAL = surface->flags;
1726 #line 1727 "SDL_perl.c"
1727 XSprePUSH; PUSHu((UV)RETVAL);
1732 XS(XS_SDL_SurfacePalette); /* prototype to pass -Wmissing-prototypes */
1733 XS(XS_SDL_SurfacePalette)
1737 Perl_croak(aTHX_ "Usage: SDL::SurfacePalette(surface)");
1739 SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0)));
1740 SDL_Palette * RETVAL;
1742 #line 930 "SDL_perl.xs"
1743 RETVAL = surface->format->palette;
1744 #line 1745 "SDL_perl.c"
1745 XSprePUSH; PUSHi(PTR2IV(RETVAL));
1750 XS(XS_SDL_SurfaceBitsPerPixel); /* prototype to pass -Wmissing-prototypes */
1751 XS(XS_SDL_SurfaceBitsPerPixel)
1755 Perl_croak(aTHX_ "Usage: SDL::SurfaceBitsPerPixel(surface)");
1757 SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0)));
1760 #line 938 "SDL_perl.xs"
1761 RETVAL = surface->format->BitsPerPixel;
1762 #line 1763 "SDL_perl.c"
1763 XSprePUSH; PUSHu((UV)RETVAL);
1768 XS(XS_SDL_SurfaceBytesPerPixel); /* prototype to pass -Wmissing-prototypes */
1769 XS(XS_SDL_SurfaceBytesPerPixel)
1773 Perl_croak(aTHX_ "Usage: SDL::SurfaceBytesPerPixel(surface)");
1775 SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0)));
1778 #line 946 "SDL_perl.xs"
1779 RETVAL = surface->format->BytesPerPixel;
1780 #line 1781 "SDL_perl.c"
1781 XSprePUSH; PUSHu((UV)RETVAL);
1786 XS(XS_SDL_SurfaceRshift); /* prototype to pass -Wmissing-prototypes */
1787 XS(XS_SDL_SurfaceRshift)
1791 Perl_croak(aTHX_ "Usage: SDL::SurfaceRshift(surface)");
1793 SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0)));
1796 #line 954 "SDL_perl.xs"
1797 RETVAL = surface->format->Rshift;
1798 #line 1799 "SDL_perl.c"
1799 XSprePUSH; PUSHu((UV)RETVAL);
1804 XS(XS_SDL_SurfaceGshift); /* prototype to pass -Wmissing-prototypes */
1805 XS(XS_SDL_SurfaceGshift)
1809 Perl_croak(aTHX_ "Usage: SDL::SurfaceGshift(surface)");
1811 SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0)));
1814 #line 962 "SDL_perl.xs"
1815 RETVAL = surface->format->Gshift;
1816 #line 1817 "SDL_perl.c"
1817 XSprePUSH; PUSHu((UV)RETVAL);
1822 XS(XS_SDL_SurfaceBshift); /* prototype to pass -Wmissing-prototypes */
1823 XS(XS_SDL_SurfaceBshift)
1827 Perl_croak(aTHX_ "Usage: SDL::SurfaceBshift(surface)");
1829 SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0)));
1832 #line 970 "SDL_perl.xs"
1833 RETVAL = surface->format->Bshift;
1834 #line 1835 "SDL_perl.c"
1835 XSprePUSH; PUSHu((UV)RETVAL);
1840 XS(XS_SDL_SurfaceAshift); /* prototype to pass -Wmissing-prototypes */
1841 XS(XS_SDL_SurfaceAshift)
1845 Perl_croak(aTHX_ "Usage: SDL::SurfaceAshift(surface)");
1847 SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0)));
1850 #line 978 "SDL_perl.xs"
1851 RETVAL = surface->format->Ashift;
1852 #line 1853 "SDL_perl.c"
1853 XSprePUSH; PUSHu((UV)RETVAL);
1858 XS(XS_SDL_SurfaceRmask); /* prototype to pass -Wmissing-prototypes */
1859 XS(XS_SDL_SurfaceRmask)
1863 Perl_croak(aTHX_ "Usage: SDL::SurfaceRmask(surface)");
1865 SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0)));
1868 #line 986 "SDL_perl.xs"
1869 RETVAL = surface->format->Rmask;
1870 #line 1871 "SDL_perl.c"
1871 XSprePUSH; PUSHu((UV)RETVAL);
1876 XS(XS_SDL_SurfaceGmask); /* prototype to pass -Wmissing-prototypes */
1877 XS(XS_SDL_SurfaceGmask)
1881 Perl_croak(aTHX_ "Usage: SDL::SurfaceGmask(surface)");
1883 SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0)));
1886 #line 994 "SDL_perl.xs"
1887 RETVAL = surface->format->Gmask;
1888 #line 1889 "SDL_perl.c"
1889 XSprePUSH; PUSHu((UV)RETVAL);
1894 XS(XS_SDL_SurfaceBmask); /* prototype to pass -Wmissing-prototypes */
1895 XS(XS_SDL_SurfaceBmask)
1899 Perl_croak(aTHX_ "Usage: SDL::SurfaceBmask(surface)");
1901 SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0)));
1904 #line 1002 "SDL_perl.xs"
1905 RETVAL = surface->format->Bmask;
1906 #line 1907 "SDL_perl.c"
1907 XSprePUSH; PUSHu((UV)RETVAL);
1912 XS(XS_SDL_SurfaceAmask); /* prototype to pass -Wmissing-prototypes */
1913 XS(XS_SDL_SurfaceAmask)
1917 Perl_croak(aTHX_ "Usage: SDL::SurfaceAmask(surface)");
1919 SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0)));
1922 #line 1010 "SDL_perl.xs"
1923 RETVAL = surface->format->Amask;
1924 #line 1925 "SDL_perl.c"
1925 XSprePUSH; PUSHu((UV)RETVAL);
1930 XS(XS_SDL_SurfaceColorKey); /* prototype to pass -Wmissing-prototypes */
1931 XS(XS_SDL_SurfaceColorKey)
1935 Perl_croak(aTHX_ "Usage: SDL::SurfaceColorKey(surface)");
1937 SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0)));
1940 #line 1018 "SDL_perl.xs"
1941 RETVAL = surface->format->colorkey;
1942 #line 1943 "SDL_perl.c"
1943 XSprePUSH; PUSHu((UV)RETVAL);
1948 XS(XS_SDL_SurfaceAlpha); /* prototype to pass -Wmissing-prototypes */
1949 XS(XS_SDL_SurfaceAlpha)
1953 Perl_croak(aTHX_ "Usage: SDL::SurfaceAlpha(surface)");
1955 SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0)));
1958 #line 1026 "SDL_perl.xs"
1959 RETVAL = surface->format->alpha;
1960 #line 1961 "SDL_perl.c"
1961 XSprePUSH; PUSHu((UV)RETVAL);
1966 XS(XS_SDL_SurfaceW); /* prototype to pass -Wmissing-prototypes */
1971 Perl_croak(aTHX_ "Usage: SDL::SurfaceW(surface)");
1973 SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0)));
1976 #line 1034 "SDL_perl.xs"
1977 RETVAL = surface->w;
1978 #line 1979 "SDL_perl.c"
1979 XSprePUSH; PUSHi((IV)RETVAL);
1984 XS(XS_SDL_SurfaceH); /* prototype to pass -Wmissing-prototypes */
1989 Perl_croak(aTHX_ "Usage: SDL::SurfaceH(surface)");
1991 SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0)));
1994 #line 1042 "SDL_perl.xs"
1995 RETVAL = surface->h;
1996 #line 1997 "SDL_perl.c"
1997 XSprePUSH; PUSHi((IV)RETVAL);
2002 XS(XS_SDL_SurfacePitch); /* prototype to pass -Wmissing-prototypes */
2003 XS(XS_SDL_SurfacePitch)
2007 Perl_croak(aTHX_ "Usage: SDL::SurfacePitch(surface)");
2009 SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0)));
2012 #line 1050 "SDL_perl.xs"
2013 RETVAL = surface->pitch;
2014 #line 2015 "SDL_perl.c"
2015 XSprePUSH; PUSHu((UV)RETVAL);
2020 XS(XS_SDL_SurfacePixels); /* prototype to pass -Wmissing-prototypes */
2021 XS(XS_SDL_SurfacePixels)
2025 Perl_croak(aTHX_ "Usage: SDL::SurfacePixels(surface)");
2027 SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0)));
2029 #line 1058 "SDL_perl.xs"
2030 RETVAL = newSVpvn(surface->pixels,surface->pitch*surface->h);
2031 #line 2032 "SDL_perl.c"
2038 XS(XS_SDL_SurfacePixel); /* prototype to pass -Wmissing-prototypes */
2039 XS(XS_SDL_SurfacePixel)
2043 Perl_croak(aTHX_ "Usage: SDL::SurfacePixel(surface, x, y, ...)");
2045 SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0)));
2046 Sint32 x = (Sint32)SvIV(ST(1));
2047 Sint32 y = (Sint32)SvIV(ST(2));
2050 #line 1068 "SDL_perl.xs"
2054 int bpp = surface->format->BytesPerPixel;
2055 Uint8* p = (Uint8*)surface->pixels + bpp*x + surface->pitch*y;
2056 if ( items < 3 || items > 4 )
2057 Perl_croak(aTHX_ "usage: SDL::SurfacePixel(surface,x,y,[color])");
2059 color = (SDL_Color*)SvIV(ST(3));
2060 pix = SDL_MapRGB(surface->format,color->r,color->g,color->b);
2069 if (SDL_BYTEORDER == SDL_BIG_ENDIAN) {
2070 p[0] = (pix >> 16) & 0xff;
2071 p[1] = (pix >> 8) & 0xff;
2075 p[1] = (pix >> 8) & 0xff;
2076 p[2] = (pix >> 16) & 0xff;
2084 RETVAL = (SDL_Color *) safemalloc(sizeof(SDL_Color));
2088 memcpy(RETVAL,&surface->format->palette[index],sizeof(SDL_Color));
2092 SDL_GetRGB(pix,surface->format,&r,&g,&b);
2100 SDL_GetRGB(pix,surface->format,&r,&g,&b);
2106 #line 2107 "SDL_perl.c"
2107 XSprePUSH; PUSHi(PTR2IV(RETVAL));
2112 XS(XS_SDL_MUSTLOCK); /* prototype to pass -Wmissing-prototypes */
2117 Perl_croak(aTHX_ "Usage: SDL::MUSTLOCK(surface)");
2119 SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0)));
2122 #line 1130 "SDL_perl.xs"
2123 RETVAL = SDL_MUSTLOCK(surface);
2124 #line 2125 "SDL_perl.c"
2125 XSprePUSH; PUSHi((IV)RETVAL);
2130 XS(XS_SDL_SurfaceLock); /* prototype to pass -Wmissing-prototypes */
2131 XS(XS_SDL_SurfaceLock)
2135 Perl_croak(aTHX_ "Usage: SDL::SurfaceLock(surface)");
2137 SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0)));
2140 #line 1138 "SDL_perl.xs"
2141 RETVAL = SDL_LockSurface(surface);
2142 #line 2143 "SDL_perl.c"
2143 XSprePUSH; PUSHi((IV)RETVAL);
2148 XS(XS_SDL_SurfaceUnlock); /* prototype to pass -Wmissing-prototypes */
2149 XS(XS_SDL_SurfaceUnlock)
2153 Perl_croak(aTHX_ "Usage: SDL::SurfaceUnlock(surface)");
2155 SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0)));
2156 #line 1146 "SDL_perl.xs"
2157 SDL_UnlockSurface(surface);
2158 #line 2159 "SDL_perl.c"
2163 XS(XS_SDL_GetVideoSurface); /* prototype to pass -Wmissing-prototypes */
2164 XS(XS_SDL_GetVideoSurface)
2168 Perl_croak(aTHX_ "Usage: SDL::GetVideoSurface()");
2170 SDL_Surface * RETVAL;
2172 #line 1151 "SDL_perl.xs"
2173 RETVAL = SDL_GetVideoSurface();
2174 #line 2175 "SDL_perl.c"
2175 XSprePUSH; PUSHi(PTR2IV(RETVAL));
2180 XS(XS_SDL_VideoInfo); /* prototype to pass -Wmissing-prototypes */
2181 XS(XS_SDL_VideoInfo)
2185 Perl_croak(aTHX_ "Usage: SDL::VideoInfo()");
2188 #line 1159 "SDL_perl.xs"
2190 SDL_VideoInfo *info;
2191 info = (SDL_VideoInfo *) safemalloc ( sizeof(SDL_VideoInfo));
2192 memcpy(info,SDL_GetVideoInfo(),sizeof(SDL_VideoInfo));
2194 hv_store(hv,"hw_available",strlen("hw_available"),
2195 newSViv(info->hw_available),0);
2196 hv_store(hv,"wm_available",strlen("wm_available"),
2197 newSViv(info->wm_available),0);
2198 hv_store(hv,"blit_hw",strlen("blit_hw"),
2199 newSViv(info->blit_hw),0);
2200 hv_store(hv,"blit_hw_CC",strlen("blit_hw_CC"),
2201 newSViv(info->blit_hw_CC),0);
2202 hv_store(hv,"blit_hw_A",strlen("blit_hw_A"),
2203 newSViv(info->blit_hw_A),0);
2204 hv_store(hv,"blit_sw",strlen("blit_sw"),
2205 newSViv(info->blit_sw),0);
2206 hv_store(hv,"blit_sw_CC",strlen("blit_sw_CC"),
2207 newSViv(info->blit_sw_CC),0);
2208 hv_store(hv,"blit_sw_A",strlen("blit_sw_A"),
2209 newSViv(info->blit_sw_A),0);
2210 hv_store(hv,"blit_fill",strlen("blit_fill"),
2211 newSViv(info->blit_fill),0);
2212 hv_store(hv,"video_mem",strlen("video_mem"),
2213 newSViv(info->video_mem),0);
2215 #line 2216 "SDL_perl.c"
2216 ST(0) = newRV((SV*)RETVAL);
2222 XS(XS_SDL_NewRect); /* prototype to pass -Wmissing-prototypes */
2227 Perl_croak(aTHX_ "Usage: SDL::NewRect(x, y, w, h)");
2229 Sint16 x = (Sint16)SvIV(ST(0));
2230 Sint16 y = (Sint16)SvIV(ST(1));
2231 Uint16 w = (Uint16)SvUV(ST(2));
2232 Uint16 h = (Uint16)SvUV(ST(3));
2235 #line 1195 "SDL_perl.xs"
2236 RETVAL = (SDL_Rect *) safemalloc (sizeof(SDL_Rect));
2241 #line 2242 "SDL_perl.c"
2242 XSprePUSH; PUSHi(PTR2IV(RETVAL));
2247 XS(XS_SDL_FreeRect); /* prototype to pass -Wmissing-prototypes */
2252 Perl_croak(aTHX_ "Usage: SDL::FreeRect(rect)");
2254 SDL_Rect * rect = INT2PTR(SDL_Rect *,SvIV(ST(0)));
2255 #line 1207 "SDL_perl.xs"
2257 #line 2258 "SDL_perl.c"
2262 XS(XS_SDL_RectX); /* prototype to pass -Wmissing-prototypes */
2267 Perl_croak(aTHX_ "Usage: SDL::RectX(rect, ...)");
2269 SDL_Rect * rect = INT2PTR(SDL_Rect *,SvIV(ST(0)));
2272 #line 1213 "SDL_perl.xs"
2273 if (items > 1 ) rect->x = SvIV(ST(1));
2275 #line 2276 "SDL_perl.c"
2276 XSprePUSH; PUSHi((IV)RETVAL);
2281 XS(XS_SDL_RectY); /* prototype to pass -Wmissing-prototypes */
2286 Perl_croak(aTHX_ "Usage: SDL::RectY(rect, ...)");
2288 SDL_Rect * rect = INT2PTR(SDL_Rect *,SvIV(ST(0)));
2291 #line 1222 "SDL_perl.xs"
2292 if (items > 1 ) rect->y = SvIV(ST(1));
2294 #line 2295 "SDL_perl.c"
2295 XSprePUSH; PUSHi((IV)RETVAL);
2300 XS(XS_SDL_RectW); /* prototype to pass -Wmissing-prototypes */
2305 Perl_croak(aTHX_ "Usage: SDL::RectW(rect, ...)");
2307 SDL_Rect * rect = INT2PTR(SDL_Rect *,SvIV(ST(0)));
2310 #line 1231 "SDL_perl.xs"
2311 if (items > 1 ) rect->w = SvIV(ST(1));
2313 #line 2314 "SDL_perl.c"
2314 XSprePUSH; PUSHu((UV)RETVAL);
2319 XS(XS_SDL_RectH); /* prototype to pass -Wmissing-prototypes */
2324 Perl_croak(aTHX_ "Usage: SDL::RectH(rect, ...)");
2326 SDL_Rect * rect = INT2PTR(SDL_Rect *,SvIV(ST(0)));
2329 #line 1240 "SDL_perl.xs"
2330 if (items > 1 ) rect->h = SvIV(ST(1));
2332 #line 2333 "SDL_perl.c"
2333 XSprePUSH; PUSHu((UV)RETVAL);
2338 XS(XS_SDL_ListModes); /* prototype to pass -Wmissing-prototypes */
2339 XS(XS_SDL_ListModes)
2343 Perl_croak(aTHX_ "Usage: SDL::ListModes(format, flags)");
2345 Uint32 flags = (Uint32)SvUV(ST(1));
2346 SDL_PixelFormat * format = INT2PTR(SDL_PixelFormat *,SvIV(ST(0)));
2348 #line 1250 "SDL_perl.xs"
2351 mode = SDL_ListModes(format,flags);
2352 if (mode == (SDL_Rect**)-1 ) {
2353 av_push(RETVAL,newSVpv("all",0));
2354 } else if (! mode ) {
2355 av_push(RETVAL,newSVpv("none",0));
2357 for (;*mode;mode++) {
2358 av_push(RETVAL,newSViv(PTR2IV(*mode)));
2361 #line 2362 "SDL_perl.c"
2362 ST(0) = newRV((SV*)RETVAL);
2368 XS(XS_SDL_NewColor); /* prototype to pass -Wmissing-prototypes */
2373 Perl_croak(aTHX_ "Usage: SDL::NewColor(r, g, b)");
2375 Uint8 r = (unsigned char)SvUV(ST(0));
2376 Uint8 g = (unsigned char)SvUV(ST(1));
2377 Uint8 b = (unsigned char)SvUV(ST(2));
2380 #line 1272 "SDL_perl.xs"
2381 RETVAL = (SDL_Color *) safemalloc(sizeof(SDL_Color));
2385 #line 2386 "SDL_perl.c"
2386 XSprePUSH; PUSHi(PTR2IV(RETVAL));
2391 XS(XS_SDL_ColorR); /* prototype to pass -Wmissing-prototypes */
2396 Perl_croak(aTHX_ "Usage: SDL::ColorR(color, ...)");
2398 SDL_Color * color = INT2PTR(SDL_Color *,SvIV(ST(0)));
2401 #line 1283 "SDL_perl.xs"
2402 if (items > 1 ) color->r = SvIV(ST(1));
2404 #line 2405 "SDL_perl.c"
2405 XSprePUSH; PUSHu((UV)RETVAL);
2410 XS(XS_SDL_ColorG); /* prototype to pass -Wmissing-prototypes */
2415 Perl_croak(aTHX_ "Usage: SDL::ColorG(color, ...)");
2417 SDL_Color * color = INT2PTR(SDL_Color *,SvIV(ST(0)));
2420 #line 1292 "SDL_perl.xs"
2421 if (items > 1 ) color->g = SvIV(ST(1));
2423 #line 2424 "SDL_perl.c"
2424 XSprePUSH; PUSHu((UV)RETVAL);
2429 XS(XS_SDL_ColorB); /* prototype to pass -Wmissing-prototypes */
2434 Perl_croak(aTHX_ "Usage: SDL::ColorB(color, ...)");
2436 SDL_Color * color = INT2PTR(SDL_Color *,SvIV(ST(0)));
2439 #line 1301 "SDL_perl.xs"
2440 if (items > 1 ) color->b = SvIV(ST(1));
2442 #line 2443 "SDL_perl.c"
2443 XSprePUSH; PUSHu((UV)RETVAL);
2448 XS(XS_SDL_FreeColor); /* prototype to pass -Wmissing-prototypes */
2449 XS(XS_SDL_FreeColor)
2453 Perl_croak(aTHX_ "Usage: SDL::FreeColor(color)");
2455 SDL_Color * color = INT2PTR(SDL_Color *,SvIV(ST(0)));
2456 #line 1310 "SDL_perl.xs"
2457 return; safefree(color);
2458 #line 2459 "SDL_perl.c"
2463 XS(XS_SDL_NewPalette); /* prototype to pass -Wmissing-prototypes */
2464 XS(XS_SDL_NewPalette)
2468 Perl_croak(aTHX_ "Usage: SDL::NewPalette(number)");
2470 int number = (int)SvIV(ST(0));
2471 SDL_Palette * RETVAL;
2473 #line 1316 "SDL_perl.xs"
2474 RETVAL = (SDL_Palette *)safemalloc(sizeof(SDL_Palette));
2475 RETVAL->colors = (SDL_Color *)safemalloc(number *
2477 RETVAL->ncolors = number;
2478 #line 2479 "SDL_perl.c"
2479 XSprePUSH; PUSHi(PTR2IV(RETVAL));
2484 XS(XS_SDL_PaletteNColors); /* prototype to pass -Wmissing-prototypes */
2485 XS(XS_SDL_PaletteNColors)
2489 Perl_croak(aTHX_ "Usage: SDL::PaletteNColors(palette, ...)");
2491 SDL_Palette * palette = INT2PTR(SDL_Palette *,SvIV(ST(0)));
2494 #line 1327 "SDL_perl.xs"
2495 if ( items > 1 ) palette->ncolors = SvIV(ST(1));
2496 RETVAL = palette->ncolors;
2497 #line 2498 "SDL_perl.c"
2498 XSprePUSH; PUSHi((IV)RETVAL);
2503 XS(XS_SDL_PaletteColors); /* prototype to pass -Wmissing-prototypes */
2504 XS(XS_SDL_PaletteColors)
2508 Perl_croak(aTHX_ "Usage: SDL::PaletteColors(palette, index, ...)");
2510 SDL_Palette * palette = INT2PTR(SDL_Palette *,SvIV(ST(0)));
2511 int index = (int)SvIV(ST(1));
2514 #line 1337 "SDL_perl.xs"
2516 palette->colors[index].r = SvUV(ST(2));
2517 palette->colors[index].g = SvUV(ST(3));
2518 palette->colors[index].b = SvUV(ST(4));
2520 RETVAL = (SDL_Color *)(palette->colors + index);
2521 #line 2522 "SDL_perl.c"
2522 XSprePUSH; PUSHi(PTR2IV(RETVAL));
2527 XS(XS_SDL_VideoModeOK); /* prototype to pass -Wmissing-prototypes */
2528 XS(XS_SDL_VideoModeOK)
2532 Perl_croak(aTHX_ "Usage: SDL::VideoModeOK(width, height, bpp, flags)");
2534 int width = (int)SvIV(ST(0));
2535 int height = (int)SvIV(ST(1));
2536 int bpp = (int)SvIV(ST(2));
2537 Uint32 flags = (Uint32)SvUV(ST(3));
2540 #line 1353 "SDL_perl.xs"
2541 RETVAL = SDL_VideoModeOK(width,height,bpp,flags);
2542 #line 2543 "SDL_perl.c"
2543 XSprePUSH; PUSHi((IV)RETVAL);
2548 XS(XS_SDL_SetVideoMode); /* prototype to pass -Wmissing-prototypes */
2549 XS(XS_SDL_SetVideoMode)
2553 Perl_croak(aTHX_ "Usage: SDL::SetVideoMode(width, height, bpp, flags)");
2555 int width = (int)SvIV(ST(0));
2556 int height = (int)SvIV(ST(1));
2557 int bpp = (int)SvIV(ST(2));
2558 Uint32 flags = (Uint32)SvUV(ST(3));
2559 SDL_Surface * RETVAL;
2561 #line 1364 "SDL_perl.xs"
2562 RETVAL = SDL_SetVideoMode(width,height,bpp,flags);
2563 #line 2564 "SDL_perl.c"
2564 XSprePUSH; PUSHi(PTR2IV(RETVAL));
2569 XS(XS_SDL_UpdateRect); /* prototype to pass -Wmissing-prototypes */
2570 XS(XS_SDL_UpdateRect)
2574 Perl_croak(aTHX_ "Usage: SDL::UpdateRect(surface, x, y, w, h)");
2576 SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0)));
2577 int x = (int)SvIV(ST(1));
2578 int y = (int)SvIV(ST(2));
2579 int w = (int)SvIV(ST(3));
2580 int h = (int)SvIV(ST(4));
2581 #line 1376 "SDL_perl.xs"
2582 SDL_UpdateRect(surface,x,y,w,h);
2583 #line 2584 "SDL_perl.c"
2588 XS(XS_SDL_UpdateRects); /* prototype to pass -Wmissing-prototypes */
2589 XS(XS_SDL_UpdateRects)
2593 Perl_croak(aTHX_ "Usage: SDL::UpdateRects(surface, ...)");
2595 SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0)));
2596 #line 1382 "SDL_perl.xs"
2597 SDL_Rect *rects, *temp;
2599 if ( items < 2 ) return;
2600 num_rects = items - 1;
2601 rects = (SDL_Rect *)safemalloc(sizeof(SDL_Rect)*items);
2602 for(i=0;i<num_rects;i++) {
2603 temp = (SDL_Rect *)SvIV(ST(i+1));
2604 rects[i].x = temp->x;
2605 rects[i].y = temp->y;
2606 rects[i].w = temp->w;
2607 rects[i].h = temp->h;
2609 SDL_UpdateRects(surface,num_rects,rects);
2611 #line 2612 "SDL_perl.c"
2616 XS(XS_SDL_Flip); /* prototype to pass -Wmissing-prototypes */
2621 Perl_croak(aTHX_ "Usage: SDL::Flip(surface)");
2623 SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0)));
2626 #line 1401 "SDL_perl.xs"
2627 RETVAL = SDL_Flip(surface);
2628 #line 2629 "SDL_perl.c"
2629 XSprePUSH; PUSHi((IV)RETVAL);
2634 XS(XS_SDL_SetColors); /* prototype to pass -Wmissing-prototypes */
2635 XS(XS_SDL_SetColors)
2639 Perl_croak(aTHX_ "Usage: SDL::SetColors(surface, start, ...)");
2641 SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0)));
2642 int start = (int)SvIV(ST(1));
2645 #line 1410 "SDL_perl.xs"
2646 SDL_Color *colors,*temp;
2648 if ( items < 3 ) { RETVAL = 0; goto all_done; }
2650 colors = (SDL_Color *)safemalloc(sizeof(SDL_Color)*(length+1));
2651 for ( i = 0; i < length ; i++ ) {
2652 temp = (SDL_Color *)SvIV(ST(i+2));
2653 colors[i].r = temp->r;
2654 colors[i].g = temp->g;
2655 colors[i].b = temp->b;
2657 RETVAL = SDL_SetColors(surface, colors, start, length );
2660 #line 2661 "SDL_perl.c"
2661 XSprePUSH; PUSHi((IV)RETVAL);
2666 XS(XS_SDL_MapRGB); /* prototype to pass -Wmissing-prototypes */
2671 Perl_croak(aTHX_ "Usage: SDL::MapRGB(surface, r, g, b)");
2673 SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0)));
2674 Uint8 r = (unsigned char)SvUV(ST(1));
2675 Uint8 g = (unsigned char)SvUV(ST(2));
2676 Uint8 b = (unsigned char)SvUV(ST(3));
2679 #line 1434 "SDL_perl.xs"
2680 RETVAL = SDL_MapRGB(surface->format,r,g,b);
2681 #line 2682 "SDL_perl.c"
2682 XSprePUSH; PUSHu((UV)RETVAL);
2687 XS(XS_SDL_MapRGBA); /* prototype to pass -Wmissing-prototypes */
2692 Perl_croak(aTHX_ "Usage: SDL::MapRGBA(surface, r, g, b, a)");
2694 SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0)));
2695 Uint8 r = (unsigned char)SvUV(ST(1));
2696 Uint8 g = (unsigned char)SvUV(ST(2));
2697 Uint8 b = (unsigned char)SvUV(ST(3));
2698 Uint8 a = (unsigned char)SvUV(ST(4));
2701 #line 1446 "SDL_perl.xs"
2702 RETVAL = SDL_MapRGBA(surface->format,r,g,b,a);
2703 #line 2704 "SDL_perl.c"
2704 XSprePUSH; PUSHu((UV)RETVAL);
2709 XS(XS_SDL_GetRGB); /* prototype to pass -Wmissing-prototypes */
2714 Perl_croak(aTHX_ "Usage: SDL::GetRGB(surface, pixel)");
2716 SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0)));
2717 Uint32 pixel = (Uint32)SvUV(ST(1));
2719 #line 1455 "SDL_perl.xs"
2721 SDL_GetRGB(pixel,surface->format,&r,&g,&b);
2723 av_push(RETVAL,newSViv(r));
2724 av_push(RETVAL,newSViv(g));
2725 av_push(RETVAL,newSViv(b));
2726 #line 2727 "SDL_perl.c"
2727 ST(0) = newRV((SV*)RETVAL);
2733 XS(XS_SDL_GetRGBA); /* prototype to pass -Wmissing-prototypes */
2738 Perl_croak(aTHX_ "Usage: SDL::GetRGBA(surface, pixel)");
2740 SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0)));
2741 Uint32 pixel = (Uint32)SvUV(ST(1));
2743 #line 1469 "SDL_perl.xs"
2745 SDL_GetRGBA(pixel,surface->format,&r,&g,&b,&a);
2747 av_push(RETVAL,newSViv(r));
2748 av_push(RETVAL,newSViv(g));
2749 av_push(RETVAL,newSViv(b));
2750 av_push(RETVAL,newSViv(a));
2751 #line 2752 "SDL_perl.c"
2752 ST(0) = newRV((SV*)RETVAL);
2758 XS(XS_SDL_SaveBMP); /* prototype to pass -Wmissing-prototypes */
2763 Perl_croak(aTHX_ "Usage: SDL::SaveBMP(surface, filename)");
2765 SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0)));
2766 char * filename = (char *)SvPV_nolen(ST(1));
2769 #line 1484 "SDL_perl.xs"
2770 RETVAL = SDL_SaveBMP(surface,filename);
2771 #line 2772 "SDL_perl.c"
2772 XSprePUSH; PUSHi((IV)RETVAL);
2777 XS(XS_SDL_SetColorKey); /* prototype to pass -Wmissing-prototypes */
2778 XS(XS_SDL_SetColorKey)
2782 Perl_croak(aTHX_ "Usage: SDL::SetColorKey(surface, flag, key)");
2784 SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0)));
2785 Uint32 flag = (Uint32)SvUV(ST(1));
2786 SDL_Color * key = INT2PTR(SDL_Color *,SvIV(ST(2)));
2789 #line 1494 "SDL_perl.xs"
2790 Uint32 pixel = SDL_MapRGB(surface->format,key->r,key->g,key->b);
2791 RETVAL = SDL_SetColorKey(surface,flag,pixel);
2792 #line 2793 "SDL_perl.c"
2793 XSprePUSH; PUSHi((IV)RETVAL);
2798 XS(XS_SDL_SetAlpha); /* prototype to pass -Wmissing-prototypes */
2803 Perl_croak(aTHX_ "Usage: SDL::SetAlpha(surface, flag, alpha)");
2805 SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0)));
2806 Uint32 flag = (Uint32)SvUV(ST(1));
2807 Uint8 alpha = (unsigned char)SvUV(ST(2));
2810 #line 1505 "SDL_perl.xs"
2811 RETVAL = SDL_SetAlpha(surface,flag,alpha);
2812 #line 2813 "SDL_perl.c"
2813 XSprePUSH; PUSHi((IV)RETVAL);
2818 XS(XS_SDL_DisplayFormat); /* prototype to pass -Wmissing-prototypes */
2819 XS(XS_SDL_DisplayFormat)
2823 Perl_croak(aTHX_ "Usage: SDL::DisplayFormat(surface)");
2825 SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0)));
2826 SDL_Surface * RETVAL;
2828 #line 1513 "SDL_perl.xs"
2829 RETVAL = SDL_DisplayFormat(surface);
2830 #line 2831 "SDL_perl.c"
2831 XSprePUSH; PUSHi(PTR2IV(RETVAL));
2836 XS(XS_SDL_DisplayFormatAlpha); /* prototype to pass -Wmissing-prototypes */
2837 XS(XS_SDL_DisplayFormatAlpha)
2841 Perl_croak(aTHX_ "Usage: SDL::DisplayFormatAlpha(surface)");
2843 SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0)));
2844 SDL_Surface * RETVAL;
2846 #line 1521 "SDL_perl.xs"
2847 RETVAL = SDL_DisplayFormatAlpha(surface);
2848 #line 2849 "SDL_perl.c"
2849 XSprePUSH; PUSHi(PTR2IV(RETVAL));
2854 XS(XS_SDL_ConvertRGB); /* prototype to pass -Wmissing-prototypes */
2855 XS(XS_SDL_ConvertRGB)
2859 Perl_croak(aTHX_ "Usage: SDL::ConvertRGB(surface)");
2861 SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0)));
2862 SDL_Surface * RETVAL;
2864 #line 1529 "SDL_perl.xs"
2865 SDL_PixelFormat fmt;
2867 fmt.BitsPerPixel = 24;
2868 fmt.BytesPerPixel = 3;
2869 fmt.Rmask = 0x000000ff;
2870 fmt.Gmask = 0x0000ff00;
2871 fmt.Bmask = 0x00ff0000;
2872 fmt.Amask = 0x00000000;
2883 RETVAL = SDL_ConvertSurface(surface,&fmt,surface->flags);
2884 #line 2885 "SDL_perl.c"
2885 XSprePUSH; PUSHi(PTR2IV(RETVAL));
2890 XS(XS_SDL_ConvertRGBA); /* prototype to pass -Wmissing-prototypes */
2891 XS(XS_SDL_ConvertRGBA)
2895 Perl_croak(aTHX_ "Usage: SDL::ConvertRGBA(surface)");
2897 SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0)));
2898 SDL_Surface * RETVAL;
2900 #line 1555 "SDL_perl.xs"
2901 SDL_PixelFormat fmt;
2903 fmt.BitsPerPixel = 32;
2904 fmt.BytesPerPixel = 4;
2905 fmt.Rmask = 0x000000ff;
2906 fmt.Gmask = 0x0000ff00;
2907 fmt.Bmask = 0x00ff0000;
2908 fmt.Amask = 0xff000000;
2919 RETVAL = SDL_ConvertSurface(surface,&fmt,surface->flags);
2920 #line 2921 "SDL_perl.c"
2921 XSprePUSH; PUSHi(PTR2IV(RETVAL));
2926 XS(XS_SDL_BlitSurface); /* prototype to pass -Wmissing-prototypes */
2927 XS(XS_SDL_BlitSurface)
2931 Perl_croak(aTHX_ "Usage: SDL::BlitSurface(src, src_rect, dest, dest_rect)");
2933 SDL_Surface * src = INT2PTR(SDL_Surface *,SvIV(ST(0)));
2934 SDL_Rect * src_rect = INT2PTR(SDL_Rect *,SvIV(ST(1)));
2935 SDL_Surface * dest = INT2PTR(SDL_Surface *,SvIV(ST(2)));
2936 SDL_Rect * dest_rect = INT2PTR(SDL_Rect *,SvIV(ST(3)));
2939 #line 1584 "SDL_perl.xs"
2940 RETVAL = SDL_BlitSurface(src,src_rect,dest,dest_rect);
2941 #line 2942 "SDL_perl.c"
2942 XSprePUSH; PUSHi((IV)RETVAL);
2947 XS(XS_SDL_FillRect); /* prototype to pass -Wmissing-prototypes */
2952 Perl_croak(aTHX_ "Usage: SDL::FillRect(dest, dest_rect, color)");
2954 SDL_Surface * dest = INT2PTR(SDL_Surface *,SvIV(ST(0)));
2955 SDL_Rect * dest_rect = INT2PTR(SDL_Rect *,SvIV(ST(1)));
2956 SDL_Color * color = INT2PTR(SDL_Color *,SvIV(ST(2)));
2959 #line 1594 "SDL_perl.xs"
2960 Uint32 pixel = SDL_MapRGB(dest->format,color->r,color->g,color->b);
2961 RETVAL = SDL_FillRect(dest,dest_rect,pixel);
2962 #line 2963 "SDL_perl.c"
2963 XSprePUSH; PUSHi((IV)RETVAL);
2968 XS(XS_SDL_GetAppState); /* prototype to pass -Wmissing-prototypes */
2969 XS(XS_SDL_GetAppState)
2973 Perl_croak(aTHX_ "Usage: SDL::GetAppState()");
2977 #line 1602 "SDL_perl.xs"
2978 RETVAL = SDL_GetAppState();
2979 #line 2980 "SDL_perl.c"
2980 XSprePUSH; PUSHu((UV)RETVAL);
2985 XS(XS_SDL_WMSetCaption); /* prototype to pass -Wmissing-prototypes */
2986 XS(XS_SDL_WMSetCaption)
2990 Perl_croak(aTHX_ "Usage: SDL::WMSetCaption(title, icon)");
2992 char * title = (char *)SvPV_nolen(ST(0));
2993 char * icon = (char *)SvPV_nolen(ST(1));
2994 #line 1612 "SDL_perl.xs"
2995 SDL_WM_SetCaption(title,icon);
2996 #line 2997 "SDL_perl.c"
3001 XS(XS_SDL_WMGetCaption); /* prototype to pass -Wmissing-prototypes */
3002 XS(XS_SDL_WMGetCaption)
3006 Perl_croak(aTHX_ "Usage: SDL::WMGetCaption()");
3009 #line 1617 "SDL_perl.xs"
3011 SDL_WM_GetCaption(&title,&icon);
3013 av_push(RETVAL,newSVpv(title,0));
3014 av_push(RETVAL,newSVpv(icon,0));
3015 #line 3016 "SDL_perl.c"
3016 ST(0) = newRV((SV*)RETVAL);
3022 XS(XS_SDL_WMSetIcon); /* prototype to pass -Wmissing-prototypes */
3023 XS(XS_SDL_WMSetIcon)
3027 Perl_croak(aTHX_ "Usage: SDL::WMSetIcon(icon)");
3029 SDL_Surface * icon = INT2PTR(SDL_Surface *,SvIV(ST(0)));
3030 #line 1629 "SDL_perl.xs"
3031 SDL_WM_SetIcon(icon,NULL);
3032 #line 3033 "SDL_perl.c"
3037 XS(XS_SDL_WarpMouse); /* prototype to pass -Wmissing-prototypes */
3038 XS(XS_SDL_WarpMouse)
3042 Perl_croak(aTHX_ "Usage: SDL::WarpMouse(x, y)");
3044 Uint16 x = (Uint16)SvUV(ST(0));
3045 Uint16 y = (Uint16)SvUV(ST(1));
3046 #line 1636 "SDL_perl.xs"
3048 #line 3049 "SDL_perl.c"
3053 XS(XS_SDL_GetMouseState); /* prototype to pass -Wmissing-prototypes */
3054 XS(XS_SDL_GetMouseState)
3058 Perl_croak(aTHX_ "Usage: SDL::GetMouseState()");
3061 #line 1641 "SDL_perl.xs"
3065 mask = SDL_GetMouseState(&x,&y);
3067 av_push(RETVAL,newSViv(mask));
3068 av_push(RETVAL,newSViv(x));
3069 av_push(RETVAL,newSViv(y));
3070 #line 3071 "SDL_perl.c"
3071 ST(0) = newRV((SV*)RETVAL);
3077 XS(XS_SDL_GetRelativeMouseState); /* prototype to pass -Wmissing-prototypes */
3078 XS(XS_SDL_GetRelativeMouseState)
3082 Perl_croak(aTHX_ "Usage: SDL::GetRelativeMouseState()");
3085 #line 1655 "SDL_perl.xs"
3089 mask = SDL_GetRelativeMouseState(&x,&y);
3091 av_push(RETVAL,newSViv(mask));
3092 av_push(RETVAL,newSViv(x));
3093 av_push(RETVAL,newSViv(y));
3094 #line 3095 "SDL_perl.c"
3095 ST(0) = newRV((SV*)RETVAL);
3101 XS(XS_SDL_NewCursor); /* prototype to pass -Wmissing-prototypes */
3102 XS(XS_SDL_NewCursor)
3106 Perl_croak(aTHX_ "Usage: SDL::NewCursor(data, mask, x, y)");
3108 SDL_Surface * data = INT2PTR(SDL_Surface *,SvIV(ST(0)));
3109 SDL_Surface * mask = INT2PTR(SDL_Surface *,SvIV(ST(1)));
3110 int x = (int)SvIV(ST(2));
3111 int y = (int)SvIV(ST(3));
3112 SDL_Cursor * RETVAL;
3114 #line 1673 "SDL_perl.xs"
3115 RETVAL = SDL_CreateCursor((Uint8*)data->pixels,
3116 (Uint8*)mask->pixels,data->w,data->h,x,y);
3117 #line 3118 "SDL_perl.c"
3118 XSprePUSH; PUSHi(PTR2IV(RETVAL));
3123 XS(XS_SDL_FreeCursor); /* prototype to pass -Wmissing-prototypes */
3124 XS(XS_SDL_FreeCursor)
3128 Perl_croak(aTHX_ "Usage: SDL::FreeCursor(cursor)");
3130 SDL_Cursor * cursor = INT2PTR(SDL_Cursor *,SvIV(ST(0)));
3131 #line 1682 "SDL_perl.xs"
3132 SDL_FreeCursor(cursor);
3133 #line 3134 "SDL_perl.c"
3138 XS(XS_SDL_SetCursor); /* prototype to pass -Wmissing-prototypes */
3139 XS(XS_SDL_SetCursor)
3143 Perl_croak(aTHX_ "Usage: SDL::SetCursor(cursor)");
3145 SDL_Cursor * cursor = INT2PTR(SDL_Cursor *,SvIV(ST(0)));
3146 #line 1688 "SDL_perl.xs"
3147 SDL_SetCursor(cursor);
3148 #line 3149 "SDL_perl.c"
3153 XS(XS_SDL_GetCursor); /* prototype to pass -Wmissing-prototypes */
3154 XS(XS_SDL_GetCursor)
3158 Perl_croak(aTHX_ "Usage: SDL::GetCursor()");
3160 SDL_Cursor * RETVAL;
3162 #line 1693 "SDL_perl.xs"
3163 RETVAL = SDL_GetCursor();
3164 #line 3165 "SDL_perl.c"
3165 XSprePUSH; PUSHi(PTR2IV(RETVAL));
3170 XS(XS_SDL_ShowCursor); /* prototype to pass -Wmissing-prototypes */
3171 XS(XS_SDL_ShowCursor)
3175 Perl_croak(aTHX_ "Usage: SDL::ShowCursor(toggle)");
3177 int toggle = (int)SvIV(ST(0));
3180 #line 1701 "SDL_perl.xs"
3181 RETVAL = SDL_ShowCursor(toggle);
3182 #line 3183 "SDL_perl.c"
3183 XSprePUSH; PUSHi((IV)RETVAL);
3188 XS(XS_SDL_NewAudioSpec); /* prototype to pass -Wmissing-prototypes */
3189 XS(XS_SDL_NewAudioSpec)
3193 Perl_croak(aTHX_ "Usage: SDL::NewAudioSpec(freq, format, channels, samples)");
3195 int freq = (int)SvIV(ST(0));
3196 Uint16 format = (Uint16)SvUV(ST(1));
3197 Uint8 channels = (unsigned char)SvUV(ST(2));
3198 Uint16 samples = (Uint16)SvUV(ST(3));
3199 SDL_AudioSpec * RETVAL;
3201 #line 1712 "SDL_perl.xs"
3202 RETVAL = (SDL_AudioSpec *)safemalloc(sizeof(SDL_AudioSpec));
3203 RETVAL->freq = freq;
3204 RETVAL->format = format;
3205 RETVAL->channels = channels;
3206 RETVAL->samples = samples;
3207 #line 3208 "SDL_perl.c"
3208 XSprePUSH; PUSHi(PTR2IV(RETVAL));
3213 XS(XS_SDL_FreeAudioSpec); /* prototype to pass -Wmissing-prototypes */
3214 XS(XS_SDL_FreeAudioSpec)
3218 Perl_croak(aTHX_ "Usage: SDL::FreeAudioSpec(spec)");
3220 SDL_AudioSpec * spec = INT2PTR(SDL_AudioSpec *,SvIV(ST(0)));
3221 #line 1724 "SDL_perl.xs"
3223 #line 3224 "SDL_perl.c"
3228 XS(XS_SDL_NewAudioCVT); /* prototype to pass -Wmissing-prototypes */
3229 XS(XS_SDL_NewAudioCVT)
3233 Perl_croak(aTHX_ "Usage: SDL::NewAudioCVT(src_format, src_channels, src_rate, dst_format, dst_channels, dst_rate)");
3235 Uint16 src_format = (Uint16)SvUV(ST(0));
3236 Uint8 src_channels = (unsigned char)SvUV(ST(1));
3237 int src_rate = (int)SvIV(ST(2));
3238 Uint16 dst_format = (Uint16)SvUV(ST(3));
3239 Uint8 dst_channels = (unsigned char)SvUV(ST(4));
3240 int dst_rate = (int)SvIV(ST(5));
3241 SDL_AudioCVT * RETVAL;
3243 #line 1735 "SDL_perl.xs"
3244 RETVAL = (SDL_AudioCVT *)safemalloc(sizeof(SDL_AudioCVT));
3245 if (SDL_BuildAudioCVT(RETVAL,src_format, src_channels, src_rate,
3246 dst_format, dst_channels, dst_rate)) {
3247 safefree(RETVAL); RETVAL = NULL; }
3248 #line 3249 "SDL_perl.c"
3249 XSprePUSH; PUSHi(PTR2IV(RETVAL));
3254 XS(XS_SDL_FreeAudioCVT); /* prototype to pass -Wmissing-prototypes */
3255 XS(XS_SDL_FreeAudioCVT)
3259 Perl_croak(aTHX_ "Usage: SDL::FreeAudioCVT(cvt)");
3261 SDL_AudioCVT * cvt = INT2PTR(SDL_AudioCVT *,SvIV(ST(0)));
3262 #line 1746 "SDL_perl.xs"
3264 #line 3265 "SDL_perl.c"
3269 XS(XS_SDL_ConvertAudioData); /* prototype to pass -Wmissing-prototypes */
3270 XS(XS_SDL_ConvertAudioData)
3274 Perl_croak(aTHX_ "Usage: SDL::ConvertAudioData(cvt, data, len)");
3276 SDL_AudioCVT * cvt = INT2PTR(SDL_AudioCVT *,SvIV(ST(0)));
3277 Uint8 * data = INT2PTR(Uint8 *,SvIV(ST(1)));
3278 int len = (int)SvIV(ST(2));
3281 #line 1754 "SDL_perl.xs"
3283 cvt->buf = (Uint8*) safemalloc(cvt->len*cvt->len_mult);
3284 memcpy(cvt->buf,data,cvt->len);
3285 RETVAL = SDL_ConvertAudio(cvt);
3286 #line 3287 "SDL_perl.c"
3287 XSprePUSH; PUSHi((IV)RETVAL);
3292 XS(XS_SDL_OpenAudio); /* prototype to pass -Wmissing-prototypes */
3293 XS(XS_SDL_OpenAudio)
3297 Perl_croak(aTHX_ "Usage: SDL::OpenAudio(spec, callback)");
3299 SDL_AudioSpec * spec = INT2PTR(SDL_AudioSpec *,SvIV(ST(0)));
3300 SV* callback = ST(1);
3303 #line 1766 "SDL_perl.xs"
3304 spec->userdata = (void*)callback;
3305 spec->callback = sdl_perl_audio_callback;
3306 RETVAL = SDL_OpenAudio(spec,NULL);
3307 #line 3308 "SDL_perl.c"
3308 XSprePUSH; PUSHi((IV)RETVAL);
3313 XS(XS_SDL_GetAudioStatus); /* prototype to pass -Wmissing-prototypes */
3314 XS(XS_SDL_GetAudioStatus)
3318 Perl_croak(aTHX_ "Usage: SDL::GetAudioStatus()");
3322 #line 1775 "SDL_perl.xs"
3323 RETVAL = SDL_GetAudioStatus ();
3324 #line 3325 "SDL_perl.c"
3325 XSprePUSH; PUSHu((UV)RETVAL);
3330 XS(XS_SDL_PauseAudio); /* prototype to pass -Wmissing-prototypes */
3331 XS(XS_SDL_PauseAudio)
3335 Perl_croak(aTHX_ "Usage: SDL::PauseAudio(p_on)");
3337 int p_on = (int)SvIV(ST(0));
3338 #line 1783 "SDL_perl.xs"
3339 SDL_PauseAudio(p_on);
3340 #line 3341 "SDL_perl.c"
3345 XS(XS_SDL_LockAudio); /* prototype to pass -Wmissing-prototypes */
3346 XS(XS_SDL_LockAudio)
3350 Perl_croak(aTHX_ "Usage: SDL::LockAudio()");
3352 #line 1788 "SDL_perl.xs"
3354 #line 3355 "SDL_perl.c"
3359 XS(XS_SDL_UnlockAudio); /* prototype to pass -Wmissing-prototypes */
3360 XS(XS_SDL_UnlockAudio)
3364 Perl_croak(aTHX_ "Usage: SDL::UnlockAudio()");
3366 #line 1793 "SDL_perl.xs"
3368 #line 3369 "SDL_perl.c"
3373 XS(XS_SDL_CloseAudio); /* prototype to pass -Wmissing-prototypes */
3374 XS(XS_SDL_CloseAudio)
3378 Perl_croak(aTHX_ "Usage: SDL::CloseAudio()");
3380 #line 1798 "SDL_perl.xs"
3382 #line 3383 "SDL_perl.c"
3387 XS(XS_SDL_FreeWAV); /* prototype to pass -Wmissing-prototypes */
3392 Perl_croak(aTHX_ "Usage: SDL::FreeWAV(buf)");
3394 Uint8 * buf = INT2PTR(Uint8 *,SvIV(ST(0)));
3395 #line 1804 "SDL_perl.xs"
3397 #line 3398 "SDL_perl.c"
3402 XS(XS_SDL_LoadWAV); /* prototype to pass -Wmissing-prototypes */
3407 Perl_croak(aTHX_ "Usage: SDL::LoadWAV(filename, spec)");
3409 char * filename = (char *)SvPV_nolen(ST(0));
3410 SDL_AudioSpec * spec = INT2PTR(SDL_AudioSpec *,SvIV(ST(1)));
3412 #line 1811 "SDL_perl.xs"
3413 SDL_AudioSpec *temp;
3418 temp = SDL_LoadWAV(filename,spec,&buf,&len);
3419 if ( ! temp ) goto error;
3420 av_push(RETVAL,newSViv(PTR2IV(temp)));
3421 av_push(RETVAL,newSViv(PTR2IV(buf)));
3422 av_push(RETVAL,newSViv(len));
3424 #line 3425 "SDL_perl.c"
3425 ST(0) = newRV((SV*)RETVAL);
3431 #ifdef HAVE_SDL_MIXER
3432 #define XSubPPtmpAAAB 1
3434 XS(XS_SDL_MixAudio); /* prototype to pass -Wmissing-prototypes */
3439 Perl_croak(aTHX_ "Usage: SDL::MixAudio(dst, src, len, volume)");
3441 Uint8 * dst = INT2PTR(Uint8 *,SvIV(ST(0)));
3442 Uint8 * src = INT2PTR(Uint8 *,SvIV(ST(1)));
3443 Uint32 len = (Uint32)SvUV(ST(2));
3444 int volume = (int)SvIV(ST(3));
3445 #line 1834 "SDL_perl.xs"
3446 SDL_MixAudio(dst,src,len,volume);
3447 #line 3448 "SDL_perl.c"
3452 XS(XS_SDL_MixOpenAudio); /* prototype to pass -Wmissing-prototypes */
3453 XS(XS_SDL_MixOpenAudio)
3457 Perl_croak(aTHX_ "Usage: SDL::MixOpenAudio(frequency, format, channels, chunksize)");
3459 int frequency = (int)SvIV(ST(0));
3460 Uint16 format = (Uint16)SvUV(ST(1));
3461 int channels = (int)SvIV(ST(2));
3462 int chunksize = (int)SvIV(ST(3));
3465 #line 1843 "SDL_perl.xs"
3466 RETVAL = Mix_OpenAudio(frequency, format, channels, chunksize);
3467 #line 3468 "SDL_perl.c"
3468 XSprePUSH; PUSHi((IV)RETVAL);
3473 XS(XS_SDL_MixAllocateChannels); /* prototype to pass -Wmissing-prototypes */
3474 XS(XS_SDL_MixAllocateChannels)
3478 Perl_croak(aTHX_ "Usage: SDL::MixAllocateChannels(number)");
3480 int number = (int)SvIV(ST(0));
3483 #line 1851 "SDL_perl.xs"
3484 RETVAL = Mix_AllocateChannels(number);
3485 #line 3486 "SDL_perl.c"
3486 XSprePUSH; PUSHi((IV)RETVAL);
3491 XS(XS_SDL_MixQuerySpec); /* prototype to pass -Wmissing-prototypes */
3492 XS(XS_SDL_MixQuerySpec)
3496 Perl_croak(aTHX_ "Usage: SDL::MixQuerySpec()");
3499 #line 1858 "SDL_perl.xs"
3500 int freq, channels, status;
3502 status = Mix_QuerySpec(&freq,&format,&channels);
3504 av_push(RETVAL,newSViv(status));
3505 av_push(RETVAL,newSViv(freq));
3506 av_push(RETVAL,newSViv(format));
3507 av_push(RETVAL,newSViv(channels));
3508 #line 3509 "SDL_perl.c"
3509 ST(0) = newRV((SV*)RETVAL);
3515 XS(XS_SDL_MixLoadWAV); /* prototype to pass -Wmissing-prototypes */
3516 XS(XS_SDL_MixLoadWAV)
3520 Perl_croak(aTHX_ "Usage: SDL::MixLoadWAV(filename)");
3522 char * filename = (char *)SvPV_nolen(ST(0));
3525 #line 1873 "SDL_perl.xs"
3526 RETVAL = Mix_LoadWAV(filename);
3527 #line 3528 "SDL_perl.c"
3528 XSprePUSH; PUSHi(PTR2IV(RETVAL));
3533 XS(XS_SDL_MixLoadMusic); /* prototype to pass -Wmissing-prototypes */
3534 XS(XS_SDL_MixLoadMusic)
3538 Perl_croak(aTHX_ "Usage: SDL::MixLoadMusic(filename)");
3540 char * filename = (char *)SvPV_nolen(ST(0));
3543 #line 1881 "SDL_perl.xs"
3544 RETVAL = Mix_LoadMUS(filename);
3545 #line 3546 "SDL_perl.c"
3546 XSprePUSH; PUSHi(PTR2IV(RETVAL));
3551 XS(XS_SDL_MixQuickLoadWAV); /* prototype to pass -Wmissing-prototypes */
3552 XS(XS_SDL_MixQuickLoadWAV)
3556 Perl_croak(aTHX_ "Usage: SDL::MixQuickLoadWAV(buf)");
3558 Uint8 * buf = INT2PTR(Uint8 *,SvIV(ST(0)));
3561 #line 1889 "SDL_perl.xs"
3562 RETVAL = Mix_QuickLoad_WAV(buf);
3563 #line 3564 "SDL_perl.c"
3564 XSprePUSH; PUSHi(PTR2IV(RETVAL));
3569 XS(XS_SDL_MixFreeChunk); /* prototype to pass -Wmissing-prototypes */
3570 XS(XS_SDL_MixFreeChunk)
3574 Perl_croak(aTHX_ "Usage: SDL::MixFreeChunk(chunk)");
3576 Mix_Chunk * chunk = INT2PTR(Mix_Chunk *,SvIV(ST(0)));
3577 #line 1897 "SDL_perl.xs"
3578 Mix_FreeChunk(chunk);
3579 #line 3580 "SDL_perl.c"
3584 XS(XS_SDL_MixFreeMusic); /* prototype to pass -Wmissing-prototypes */
3585 XS(XS_SDL_MixFreeMusic)
3589 Perl_croak(aTHX_ "Usage: SDL::MixFreeMusic(music)");
3591 Mix_Music * music = INT2PTR(Mix_Music *,SvIV(ST(0)));
3592 #line 1903 "SDL_perl.xs"
3593 Mix_FreeMusic(music);
3594 #line 3595 "SDL_perl.c"
3599 XS(XS_SDL_MixSetPostMixCallback); /* prototype to pass -Wmissing-prototypes */
3600 XS(XS_SDL_MixSetPostMixCallback)
3604 Perl_croak(aTHX_ "Usage: SDL::MixSetPostMixCallback(func, arg)");
3606 void * func = INT2PTR(void *,SvIV(ST(0)));
3607 void * arg = INT2PTR(void *,SvIV(ST(1)));
3608 #line 1910 "SDL_perl.xs"
3609 Mix_SetPostMix(func,arg);
3610 #line 3611 "SDL_perl.c"
3615 XS(XS_SDL_PerlMixMusicHook); /* prototype to pass -Wmissing-prototypes */
3616 XS(XS_SDL_PerlMixMusicHook)
3620 Perl_croak(aTHX_ "Usage: SDL::PerlMixMusicHook()");
3624 #line 1915 "SDL_perl.xs"
3625 RETVAL = sdl_perl_music_callback;
3626 #line 3627 "SDL_perl.c"
3627 XSprePUSH; PUSHi(PTR2IV(RETVAL));
3632 XS(XS_SDL_MixSetMusicHook); /* prototype to pass -Wmissing-prototypes */
3633 XS(XS_SDL_MixSetMusicHook)
3637 Perl_croak(aTHX_ "Usage: SDL::MixSetMusicHook(func, arg)");
3639 void * func = INT2PTR(void *,SvIV(ST(0)));
3640 void * arg = INT2PTR(void *,SvIV(ST(1)));
3641 #line 1924 "SDL_perl.xs"
3642 Mix_HookMusic(func,arg);
3643 #line 3644 "SDL_perl.c"
3648 XS(XS_SDL_MixSetMusicFinishedHook); /* prototype to pass -Wmissing-prototypes */
3649 XS(XS_SDL_MixSetMusicFinishedHook)
3653 Perl_croak(aTHX_ "Usage: SDL::MixSetMusicFinishedHook(func)");
3655 void * func = INT2PTR(void *,SvIV(ST(0)));
3656 #line 1930 "SDL_perl.xs"
3657 mix_music_finished_cv = func;
3658 Mix_HookMusicFinished(sdl_perl_music_finished_callback);
3659 #line 3660 "SDL_perl.c"
3664 XS(XS_SDL_MixGetMusicHookData); /* prototype to pass -Wmissing-prototypes */
3665 XS(XS_SDL_MixGetMusicHookData)
3669 Perl_croak(aTHX_ "Usage: SDL::MixGetMusicHookData()");
3673 #line 1936 "SDL_perl.xs"
3674 RETVAL = Mix_GetMusicHookData();
3675 #line 3676 "SDL_perl.c"
3676 XSprePUSH; PUSHi(PTR2IV(RETVAL));
3681 XS(XS_SDL_MixReverseChannels); /* prototype to pass -Wmissing-prototypes */
3682 XS(XS_SDL_MixReverseChannels)
3686 Perl_croak(aTHX_ "Usage: SDL::MixReverseChannels(number)");
3688 int number = (int)SvIV(ST(0));
3691 #line 1944 "SDL_perl.xs"
3692 RETVAL = Mix_ReserveChannels ( number );
3693 #line 3694 "SDL_perl.c"
3694 XSprePUSH; PUSHi((IV)RETVAL);
3699 XS(XS_SDL_MixGroupChannel); /* prototype to pass -Wmissing-prototypes */
3700 XS(XS_SDL_MixGroupChannel)
3704 Perl_croak(aTHX_ "Usage: SDL::MixGroupChannel(which, tag)");
3706 int which = (int)SvIV(ST(0));
3707 int tag = (int)SvIV(ST(1));
3710 #line 1953 "SDL_perl.xs"
3711 RETVAL = Mix_GroupChannel(which,tag);
3712 #line 3713 "SDL_perl.c"
3713 XSprePUSH; PUSHi((IV)RETVAL);
3718 XS(XS_SDL_MixGroupChannels); /* prototype to pass -Wmissing-prototypes */
3719 XS(XS_SDL_MixGroupChannels)
3723 Perl_croak(aTHX_ "Usage: SDL::MixGroupChannels(from, to, tag)");
3725 int from = (int)SvIV(ST(0));
3726 int to = (int)SvIV(ST(1));
3727 int tag = (int)SvIV(ST(2));
3730 #line 1963 "SDL_perl.xs"
3731 RETVAL = Mix_GroupChannels(from,to,tag);
3732 #line 3733 "SDL_perl.c"
3733 XSprePUSH; PUSHi((IV)RETVAL);
3738 XS(XS_SDL_MixGroupAvailable); /* prototype to pass -Wmissing-prototypes */
3739 XS(XS_SDL_MixGroupAvailable)
3743 Perl_croak(aTHX_ "Usage: SDL::MixGroupAvailable(tag)");
3745 int tag = (int)SvIV(ST(0));
3748 #line 1971 "SDL_perl.xs"
3749 RETVAL = Mix_GroupAvailable(tag);
3750 #line 3751 "SDL_perl.c"
3751 XSprePUSH; PUSHi((IV)RETVAL);
3756 XS(XS_SDL_MixGroupCount); /* prototype to pass -Wmissing-prototypes */
3757 XS(XS_SDL_MixGroupCount)
3761 Perl_croak(aTHX_ "Usage: SDL::MixGroupCount(tag)");
3763 int tag = (int)SvIV(ST(0));
3766 #line 1979 "SDL_perl.xs"
3767 RETVAL = Mix_GroupCount(tag);
3768 #line 3769 "SDL_perl.c"
3769 XSprePUSH; PUSHi((IV)RETVAL);
3774 XS(XS_SDL_MixGroupOldest); /* prototype to pass -Wmissing-prototypes */
3775 XS(XS_SDL_MixGroupOldest)
3779 Perl_croak(aTHX_ "Usage: SDL::MixGroupOldest(tag)");
3781 int tag = (int)SvIV(ST(0));
3784 #line 1987 "SDL_perl.xs"
3785 RETVAL = Mix_GroupOldest(tag);
3786 #line 3787 "SDL_perl.c"
3787 XSprePUSH; PUSHi((IV)RETVAL);
3792 XS(XS_SDL_MixGroupNewer); /* prototype to pass -Wmissing-prototypes */
3793 XS(XS_SDL_MixGroupNewer)
3797 Perl_croak(aTHX_ "Usage: SDL::MixGroupNewer(tag)");
3799 int tag = (int)SvIV(ST(0));
3802 #line 1995 "SDL_perl.xs"
3803 RETVAL = Mix_GroupNewer(tag);
3804 #line 3805 "SDL_perl.c"
3805 XSprePUSH; PUSHi((IV)RETVAL);
3810 XS(XS_SDL_MixPlayChannel); /* prototype to pass -Wmissing-prototypes */
3811 XS(XS_SDL_MixPlayChannel)
3815 Perl_croak(aTHX_ "Usage: SDL::MixPlayChannel(channel, chunk, loops)");
3817 int channel = (int)SvIV(ST(0));
3818 Mix_Chunk * chunk = INT2PTR(Mix_Chunk *,SvIV(ST(1)));
3819 int loops = (int)SvIV(ST(2));
3822 #line 2005 "SDL_perl.xs"
3823 RETVAL = Mix_PlayChannel(channel,chunk,loops);
3824 #line 3825 "SDL_perl.c"
3825 XSprePUSH; PUSHi((IV)RETVAL);
3830 XS(XS_SDL_MixPlayChannelTimed); /* prototype to pass -Wmissing-prototypes */
3831 XS(XS_SDL_MixPlayChannelTimed)
3835 Perl_croak(aTHX_ "Usage: SDL::MixPlayChannelTimed(channel, chunk, loops, ticks)");
3837 int channel = (int)SvIV(ST(0));
3838 Mix_Chunk * chunk = INT2PTR(Mix_Chunk *,SvIV(ST(1)));
3839 int loops = (int)SvIV(ST(2));
3840 int ticks = (int)SvIV(ST(3));
3843 #line 2016 "SDL_perl.xs"
3844 RETVAL = Mix_PlayChannelTimed(channel,chunk,loops,ticks);
3845 #line 3846 "SDL_perl.c"
3846 XSprePUSH; PUSHi((IV)RETVAL);
3851 XS(XS_SDL_MixPlayMusic); /* prototype to pass -Wmissing-prototypes */
3852 XS(XS_SDL_MixPlayMusic)
3856 Perl_croak(aTHX_ "Usage: SDL::MixPlayMusic(music, loops)");
3858 Mix_Music * music = INT2PTR(Mix_Music *,SvIV(ST(0)));
3859 int loops = (int)SvIV(ST(1));
3862 #line 2025 "SDL_perl.xs"
3863 RETVAL = Mix_PlayMusic(music,loops);
3864 #line 3865 "SDL_perl.c"
3865 XSprePUSH; PUSHi((IV)RETVAL);
3870 XS(XS_SDL_MixFadeInChannel); /* prototype to pass -Wmissing-prototypes */
3871 XS(XS_SDL_MixFadeInChannel)
3875 Perl_croak(aTHX_ "Usage: SDL::MixFadeInChannel(channel, chunk, loops, ms)");
3877 int channel = (int)SvIV(ST(0));
3878 Mix_Chunk * chunk = INT2PTR(Mix_Chunk *,SvIV(ST(1)));
3879 int loops = (int)SvIV(ST(2));
3880 int ms = (int)SvIV(ST(3));
3883 #line 2036 "SDL_perl.xs"
3884 RETVAL = Mix_FadeInChannel(channel,chunk,loops,ms);
3885 #line 3886 "SDL_perl.c"
3886 XSprePUSH; PUSHi((IV)RETVAL);
3891 XS(XS_SDL_MixFadeInChannelTimed); /* prototype to pass -Wmissing-prototypes */
3892 XS(XS_SDL_MixFadeInChannelTimed)
3896 Perl_croak(aTHX_ "Usage: SDL::MixFadeInChannelTimed(channel, chunk, loops, ms, ticks)");
3898 int channel = (int)SvIV(ST(0));
3899 Mix_Chunk * chunk = INT2PTR(Mix_Chunk *,SvIV(ST(1)));
3900 int loops = (int)SvIV(ST(2));
3901 int ticks = (int)SvIV(ST(4));
3902 int ms = (int)SvIV(ST(3));
3905 #line 2048 "SDL_perl.xs"
3906 RETVAL = Mix_FadeInChannelTimed(channel,chunk,loops,ms,ticks);
3907 #line 3908 "SDL_perl.c"
3908 XSprePUSH; PUSHi((IV)RETVAL);
3913 XS(XS_SDL_MixFadeInMusic); /* prototype to pass -Wmissing-prototypes */
3914 XS(XS_SDL_MixFadeInMusic)
3918 Perl_croak(aTHX_ "Usage: SDL::MixFadeInMusic(music, loops, ms)");
3920 Mix_Music * music = INT2PTR(Mix_Music *,SvIV(ST(0)));
3921 int loops = (int)SvIV(ST(1));
3922 int ms = (int)SvIV(ST(2));
3925 #line 2058 "SDL_perl.xs"
3926 RETVAL = Mix_FadeInMusic(music,loops,ms);
3927 #line 3928 "SDL_perl.c"
3928 XSprePUSH; PUSHi((IV)RETVAL);
3933 XS(XS_SDL_MixVolume); /* prototype to pass -Wmissing-prototypes */
3934 XS(XS_SDL_MixVolume)
3938 Perl_croak(aTHX_ "Usage: SDL::MixVolume(channel, volume)");
3940 int channel = (int)SvIV(ST(0));
3941 int volume = (int)SvIV(ST(1));
3944 #line 2067 "SDL_perl.xs"
3945 RETVAL = Mix_Volume(channel,volume);
3946 #line 3947 "SDL_perl.c"
3947 XSprePUSH; PUSHi((IV)RETVAL);
3952 XS(XS_SDL_MixVolumeChunk); /* prototype to pass -Wmissing-prototypes */
3953 XS(XS_SDL_MixVolumeChunk)
3957 Perl_croak(aTHX_ "Usage: SDL::MixVolumeChunk(chunk, volume)");
3959 Mix_Chunk * chunk = INT2PTR(Mix_Chunk *,SvIV(ST(0)));
3960 int volume = (int)SvIV(ST(1));
3963 #line 2076 "SDL_perl.xs"
3964 RETVAL = Mix_VolumeChunk(chunk,volume);
3965 #line 3966 "SDL_perl.c"
3966 XSprePUSH; PUSHi((IV)RETVAL);
3971 XS(XS_SDL_MixVolumeMusic); /* prototype to pass -Wmissing-prototypes */
3972 XS(XS_SDL_MixVolumeMusic)
3976 Perl_croak(aTHX_ "Usage: SDL::MixVolumeMusic(volume)");
3978 int volume = (int)SvIV(ST(0));
3981 #line 2084 "SDL_perl.xs"
3982 RETVAL = Mix_VolumeMusic(volume);
3983 #line 3984 "SDL_perl.c"
3984 XSprePUSH; PUSHi((IV)RETVAL);
3989 XS(XS_SDL_MixHaltChannel); /* prototype to pass -Wmissing-prototypes */
3990 XS(XS_SDL_MixHaltChannel)
3994 Perl_croak(aTHX_ "Usage: SDL::MixHaltChannel(channel)");
3996 int channel = (int)SvIV(ST(0));
3999 #line 2092 "SDL_perl.xs"
4000 RETVAL = Mix_HaltChannel(channel);
4001 #line 4002 "SDL_perl.c"
4002 XSprePUSH; PUSHi((IV)RETVAL);
4007 XS(XS_SDL_MixHaltGroup); /* prototype to pass -Wmissing-prototypes */
4008 XS(XS_SDL_MixHaltGroup)
4012 Perl_croak(aTHX_ "Usage: SDL::MixHaltGroup(tag)");
4014 int tag = (int)SvIV(ST(0));
4017 #line 2100 "SDL_perl.xs"
4018 RETVAL = Mix_HaltGroup(tag);
4019 #line 4020 "SDL_perl.c"
4020 XSprePUSH; PUSHi((IV)RETVAL);
4025 XS(XS_SDL_MixHaltMusic); /* prototype to pass -Wmissing-prototypes */
4026 XS(XS_SDL_MixHaltMusic)
4030 Perl_croak(aTHX_ "Usage: SDL::MixHaltMusic()");
4034 #line 2107 "SDL_perl.xs"
4035 RETVAL = Mix_HaltMusic();
4036 #line 4037 "SDL_perl.c"
4037 XSprePUSH; PUSHi((IV)RETVAL);
4042 XS(XS_SDL_MixExpireChannel); /* prototype to pass -Wmissing-prototypes */
4043 XS(XS_SDL_MixExpireChannel)
4047 Perl_croak(aTHX_ "Usage: SDL::MixExpireChannel(channel, ticks)");
4049 int channel = (int)SvIV(ST(0));
4050 int ticks = (int)SvIV(ST(1));
4053 #line 2116 "SDL_perl.xs"
4054 RETVAL = Mix_ExpireChannel ( channel,ticks);
4055 #line 4056 "SDL_perl.c"
4056 XSprePUSH; PUSHi((IV)RETVAL);
4061 XS(XS_SDL_MixFadeOutChannel); /* prototype to pass -Wmissing-prototypes */
4062 XS(XS_SDL_MixFadeOutChannel)
4066 Perl_croak(aTHX_ "Usage: SDL::MixFadeOutChannel(which, ms)");
4068 int which = (int)SvIV(ST(0));
4069 int ms = (int)SvIV(ST(1));
4072 #line 2125 "SDL_perl.xs"
4073 RETVAL = Mix_FadeOutChannel(which,ms);
4074 #line 4075 "SDL_perl.c"
4075 XSprePUSH; PUSHi((IV)RETVAL);
4080 XS(XS_SDL_MixFadeOutGroup); /* prototype to pass -Wmissing-prototypes */
4081 XS(XS_SDL_MixFadeOutGroup)
4085 Perl_croak(aTHX_ "Usage: SDL::MixFadeOutGroup(which, ms)");
4087 int which = (int)SvIV(ST(0));
4088 int ms = (int)SvIV(ST(1));
4091 #line 2134 "SDL_perl.xs"
4092 RETVAL = Mix_FadeOutGroup(which,ms);
4093 #line 4094 "SDL_perl.c"
4094 XSprePUSH; PUSHi((IV)RETVAL);
4099 XS(XS_SDL_MixFadeOutMusic); /* prototype to pass -Wmissing-prototypes */
4100 XS(XS_SDL_MixFadeOutMusic)
4104 Perl_croak(aTHX_ "Usage: SDL::MixFadeOutMusic(ms)");
4106 int ms = (int)SvIV(ST(0));
4109 #line 2142 "SDL_perl.xs"
4110 RETVAL = Mix_FadeOutMusic(ms);
4111 #line 4112 "SDL_perl.c"
4112 XSprePUSH; PUSHi((IV)RETVAL);
4117 XS(XS_SDL_MixFadingMusic); /* prototype to pass -Wmissing-prototypes */
4118 XS(XS_SDL_MixFadingMusic)
4122 Perl_croak(aTHX_ "Usage: SDL::MixFadingMusic()");
4126 #line 2149 "SDL_perl.xs"
4127 RETVAL = Mix_FadingMusic();
4128 #line 4129 "SDL_perl.c"
4129 XSprePUSH; PUSHu((UV)RETVAL);
4134 XS(XS_SDL_MixFadingChannel); /* prototype to pass -Wmissing-prototypes */
4135 XS(XS_SDL_MixFadingChannel)
4139 Perl_croak(aTHX_ "Usage: SDL::MixFadingChannel(which)");
4141 int which = (int)SvIV(ST(0));
4144 #line 2157 "SDL_perl.xs"
4145 RETVAL = Mix_FadingChannel(which);
4146 #line 4147 "SDL_perl.c"
4147 XSprePUSH; PUSHu((UV)RETVAL);
4152 XS(XS_SDL_MixPause); /* prototype to pass -Wmissing-prototypes */
4157 Perl_croak(aTHX_ "Usage: SDL::MixPause(channel)");
4159 int channel = (int)SvIV(ST(0));
4160 #line 2165 "SDL_perl.xs"
4162 #line 4163 "SDL_perl.c"
4167 XS(XS_SDL_MixResume); /* prototype to pass -Wmissing-prototypes */
4168 XS(XS_SDL_MixResume)
4172 Perl_croak(aTHX_ "Usage: SDL::MixResume(channel)");
4174 int channel = (int)SvIV(ST(0));
4175 #line 2171 "SDL_perl.xs"
4176 Mix_Resume(channel);
4177 #line 4178 "SDL_perl.c"
4182 XS(XS_SDL_MixPaused); /* prototype to pass -Wmissing-prototypes */
4183 XS(XS_SDL_MixPaused)
4187 Perl_croak(aTHX_ "Usage: SDL::MixPaused(channel)");
4189 int channel = (int)SvIV(ST(0));
4192 #line 2177 "SDL_perl.xs"
4193 RETVAL = Mix_Paused(channel);
4194 #line 4195 "SDL_perl.c"
4195 XSprePUSH; PUSHi((IV)RETVAL);
4200 XS(XS_SDL_MixPauseMusic); /* prototype to pass -Wmissing-prototypes */
4201 XS(XS_SDL_MixPauseMusic)
4205 Perl_croak(aTHX_ "Usage: SDL::MixPauseMusic()");
4207 #line 2184 "SDL_perl.xs"
4209 #line 4210 "SDL_perl.c"
4214 XS(XS_SDL_MixResumeMusic); /* prototype to pass -Wmissing-prototypes */
4215 XS(XS_SDL_MixResumeMusic)
4219 Perl_croak(aTHX_ "Usage: SDL::MixResumeMusic()");
4221 #line 2189 "SDL_perl.xs"
4223 #line 4224 "SDL_perl.c"
4228 XS(XS_SDL_MixRewindMusic); /* prototype to pass -Wmissing-prototypes */
4229 XS(XS_SDL_MixRewindMusic)
4233 Perl_croak(aTHX_ "Usage: SDL::MixRewindMusic()");
4235 #line 2194 "SDL_perl.xs"
4237 #line 4238 "SDL_perl.c"
4242 XS(XS_SDL_MixPausedMusic); /* prototype to pass -Wmissing-prototypes */
4243 XS(XS_SDL_MixPausedMusic)
4247 Perl_croak(aTHX_ "Usage: SDL::MixPausedMusic()");
4251 #line 2199 "SDL_perl.xs"
4252 RETVAL = Mix_PausedMusic();
4253 #line 4254 "SDL_perl.c"
4254 XSprePUSH; PUSHi((IV)RETVAL);
4259 XS(XS_SDL_MixPlaying); /* prototype to pass -Wmissing-prototypes */
4260 XS(XS_SDL_MixPlaying)
4264 Perl_croak(aTHX_ "Usage: SDL::MixPlaying(channel)");
4266 int channel = (int)SvIV(ST(0));
4269 #line 2207 "SDL_perl.xs"
4270 RETVAL = Mix_Playing(channel);
4271 #line 4272 "SDL_perl.c"
4272 XSprePUSH; PUSHi((IV)RETVAL);
4277 XS(XS_SDL_MixPlayingMusic); /* prototype to pass -Wmissing-prototypes */
4278 XS(XS_SDL_MixPlayingMusic)
4282 Perl_croak(aTHX_ "Usage: SDL::MixPlayingMusic()");
4286 #line 2214 "SDL_perl.xs"
4287 RETVAL = Mix_PlayingMusic();
4288 #line 4289 "SDL_perl.c"
4289 XSprePUSH; PUSHi((IV)RETVAL);
4294 XS(XS_SDL_MixCloseAudio); /* prototype to pass -Wmissing-prototypes */
4295 XS(XS_SDL_MixCloseAudio)
4299 Perl_croak(aTHX_ "Usage: SDL::MixCloseAudio()");
4301 #line 2222 "SDL_perl.xs"
4303 #line 4304 "SDL_perl.c"
4309 XS(XS_SDL_GLLoadLibrary); /* prototype to pass -Wmissing-prototypes */
4310 XS(XS_SDL_GLLoadLibrary)
4314 Perl_croak(aTHX_ "Usage: SDL::GLLoadLibrary(path)");
4316 char * path = (char *)SvPV_nolen(ST(0));
4319 #line 2230 "SDL_perl.xs"
4320 RETVAL = SDL_GL_LoadLibrary(path);
4321 #line 4322 "SDL_perl.c"
4322 XSprePUSH; PUSHi((IV)RETVAL);
4327 XS(XS_SDL_GLGetProcAddress); /* prototype to pass -Wmissing-prototypes */
4328 XS(XS_SDL_GLGetProcAddress)
4332 Perl_croak(aTHX_ "Usage: SDL::GLGetProcAddress(proc)");
4334 char * proc = (char *)SvPV_nolen(ST(0));
4337 #line 2238 "SDL_perl.xs"
4338 RETVAL = SDL_GL_GetProcAddress(proc);
4339 #line 4340 "SDL_perl.c"
4340 XSprePUSH; PUSHi(PTR2IV(RETVAL));
4345 XS(XS_SDL_GLSetAttribute); /* prototype to pass -Wmissing-prototypes */
4346 XS(XS_SDL_GLSetAttribute)
4350 Perl_croak(aTHX_ "Usage: SDL::GLSetAttribute(attr, value)");
4352 int attr = (int)SvIV(ST(0));
4353 int value = (int)SvIV(ST(1));
4356 #line 2247 "SDL_perl.xs"
4357 RETVAL = SDL_GL_SetAttribute(attr, value);
4358 #line 4359 "SDL_perl.c"
4359 XSprePUSH; PUSHi((IV)RETVAL);
4364 XS(XS_SDL_GLGetAttribute); /* prototype to pass -Wmissing-prototypes */
4365 XS(XS_SDL_GLGetAttribute)
4369 Perl_croak(aTHX_ "Usage: SDL::GLGetAttribute(attr)");
4371 int attr = (int)SvIV(ST(0));
4373 #line 2255 "SDL_perl.xs"
4376 av_push(RETVAL,newSViv(SDL_GL_GetAttribute(attr, &value)));
4377 av_push(RETVAL,newSViv(value));
4378 #line 4379 "SDL_perl.c"
4379 ST(0) = newRV((SV*)RETVAL);
4385 XS(XS_SDL_GLSwapBuffers); /* prototype to pass -Wmissing-prototypes */
4386 XS(XS_SDL_GLSwapBuffers)
4390 Perl_croak(aTHX_ "Usage: SDL::GLSwapBuffers()");
4392 #line 2265 "SDL_perl.xs"
4393 SDL_GL_SwapBuffers ();
4394 #line 4395 "SDL_perl.c"
4399 XS(XS_SDL_BigEndian); /* prototype to pass -Wmissing-prototypes */
4400 XS(XS_SDL_BigEndian)
4404 Perl_croak(aTHX_ "Usage: SDL::BigEndian()");
4408 #line 2271 "SDL_perl.xs"
4409 RETVAL = (SDL_BYTEORDER == SDL_BIG_ENDIAN);
4410 #line 4411 "SDL_perl.c"
4411 XSprePUSH; PUSHi((IV)RETVAL);
4416 XS(XS_SDL_NumJoysticks); /* prototype to pass -Wmissing-prototypes */
4417 XS(XS_SDL_NumJoysticks)
4421 Perl_croak(aTHX_ "Usage: SDL::NumJoysticks()");
4425 #line 2278 "SDL_perl.xs"
4426 RETVAL = SDL_NumJoysticks();
4427 #line 4428 "SDL_perl.c"
4428 XSprePUSH; PUSHi((IV)RETVAL);
4433 XS(XS_SDL_JoystickName); /* prototype to pass -Wmissing-prototypes */
4434 XS(XS_SDL_JoystickName)
4438 Perl_croak(aTHX_ "Usage: SDL::JoystickName(index)");
4440 int index = (int)SvIV(ST(0));
4443 #line 2286 "SDL_perl.xs"
4444 RETVAL = (char*)SDL_JoystickName(index);
4445 #line 4446 "SDL_perl.c"
4446 sv_setpv(TARG, RETVAL); XSprePUSH; PUSHTARG;
4451 XS(XS_SDL_JoystickOpen); /* prototype to pass -Wmissing-prototypes */
4452 XS(XS_SDL_JoystickOpen)
4456 Perl_croak(aTHX_ "Usage: SDL::JoystickOpen(index)");
4458 int index = (int)SvIV(ST(0));
4459 SDL_Joystick * RETVAL;
4461 #line 2294 "SDL_perl.xs"
4462 RETVAL = SDL_JoystickOpen(index);
4463 #line 4464 "SDL_perl.c"
4464 XSprePUSH; PUSHi(PTR2IV(RETVAL));
4469 XS(XS_SDL_JoystickOpened); /* prototype to pass -Wmissing-prototypes */
4470 XS(XS_SDL_JoystickOpened)
4474 Perl_croak(aTHX_ "Usage: SDL::JoystickOpened(index)");
4476 int index = (int)SvIV(ST(0));
4479 #line 2302 "SDL_perl.xs"
4480 RETVAL = SDL_JoystickOpened(index);
4481 #line 4482 "SDL_perl.c"
4482 XSprePUSH; PUSHi((IV)RETVAL);
4487 XS(XS_SDL_JoystickIndex); /* prototype to pass -Wmissing-prototypes */
4488 XS(XS_SDL_JoystickIndex)
4492 Perl_croak(aTHX_ "Usage: SDL::JoystickIndex(joystick)");
4494 SDL_Joystick * joystick = INT2PTR(SDL_Joystick *,SvIV(ST(0)));
4497 #line 2310 "SDL_perl.xs"
4498 RETVAL = SDL_JoystickIndex(joystick);
4499 #line 4500 "SDL_perl.c"
4500 XSprePUSH; PUSHi((IV)RETVAL);
4505 XS(XS_SDL_JoystickNumAxes); /* prototype to pass -Wmissing-prototypes */
4506 XS(XS_SDL_JoystickNumAxes)
4510 Perl_croak(aTHX_ "Usage: SDL::JoystickNumAxes(joystick)");
4512 SDL_Joystick * joystick = INT2PTR(SDL_Joystick *,SvIV(ST(0)));
4515 #line 2318 "SDL_perl.xs"
4516 RETVAL = SDL_JoystickNumAxes(joystick);
4517 #line 4518 "SDL_perl.c"
4518 XSprePUSH; PUSHi((IV)RETVAL);
4523 XS(XS_SDL_JoystickNumBalls); /* prototype to pass -Wmissing-prototypes */
4524 XS(XS_SDL_JoystickNumBalls)
4528 Perl_croak(aTHX_ "Usage: SDL::JoystickNumBalls(joystick)");
4530 SDL_Joystick * joystick = INT2PTR(SDL_Joystick *,SvIV(ST(0)));
4533 #line 2326 "SDL_perl.xs"
4534 RETVAL = SDL_JoystickNumBalls(joystick);
4535 #line 4536 "SDL_perl.c"
4536 XSprePUSH; PUSHi((IV)RETVAL);
4541 XS(XS_SDL_JoystickNumHats); /* prototype to pass -Wmissing-prototypes */
4542 XS(XS_SDL_JoystickNumHats)
4546 Perl_croak(aTHX_ "Usage: SDL::JoystickNumHats(joystick)");
4548 SDL_Joystick * joystick = INT2PTR(SDL_Joystick *,SvIV(ST(0)));
4551 #line 2334 "SDL_perl.xs"
4552 RETVAL = SDL_JoystickNumHats(joystick);
4553 #line 4554 "SDL_perl.c"
4554 XSprePUSH; PUSHi((IV)RETVAL);
4559 XS(XS_SDL_JoystickNumButtons); /* prototype to pass -Wmissing-prototypes */
4560 XS(XS_SDL_JoystickNumButtons)
4564 Perl_croak(aTHX_ "Usage: SDL::JoystickNumButtons(joystick)");
4566 SDL_Joystick * joystick = INT2PTR(SDL_Joystick *,SvIV(ST(0)));
4569 #line 2342 "SDL_perl.xs"
4570 RETVAL = SDL_JoystickNumButtons(joystick);
4571 #line 4572 "SDL_perl.c"
4572 XSprePUSH; PUSHi((IV)RETVAL);
4577 XS(XS_SDL_JoystickUpdate); /* prototype to pass -Wmissing-prototypes */
4578 XS(XS_SDL_JoystickUpdate)
4582 Perl_croak(aTHX_ "Usage: SDL::JoystickUpdate()");
4584 #line 2349 "SDL_perl.xs"
4585 SDL_JoystickUpdate();
4586 #line 4587 "SDL_perl.c"
4591 XS(XS_SDL_JoystickGetAxis); /* prototype to pass -Wmissing-prototypes */
4592 XS(XS_SDL_JoystickGetAxis)
4596 Perl_croak(aTHX_ "Usage: SDL::JoystickGetAxis(joystick, axis)");
4598 SDL_Joystick * joystick = INT2PTR(SDL_Joystick *,SvIV(ST(0)));
4599 int axis = (int)SvIV(ST(1));
4602 #line 2356 "SDL_perl.xs"
4603 RETVAL = SDL_JoystickGetAxis(joystick,axis);
4604 #line 4605 "SDL_perl.c"
4605 XSprePUSH; PUSHi((IV)RETVAL);
4610 XS(XS_SDL_JoystickGetHat); /* prototype to pass -Wmissing-prototypes */
4611 XS(XS_SDL_JoystickGetHat)
4615 Perl_croak(aTHX_ "Usage: SDL::JoystickGetHat(joystick, hat)");
4617 SDL_Joystick * joystick = INT2PTR(SDL_Joystick *,SvIV(ST(0)));
4618 int hat = (int)SvIV(ST(1));
4621 #line 2365 "SDL_perl.xs"
4622 RETVAL = SDL_JoystickGetHat(joystick,hat);
4623 #line 4624 "SDL_perl.c"
4624 XSprePUSH; PUSHu((UV)RETVAL);
4629 XS(XS_SDL_JoystickGetButton); /* prototype to pass -Wmissing-prototypes */
4630 XS(XS_SDL_JoystickGetButton)
4634 Perl_croak(aTHX_ "Usage: SDL::JoystickGetButton(joystick, button)");
4636 SDL_Joystick * joystick = INT2PTR(SDL_Joystick *,SvIV(ST(0)));
4637 int button = (int)SvIV(ST(1));
4640 #line 2374 "SDL_perl.xs"
4641 RETVAL = SDL_JoystickGetButton(joystick,button);
4642 #line 4643 "SDL_perl.c"
4643 XSprePUSH; PUSHu((UV)RETVAL);
4648 XS(XS_SDL_JoystickGetBall); /* prototype to pass -Wmissing-prototypes */
4649 XS(XS_SDL_JoystickGetBall)
4653 Perl_croak(aTHX_ "Usage: SDL::JoystickGetBall(joystick, ball)");
4655 SDL_Joystick * joystick = INT2PTR(SDL_Joystick *,SvIV(ST(0)));
4656 int ball = (int)SvIV(ST(1));
4658 #line 2383 "SDL_perl.xs"
4660 success = SDL_JoystickGetBall(joystick,ball,&dx,&dy);
4662 av_push(RETVAL,newSViv(success));
4663 av_push(RETVAL,newSViv(dx));
4664 av_push(RETVAL,newSViv(dy));
4665 #line 4666 "SDL_perl.c"
4666 ST(0) = newRV((SV*)RETVAL);
4672 XS(XS_SDL_JoystickClose); /* prototype to pass -Wmissing-prototypes */
4673 XS(XS_SDL_JoystickClose)
4677 Perl_croak(aTHX_ "Usage: SDL::JoystickClose(joystick)");
4679 SDL_Joystick * joystick = INT2PTR(SDL_Joystick *,SvIV(ST(0)));
4680 #line 2396 "SDL_perl.xs"
4681 SDL_JoystickClose(joystick);
4682 #line 4683 "SDL_perl.c"
4687 XS(XS_SDL_JoyAxisEventWhich); /* prototype to pass -Wmissing-prototypes */
4688 XS(XS_SDL_JoyAxisEventWhich)
4692 Perl_croak(aTHX_ "Usage: SDL::JoyAxisEventWhich(e)");
4694 SDL_Event * e = INT2PTR(SDL_Event *,SvIV(ST(0)));
4697 #line 2402 "SDL_perl.xs"
4698 RETVAL = e->jaxis.which;
4699 #line 4700 "SDL_perl.c"
4700 XSprePUSH; PUSHi((IV)RETVAL);
4705 XS(XS_SDL_JoyAxisEventAxis); /* prototype to pass -Wmissing-prototypes */
4706 XS(XS_SDL_JoyAxisEventAxis)
4710 Perl_croak(aTHX_ "Usage: SDL::JoyAxisEventAxis(e)");
4712 SDL_Event * e = INT2PTR(SDL_Event *,SvIV(ST(0)));
4715 #line 2410 "SDL_perl.xs"
4716 RETVAL = e->jaxis.axis;
4717 #line 4718 "SDL_perl.c"
4718 XSprePUSH; PUSHu((UV)RETVAL);
4723 XS(XS_SDL_JoyAxisEventValue); /* prototype to pass -Wmissing-prototypes */
4724 XS(XS_SDL_JoyAxisEventValue)
4728 Perl_croak(aTHX_ "Usage: SDL::JoyAxisEventValue(e)");
4730 SDL_Event * e = INT2PTR(SDL_Event *,SvIV(ST(0)));
4733 #line 2418 "SDL_perl.xs"
4734 RETVAL = e->jaxis.value;
4735 #line 4736 "SDL_perl.c"
4736 XSprePUSH; PUSHu((UV)RETVAL);
4741 XS(XS_SDL_JoyButtonEventWhich); /* prototype to pass -Wmissing-prototypes */
4742 XS(XS_SDL_JoyButtonEventWhich)
4746 Perl_croak(aTHX_ "Usage: SDL::JoyButtonEventWhich(e)");
4748 SDL_Event * e = INT2PTR(SDL_Event *,SvIV(ST(0)));
4751 #line 2426 "SDL_perl.xs"
4752 RETVAL = e->jbutton.which;
4753 #line 4754 "SDL_perl.c"
4754 XSprePUSH; PUSHu((UV)RETVAL);
4759 XS(XS_SDL_JoyButtonEventButton); /* prototype to pass -Wmissing-prototypes */
4760 XS(XS_SDL_JoyButtonEventButton)
4764 Perl_croak(aTHX_ "Usage: SDL::JoyButtonEventButton(e)");
4766 SDL_Event * e = INT2PTR(SDL_Event *,SvIV(ST(0)));
4769 #line 2434 "SDL_perl.xs"
4770 RETVAL = e->jbutton.button;
4771 #line 4772 "SDL_perl.c"
4772 XSprePUSH; PUSHu((UV)RETVAL);
4777 XS(XS_SDL_JoyButtonEventState); /* prototype to pass -Wmissing-prototypes */
4778 XS(XS_SDL_JoyButtonEventState)
4782 Perl_croak(aTHX_ "Usage: SDL::JoyButtonEventState(e)");
4784 SDL_Event * e = INT2PTR(SDL_Event *,SvIV(ST(0)));
4787 #line 2442 "SDL_perl.xs"
4788 RETVAL = e->jbutton.state;
4789 #line 4790 "SDL_perl.c"
4790 XSprePUSH; PUSHu((UV)RETVAL);
4795 XS(XS_SDL_JoyHatEventWhich); /* prototype to pass -Wmissing-prototypes */
4796 XS(XS_SDL_JoyHatEventWhich)
4800 Perl_croak(aTHX_ "Usage: SDL::JoyHatEventWhich(e)");
4802 SDL_Event * e = INT2PTR(SDL_Event *,SvIV(ST(0)));
4805 #line 2450 "SDL_perl.xs"
4806 RETVAL = e->jhat.which;
4807 #line 4808 "SDL_perl.c"
4808 XSprePUSH; PUSHu((UV)RETVAL);
4813 XS(XS_SDL_JoyHatEventHat); /* prototype to pass -Wmissing-prototypes */
4814 XS(XS_SDL_JoyHatEventHat)
4818 Perl_croak(aTHX_ "Usage: SDL::JoyHatEventHat(e)");
4820 SDL_Event * e = INT2PTR(SDL_Event *,SvIV(ST(0)));
4823 #line 2458 "SDL_perl.xs"
4824 RETVAL = e->jhat.hat;
4825 #line 4826 "SDL_perl.c"
4826 XSprePUSH; PUSHu((UV)RETVAL);
4831 XS(XS_SDL_JoyHatEventValue); /* prototype to pass -Wmissing-prototypes */
4832 XS(XS_SDL_JoyHatEventValue)
4836 Perl_croak(aTHX_ "Usage: SDL::JoyHatEventValue(e)");
4838 SDL_Event * e = INT2PTR(SDL_Event *,SvIV(ST(0)));
4841 #line 2466 "SDL_perl.xs"
4842 RETVAL = e->jhat.value;
4843 #line 4844 "SDL_perl.c"
4844 XSprePUSH; PUSHu((UV)RETVAL);
4849 XS(XS_SDL_JoyBallEventWhich); /* prototype to pass -Wmissing-prototypes */
4850 XS(XS_SDL_JoyBallEventWhich)
4854 Perl_croak(aTHX_ "Usage: SDL::JoyBallEventWhich(e)");
4856 SDL_Event * e = INT2PTR(SDL_Event *,SvIV(ST(0)));
4859 #line 2474 "SDL_perl.xs"
4860 RETVAL = e->jball.which;
4861 #line 4862 "SDL_perl.c"
4862 XSprePUSH; PUSHu((UV)RETVAL);
4867 XS(XS_SDL_JoyBallEventBall); /* prototype to pass -Wmissing-prototypes */
4868 XS(XS_SDL_JoyBallEventBall)
4872 Perl_croak(aTHX_ "Usage: SDL::JoyBallEventBall(e)");
4874 SDL_Event * e = INT2PTR(SDL_Event *,SvIV(ST(0)));
4877 #line 2482 "SDL_perl.xs"
4878 RETVAL = e->jball.ball;
4879 #line 4880 "SDL_perl.c"
4880 XSprePUSH; PUSHu((UV)RETVAL);
4885 XS(XS_SDL_JoyBallEventXrel); /* prototype to pass -Wmissing-prototypes */
4886 XS(XS_SDL_JoyBallEventXrel)
4890 Perl_croak(aTHX_ "Usage: SDL::JoyBallEventXrel(e)");
4892 SDL_Event * e = INT2PTR(SDL_Event *,SvIV(ST(0)));
4895 #line 2490 "SDL_perl.xs"
4896 RETVAL = e->jball.xrel;
4897 #line 4898 "SDL_perl.c"
4898 XSprePUSH; PUSHi((IV)RETVAL);
4903 XS(XS_SDL_JoyBallEventYrel); /* prototype to pass -Wmissing-prototypes */
4904 XS(XS_SDL_JoyBallEventYrel)
4908 Perl_croak(aTHX_ "Usage: SDL::JoyBallEventYrel(e)");
4910 SDL_Event * e = INT2PTR(SDL_Event *,SvIV(ST(0)));
4913 #line 2498 "SDL_perl.xs"
4914 RETVAL = e->jball.yrel;
4915 #line 4916 "SDL_perl.c"
4916 XSprePUSH; PUSHi((IV)RETVAL);
4921 XS(XS_SDL_SetClipRect); /* prototype to pass -Wmissing-prototypes */
4922 XS(XS_SDL_SetClipRect)
4926 Perl_croak(aTHX_ "Usage: SDL::SetClipRect(surface, rect)");
4928 SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0)));
4929 SDL_Rect * rect = INT2PTR(SDL_Rect *,SvIV(ST(1)));
4930 #line 2507 "SDL_perl.xs"
4931 SDL_SetClipRect(surface,rect);
4932 #line 4933 "SDL_perl.c"
4937 XS(XS_SDL_GetClipRect); /* prototype to pass -Wmissing-prototypes */
4938 XS(XS_SDL_GetClipRect)
4942 Perl_croak(aTHX_ "Usage: SDL::GetClipRect(surface)");
4944 SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0)));
4947 #line 2513 "SDL_perl.xs"
4948 RETVAL = (SDL_Rect*) safemalloc(sizeof(SDL_Rect));
4949 SDL_GetClipRect(surface,RETVAL);
4950 #line 4951 "SDL_perl.c"
4951 XSprePUSH; PUSHi(PTR2IV(RETVAL));
4957 #define XSubPPtmpAAAC 1
4959 XS(XS_SDL_NetInit); /* prototype to pass -Wmissing-prototypes */
4964 Perl_croak(aTHX_ "Usage: SDL::NetInit()");
4968 #line 2524 "SDL_perl.xs"
4969 RETVAL = SDLNet_Init();
4970 #line 4971 "SDL_perl.c"
4971 XSprePUSH; PUSHi((IV)RETVAL);
4976 XS(XS_SDL_NetQuit); /* prototype to pass -Wmissing-prototypes */
4981 Perl_croak(aTHX_ "Usage: SDL::NetQuit()");
4983 #line 2531 "SDL_perl.xs"
4985 #line 4986 "SDL_perl.c"
4990 XS(XS_SDL_NetNewIPaddress); /* prototype to pass -Wmissing-prototypes */
4991 XS(XS_SDL_NetNewIPaddress)
4995 Perl_croak(aTHX_ "Usage: SDL::NetNewIPaddress(host, port)");
4997 Uint32 host = (Uint32)SvUV(ST(0));
4998 Uint16 port = (Uint16)SvUV(ST(1));
5001 #line 2538 "SDL_perl.xs"
5002 RETVAL = (IPaddress*) safemalloc(sizeof(IPaddress));
5003 RETVAL->host = host;
5004 RETVAL->port = port;
5005 #line 5006 "SDL_perl.c"
5006 XSprePUSH; PUSHi(PTR2IV(RETVAL));
5011 XS(XS_SDL_NetIPaddressHost); /* prototype to pass -Wmissing-prototypes */
5012 XS(XS_SDL_NetIPaddressHost)
5016 Perl_croak(aTHX_ "Usage: SDL::NetIPaddressHost(ip)");
5018 IPaddress * ip = INT2PTR(IPaddress *,SvIV(ST(0)));
5021 #line 2548 "SDL_perl.xs"
5023 #line 5024 "SDL_perl.c"
5024 XSprePUSH; PUSHu((UV)RETVAL);
5029 XS(XS_SDL_NetIPaddressPort); /* prototype to pass -Wmissing-prototypes */
5030 XS(XS_SDL_NetIPaddressPort)
5034 Perl_croak(aTHX_ "Usage: SDL::NetIPaddressPort(ip)");
5036 IPaddress * ip = INT2PTR(IPaddress *,SvIV(ST(0)));
5039 #line 2556 "SDL_perl.xs"
5041 #line 5042 "SDL_perl.c"
5042 XSprePUSH; PUSHu((UV)RETVAL);
5047 XS(XS_SDL_NetFreeIPaddress); /* prototype to pass -Wmissing-prototypes */
5048 XS(XS_SDL_NetFreeIPaddress)
5052 Perl_croak(aTHX_ "Usage: SDL::NetFreeIPaddress(ip)");
5054 IPaddress * ip = INT2PTR(IPaddress *,SvIV(ST(0)));
5055 #line 2564 "SDL_perl.xs"
5057 #line 5058 "SDL_perl.c"
5062 XS(XS_SDL_NetResolveIP); /* prototype to pass -Wmissing-prototypes */
5063 XS(XS_SDL_NetResolveIP)
5067 Perl_croak(aTHX_ "Usage: SDL::NetResolveIP(address)");
5069 IPaddress * address = INT2PTR(IPaddress *,SvIV(ST(0)));
5070 const char * RETVAL;
5072 #line 2570 "SDL_perl.xs"
5073 RETVAL = SDLNet_ResolveIP(address);
5074 #line 5075 "SDL_perl.c"
5075 sv_setpv(TARG, RETVAL); XSprePUSH; PUSHTARG;
5080 XS(XS_SDL_NetResolveHost); /* prototype to pass -Wmissing-prototypes */
5081 XS(XS_SDL_NetResolveHost)
5085 Perl_croak(aTHX_ "Usage: SDL::NetResolveHost(address, host, port)");
5087 IPaddress * address = INT2PTR(IPaddress *,SvIV(ST(0)));
5088 const char * host = (const char *)SvPV_nolen(ST(1));
5089 Uint16 port = (Uint16)SvUV(ST(2));
5092 #line 2580 "SDL_perl.xs"
5093 RETVAL = SDLNet_ResolveHost(address,host,port);
5094 #line 5095 "SDL_perl.c"
5095 XSprePUSH; PUSHi((IV)RETVAL);
5100 XS(XS_SDL_NetTCPOpen); /* prototype to pass -Wmissing-prototypes */
5101 XS(XS_SDL_NetTCPOpen)
5105 Perl_croak(aTHX_ "Usage: SDL::NetTCPOpen(ip)");
5107 IPaddress * ip = INT2PTR(IPaddress *,SvIV(ST(0)));
5110 #line 2588 "SDL_perl.xs"
5111 RETVAL = SDLNet_TCP_Open(ip);
5112 #line 5113 "SDL_perl.c"
5113 XSprePUSH; PUSHi(PTR2IV(RETVAL));
5118 XS(XS_SDL_NetTCPAccept); /* prototype to pass -Wmissing-prototypes */
5119 XS(XS_SDL_NetTCPAccept)
5123 Perl_croak(aTHX_ "Usage: SDL::NetTCPAccept(server)");
5125 TCPsocket server = INT2PTR(TCPsocket,SvIV(ST(0)));
5128 #line 2596 "SDL_perl.xs"
5129 RETVAL = SDLNet_TCP_Accept(server);
5130 #line 5131 "SDL_perl.c"
5131 XSprePUSH; PUSHi(PTR2IV(RETVAL));
5136 XS(XS_SDL_NetTCPGetPeerAddress); /* prototype to pass -Wmissing-prototypes */
5137 XS(XS_SDL_NetTCPGetPeerAddress)
5141 Perl_croak(aTHX_ "Usage: SDL::NetTCPGetPeerAddress(sock)");
5143 TCPsocket sock = INT2PTR(TCPsocket,SvIV(ST(0)));
5146 #line 2604 "SDL_perl.xs"
5147 RETVAL = SDLNet_TCP_GetPeerAddress(sock);
5148 #line 5149 "SDL_perl.c"
5149 XSprePUSH; PUSHi(PTR2IV(RETVAL));
5154 XS(XS_SDL_NetTCPSend); /* prototype to pass -Wmissing-prototypes */
5155 XS(XS_SDL_NetTCPSend)
5159 Perl_croak(aTHX_ "Usage: SDL::NetTCPSend(sock, data, len)");
5161 TCPsocket sock = INT2PTR(TCPsocket,SvIV(ST(0)));
5162 void * data = INT2PTR(void *,SvIV(ST(1)));
5163 int len = (int)SvIV(ST(2));
5166 #line 2614 "SDL_perl.xs"
5167 RETVAL = SDLNet_TCP_Send(sock,data,len);
5168 #line 5169 "SDL_perl.c"
5169 XSprePUSH; PUSHi((IV)RETVAL);
5174 XS(XS_SDL_NetTCPRecv); /* prototype to pass -Wmissing-prototypes */
5175 XS(XS_SDL_NetTCPRecv)
5179 Perl_croak(aTHX_ "Usage: SDL::NetTCPRecv(sock, maxlen)");
5181 TCPsocket sock = INT2PTR(TCPsocket,SvIV(ST(0)));
5182 int maxlen = (int)SvIV(ST(1));
5184 #line 2623 "SDL_perl.xs"
5187 buffer = safemalloc(maxlen);
5189 status = SDLNet_TCP_Recv(sock,buffer,maxlen);
5190 av_push(RETVAL,newSViv(status));
5191 av_push(RETVAL,newSVpvn((char*)buffer,maxlen));
5192 #line 5193 "SDL_perl.c"
5193 ST(0) = newRV((SV*)RETVAL);
5199 XS(XS_SDL_NetTCPClose); /* prototype to pass -Wmissing-prototypes */
5200 XS(XS_SDL_NetTCPClose)
5204 Perl_croak(aTHX_ "Usage: SDL::NetTCPClose(sock)");
5206 TCPsocket sock = INT2PTR(TCPsocket,SvIV(ST(0)));
5207 #line 2637 "SDL_perl.xs"
5208 SDLNet_TCP_Close(sock);
5209 #line 5210 "SDL_perl.c"
5214 XS(XS_SDL_NetAllocPacket); /* prototype to pass -Wmissing-prototypes */
5215 XS(XS_SDL_NetAllocPacket)
5219 Perl_croak(aTHX_ "Usage: SDL::NetAllocPacket(size)");
5221 int size = (int)SvIV(ST(0));
5224 #line 2643 "SDL_perl.xs"
5225 RETVAL = SDLNet_AllocPacket(size);
5226 #line 5227 "SDL_perl.c"
5227 XSprePUSH; PUSHi(PTR2IV(RETVAL));
5232 XS(XS_SDL_NetAllocPacketV); /* prototype to pass -Wmissing-prototypes */
5233 XS(XS_SDL_NetAllocPacketV)
5237 Perl_croak(aTHX_ "Usage: SDL::NetAllocPacketV(howmany, size)");
5239 int howmany = (int)SvIV(ST(0));
5240 int size = (int)SvIV(ST(1));
5241 UDPpacket ** RETVAL;
5243 #line 2652 "SDL_perl.xs"
5244 RETVAL = SDLNet_AllocPacketV(howmany,size);
5245 #line 5246 "SDL_perl.c"
5246 XSprePUSH; PUSHi(PTR2IV(RETVAL));
5251 XS(XS_SDL_NetResizePacket); /* prototype to pass -Wmissing-prototypes */
5252 XS(XS_SDL_NetResizePacket)
5256 Perl_croak(aTHX_ "Usage: SDL::NetResizePacket(packet, newsize)");
5258 UDPpacket * packet = INT2PTR(UDPpacket *,SvIV(ST(0)));
5259 int newsize = (int)SvIV(ST(1));
5262 #line 2661 "SDL_perl.xs"
5263 RETVAL = SDLNet_ResizePacket(packet,newsize);
5264 #line 5265 "SDL_perl.c"
5265 XSprePUSH; PUSHi((IV)RETVAL);
5270 XS(XS_SDL_NetFreePacket); /* prototype to pass -Wmissing-prototypes */
5271 XS(XS_SDL_NetFreePacket)
5275 Perl_croak(aTHX_ "Usage: SDL::NetFreePacket(packet)");
5277 UDPpacket * packet = INT2PTR(UDPpacket *,SvIV(ST(0)));
5278 #line 2669 "SDL_perl.xs"
5279 SDLNet_FreePacket(packet);
5280 #line 5281 "SDL_perl.c"
5285 XS(XS_SDL_NetFreePacketV); /* prototype to pass -Wmissing-prototypes */
5286 XS(XS_SDL_NetFreePacketV)
5290 Perl_croak(aTHX_ "Usage: SDL::NetFreePacketV(packet)");
5292 UDPpacket ** packet = INT2PTR(UDPpacket **,SvIV(ST(0)));
5293 #line 2675 "SDL_perl.xs"
5294 SDLNet_FreePacketV(packet);
5295 #line 5296 "SDL_perl.c"
5300 XS(XS_SDL_NetUDPOpen); /* prototype to pass -Wmissing-prototypes */
5301 XS(XS_SDL_NetUDPOpen)
5305 Perl_croak(aTHX_ "Usage: SDL::NetUDPOpen(port)");
5307 Uint16 port = (Uint16)SvUV(ST(0));
5310 #line 2681 "SDL_perl.xs"
5311 RETVAL = SDLNet_UDP_Open(port);
5312 #line 5313 "SDL_perl.c"
5313 XSprePUSH; PUSHi(PTR2IV(RETVAL));
5318 XS(XS_SDL_NetUDPBind); /* prototype to pass -Wmissing-prototypes */
5319 XS(XS_SDL_NetUDPBind)
5323 Perl_croak(aTHX_ "Usage: SDL::NetUDPBind(sock, channel, address)");
5325 UDPsocket sock = INT2PTR(UDPsocket,SvIV(ST(0)));
5326 int channel = (int)SvIV(ST(1));
5327 IPaddress * address = INT2PTR(IPaddress *,SvIV(ST(2)));
5330 #line 2691 "SDL_perl.xs"
5331 RETVAL = SDLNet_UDP_Bind(sock,channel,address);
5332 #line 5333 "SDL_perl.c"
5333 XSprePUSH; PUSHi((IV)RETVAL);
5338 XS(XS_SDL_NetUDPUnbind); /* prototype to pass -Wmissing-prototypes */
5339 XS(XS_SDL_NetUDPUnbind)
5343 Perl_croak(aTHX_ "Usage: SDL::NetUDPUnbind(sock, channel)");
5345 UDPsocket sock = INT2PTR(UDPsocket,SvIV(ST(0)));
5346 int channel = (int)SvIV(ST(1));
5347 #line 2700 "SDL_perl.xs"
5348 SDLNet_UDP_Unbind(sock,channel);
5349 #line 5350 "SDL_perl.c"
5354 XS(XS_SDL_NetUDPGetPeerAddress); /* prototype to pass -Wmissing-prototypes */
5355 XS(XS_SDL_NetUDPGetPeerAddress)
5359 Perl_croak(aTHX_ "Usage: SDL::NetUDPGetPeerAddress(sock, channel)");
5361 UDPsocket sock = INT2PTR(UDPsocket,SvIV(ST(0)));
5362 int channel = (int)SvIV(ST(1));
5365 #line 2707 "SDL_perl.xs"
5366 RETVAL = SDLNet_UDP_GetPeerAddress(sock,channel);
5367 #line 5368 "SDL_perl.c"
5368 XSprePUSH; PUSHi(PTR2IV(RETVAL));
5373 XS(XS_SDL_NetUDPSendV); /* prototype to pass -Wmissing-prototypes */
5374 XS(XS_SDL_NetUDPSendV)
5378 Perl_croak(aTHX_ "Usage: SDL::NetUDPSendV(sock, packets, npackets)");
5380 UDPsocket sock = INT2PTR(UDPsocket,SvIV(ST(0)));
5381 UDPpacket ** packets = INT2PTR(UDPpacket **,SvIV(ST(1)));
5382 int npackets = (int)SvIV(ST(2));
5385 #line 2717 "SDL_perl.xs"
5386 RETVAL = SDLNet_UDP_SendV(sock,packets,npackets);
5387 #line 5388 "SDL_perl.c"
5388 XSprePUSH; PUSHi((IV)RETVAL);
5393 XS(XS_SDL_NetUDPSend); /* prototype to pass -Wmissing-prototypes */
5394 XS(XS_SDL_NetUDPSend)
5398 Perl_croak(aTHX_ "Usage: SDL::NetUDPSend(sock, channel, packet)");
5400 UDPsocket sock = INT2PTR(UDPsocket,SvIV(ST(0)));
5401 int channel = (int)SvIV(ST(1));
5402 UDPpacket * packet = INT2PTR(UDPpacket *,SvIV(ST(2)));
5405 #line 2727 "SDL_perl.xs"
5406 RETVAL = SDLNet_UDP_Send(sock,channel,packet);
5407 #line 5408 "SDL_perl.c"
5408 XSprePUSH; PUSHi((IV)RETVAL);
5413 XS(XS_SDL_NetUDPRecvV); /* prototype to pass -Wmissing-prototypes */
5414 XS(XS_SDL_NetUDPRecvV)
5418 Perl_croak(aTHX_ "Usage: SDL::NetUDPRecvV(sock, packets)");
5420 UDPsocket sock = INT2PTR(UDPsocket,SvIV(ST(0)));
5421 UDPpacket ** packets = INT2PTR(UDPpacket **,SvIV(ST(1)));
5424 #line 2736 "SDL_perl.xs"
5425 RETVAL = SDLNet_UDP_RecvV(sock,packets);
5426 #line 5427 "SDL_perl.c"
5427 XSprePUSH; PUSHi((IV)RETVAL);
5432 XS(XS_SDL_NetUDPRecv); /* prototype to pass -Wmissing-prototypes */
5433 XS(XS_SDL_NetUDPRecv)
5437 Perl_croak(aTHX_ "Usage: SDL::NetUDPRecv(sock, packet)");
5439 UDPsocket sock = INT2PTR(UDPsocket,SvIV(ST(0)));
5440 UDPpacket * packet = INT2PTR(UDPpacket *,SvIV(ST(1)));
5443 #line 2745 "SDL_perl.xs"
5444 RETVAL = SDLNet_UDP_Recv(sock,packet);
5445 #line 5446 "SDL_perl.c"
5446 XSprePUSH; PUSHi((IV)RETVAL);
5451 XS(XS_SDL_NetUDPClose); /* prototype to pass -Wmissing-prototypes */
5452 XS(XS_SDL_NetUDPClose)
5456 Perl_croak(aTHX_ "Usage: SDL::NetUDPClose(sock)");
5458 UDPsocket sock = INT2PTR(UDPsocket,SvIV(ST(0)));
5459 #line 2753 "SDL_perl.xs"
5460 SDLNet_UDP_Close(sock);
5461 #line 5462 "SDL_perl.c"
5466 XS(XS_SDL_NetAllocSocketSet); /* prototype to pass -Wmissing-prototypes */
5467 XS(XS_SDL_NetAllocSocketSet)
5471 Perl_croak(aTHX_ "Usage: SDL::NetAllocSocketSet(maxsockets)");
5473 int maxsockets = (int)SvIV(ST(0));
5474 SDLNet_SocketSet RETVAL;
5476 #line 2759 "SDL_perl.xs"
5477 RETVAL = SDLNet_AllocSocketSet(maxsockets);
5478 #line 5479 "SDL_perl.c"
5479 XSprePUSH; PUSHi(PTR2IV(RETVAL));
5484 XS(XS_SDL_NetTCP_AddSocket); /* prototype to pass -Wmissing-prototypes */
5485 XS(XS_SDL_NetTCP_AddSocket)
5489 Perl_croak(aTHX_ "Usage: SDL::NetTCP_AddSocket(set, sock)");
5491 SDLNet_SocketSet set = INT2PTR(SDLNet_SocketSet,SvIV(ST(0)));
5492 TCPsocket sock = INT2PTR(TCPsocket,SvIV(ST(1)));
5495 #line 2768 "SDL_perl.xs"
5496 RETVAL = SDLNet_TCP_AddSocket(set,sock);
5497 #line 5498 "SDL_perl.c"
5498 XSprePUSH; PUSHi((IV)RETVAL);
5503 XS(XS_SDL_NetUDP_AddSocket); /* prototype to pass -Wmissing-prototypes */
5504 XS(XS_SDL_NetUDP_AddSocket)
5508 Perl_croak(aTHX_ "Usage: SDL::NetUDP_AddSocket(set, sock)");
5510 SDLNet_SocketSet set = INT2PTR(SDLNet_SocketSet,SvIV(ST(0)));
5511 UDPsocket sock = INT2PTR(UDPsocket,SvIV(ST(1)));
5514 #line 2777 "SDL_perl.xs"
5515 RETVAL = SDLNet_UDP_AddSocket(set,sock);
5516 #line 5517 "SDL_perl.c"
5517 XSprePUSH; PUSHi((IV)RETVAL);
5522 XS(XS_SDL_NetTCP_DelSocket); /* prototype to pass -Wmissing-prototypes */
5523 XS(XS_SDL_NetTCP_DelSocket)
5527 Perl_croak(aTHX_ "Usage: SDL::NetTCP_DelSocket(set, sock)");
5529 SDLNet_SocketSet set = INT2PTR(SDLNet_SocketSet,SvIV(ST(0)));
5530 TCPsocket sock = INT2PTR(TCPsocket,SvIV(ST(1)));
5533 #line 2786 "SDL_perl.xs"
5534 RETVAL = SDLNet_TCP_DelSocket(set,sock);
5535 #line 5536 "SDL_perl.c"
5536 XSprePUSH; PUSHi((IV)RETVAL);
5541 XS(XS_SDL_NetUDP_DelSocket); /* prototype to pass -Wmissing-prototypes */
5542 XS(XS_SDL_NetUDP_DelSocket)
5546 Perl_croak(aTHX_ "Usage: SDL::NetUDP_DelSocket(set, sock)");
5548 SDLNet_SocketSet set = INT2PTR(SDLNet_SocketSet,SvIV(ST(0)));
5549 UDPsocket sock = INT2PTR(UDPsocket,SvIV(ST(1)));
5552 #line 2795 "SDL_perl.xs"
5553 RETVAL = SDLNet_UDP_DelSocket(set,sock);
5554 #line 5555 "SDL_perl.c"
5555 XSprePUSH; PUSHi((IV)RETVAL);
5560 XS(XS_SDL_NetCheckSockets); /* prototype to pass -Wmissing-prototypes */
5561 XS(XS_SDL_NetCheckSockets)
5565 Perl_croak(aTHX_ "Usage: SDL::NetCheckSockets(set, timeout)");
5567 SDLNet_SocketSet set = INT2PTR(SDLNet_SocketSet,SvIV(ST(0)));
5568 Uint32 timeout = (Uint32)SvUV(ST(1));
5571 #line 2804 "SDL_perl.xs"
5572 RETVAL = SDLNet_CheckSockets(set,timeout);
5573 #line 5574 "SDL_perl.c"
5574 XSprePUSH; PUSHi((IV)RETVAL);
5579 XS(XS_SDL_NetSocketReady); /* prototype to pass -Wmissing-prototypes */
5580 XS(XS_SDL_NetSocketReady)
5584 Perl_croak(aTHX_ "Usage: SDL::NetSocketReady(sock)");
5586 SDLNet_GenericSocket sock = INT2PTR(SDLNet_GenericSocket,SvIV(ST(0)));
5589 #line 2812 "SDL_perl.xs"
5590 RETVAL = SDLNet_SocketReady(sock);
5591 #line 5592 "SDL_perl.c"
5592 XSprePUSH; PUSHi((IV)RETVAL);
5597 XS(XS_SDL_NetFreeSocketSet); /* prototype to pass -Wmissing-prototypes */
5598 XS(XS_SDL_NetFreeSocketSet)
5602 Perl_croak(aTHX_ "Usage: SDL::NetFreeSocketSet(set)");
5604 SDLNet_SocketSet set = INT2PTR(SDLNet_SocketSet,SvIV(ST(0)));
5605 #line 2820 "SDL_perl.xs"
5606 SDLNet_FreeSocketSet(set);
5607 #line 5608 "SDL_perl.c"
5612 XS(XS_SDL_NetWrite16); /* prototype to pass -Wmissing-prototypes */
5613 XS(XS_SDL_NetWrite16)
5617 Perl_croak(aTHX_ "Usage: SDL::NetWrite16(value, area)");
5619 Uint16 value = (Uint16)SvUV(ST(0));
5620 void * area = INT2PTR(void *,SvIV(ST(1)));
5621 #line 2827 "SDL_perl.xs"
5622 SDLNet_Write16(value,area);
5623 #line 5624 "SDL_perl.c"
5628 XS(XS_SDL_NetWrite32); /* prototype to pass -Wmissing-prototypes */
5629 XS(XS_SDL_NetWrite32)
5633 Perl_croak(aTHX_ "Usage: SDL::NetWrite32(value, area)");
5635 Uint32 value = (Uint32)SvUV(ST(0));
5636 void * area = INT2PTR(void *,SvIV(ST(1)));
5637 #line 2834 "SDL_perl.xs"
5638 SDLNet_Write32(value,area);
5639 #line 5640 "SDL_perl.c"
5644 XS(XS_SDL_NetRead16); /* prototype to pass -Wmissing-prototypes */
5645 XS(XS_SDL_NetRead16)
5649 Perl_croak(aTHX_ "Usage: SDL::NetRead16(area)");
5651 void * area = INT2PTR(void *,SvIV(ST(0)));
5654 #line 2840 "SDL_perl.xs"
5655 RETVAL = SDLNet_Read16(area);
5656 #line 5657 "SDL_perl.c"
5657 XSprePUSH; PUSHu((UV)RETVAL);
5662 XS(XS_SDL_NetRead32); /* prototype to pass -Wmissing-prototypes */
5663 XS(XS_SDL_NetRead32)
5667 Perl_croak(aTHX_ "Usage: SDL::NetRead32(area)");
5669 void * area = INT2PTR(void *,SvIV(ST(0)));
5672 #line 2848 "SDL_perl.xs"
5673 RETVAL = SDLNet_Read32(area);
5674 #line 5675 "SDL_perl.c"
5675 XSprePUSH; PUSHu((UV)RETVAL);
5682 #define XSubPPtmpAAAD 1
5684 XS(XS_SDL_TTFInit); /* prototype to pass -Wmissing-prototypes */
5689 Perl_croak(aTHX_ "Usage: SDL::TTFInit()");
5693 #line 2859 "SDL_perl.xs"
5694 RETVAL = TTF_Init();
5695 #line 5696 "SDL_perl.c"
5696 XSprePUSH; PUSHi((IV)RETVAL);
5701 XS(XS_SDL_TTFQuit); /* prototype to pass -Wmissing-prototypes */
5706 Perl_croak(aTHX_ "Usage: SDL::TTFQuit()");
5708 #line 2866 "SDL_perl.xs"
5710 #line 5711 "SDL_perl.c"
5715 XS(XS_SDL_TTFOpenFont); /* prototype to pass -Wmissing-prototypes */
5716 XS(XS_SDL_TTFOpenFont)
5720 Perl_croak(aTHX_ "Usage: SDL::TTFOpenFont(file, ptsize)");
5722 char * file = (char *)SvPV_nolen(ST(0));
5723 int ptsize = (int)SvIV(ST(1));
5726 #line 2873 "SDL_perl.xs"
5727 RETVAL = TTF_OpenFont(file,ptsize);
5728 #line 5729 "SDL_perl.c"
5729 XSprePUSH; PUSHi(PTR2IV(RETVAL));
5734 XS(XS_SDL_TTFGetFontStyle); /* prototype to pass -Wmissing-prototypes */
5735 XS(XS_SDL_TTFGetFontStyle)
5739 Perl_croak(aTHX_ "Usage: SDL::TTFGetFontStyle(font)");
5741 TTF_Font * font = INT2PTR(TTF_Font *,SvIV(ST(0)));
5744 #line 2881 "SDL_perl.xs"
5745 RETVAL = TTF_GetFontStyle(font);
5746 #line 5747 "SDL_perl.c"
5747 XSprePUSH; PUSHi((IV)RETVAL);
5752 XS(XS_SDL_TTFSetFontStyle); /* prototype to pass -Wmissing-prototypes */
5753 XS(XS_SDL_TTFSetFontStyle)
5757 Perl_croak(aTHX_ "Usage: SDL::TTFSetFontStyle(font, style)");
5759 TTF_Font * font = INT2PTR(TTF_Font *,SvIV(ST(0)));
5760 int style = (int)SvIV(ST(1));
5761 #line 2890 "SDL_perl.xs"
5762 TTF_SetFontStyle(font,style);
5763 #line 5764 "SDL_perl.c"
5768 XS(XS_SDL_TTFFontHeight); /* prototype to pass -Wmissing-prototypes */
5769 XS(XS_SDL_TTFFontHeight)
5773 Perl_croak(aTHX_ "Usage: SDL::TTFFontHeight(font)");
5775 TTF_Font * font = INT2PTR(TTF_Font *,SvIV(ST(0)));
5778 #line 2896 "SDL_perl.xs"
5779 RETVAL = TTF_FontHeight(font);
5780 #line 5781 "SDL_perl.c"
5781 XSprePUSH; PUSHi((IV)RETVAL);
5786 XS(XS_SDL_TTFFontAscent); /* prototype to pass -Wmissing-prototypes */
5787 XS(XS_SDL_TTFFontAscent)
5791 Perl_croak(aTHX_ "Usage: SDL::TTFFontAscent(font)");
5793 TTF_Font * font = INT2PTR(TTF_Font *,SvIV(ST(0)));
5796 #line 2904 "SDL_perl.xs"
5797 RETVAL = TTF_FontAscent(font);
5798 #line 5799 "SDL_perl.c"
5799 XSprePUSH; PUSHi((IV)RETVAL);
5804 XS(XS_SDL_TTFFontDescent); /* prototype to pass -Wmissing-prototypes */
5805 XS(XS_SDL_TTFFontDescent)
5809 Perl_croak(aTHX_ "Usage: SDL::TTFFontDescent(font)");
5811 TTF_Font * font = INT2PTR(TTF_Font *,SvIV(ST(0)));
5814 #line 2912 "SDL_perl.xs"
5815 RETVAL = TTF_FontDescent(font);
5816 #line 5817 "SDL_perl.c"
5817 XSprePUSH; PUSHi((IV)RETVAL);
5822 XS(XS_SDL_TTFFontLineSkip); /* prototype to pass -Wmissing-prototypes */
5823 XS(XS_SDL_TTFFontLineSkip)
5827 Perl_croak(aTHX_ "Usage: SDL::TTFFontLineSkip(font)");
5829 TTF_Font * font = INT2PTR(TTF_Font *,SvIV(ST(0)));
5832 #line 2920 "SDL_perl.xs"
5833 RETVAL = TTF_FontLineSkip(font);
5834 #line 5835 "SDL_perl.c"
5835 XSprePUSH; PUSHi((IV)RETVAL);
5840 XS(XS_SDL_TTFGlyphMetrics); /* prototype to pass -Wmissing-prototypes */
5841 XS(XS_SDL_TTFGlyphMetrics)
5845 Perl_croak(aTHX_ "Usage: SDL::TTFGlyphMetrics(font, ch)");
5847 TTF_Font * font = INT2PTR(TTF_Font *,SvIV(ST(0)));
5848 Uint16 ch = (Uint16)SvUV(ST(1));
5850 #line 2929 "SDL_perl.xs"
5851 int minx, miny, maxx, maxy, advance;
5853 TTF_GlyphMetrics(font, ch, &minx, &miny, &maxx, &maxy, &advance);
5854 av_push(RETVAL,newSViv(minx));
5855 av_push(RETVAL,newSViv(miny));
5856 av_push(RETVAL,newSViv(maxx));
5857 av_push(RETVAL,newSViv(maxy));
5858 av_push(RETVAL,newSViv(advance));
5859 #line 5860 "SDL_perl.c"
5860 ST(0) = newRV((SV*)RETVAL);
5866 XS(XS_SDL_TTFSizeText); /* prototype to pass -Wmissing-prototypes */
5867 XS(XS_SDL_TTFSizeText)
5871 Perl_croak(aTHX_ "Usage: SDL::TTFSizeText(font, text)");
5873 TTF_Font * font = INT2PTR(TTF_Font *,SvIV(ST(0)));
5874 char * text = (char *)SvPV_nolen(ST(1));
5876 #line 2945 "SDL_perl.xs"
5879 TTF_SizeText(font,text,&w,&h);
5880 av_push(RETVAL,newSViv(w));
5881 av_push(RETVAL,newSViv(h));
5882 #line 5883 "SDL_perl.c"
5883 ST(0) = newRV((SV*)RETVAL);
5889 XS(XS_SDL_TTFSizeUTF8); /* prototype to pass -Wmissing-prototypes */
5890 XS(XS_SDL_TTFSizeUTF8)
5894 Perl_croak(aTHX_ "Usage: SDL::TTFSizeUTF8(font, text)");
5896 TTF_Font * font = INT2PTR(TTF_Font *,SvIV(ST(0)));
5897 char * text = (char *)SvPV_nolen(ST(1));
5899 #line 2958 "SDL_perl.xs"
5902 TTF_SizeUTF8(font,text,&w,&h);
5903 av_push(RETVAL,newSViv(w));
5904 av_push(RETVAL,newSViv(h));
5905 #line 5906 "SDL_perl.c"
5906 ST(0) = newRV((SV*)RETVAL);
5912 XS(XS_SDL_TTFSizeUNICODE); /* prototype to pass -Wmissing-prototypes */
5913 XS(XS_SDL_TTFSizeUNICODE)
5917 Perl_croak(aTHX_ "Usage: SDL::TTFSizeUNICODE(font, text)");
5919 TTF_Font * font = INT2PTR(TTF_Font *,SvIV(ST(0)));
5920 const Uint16 * text = INT2PTR(const Uint16 *,SvIV(ST(1)));
5922 #line 2971 "SDL_perl.xs"
5925 TTF_SizeUNICODE(font,text,&w,&h);
5926 av_push(RETVAL,newSViv(w));
5927 av_push(RETVAL,newSViv(h));
5928 #line 5929 "SDL_perl.c"
5929 ST(0) = newRV((SV*)RETVAL);
5935 XS(XS_SDL_TTFRenderTextSolid); /* prototype to pass -Wmissing-prototypes */
5936 XS(XS_SDL_TTFRenderTextSolid)
5940 Perl_croak(aTHX_ "Usage: SDL::TTFRenderTextSolid(font, text, fg)");
5942 TTF_Font * font = INT2PTR(TTF_Font *,SvIV(ST(0)));
5943 char * text = (char *)SvPV_nolen(ST(1));
5944 SDL_Color * fg = INT2PTR(SDL_Color *,SvIV(ST(2)));
5945 SDL_Surface * RETVAL;
5947 #line 2985 "SDL_perl.xs"
5948 RETVAL = TTF_RenderText_Solid(font,text,*fg);
5949 #line 5950 "SDL_perl.c"
5950 XSprePUSH; PUSHi(PTR2IV(RETVAL));
5955 XS(XS_SDL_TTFRenderUTF8Solid); /* prototype to pass -Wmissing-prototypes */
5956 XS(XS_SDL_TTFRenderUTF8Solid)
5960 Perl_croak(aTHX_ "Usage: SDL::TTFRenderUTF8Solid(font, text, fg)");
5962 TTF_Font * font = INT2PTR(TTF_Font *,SvIV(ST(0)));
5963 char * text = (char *)SvPV_nolen(ST(1));
5964 SDL_Color * fg = INT2PTR(SDL_Color *,SvIV(ST(2)));
5965 SDL_Surface * RETVAL;
5967 #line 2995 "SDL_perl.xs"
5968 RETVAL = TTF_RenderUTF8_Solid(font,text,*fg);
5969 #line 5970 "SDL_perl.c"
5970 XSprePUSH; PUSHi(PTR2IV(RETVAL));
5975 XS(XS_SDL_TTFRenderUNICODESolid); /* prototype to pass -Wmissing-prototypes */
5976 XS(XS_SDL_TTFRenderUNICODESolid)
5980 Perl_croak(aTHX_ "Usage: SDL::TTFRenderUNICODESolid(font, text, fg)");
5982 TTF_Font * font = INT2PTR(TTF_Font *,SvIV(ST(0)));
5983 const Uint16 * text = INT2PTR(const Uint16 *,SvIV(ST(1)));
5984 SDL_Color * fg = INT2PTR(SDL_Color *,SvIV(ST(2)));
5985 SDL_Surface * RETVAL;
5987 #line 3005 "SDL_perl.xs"
5988 RETVAL = TTF_RenderUNICODE_Solid(font,text,*fg);
5989 #line 5990 "SDL_perl.c"
5990 XSprePUSH; PUSHi(PTR2IV(RETVAL));
5995 XS(XS_SDL_TTFRenderGlyphSolid); /* prototype to pass -Wmissing-prototypes */
5996 XS(XS_SDL_TTFRenderGlyphSolid)
6000 Perl_croak(aTHX_ "Usage: SDL::TTFRenderGlyphSolid(font, ch, fg)");
6002 TTF_Font * font = INT2PTR(TTF_Font *,SvIV(ST(0)));
6003 Uint16 ch = (Uint16)SvUV(ST(1));
6004 SDL_Color * fg = INT2PTR(SDL_Color *,SvIV(ST(2)));
6005 SDL_Surface * RETVAL;
6007 #line 3015 "SDL_perl.xs"
6008 RETVAL = TTF_RenderGlyph_Solid(font,ch,*fg);
6009 #line 6010 "SDL_perl.c"
6010 XSprePUSH; PUSHi(PTR2IV(RETVAL));
6015 XS(XS_SDL_TTFRenderTextShaded); /* prototype to pass -Wmissing-prototypes */
6016 XS(XS_SDL_TTFRenderTextShaded)
6020 Perl_croak(aTHX_ "Usage: SDL::TTFRenderTextShaded(font, text, fg, bg)");
6022 TTF_Font * font = INT2PTR(TTF_Font *,SvIV(ST(0)));
6023 char * text = (char *)SvPV_nolen(ST(1));
6024 SDL_Color * fg = INT2PTR(SDL_Color *,SvIV(ST(2)));
6025 SDL_Color * bg = INT2PTR(SDL_Color *,SvIV(ST(3)));
6026 SDL_Surface * RETVAL;
6028 #line 3026 "SDL_perl.xs"
6029 RETVAL = TTF_RenderText_Shaded(font,text,*fg,*bg);
6030 #line 6031 "SDL_perl.c"
6031 XSprePUSH; PUSHi(PTR2IV(RETVAL));
6036 XS(XS_SDL_TTFRenderUTF8Shaded); /* prototype to pass -Wmissing-prototypes */
6037 XS(XS_SDL_TTFRenderUTF8Shaded)
6041 Perl_croak(aTHX_ "Usage: SDL::TTFRenderUTF8Shaded(font, text, fg, bg)");
6043 TTF_Font * font = INT2PTR(TTF_Font *,SvIV(ST(0)));
6044 char * text = (char *)SvPV_nolen(ST(1));
6045 SDL_Color * fg = INT2PTR(SDL_Color *,SvIV(ST(2)));
6046 SDL_Color * bg = INT2PTR(SDL_Color *,SvIV(ST(3)));
6047 SDL_Surface * RETVAL;
6049 #line 3037 "SDL_perl.xs"
6050 RETVAL = TTF_RenderUTF8_Shaded(font,text,*fg,*bg);
6051 #line 6052 "SDL_perl.c"
6052 XSprePUSH; PUSHi(PTR2IV(RETVAL));
6057 XS(XS_SDL_TTFRenderUNICODEShaded); /* prototype to pass -Wmissing-prototypes */
6058 XS(XS_SDL_TTFRenderUNICODEShaded)
6062 Perl_croak(aTHX_ "Usage: SDL::TTFRenderUNICODEShaded(font, text, fg, bg)");
6064 TTF_Font * font = INT2PTR(TTF_Font *,SvIV(ST(0)));
6065 const Uint16 * text = INT2PTR(const Uint16 *,SvIV(ST(1)));
6066 SDL_Color * fg = INT2PTR(SDL_Color *,SvIV(ST(2)));
6067 SDL_Color * bg = INT2PTR(SDL_Color *,SvIV(ST(3)));
6068 SDL_Surface * RETVAL;
6070 #line 3048 "SDL_perl.xs"
6071 RETVAL = TTF_RenderUNICODE_Shaded(font,text,*fg,*bg);
6072 #line 6073 "SDL_perl.c"
6073 XSprePUSH; PUSHi(PTR2IV(RETVAL));
6078 XS(XS_SDL_TTFRenderGlyphShaded); /* prototype to pass -Wmissing-prototypes */
6079 XS(XS_SDL_TTFRenderGlyphShaded)
6083 Perl_croak(aTHX_ "Usage: SDL::TTFRenderGlyphShaded(font, ch, fg, bg)");
6085 TTF_Font * font = INT2PTR(TTF_Font *,SvIV(ST(0)));
6086 Uint16 ch = (Uint16)SvUV(ST(1));
6087 SDL_Color * fg = INT2PTR(SDL_Color *,SvIV(ST(2)));
6088 SDL_Color * bg = INT2PTR(SDL_Color *,SvIV(ST(3)));
6089 SDL_Surface * RETVAL;
6091 #line 3059 "SDL_perl.xs"
6092 RETVAL = TTF_RenderGlyph_Shaded(font,ch,*fg,*bg);
6093 #line 6094 "SDL_perl.c"
6094 XSprePUSH; PUSHi(PTR2IV(RETVAL));
6099 XS(XS_SDL_TTFRenderTextBlended); /* prototype to pass -Wmissing-prototypes */
6100 XS(XS_SDL_TTFRenderTextBlended)
6104 Perl_croak(aTHX_ "Usage: SDL::TTFRenderTextBlended(font, text, fg)");
6106 TTF_Font * font = INT2PTR(TTF_Font *,SvIV(ST(0)));
6107 char * text = (char *)SvPV_nolen(ST(1));
6108 SDL_Color * fg = INT2PTR(SDL_Color *,SvIV(ST(2)));
6109 SDL_Surface * RETVAL;
6111 #line 3069 "SDL_perl.xs"
6112 RETVAL = TTF_RenderText_Blended(font,text,*fg);
6113 #line 6114 "SDL_perl.c"
6114 XSprePUSH; PUSHi(PTR2IV(RETVAL));
6119 XS(XS_SDL_TTFRenderUTF8Blended); /* prototype to pass -Wmissing-prototypes */
6120 XS(XS_SDL_TTFRenderUTF8Blended)
6124 Perl_croak(aTHX_ "Usage: SDL::TTFRenderUTF8Blended(font, text, fg)");
6126 TTF_Font * font = INT2PTR(TTF_Font *,SvIV(ST(0)));
6127 char * text = (char *)SvPV_nolen(ST(1));
6128 SDL_Color * fg = INT2PTR(SDL_Color *,SvIV(ST(2)));
6129 SDL_Surface * RETVAL;
6131 #line 3079 "SDL_perl.xs"
6132 RETVAL = TTF_RenderUTF8_Blended(font,text,*fg);
6133 #line 6134 "SDL_perl.c"
6134 XSprePUSH; PUSHi(PTR2IV(RETVAL));
6139 XS(XS_SDL_TTFRenderUNICODEBlended); /* prototype to pass -Wmissing-prototypes */
6140 XS(XS_SDL_TTFRenderUNICODEBlended)
6144 Perl_croak(aTHX_ "Usage: SDL::TTFRenderUNICODEBlended(font, text, fg)");
6146 TTF_Font * font = INT2PTR(TTF_Font *,SvIV(ST(0)));
6147 const Uint16 * text = INT2PTR(const Uint16 *,SvIV(ST(1)));
6148 SDL_Color * fg = INT2PTR(SDL_Color *,SvIV(ST(2)));
6149 SDL_Surface * RETVAL;
6151 #line 3089 "SDL_perl.xs"
6152 RETVAL = TTF_RenderUNICODE_Blended(font,text,*fg);
6153 #line 6154 "SDL_perl.c"
6154 XSprePUSH; PUSHi(PTR2IV(RETVAL));
6159 XS(XS_SDL_TTFRenderGlyphBlended); /* prototype to pass -Wmissing-prototypes */
6160 XS(XS_SDL_TTFRenderGlyphBlended)
6164 Perl_croak(aTHX_ "Usage: SDL::TTFRenderGlyphBlended(font, ch, fg)");
6166 TTF_Font * font = INT2PTR(TTF_Font *,SvIV(ST(0)));
6167 Uint16 ch = (Uint16)SvUV(ST(1));
6168 SDL_Color * fg = INT2PTR(SDL_Color *,SvIV(ST(2)));
6169 SDL_Surface * RETVAL;
6171 #line 3099 "SDL_perl.xs"
6172 RETVAL = TTF_RenderGlyph_Blended(font,ch,*fg);
6173 #line 6174 "SDL_perl.c"
6174 XSprePUSH; PUSHi(PTR2IV(RETVAL));
6179 XS(XS_SDL_TTFCloseFont); /* prototype to pass -Wmissing-prototypes */
6180 XS(XS_SDL_TTFCloseFont)
6184 Perl_croak(aTHX_ "Usage: SDL::TTFCloseFont(font)");
6186 TTF_Font * font = INT2PTR(TTF_Font *,SvIV(ST(0)));
6187 #line 3107 "SDL_perl.xs"
6188 TTF_CloseFont(font);
6189 #line 6190 "SDL_perl.c"
6194 XS(XS_SDL_TTFPutString); /* prototype to pass -Wmissing-prototypes */
6195 XS(XS_SDL_TTFPutString)
6199 Perl_croak(aTHX_ "Usage: SDL::TTFPutString(font, mode, surface, x, y, fg, bg, text)");
6201 TTF_Font * font = INT2PTR(TTF_Font *,SvIV(ST(0)));
6202 int mode = (int)SvIV(ST(1));
6203 SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(2)));
6204 int x = (int)SvIV(ST(3));
6205 int y = (int)SvIV(ST(4));
6206 SDL_Color * fg = INT2PTR(SDL_Color *,SvIV(ST(5)));
6207 SDL_Color * bg = INT2PTR(SDL_Color *,SvIV(ST(6)));
6208 char * text = (char *)SvPV_nolen(ST(7));
6209 SDL_Surface * RETVAL;
6211 #line 3120 "SDL_perl.xs"
6220 img = TTF_RenderText_Solid(font,text,*fg);
6221 TTF_SizeText(font,text,&w,&h);
6226 img = TTF_RenderText_Shaded(font,text,*fg,*bg);
6227 TTF_SizeText(font,text,&w,&h);
6232 img = TTF_RenderText_Blended(font,text,*fg);
6233 TTF_SizeText(font,text,&w,&h);
6238 img = TTF_RenderUTF8_Solid(font,text,*fg);
6239 TTF_SizeUTF8(font,text,&w,&h);
6244 img = TTF_RenderUTF8_Shaded(font,text,*fg,*bg);
6245 TTF_SizeUTF8(font,text,&w,&h);
6250 img = TTF_RenderUTF8_Blended(font,text,*fg);
6251 TTF_SizeUTF8(font,text,&w,&h);
6256 img = TTF_RenderUNICODE_Solid(font,(Uint16*)text,*fg);
6257 TTF_SizeUNICODE(font,(Uint16*)text,&w,&h);
6261 case UNICODE_SHADED:
6262 img = TTF_RenderUNICODE_Shaded(font,(Uint16*)text,*fg,*bg);
6263 TTF_SizeUNICODE(font,(Uint16*)text,&w,&h);
6267 case UNICODE_BLENDED:
6268 img = TTF_RenderUNICODE_Blended(font,(Uint16*)text,*fg);
6269 TTF_SizeUNICODE(font,(Uint16*)text,&w,&h);
6274 img = TTF_RenderText_Shaded(font,text,*fg,*bg);
6275 TTF_SizeText(font,text,&w,&h);
6279 if ( img && img->format && img->format->palette ) {
6280 SDL_Color *c = &img->format->palette->colors[0];
6281 Uint32 key = SDL_MapRGB( img->format, c->r, c->g, c->b );
6282 SDL_SetColorKey(img,SDL_SRCCOLORKEY,key );
6283 if (0 > SDL_BlitSurface(img,NULL,surface,&dest)) {
6284 SDL_FreeSurface(img);
6290 #line 6291 "SDL_perl.c"
6291 XSprePUSH; PUSHi(PTR2IV(RETVAL));
6297 XS(XS_SDL_CreateYUVOverlay); /* prototype to pass -Wmissing-prototypes */
6298 XS(XS_SDL_CreateYUVOverlay)
6302 Perl_croak(aTHX_ "Usage: SDL::CreateYUVOverlay(width, height, format, display)");
6304 int width = (int)SvIV(ST(0));
6305 int height = (int)SvIV(ST(1));
6306 Uint32 format = (Uint32)SvUV(ST(2));
6307 SDL_Surface * display = INT2PTR(SDL_Surface *,SvIV(ST(3)));
6308 SDL_Overlay * RETVAL;
6310 #line 3210 "SDL_perl.xs"
6311 RETVAL = SDL_CreateYUVOverlay ( width, height, format, display );
6312 #line 6313 "SDL_perl.c"
6313 XSprePUSH; PUSHi(PTR2IV(RETVAL));
6318 XS(XS_SDL_LockYUVOverlay); /* prototype to pass -Wmissing-prototypes */
6319 XS(XS_SDL_LockYUVOverlay)
6323 Perl_croak(aTHX_ "Usage: SDL::LockYUVOverlay(overlay)");
6325 SDL_Overlay * overlay = INT2PTR(SDL_Overlay *,SvIV(ST(0)));
6328 #line 3218 "SDL_perl.xs"
6329 RETVAL = SDL_LockYUVOverlay(overlay);
6330 #line 6331 "SDL_perl.c"
6331 XSprePUSH; PUSHi((IV)RETVAL);
6336 XS(XS_SDL_UnlockYUVOverlay); /* prototype to pass -Wmissing-prototypes */
6337 XS(XS_SDL_UnlockYUVOverlay)
6341 Perl_croak(aTHX_ "Usage: SDL::UnlockYUVOverlay(overlay)");
6343 SDL_Overlay * overlay = INT2PTR(SDL_Overlay *,SvIV(ST(0)));
6344 #line 3226 "SDL_perl.xs"
6345 SDL_UnlockYUVOverlay(overlay);
6346 #line 6347 "SDL_perl.c"
6351 XS(XS_SDL_DisplayYUVOverlay); /* prototype to pass -Wmissing-prototypes */
6352 XS(XS_SDL_DisplayYUVOverlay)
6356 Perl_croak(aTHX_ "Usage: SDL::DisplayYUVOverlay(overlay, dstrect)");
6358 SDL_Overlay * overlay = INT2PTR(SDL_Overlay *,SvIV(ST(0)));
6359 SDL_Rect * dstrect = INT2PTR(SDL_Rect *,SvIV(ST(1)));
6362 #line 3233 "SDL_perl.xs"
6363 RETVAL = SDL_DisplayYUVOverlay ( overlay, dstrect );
6364 #line 6365 "SDL_perl.c"
6365 XSprePUSH; PUSHi((IV)RETVAL);
6370 XS(XS_SDL_FreeYUVOverlay); /* prototype to pass -Wmissing-prototypes */
6371 XS(XS_SDL_FreeYUVOverlay)
6375 Perl_croak(aTHX_ "Usage: SDL::FreeYUVOverlay(overlay)");
6377 SDL_Overlay * overlay = INT2PTR(SDL_Overlay *,SvIV(ST(0)));
6378 #line 3241 "SDL_perl.xs"
6379 SDL_FreeYUVOverlay ( overlay );
6380 #line 6381 "SDL_perl.c"
6385 XS(XS_SDL_OverlayFormat); /* prototype to pass -Wmissing-prototypes */
6386 XS(XS_SDL_OverlayFormat)
6390 Perl_croak(aTHX_ "Usage: SDL::OverlayFormat(overlay, ...)");
6392 SDL_Overlay * overlay = INT2PTR(SDL_Overlay *,SvIV(ST(0)));
6395 #line 3247 "SDL_perl.xs"
6397 overlay->format = SvIV(ST(1));
6398 RETVAL = overlay->format;
6399 #line 6400 "SDL_perl.c"
6400 XSprePUSH; PUSHu((UV)RETVAL);
6405 XS(XS_SDL_OverlayW); /* prototype to pass -Wmissing-prototypes */
6410 Perl_croak(aTHX_ "Usage: SDL::OverlayW(overlay, ...)");
6412 SDL_Overlay * overlay = INT2PTR(SDL_Overlay *,SvIV(ST(0)));
6415 #line 3257 "SDL_perl.xs"
6417 overlay->w = SvIV(ST(1));
6418 RETVAL = overlay->w;
6419 #line 6420 "SDL_perl.c"
6420 XSprePUSH; PUSHi((IV)RETVAL);
6425 XS(XS_SDL_OverlayH); /* prototype to pass -Wmissing-prototypes */
6430 Perl_croak(aTHX_ "Usage: SDL::OverlayH(overlay, ...)");
6432 SDL_Overlay * overlay = INT2PTR(SDL_Overlay *,SvIV(ST(0)));
6435 #line 3267 "SDL_perl.xs"
6437 overlay->h = SvIV(ST(1));
6438 RETVAL = overlay->h;
6439 #line 6440 "SDL_perl.c"
6440 XSprePUSH; PUSHi((IV)RETVAL);
6445 XS(XS_SDL_OverlayPlanes); /* prototype to pass -Wmissing-prototypes */
6446 XS(XS_SDL_OverlayPlanes)
6450 Perl_croak(aTHX_ "Usage: SDL::OverlayPlanes(overlay, ...)");
6452 SDL_Overlay * overlay = INT2PTR(SDL_Overlay *,SvIV(ST(0)));
6455 #line 3277 "SDL_perl.xs"
6457 overlay->planes = SvIV(ST(1));
6458 RETVAL = overlay->planes;
6459 #line 6460 "SDL_perl.c"
6460 XSprePUSH; PUSHi((IV)RETVAL);
6465 XS(XS_SDL_OverlayHW); /* prototype to pass -Wmissing-prototypes */
6466 XS(XS_SDL_OverlayHW)
6470 Perl_croak(aTHX_ "Usage: SDL::OverlayHW(overlay)");
6472 SDL_Overlay * overlay = INT2PTR(SDL_Overlay *,SvIV(ST(0)));
6475 #line 3287 "SDL_perl.xs"
6476 RETVAL = overlay->hw_overlay;
6477 #line 6478 "SDL_perl.c"
6478 XSprePUSH; PUSHu((UV)RETVAL);
6483 XS(XS_SDL_OverlayPitches); /* prototype to pass -Wmissing-prototypes */
6484 XS(XS_SDL_OverlayPitches)
6488 Perl_croak(aTHX_ "Usage: SDL::OverlayPitches(overlay)");
6490 SDL_Overlay * overlay = INT2PTR(SDL_Overlay *,SvIV(ST(0)));
6493 #line 3295 "SDL_perl.xs"
6494 RETVAL = overlay->pitches;
6495 #line 6496 "SDL_perl.c"
6496 XSprePUSH; PUSHi(PTR2IV(RETVAL));
6501 XS(XS_SDL_OverlayPixels); /* prototype to pass -Wmissing-prototypes */
6502 XS(XS_SDL_OverlayPixels)
6506 Perl_croak(aTHX_ "Usage: SDL::OverlayPixels(overlay)");
6508 SDL_Overlay * overlay = INT2PTR(SDL_Overlay *,SvIV(ST(0)));
6511 #line 3303 "SDL_perl.xs"
6512 RETVAL = overlay->pixels;
6513 #line 6514 "SDL_perl.c"
6514 XSprePUSH; PUSHi(PTR2IV(RETVAL));
6519 XS(XS_SDL_WMToggleFullScreen); /* prototype to pass -Wmissing-prototypes */
6520 XS(XS_SDL_WMToggleFullScreen)
6524 Perl_croak(aTHX_ "Usage: SDL::WMToggleFullScreen(surface)");
6526 SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0)));
6529 #line 3311 "SDL_perl.xs"
6530 RETVAL = SDL_WM_ToggleFullScreen(surface);
6531 #line 6532 "SDL_perl.c"
6532 XSprePUSH; PUSHi((IV)RETVAL);
6537 XS(XS_SDL_WMGrabInput); /* prototype to pass -Wmissing-prototypes */
6538 XS(XS_SDL_WMGrabInput)
6542 Perl_croak(aTHX_ "Usage: SDL::WMGrabInput(mode)");
6544 Uint32 mode = (Uint32)SvUV(ST(0));
6547 #line 3319 "SDL_perl.xs"
6548 RETVAL = SDL_WM_GrabInput(mode);
6549 #line 6550 "SDL_perl.c"
6550 XSprePUSH; PUSHu((UV)RETVAL);
6555 XS(XS_SDL_WMIconifyWindow); /* prototype to pass -Wmissing-prototypes */
6556 XS(XS_SDL_WMIconifyWindow)
6560 Perl_croak(aTHX_ "Usage: SDL::WMIconifyWindow()");
6564 #line 3326 "SDL_perl.xs"
6565 RETVAL = SDL_WM_IconifyWindow();
6566 #line 6567 "SDL_perl.c"
6567 XSprePUSH; PUSHi((IV)RETVAL);
6572 XS(XS_SDL_ResizeEventW); /* prototype to pass -Wmissing-prototypes */
6573 XS(XS_SDL_ResizeEventW)
6577 Perl_croak(aTHX_ "Usage: SDL::ResizeEventW(e)");
6579 SDL_Event * e = INT2PTR(SDL_Event *,SvIV(ST(0)));
6582 #line 3334 "SDL_perl.xs"
6583 RETVAL = e->resize.w;
6584 #line 6585 "SDL_perl.c"
6585 XSprePUSH; PUSHi((IV)RETVAL);
6590 XS(XS_SDL_ResizeEventH); /* prototype to pass -Wmissing-prototypes */
6591 XS(XS_SDL_ResizeEventH)
6595 Perl_croak(aTHX_ "Usage: SDL::ResizeEventH(e)");
6597 SDL_Event * e = INT2PTR(SDL_Event *,SvIV(ST(0)));
6600 #line 3342 "SDL_perl.xs"
6601 RETVAL = e->resize.h;
6602 #line 6603 "SDL_perl.c"
6603 XSprePUSH; PUSHi((IV)RETVAL);
6608 XS(XS_SDL_AudioDriverName); /* prototype to pass -Wmissing-prototypes */
6609 XS(XS_SDL_AudioDriverName)
6613 Perl_croak(aTHX_ "Usage: SDL::AudioDriverName()");
6617 #line 3349 "SDL_perl.xs"
6619 RETVAL = SDL_AudioDriverName(name,32);
6620 #line 6621 "SDL_perl.c"
6621 sv_setpv(TARG, RETVAL); XSprePUSH; PUSHTARG;
6626 XS(XS_SDL_GetKeyState); /* prototype to pass -Wmissing-prototypes */
6627 XS(XS_SDL_GetKeyState)
6631 Perl_croak(aTHX_ "Usage: SDL::GetKeyState(k)");
6633 SDLKey k = (SDLKey)SvUV(ST(0));
6636 #line 3358 "SDL_perl.xs"
6637 if (k >= SDLK_LAST) Perl_croak (aTHX_ "Key out of range");
6638 RETVAL = SDL_GetKeyState(NULL)[k];
6639 #line 6640 "SDL_perl.c"
6640 XSprePUSH; PUSHu((UV)RETVAL);
6646 #define XSubPPtmpAAAE 1
6648 XS(XS_SDL_NewSMPEGInfo); /* prototype to pass -Wmissing-prototypes */
6649 XS(XS_SDL_NewSMPEGInfo)
6653 Perl_croak(aTHX_ "Usage: SDL::NewSMPEGInfo()");
6655 SMPEG_Info * RETVAL;
6657 #line 3368 "SDL_perl.xs"
6658 RETVAL = (SMPEG_Info *) safemalloc (sizeof(SMPEG_Info));
6659 #line 6660 "SDL_perl.c"
6660 XSprePUSH; PUSHi(PTR2IV(RETVAL));
6665 XS(XS_SDL_FreeSMPEGInfo); /* prototype to pass -Wmissing-prototypes */
6666 XS(XS_SDL_FreeSMPEGInfo)
6670 Perl_croak(aTHX_ "Usage: SDL::FreeSMPEGInfo(info)");
6672 SMPEG_Info * info = INT2PTR(SMPEG_Info *,SvIV(ST(0)));
6673 #line 3376 "SDL_perl.xs"
6675 #line 6676 "SDL_perl.c"
6680 XS(XS_SDL_SMPEGInfoHasAudio); /* prototype to pass -Wmissing-prototypes */
6681 XS(XS_SDL_SMPEGInfoHasAudio)
6685 Perl_croak(aTHX_ "Usage: SDL::SMPEGInfoHasAudio(info)");
6687 SMPEG_Info* info = INT2PTR(SMPEG_Info *,SvIV(ST(0)));
6690 #line 3382 "SDL_perl.xs"
6691 RETVAL = info->has_audio;
6692 #line 6693 "SDL_perl.c"
6693 XSprePUSH; PUSHi((IV)RETVAL);
6698 XS(XS_SDL_SMPEGInfoHasVideo); /* prototype to pass -Wmissing-prototypes */
6699 XS(XS_SDL_SMPEGInfoHasVideo)
6703 Perl_croak(aTHX_ "Usage: SDL::SMPEGInfoHasVideo(info)");
6705 SMPEG_Info* info = INT2PTR(SMPEG_Info *,SvIV(ST(0)));
6708 #line 3390 "SDL_perl.xs"
6709 RETVAL = info->has_video;
6710 #line 6711 "SDL_perl.c"
6711 XSprePUSH; PUSHi((IV)RETVAL);
6716 XS(XS_SDL_SMPEGInfoWidth); /* prototype to pass -Wmissing-prototypes */
6717 XS(XS_SDL_SMPEGInfoWidth)
6721 Perl_croak(aTHX_ "Usage: SDL::SMPEGInfoWidth(info)");
6723 SMPEG_Info* info = INT2PTR(SMPEG_Info *,SvIV(ST(0)));
6726 #line 3398 "SDL_perl.xs"
6727 RETVAL = info->width;
6728 #line 6729 "SDL_perl.c"
6729 XSprePUSH; PUSHi((IV)RETVAL);
6734 XS(XS_SDL_SMPEGInfoHeight); /* prototype to pass -Wmissing-prototypes */
6735 XS(XS_SDL_SMPEGInfoHeight)
6739 Perl_croak(aTHX_ "Usage: SDL::SMPEGInfoHeight(info)");
6741 SMPEG_Info* info = INT2PTR(SMPEG_Info *,SvIV(ST(0)));
6744 #line 3406 "SDL_perl.xs"
6745 RETVAL = info->height;
6746 #line 6747 "SDL_perl.c"
6747 XSprePUSH; PUSHi((IV)RETVAL);
6752 XS(XS_SDL_SMPEGInfoCurrentFrame); /* prototype to pass -Wmissing-prototypes */
6753 XS(XS_SDL_SMPEGInfoCurrentFrame)
6757 Perl_croak(aTHX_ "Usage: SDL::SMPEGInfoCurrentFrame(info)");
6759 SMPEG_Info* info = INT2PTR(SMPEG_Info *,SvIV(ST(0)));
6762 #line 3414 "SDL_perl.xs"
6763 RETVAL = info->current_frame;
6764 #line 6765 "SDL_perl.c"
6765 XSprePUSH; PUSHi((IV)RETVAL);
6770 XS(XS_SDL_SMPEGInfoCurrentFPS); /* prototype to pass -Wmissing-prototypes */
6771 XS(XS_SDL_SMPEGInfoCurrentFPS)
6775 Perl_croak(aTHX_ "Usage: SDL::SMPEGInfoCurrentFPS(info)");
6777 SMPEG_Info* info = INT2PTR(SMPEG_Info *,SvIV(ST(0)));
6780 #line 3422 "SDL_perl.xs"
6781 RETVAL = info->current_fps;
6782 #line 6783 "SDL_perl.c"
6783 XSprePUSH; PUSHn((double)RETVAL);
6788 XS(XS_SDL_SMPEGInfoCurrentAudioFrame); /* prototype to pass -Wmissing-prototypes */
6789 XS(XS_SDL_SMPEGInfoCurrentAudioFrame)
6793 Perl_croak(aTHX_ "Usage: SDL::SMPEGInfoCurrentAudioFrame(info)");
6795 SMPEG_Info* info = INT2PTR(SMPEG_Info *,SvIV(ST(0)));
6798 #line 3430 "SDL_perl.xs"
6799 RETVAL = info->audio_current_frame;
6800 #line 6801 "SDL_perl.c"
6801 XSprePUSH; PUSHi((IV)RETVAL);
6806 XS(XS_SDL_SMPEGInfoCurrentOffset); /* prototype to pass -Wmissing-prototypes */
6807 XS(XS_SDL_SMPEGInfoCurrentOffset)
6811 Perl_croak(aTHX_ "Usage: SDL::SMPEGInfoCurrentOffset(info)");
6813 SMPEG_Info* info = INT2PTR(SMPEG_Info *,SvIV(ST(0)));
6816 #line 3438 "SDL_perl.xs"
6817 RETVAL = info->current_offset;
6818 #line 6819 "SDL_perl.c"
6819 XSprePUSH; PUSHi((IV)RETVAL);
6824 XS(XS_SDL_SMPEGInfoTotalSize); /* prototype to pass -Wmissing-prototypes */
6825 XS(XS_SDL_SMPEGInfoTotalSize)
6829 Perl_croak(aTHX_ "Usage: SDL::SMPEGInfoTotalSize(info)");
6831 SMPEG_Info* info = INT2PTR(SMPEG_Info *,SvIV(ST(0)));
6834 #line 3446 "SDL_perl.xs"
6835 RETVAL = info->total_size;
6836 #line 6837 "SDL_perl.c"
6837 XSprePUSH; PUSHi((IV)RETVAL);
6842 XS(XS_SDL_SMPEGInfoCurrentTime); /* prototype to pass -Wmissing-prototypes */
6843 XS(XS_SDL_SMPEGInfoCurrentTime)
6847 Perl_croak(aTHX_ "Usage: SDL::SMPEGInfoCurrentTime(info)");
6849 SMPEG_Info* info = INT2PTR(SMPEG_Info *,SvIV(ST(0)));
6852 #line 3454 "SDL_perl.xs"
6853 RETVAL = info->current_time;
6854 #line 6855 "SDL_perl.c"
6855 XSprePUSH; PUSHn((double)RETVAL);
6860 XS(XS_SDL_SMPEGInfoTotalTime); /* prototype to pass -Wmissing-prototypes */
6861 XS(XS_SDL_SMPEGInfoTotalTime)
6865 Perl_croak(aTHX_ "Usage: SDL::SMPEGInfoTotalTime(info)");
6867 SMPEG_Info* info = INT2PTR(SMPEG_Info *,SvIV(ST(0)));
6870 #line 3462 "SDL_perl.xs"
6871 RETVAL = info->total_time;
6872 #line 6873 "SDL_perl.c"
6873 XSprePUSH; PUSHn((double)RETVAL);
6878 XS(XS_SDL_SMPEGError); /* prototype to pass -Wmissing-prototypes */
6879 XS(XS_SDL_SMPEGError)
6883 Perl_croak(aTHX_ "Usage: SDL::SMPEGError(mpeg)");
6885 SMPEG* mpeg = INT2PTR(SMPEG *,SvIV(ST(0)));
6888 #line 3470 "SDL_perl.xs"
6889 RETVAL = SMPEG_error(mpeg);
6890 #line 6891 "SDL_perl.c"
6891 sv_setpv(TARG, RETVAL); XSprePUSH; PUSHTARG;
6896 XS(XS_SDL_NewSMPEG); /* prototype to pass -Wmissing-prototypes */
6901 Perl_croak(aTHX_ "Usage: SDL::NewSMPEG(filename, info, use_audio)");
6903 char* filename = (char *)SvPV_nolen(ST(0));
6904 SMPEG_Info* info = INT2PTR(SMPEG_Info *,SvIV(ST(1)));
6905 int use_audio = (int)SvIV(ST(2));
6908 #line 3480 "SDL_perl.xs"
6909 #ifdef HAVE_SDL_MIXER
6910 RETVAL = SMPEG_new(filename,info,0);
6912 RETVAL = SMPEG_new(filename,info,use_audio);
6914 #line 6915 "SDL_perl.c"
6915 XSprePUSH; PUSHi(PTR2IV(RETVAL));
6920 XS(XS_SDL_FreeSMPEG); /* prototype to pass -Wmissing-prototypes */
6921 XS(XS_SDL_FreeSMPEG)
6925 Perl_croak(aTHX_ "Usage: SDL::FreeSMPEG(mpeg)");
6927 SMPEG* mpeg = INT2PTR(SMPEG *,SvIV(ST(0)));
6928 #line 3492 "SDL_perl.xs"
6930 #line 6931 "SDL_perl.c"
6935 XS(XS_SDL_SMPEGEnableAudio); /* prototype to pass -Wmissing-prototypes */
6936 XS(XS_SDL_SMPEGEnableAudio)
6940 Perl_croak(aTHX_ "Usage: SDL::SMPEGEnableAudio(mpeg, flag)");
6942 SMPEG* mpeg = INT2PTR(SMPEG *,SvIV(ST(0)));
6943 int flag = (int)SvIV(ST(1));
6944 #line 3499 "SDL_perl.xs"
6945 SMPEG_enableaudio(mpeg,flag);
6946 #ifdef HAVE_SDL_MIXER
6947 sdl_perl_use_smpeg_audio = flag;
6949 #line 6950 "SDL_perl.c"
6954 XS(XS_SDL_SMPEGEnableVideo); /* prototype to pass -Wmissing-prototypes */
6955 XS(XS_SDL_SMPEGEnableVideo)
6959 Perl_croak(aTHX_ "Usage: SDL::SMPEGEnableVideo(mpeg, flag)");
6961 SMPEG* mpeg = INT2PTR(SMPEG *,SvIV(ST(0)));
6962 int flag = (int)SvIV(ST(1));
6963 #line 3509 "SDL_perl.xs"
6964 SMPEG_enablevideo(mpeg,flag);
6965 #line 6966 "SDL_perl.c"
6970 XS(XS_SDL_SMPEGSetVolume); /* prototype to pass -Wmissing-prototypes */
6971 XS(XS_SDL_SMPEGSetVolume)
6975 Perl_croak(aTHX_ "Usage: SDL::SMPEGSetVolume(mpeg, volume)");
6977 SMPEG* mpeg = INT2PTR(SMPEG *,SvIV(ST(0)));
6978 int volume = (int)SvIV(ST(1));
6979 #line 3516 "SDL_perl.xs"
6980 SMPEG_setvolume(mpeg,volume);
6981 #line 6982 "SDL_perl.c"
6986 XS(XS_SDL_SMPEGSetDisplay); /* prototype to pass -Wmissing-prototypes */
6987 XS(XS_SDL_SMPEGSetDisplay)
6991 Perl_croak(aTHX_ "Usage: SDL::SMPEGSetDisplay(mpeg, dest, surfLock)");
6993 SMPEG* mpeg = INT2PTR(SMPEG *,SvIV(ST(0)));
6994 SDL_Surface* dest = INT2PTR(SDL_Surface *,SvIV(ST(1)));
6995 SDL_mutex* surfLock = INT2PTR(SDL_mutex *,SvIV(ST(2)));
6996 #line 3524 "SDL_perl.xs"
6997 SMPEG_setdisplay(mpeg,dest,surfLock,NULL);
6998 #line 6999 "SDL_perl.c"
7003 XS(XS_SDL_SMPEGScaleXY); /* prototype to pass -Wmissing-prototypes */
7004 XS(XS_SDL_SMPEGScaleXY)
7008 Perl_croak(aTHX_ "Usage: SDL::SMPEGScaleXY(mpeg, w, h)");
7010 SMPEG* mpeg = INT2PTR(SMPEG *,SvIV(ST(0)));
7011 int w = (int)SvIV(ST(1));
7012 int h = (int)SvIV(ST(2));
7013 #line 3532 "SDL_perl.xs"
7014 SMPEG_scaleXY(mpeg,w,h);
7015 #line 7016 "SDL_perl.c"
7020 XS(XS_SDL_SMPEGScale); /* prototype to pass -Wmissing-prototypes */
7021 XS(XS_SDL_SMPEGScale)
7025 Perl_croak(aTHX_ "Usage: SDL::SMPEGScale(mpeg, scale)");
7027 SMPEG* mpeg = INT2PTR(SMPEG *,SvIV(ST(0)));
7028 int scale = (int)SvIV(ST(1));
7029 #line 3539 "SDL_perl.xs"
7030 SMPEG_scale(mpeg,scale);
7031 #line 7032 "SDL_perl.c"
7036 XS(XS_SDL_SMPEGPlay); /* prototype to pass -Wmissing-prototypes */
7037 XS(XS_SDL_SMPEGPlay)
7041 Perl_croak(aTHX_ "Usage: SDL::SMPEGPlay(mpeg)");
7043 SMPEG* mpeg = INT2PTR(SMPEG *,SvIV(ST(0)));
7044 #line 3545 "SDL_perl.xs"
7045 SDL_AudioSpec audiofmt;
7048 #ifdef HAVE_SDL_MIXER
7049 if (sdl_perl_use_smpeg_audio ) {
7050 SMPEG_enableaudio(mpeg, 0);
7051 Mix_QuerySpec(&freq, &format, &channels);
7052 audiofmt.format = format;
7053 audiofmt.freq = freq;
7054 audiofmt.channels = channels;
7055 SMPEG_actualSpec(mpeg, &audiofmt);
7056 Mix_HookMusic(SMPEG_playAudioSDL, mpeg);
7057 SMPEG_enableaudio(mpeg, 1);
7061 #line 7062 "SDL_perl.c"
7066 XS(XS_SDL_SMPEGStatus); /* prototype to pass -Wmissing-prototypes */
7067 XS(XS_SDL_SMPEGStatus)
7071 Perl_croak(aTHX_ "Usage: SDL::SMPEGStatus(mpeg)");
7073 SMPEG* mpeg = INT2PTR(SMPEG *,SvIV(ST(0)));
7076 #line 3566 "SDL_perl.xs"
7077 RETVAL = SMPEG_status(mpeg);
7078 #line 7079 "SDL_perl.c"
7079 XSprePUSH; PUSHi((IV)RETVAL);
7084 XS(XS_SDL_SMPEGPause); /* prototype to pass -Wmissing-prototypes */
7085 XS(XS_SDL_SMPEGPause)
7089 Perl_croak(aTHX_ "Usage: SDL::SMPEGPause(mpeg)");
7091 SMPEG* mpeg = INT2PTR(SMPEG *,SvIV(ST(0)));
7092 #line 3574 "SDL_perl.xs"
7094 #line 7095 "SDL_perl.c"
7099 XS(XS_SDL_SMPEGLoop); /* prototype to pass -Wmissing-prototypes */
7100 XS(XS_SDL_SMPEGLoop)
7104 Perl_croak(aTHX_ "Usage: SDL::SMPEGLoop(mpeg, repeat)");
7106 SMPEG* mpeg = INT2PTR(SMPEG *,SvIV(ST(0)));
7107 int repeat = (int)SvIV(ST(1));
7108 #line 3581 "SDL_perl.xs"
7109 SMPEG_loop(mpeg,repeat);
7110 #line 7111 "SDL_perl.c"
7115 XS(XS_SDL_SMPEGStop); /* prototype to pass -Wmissing-prototypes */
7116 XS(XS_SDL_SMPEGStop)
7120 Perl_croak(aTHX_ "Usage: SDL::SMPEGStop(mpeg)");
7122 SMPEG* mpeg = INT2PTR(SMPEG *,SvIV(ST(0)));
7123 #line 3587 "SDL_perl.xs"
7125 #ifdef HAVE_SDL_MIXER
7126 Mix_HookMusic(NULL, NULL);
7128 #line 7129 "SDL_perl.c"
7133 XS(XS_SDL_SMPEGRewind); /* prototype to pass -Wmissing-prototypes */
7134 XS(XS_SDL_SMPEGRewind)
7138 Perl_croak(aTHX_ "Usage: SDL::SMPEGRewind(mpeg)");
7140 SMPEG* mpeg = INT2PTR(SMPEG *,SvIV(ST(0)));
7141 #line 3596 "SDL_perl.xs"
7143 #line 7144 "SDL_perl.c"
7148 XS(XS_SDL_SMPEGSeek); /* prototype to pass -Wmissing-prototypes */
7149 XS(XS_SDL_SMPEGSeek)
7153 Perl_croak(aTHX_ "Usage: SDL::SMPEGSeek(mpeg, bytes)");
7155 SMPEG* mpeg = INT2PTR(SMPEG *,SvIV(ST(0)));
7156 int bytes = (int)SvIV(ST(1));
7157 #line 3603 "SDL_perl.xs"
7158 SMPEG_seek(mpeg,bytes);
7159 #line 7160 "SDL_perl.c"
7164 XS(XS_SDL_SMPEGSkip); /* prototype to pass -Wmissing-prototypes */
7165 XS(XS_SDL_SMPEGSkip)
7169 Perl_croak(aTHX_ "Usage: SDL::SMPEGSkip(mpeg, seconds)");
7171 SMPEG* mpeg = INT2PTR(SMPEG *,SvIV(ST(0)));
7172 float seconds = (float)SvNV(ST(1));
7173 #line 3610 "SDL_perl.xs"
7174 SMPEG_skip(mpeg,seconds);
7175 #line 7176 "SDL_perl.c"
7180 XS(XS_SDL_SMPEGSetDisplayRegion); /* prototype to pass -Wmissing-prototypes */
7181 XS(XS_SDL_SMPEGSetDisplayRegion)
7185 Perl_croak(aTHX_ "Usage: SDL::SMPEGSetDisplayRegion(mpeg, rect)");
7187 SMPEG* mpeg = INT2PTR(SMPEG *,SvIV(ST(0)));
7188 SDL_Rect* rect = INT2PTR(SDL_Rect *,SvIV(ST(1)));
7189 #line 3617 "SDL_perl.xs"
7190 SMPEG_setdisplayregion(mpeg,rect->x,rect->y,rect->w,rect->h);
7191 #line 7192 "SDL_perl.c"
7196 XS(XS_SDL_SMPEGRenderFrame); /* prototype to pass -Wmissing-prototypes */
7197 XS(XS_SDL_SMPEGRenderFrame)
7201 Perl_croak(aTHX_ "Usage: SDL::SMPEGRenderFrame(mpeg, frame)");
7203 SMPEG* mpeg = INT2PTR(SMPEG *,SvIV(ST(0)));
7204 int frame = (int)SvIV(ST(1));
7205 #line 3624 "SDL_perl.xs"
7206 SMPEG_renderFrame(mpeg,frame);
7207 #line 7208 "SDL_perl.c"
7212 XS(XS_SDL_SMPEGGetInfo); /* prototype to pass -Wmissing-prototypes */
7213 XS(XS_SDL_SMPEGGetInfo)
7217 Perl_croak(aTHX_ "Usage: SDL::SMPEGGetInfo(mpeg)");
7219 SMPEG* mpeg = INT2PTR(SMPEG *,SvIV(ST(0)));
7220 SMPEG_Info * RETVAL;
7222 #line 3630 "SDL_perl.xs"
7223 RETVAL = (SMPEG_Info *) safemalloc (sizeof(SMPEG_Info));
7224 SMPEG_getinfo(mpeg,RETVAL);
7225 #line 7226 "SDL_perl.c"
7226 XSprePUSH; PUSHi(PTR2IV(RETVAL));
7233 #define XSubPPtmpAAAF 1
7235 XS(XS_SDL_GFXRotoZoom); /* prototype to pass -Wmissing-prototypes */
7236 XS(XS_SDL_GFXRotoZoom)
7240 Perl_croak(aTHX_ "Usage: SDL::GFXRotoZoom(src, angle, zoom, smooth)");
7242 SDL_Surface * src = INT2PTR(SDL_Surface *,SvIV(ST(0)));
7243 double angle = (double)SvNV(ST(1));
7244 double zoom = (double)SvNV(ST(2));
7245 int smooth = (int)SvIV(ST(3));
7246 SDL_Surface * RETVAL;
7248 #line 3647 "SDL_perl.xs"
7249 RETVAL = rotozoomSurface( src, angle, zoom, smooth);
7250 #line 7251 "SDL_perl.c"
7251 XSprePUSH; PUSHi(PTR2IV(RETVAL));
7256 XS(XS_SDL_GFXZoom); /* prototype to pass -Wmissing-prototypes */
7261 Perl_croak(aTHX_ "Usage: SDL::GFXZoom(src, zoomx, zoomy, smooth)");
7263 SDL_Surface * src = INT2PTR(SDL_Surface *,SvIV(ST(0)));
7264 double zoomx = (double)SvNV(ST(1));
7265 double zoomy = (double)SvNV(ST(2));
7266 int smooth = (int)SvIV(ST(3));
7267 SDL_Surface * RETVAL;
7269 #line 3658 "SDL_perl.xs"
7270 RETVAL = zoomSurface( src, zoomx, zoomy, smooth);
7271 #line 7272 "SDL_perl.c"
7272 XSprePUSH; PUSHi(PTR2IV(RETVAL));
7277 XS(XS_SDL_GFXPixelColor); /* prototype to pass -Wmissing-prototypes */
7278 XS(XS_SDL_GFXPixelColor)
7282 Perl_croak(aTHX_ "Usage: SDL::GFXPixelColor(dst, x, y, color)");
7284 SDL_Surface* dst = INT2PTR(SDL_Surface *,SvIV(ST(0)));
7285 Sint16 x = (Sint16)SvIV(ST(1));
7286 Sint16 y = (Sint16)SvIV(ST(2));
7287 Uint32 color = (Uint32)SvUV(ST(3));
7290 #line 3669 "SDL_perl.xs"
7291 RETVAL = pixelColor( dst, x, y, color);
7292 #line 7293 "SDL_perl.c"
7293 XSprePUSH; PUSHi((IV)RETVAL);
7298 XS(XS_SDL_GFXPixelRGBA); /* prototype to pass -Wmissing-prototypes */
7299 XS(XS_SDL_GFXPixelRGBA)
7303 Perl_croak(aTHX_ "Usage: SDL::GFXPixelRGBA(dst, x, y, r, g, b, a)");
7305 SDL_Surface* dst = INT2PTR(SDL_Surface *,SvIV(ST(0)));
7306 Sint16 x = (Sint16)SvIV(ST(1));
7307 Sint16 y = (Sint16)SvIV(ST(2));
7308 Uint8 r = (unsigned char)SvUV(ST(3));
7309 Uint8 g = (unsigned char)SvUV(ST(4));
7310 Uint8 b = (unsigned char)SvUV(ST(5));
7311 Uint8 a = (unsigned char)SvUV(ST(6));
7314 #line 3683 "SDL_perl.xs"
7315 RETVAL = pixelRGBA( dst, x, y, r, g, b, a );
7316 #line 7317 "SDL_perl.c"
7317 XSprePUSH; PUSHi((IV)RETVAL);
7322 XS(XS_SDL_GFXHlineColor); /* prototype to pass -Wmissing-prototypes */
7323 XS(XS_SDL_GFXHlineColor)
7327 Perl_croak(aTHX_ "Usage: SDL::GFXHlineColor(dst, x1, x2, y, color)");
7329 SDL_Surface* dst = INT2PTR(SDL_Surface *,SvIV(ST(0)));
7330 Sint16 x1 = (Sint16)SvIV(ST(1));
7331 Sint16 x2 = (Sint16)SvIV(ST(2));
7332 Sint16 y = (Sint16)SvIV(ST(3));
7333 Uint32 color = (Uint32)SvUV(ST(4));
7336 #line 3695 "SDL_perl.xs"
7337 RETVAL = hlineColor( dst, x1, x2, y, color );
7338 #line 7339 "SDL_perl.c"
7339 XSprePUSH; PUSHi((IV)RETVAL);
7344 XS(XS_SDL_GFXHlineRGBA); /* prototype to pass -Wmissing-prototypes */
7345 XS(XS_SDL_GFXHlineRGBA)
7349 Perl_croak(aTHX_ "Usage: SDL::GFXHlineRGBA(dst, x1, x2, y, r, g, b, a)");
7351 SDL_Surface* dst = INT2PTR(SDL_Surface *,SvIV(ST(0)));
7352 Sint16 x1 = (Sint16)SvIV(ST(1));
7353 Sint16 x2 = (Sint16)SvIV(ST(2));
7354 Sint16 y = (Sint16)SvIV(ST(3));
7355 Uint8 r = (unsigned char)SvUV(ST(4));
7356 Uint8 g = (unsigned char)SvUV(ST(5));
7357 Uint8 b = (unsigned char)SvUV(ST(6));
7358 Uint8 a = (unsigned char)SvUV(ST(7));
7361 #line 3710 "SDL_perl.xs"
7362 RETVAL = hlineRGBA( dst, x1, x2, y, r, g, b, a );
7363 #line 7364 "SDL_perl.c"
7364 XSprePUSH; PUSHi((IV)RETVAL);
7369 XS(XS_SDL_GFXVlineColor); /* prototype to pass -Wmissing-prototypes */
7370 XS(XS_SDL_GFXVlineColor)
7374 Perl_croak(aTHX_ "Usage: SDL::GFXVlineColor(dst, x, y1, y2, color)");
7376 SDL_Surface* dst = INT2PTR(SDL_Surface *,SvIV(ST(0)));
7377 Sint16 x = (Sint16)SvIV(ST(1));
7378 Sint16 y1 = (Sint16)SvIV(ST(2));
7379 Sint16 y2 = (Sint16)SvIV(ST(3));
7380 Uint32 color = (Uint32)SvUV(ST(4));
7383 #line 3722 "SDL_perl.xs"
7384 RETVAL = vlineColor( dst, x, y1, y2, color );
7385 #line 7386 "SDL_perl.c"
7386 XSprePUSH; PUSHi((IV)RETVAL);
7391 XS(XS_SDL_GFXVlineRGBA); /* prototype to pass -Wmissing-prototypes */
7392 XS(XS_SDL_GFXVlineRGBA)
7396 Perl_croak(aTHX_ "Usage: SDL::GFXVlineRGBA(dst, x, y1, y2, r, g, b, a)");
7398 SDL_Surface* dst = INT2PTR(SDL_Surface *,SvIV(ST(0)));
7399 Sint16 x = (Sint16)SvIV(ST(1));
7400 Sint16 y1 = (Sint16)SvIV(ST(2));
7401 Sint16 y2 = (Sint16)SvIV(ST(3));
7402 Uint8 r = (unsigned char)SvUV(ST(4));
7403 Uint8 g = (unsigned char)SvUV(ST(5));
7404 Uint8 b = (unsigned char)SvUV(ST(6));
7405 Uint8 a = (unsigned char)SvUV(ST(7));
7408 #line 3737 "SDL_perl.xs"
7409 RETVAL = vlineRGBA( dst, x, y1, y2, r, g, b, a );
7410 #line 7411 "SDL_perl.c"
7411 XSprePUSH; PUSHi((IV)RETVAL);
7416 XS(XS_SDL_GFXRectangleColor); /* prototype to pass -Wmissing-prototypes */
7417 XS(XS_SDL_GFXRectangleColor)
7421 Perl_croak(aTHX_ "Usage: SDL::GFXRectangleColor(dst, x1, y1, x2, y2, color)");
7423 SDL_Surface* dst = INT2PTR(SDL_Surface *,SvIV(ST(0)));
7424 Sint16 x1 = (Sint16)SvIV(ST(1));
7425 Sint16 y1 = (Sint16)SvIV(ST(2));
7426 Sint16 x2 = (Sint16)SvIV(ST(3));
7427 Sint16 y2 = (Sint16)SvIV(ST(4));
7428 Uint32 color = (Uint32)SvUV(ST(5));
7431 #line 3750 "SDL_perl.xs"
7432 RETVAL = rectangleColor( dst, x1, y1, x2, y2, color );
7433 #line 7434 "SDL_perl.c"
7434 XSprePUSH; PUSHi((IV)RETVAL);
7439 XS(XS_SDL_GFXRectangleRGBA); /* prototype to pass -Wmissing-prototypes */
7440 XS(XS_SDL_GFXRectangleRGBA)
7444 Perl_croak(aTHX_ "Usage: SDL::GFXRectangleRGBA(dst, x1, y1, x2, y2, r, g, b, a)");
7446 SDL_Surface* dst = INT2PTR(SDL_Surface *,SvIV(ST(0)));
7447 Sint16 x1 = (Sint16)SvIV(ST(1));
7448 Sint16 y1 = (Sint16)SvIV(ST(2));
7449 Sint16 x2 = (Sint16)SvIV(ST(3));
7450 Sint16 y2 = (Sint16)SvIV(ST(4));
7451 Uint8 r = (unsigned char)SvUV(ST(5));
7452 Uint8 g = (unsigned char)SvUV(ST(6));
7453 Uint8 b = (unsigned char)SvUV(ST(7));
7454 Uint8 a = (unsigned char)SvUV(ST(8));
7457 #line 3766 "SDL_perl.xs"
7458 RETVAL = rectangleRGBA( dst, x1, y1, x2, y2, r, g, b, a );
7459 #line 7460 "SDL_perl.c"
7460 XSprePUSH; PUSHi((IV)RETVAL);
7465 XS(XS_SDL_GFXBoxColor); /* prototype to pass -Wmissing-prototypes */
7466 XS(XS_SDL_GFXBoxColor)
7470 Perl_croak(aTHX_ "Usage: SDL::GFXBoxColor(dst, x1, y1, x2, y2, color)");
7472 SDL_Surface* dst = INT2PTR(SDL_Surface *,SvIV(ST(0)));
7473 Sint16 x1 = (Sint16)SvIV(ST(1));
7474 Sint16 y1 = (Sint16)SvIV(ST(2));
7475 Sint16 x2 = (Sint16)SvIV(ST(3));
7476 Sint16 y2 = (Sint16)SvIV(ST(4));
7477 Uint32 color = (Uint32)SvUV(ST(5));
7480 #line 3779 "SDL_perl.xs"
7481 RETVAL = boxColor( dst, x1, y1, x2, y2, color );
7482 #line 7483 "SDL_perl.c"
7483 XSprePUSH; PUSHi((IV)RETVAL);
7488 XS(XS_SDL_GFXBoxRGBA); /* prototype to pass -Wmissing-prototypes */
7489 XS(XS_SDL_GFXBoxRGBA)
7493 Perl_croak(aTHX_ "Usage: SDL::GFXBoxRGBA(dst, x1, y1, x2, y2, r, g, b, a)");
7495 SDL_Surface* dst = INT2PTR(SDL_Surface *,SvIV(ST(0)));
7496 Sint16 x1 = (Sint16)SvIV(ST(1));
7497 Sint16 y1 = (Sint16)SvIV(ST(2));
7498 Sint16 x2 = (Sint16)SvIV(ST(3));
7499 Sint16 y2 = (Sint16)SvIV(ST(4));
7500 Uint8 r = (unsigned char)SvUV(ST(5));
7501 Uint8 g = (unsigned char)SvUV(ST(6));
7502 Uint8 b = (unsigned char)SvUV(ST(7));
7503 Uint8 a = (unsigned char)SvUV(ST(8));
7506 #line 3795 "SDL_perl.xs"
7507 RETVAL = boxRGBA( dst, x1, y1, x2, y2, r, g, b, a );
7508 #line 7509 "SDL_perl.c"
7509 XSprePUSH; PUSHi((IV)RETVAL);
7514 XS(XS_SDL_GFXLineColor); /* prototype to pass -Wmissing-prototypes */
7515 XS(XS_SDL_GFXLineColor)
7519 Perl_croak(aTHX_ "Usage: SDL::GFXLineColor(dst, x1, y1, x2, y2, color)");
7521 SDL_Surface* dst = INT2PTR(SDL_Surface *,SvIV(ST(0)));
7522 Sint16 x1 = (Sint16)SvIV(ST(1));
7523 Sint16 y1 = (Sint16)SvIV(ST(2));
7524 Sint16 x2 = (Sint16)SvIV(ST(3));
7525 Sint16 y2 = (Sint16)SvIV(ST(4));
7526 Uint32 color = (Uint32)SvUV(ST(5));
7529 #line 3808 "SDL_perl.xs"
7530 RETVAL = lineColor( dst, x1, y1, x2, y2, color );
7531 #line 7532 "SDL_perl.c"
7532 XSprePUSH; PUSHi((IV)RETVAL);
7537 XS(XS_SDL_GFXLineRGBA); /* prototype to pass -Wmissing-prototypes */
7538 XS(XS_SDL_GFXLineRGBA)
7542 Perl_croak(aTHX_ "Usage: SDL::GFXLineRGBA(dst, x1, y1, x2, y2, r, g, b, a)");
7544 SDL_Surface* dst = INT2PTR(SDL_Surface *,SvIV(ST(0)));
7545 Sint16 x1 = (Sint16)SvIV(ST(1));
7546 Sint16 y1 = (Sint16)SvIV(ST(2));
7547 Sint16 x2 = (Sint16)SvIV(ST(3));
7548 Sint16 y2 = (Sint16)SvIV(ST(4));
7549 Uint8 r = (unsigned char)SvUV(ST(5));
7550 Uint8 g = (unsigned char)SvUV(ST(6));
7551 Uint8 b = (unsigned char)SvUV(ST(7));
7552 Uint8 a = (unsigned char)SvUV(ST(8));
7555 #line 3824 "SDL_perl.xs"
7556 RETVAL = lineRGBA( dst, x1, y1, x2, y2, r, g, b, a );
7557 #line 7558 "SDL_perl.c"
7558 XSprePUSH; PUSHi((IV)RETVAL);
7563 XS(XS_SDL_GFXAalineColor); /* prototype to pass -Wmissing-prototypes */
7564 XS(XS_SDL_GFXAalineColor)
7568 Perl_croak(aTHX_ "Usage: SDL::GFXAalineColor(dst, x1, y1, x2, y2, color)");
7570 SDL_Surface* dst = INT2PTR(SDL_Surface *,SvIV(ST(0)));
7571 Sint16 x1 = (Sint16)SvIV(ST(1));
7572 Sint16 y1 = (Sint16)SvIV(ST(2));
7573 Sint16 x2 = (Sint16)SvIV(ST(3));
7574 Sint16 y2 = (Sint16)SvIV(ST(4));
7575 Uint32 color = (Uint32)SvUV(ST(5));
7578 #line 3837 "SDL_perl.xs"
7579 RETVAL = aalineColor( dst, x1, y1, x2, y2, color );
7580 #line 7581 "SDL_perl.c"
7581 XSprePUSH; PUSHi((IV)RETVAL);
7586 XS(XS_SDL_GFXAalineRGBA); /* prototype to pass -Wmissing-prototypes */
7587 XS(XS_SDL_GFXAalineRGBA)
7591 Perl_croak(aTHX_ "Usage: SDL::GFXAalineRGBA(dst, x1, y1, x2, y2, r, g, b, a)");
7593 SDL_Surface* dst = INT2PTR(SDL_Surface *,SvIV(ST(0)));
7594 Sint16 x1 = (Sint16)SvIV(ST(1));
7595 Sint16 y1 = (Sint16)SvIV(ST(2));
7596 Sint16 x2 = (Sint16)SvIV(ST(3));
7597 Sint16 y2 = (Sint16)SvIV(ST(4));
7598 Uint8 r = (unsigned char)SvUV(ST(5));
7599 Uint8 g = (unsigned char)SvUV(ST(6));
7600 Uint8 b = (unsigned char)SvUV(ST(7));
7601 Uint8 a = (unsigned char)SvUV(ST(8));
7604 #line 3853 "SDL_perl.xs"
7605 RETVAL = aalineRGBA( dst, x1, y1, x2, y2, r, g, b, a );
7606 #line 7607 "SDL_perl.c"
7607 XSprePUSH; PUSHi((IV)RETVAL);
7612 XS(XS_SDL_GFXCircleColor); /* prototype to pass -Wmissing-prototypes */
7613 XS(XS_SDL_GFXCircleColor)
7617 Perl_croak(aTHX_ "Usage: SDL::GFXCircleColor(dst, x, y, r, color)");
7619 SDL_Surface* dst = INT2PTR(SDL_Surface *,SvIV(ST(0)));
7620 Sint16 x = (Sint16)SvIV(ST(1));
7621 Sint16 y = (Sint16)SvIV(ST(2));
7622 Sint16 r = (Sint16)SvIV(ST(3));
7623 Uint32 color = (Uint32)SvUV(ST(4));
7626 #line 3865 "SDL_perl.xs"
7627 RETVAL = circleColor( dst, x, y, r, color );
7628 #line 7629 "SDL_perl.c"
7629 XSprePUSH; PUSHi((IV)RETVAL);
7634 XS(XS_SDL_GFXCircleRGBA); /* prototype to pass -Wmissing-prototypes */
7635 XS(XS_SDL_GFXCircleRGBA)
7639 Perl_croak(aTHX_ "Usage: SDL::GFXCircleRGBA(dst, x, y, rad, r, g, b, a)");
7641 SDL_Surface* dst = INT2PTR(SDL_Surface *,SvIV(ST(0)));
7642 Sint16 x = (Sint16)SvIV(ST(1));
7643 Sint16 y = (Sint16)SvIV(ST(2));
7644 Sint16 rad = (Sint16)SvIV(ST(3));
7645 Uint8 r = (unsigned char)SvUV(ST(4));
7646 Uint8 g = (unsigned char)SvUV(ST(5));
7647 Uint8 b = (unsigned char)SvUV(ST(6));
7648 Uint8 a = (unsigned char)SvUV(ST(7));
7651 #line 3880 "SDL_perl.xs"
7652 RETVAL = circleRGBA( dst, x, y, rad, r, g, b, a );
7653 #line 7654 "SDL_perl.c"
7654 XSprePUSH; PUSHi((IV)RETVAL);
7659 XS(XS_SDL_GFXAacircleColor); /* prototype to pass -Wmissing-prototypes */
7660 XS(XS_SDL_GFXAacircleColor)
7664 Perl_croak(aTHX_ "Usage: SDL::GFXAacircleColor(dst, x, y, r, color)");
7666 SDL_Surface* dst = INT2PTR(SDL_Surface *,SvIV(ST(0)));
7667 Sint16 x = (Sint16)SvIV(ST(1));
7668 Sint16 y = (Sint16)SvIV(ST(2));
7669 Sint16 r = (Sint16)SvIV(ST(3));
7670 Uint32 color = (Uint32)SvUV(ST(4));
7673 #line 3892 "SDL_perl.xs"
7674 RETVAL = aacircleColor( dst, x, y, r, color );
7675 #line 7676 "SDL_perl.c"
7676 XSprePUSH; PUSHi((IV)RETVAL);
7681 XS(XS_SDL_GFXAacircleRGBA); /* prototype to pass -Wmissing-prototypes */
7682 XS(XS_SDL_GFXAacircleRGBA)
7686 Perl_croak(aTHX_ "Usage: SDL::GFXAacircleRGBA(dst, x, y, rad, r, g, b, a)");
7688 SDL_Surface* dst = INT2PTR(SDL_Surface *,SvIV(ST(0)));
7689 Sint16 x = (Sint16)SvIV(ST(1));
7690 Sint16 y = (Sint16)SvIV(ST(2));
7691 Sint16 rad = (Sint16)SvIV(ST(3));
7692 Uint8 r = (unsigned char)SvUV(ST(4));
7693 Uint8 g = (unsigned char)SvUV(ST(5));
7694 Uint8 b = (unsigned char)SvUV(ST(6));
7695 Uint8 a = (unsigned char)SvUV(ST(7));
7698 #line 3907 "SDL_perl.xs"
7699 RETVAL = aacircleRGBA( dst, x, y, rad, r, g, b, a );
7700 #line 7701 "SDL_perl.c"
7701 XSprePUSH; PUSHi((IV)RETVAL);
7706 XS(XS_SDL_GFXFilledCircleColor); /* prototype to pass -Wmissing-prototypes */
7707 XS(XS_SDL_GFXFilledCircleColor)
7711 Perl_croak(aTHX_ "Usage: SDL::GFXFilledCircleColor(dst, x, y, r, color)");
7713 SDL_Surface* dst = INT2PTR(SDL_Surface *,SvIV(ST(0)));
7714 Sint16 x = (Sint16)SvIV(ST(1));
7715 Sint16 y = (Sint16)SvIV(ST(2));
7716 Sint16 r = (Sint16)SvIV(ST(3));
7717 Uint32 color = (Uint32)SvUV(ST(4));
7720 #line 3919 "SDL_perl.xs"
7721 RETVAL = filledCircleColor( dst, x, y, r, color );
7722 #line 7723 "SDL_perl.c"
7723 XSprePUSH; PUSHi((IV)RETVAL);
7728 XS(XS_SDL_GFXFilledCircleRGBA); /* prototype to pass -Wmissing-prototypes */
7729 XS(XS_SDL_GFXFilledCircleRGBA)
7733 Perl_croak(aTHX_ "Usage: SDL::GFXFilledCircleRGBA(dst, x, y, rad, r, g, b, a)");
7735 SDL_Surface* dst = INT2PTR(SDL_Surface *,SvIV(ST(0)));
7736 Sint16 x = (Sint16)SvIV(ST(1));
7737 Sint16 y = (Sint16)SvIV(ST(2));
7738 Sint16 rad = (Sint16)SvIV(ST(3));
7739 Uint8 r = (unsigned char)SvUV(ST(4));
7740 Uint8 g = (unsigned char)SvUV(ST(5));
7741 Uint8 b = (unsigned char)SvUV(ST(6));
7742 Uint8 a = (unsigned char)SvUV(ST(7));
7745 #line 3934 "SDL_perl.xs"
7746 RETVAL = filledCircleRGBA( dst, x, y, rad, r, g, b, a );
7747 #line 7748 "SDL_perl.c"
7748 XSprePUSH; PUSHi((IV)RETVAL);
7753 XS(XS_SDL_GFXEllipseColor); /* prototype to pass -Wmissing-prototypes */
7754 XS(XS_SDL_GFXEllipseColor)
7758 Perl_croak(aTHX_ "Usage: SDL::GFXEllipseColor(dst, x, y, rx, ry, color)");
7760 SDL_Surface* dst = INT2PTR(SDL_Surface *,SvIV(ST(0)));
7761 Sint16 x = (Sint16)SvIV(ST(1));
7762 Sint16 y = (Sint16)SvIV(ST(2));
7763 Sint16 rx = (Sint16)SvIV(ST(3));
7764 Sint16 ry = (Sint16)SvIV(ST(4));
7765 Uint32 color = (Uint32)SvUV(ST(5));
7768 #line 3947 "SDL_perl.xs"
7769 RETVAL = ellipseColor( dst, x, y, rx, ry, color );
7770 #line 7771 "SDL_perl.c"
7771 XSprePUSH; PUSHi((IV)RETVAL);
7776 XS(XS_SDL_GFXEllipseRGBA); /* prototype to pass -Wmissing-prototypes */
7777 XS(XS_SDL_GFXEllipseRGBA)
7781 Perl_croak(aTHX_ "Usage: SDL::GFXEllipseRGBA(dst, x, y, rx, ry, r, g, b, a)");
7783 SDL_Surface* dst = INT2PTR(SDL_Surface *,SvIV(ST(0)));
7784 Sint16 x = (Sint16)SvIV(ST(1));
7785 Sint16 y = (Sint16)SvIV(ST(2));
7786 Sint16 rx = (Sint16)SvIV(ST(3));
7787 Sint16 ry = (Sint16)SvIV(ST(4));
7788 Uint8 r = (unsigned char)SvUV(ST(5));
7789 Uint8 g = (unsigned char)SvUV(ST(6));
7790 Uint8 b = (unsigned char)SvUV(ST(7));
7791 Uint8 a = (unsigned char)SvUV(ST(8));
7794 #line 3963 "SDL_perl.xs"
7795 RETVAL = ellipseRGBA( dst, x, y, rx, ry, r, g, b, a );
7796 #line 7797 "SDL_perl.c"
7797 XSprePUSH; PUSHi((IV)RETVAL);
7802 XS(XS_SDL_GFXAaellipseColor); /* prototype to pass -Wmissing-prototypes */
7803 XS(XS_SDL_GFXAaellipseColor)
7807 Perl_croak(aTHX_ "Usage: SDL::GFXAaellipseColor(dst, xc, yc, rx, ry, color)");
7809 SDL_Surface* dst = INT2PTR(SDL_Surface *,SvIV(ST(0)));
7810 Sint16 xc = (Sint16)SvIV(ST(1));
7811 Sint16 yc = (Sint16)SvIV(ST(2));
7812 Sint16 rx = (Sint16)SvIV(ST(3));
7813 Sint16 ry = (Sint16)SvIV(ST(4));
7814 Uint32 color = (Uint32)SvUV(ST(5));
7817 #line 3976 "SDL_perl.xs"
7818 RETVAL = aaellipseColor( dst, xc, yc, rx, ry, color );
7819 #line 7820 "SDL_perl.c"
7820 XSprePUSH; PUSHi((IV)RETVAL);
7825 XS(XS_SDL_GFXAaellipseRGBA); /* prototype to pass -Wmissing-prototypes */
7826 XS(XS_SDL_GFXAaellipseRGBA)
7830 Perl_croak(aTHX_ "Usage: SDL::GFXAaellipseRGBA(dst, x, y, rx, ry, r, g, b, a)");
7832 SDL_Surface* dst = INT2PTR(SDL_Surface *,SvIV(ST(0)));
7833 Sint16 x = (Sint16)SvIV(ST(1));
7834 Sint16 y = (Sint16)SvIV(ST(2));
7835 Sint16 rx = (Sint16)SvIV(ST(3));
7836 Sint16 ry = (Sint16)SvIV(ST(4));
7837 Uint8 r = (unsigned char)SvUV(ST(5));
7838 Uint8 g = (unsigned char)SvUV(ST(6));
7839 Uint8 b = (unsigned char)SvUV(ST(7));
7840 Uint8 a = (unsigned char)SvUV(ST(8));
7843 #line 3992 "SDL_perl.xs"
7844 RETVAL = aaellipseRGBA( dst, x, y, rx, ry, r, g, b, a );
7845 #line 7846 "SDL_perl.c"
7846 XSprePUSH; PUSHi((IV)RETVAL);
7851 XS(XS_SDL_GFXFilledEllipseColor); /* prototype to pass -Wmissing-prototypes */
7852 XS(XS_SDL_GFXFilledEllipseColor)
7856 Perl_croak(aTHX_ "Usage: SDL::GFXFilledEllipseColor(dst, x, y, rx, ry, color)");
7858 SDL_Surface* dst = INT2PTR(SDL_Surface *,SvIV(ST(0)));
7859 Sint16 x = (Sint16)SvIV(ST(1));
7860 Sint16 y = (Sint16)SvIV(ST(2));
7861 Sint16 rx = (Sint16)SvIV(ST(3));
7862 Sint16 ry = (Sint16)SvIV(ST(4));
7863 Uint32 color = (Uint32)SvUV(ST(5));
7866 #line 4005 "SDL_perl.xs"
7867 RETVAL = filledEllipseColor( dst, x, y, rx, ry, color );
7868 #line 7869 "SDL_perl.c"
7869 XSprePUSH; PUSHi((IV)RETVAL);
7874 XS(XS_SDL_GFXFilledEllipseRGBA); /* prototype to pass -Wmissing-prototypes */
7875 XS(XS_SDL_GFXFilledEllipseRGBA)
7879 Perl_croak(aTHX_ "Usage: SDL::GFXFilledEllipseRGBA(dst, x, y, rx, ry, r, g, b, a)");
7881 SDL_Surface* dst = INT2PTR(SDL_Surface *,SvIV(ST(0)));
7882 Sint16 x = (Sint16)SvIV(ST(1));
7883 Sint16 y = (Sint16)SvIV(ST(2));
7884 Sint16 rx = (Sint16)SvIV(ST(3));
7885 Sint16 ry = (Sint16)SvIV(ST(4));
7886 Uint8 r = (unsigned char)SvUV(ST(5));
7887 Uint8 g = (unsigned char)SvUV(ST(6));
7888 Uint8 b = (unsigned char)SvUV(ST(7));
7889 Uint8 a = (unsigned char)SvUV(ST(8));
7892 #line 4021 "SDL_perl.xs"
7893 RETVAL = filledEllipseRGBA( dst, x, y, rx, ry, r, g, b, a );
7894 #line 7895 "SDL_perl.c"
7895 XSprePUSH; PUSHi((IV)RETVAL);
7900 XS(XS_SDL_GFXFilledPieColor); /* prototype to pass -Wmissing-prototypes */
7901 XS(XS_SDL_GFXFilledPieColor)
7905 Perl_croak(aTHX_ "Usage: SDL::GFXFilledPieColor(dst, x, y, rad, start, end, color)");
7907 SDL_Surface* dst = INT2PTR(SDL_Surface *,SvIV(ST(0)));
7908 Sint16 x = (Sint16)SvIV(ST(1));
7909 Sint16 y = (Sint16)SvIV(ST(2));
7910 Sint16 rad = (Sint16)SvIV(ST(3));
7911 Sint16 start = (Sint16)SvIV(ST(4));
7912 Sint16 end = (Sint16)SvIV(ST(5));
7913 Uint32 color = (Uint32)SvUV(ST(6));
7916 #line 4035 "SDL_perl.xs"
7917 RETVAL = filledPieColor( dst, x, y, rad, start, end, color );
7918 #line 7919 "SDL_perl.c"
7919 XSprePUSH; PUSHi((IV)RETVAL);
7924 XS(XS_SDL_GFXFilledPieRGBA); /* prototype to pass -Wmissing-prototypes */
7925 XS(XS_SDL_GFXFilledPieRGBA)
7929 Perl_croak(aTHX_ "Usage: SDL::GFXFilledPieRGBA(dst, x, y, rad, start, end, r, g, b, a)");
7931 SDL_Surface* dst = INT2PTR(SDL_Surface *,SvIV(ST(0)));
7932 Sint16 x = (Sint16)SvIV(ST(1));
7933 Sint16 y = (Sint16)SvIV(ST(2));
7934 Sint16 rad = (Sint16)SvIV(ST(3));
7935 Sint16 start = (Sint16)SvIV(ST(4));
7936 Sint16 end = (Sint16)SvIV(ST(5));
7937 Uint8 r = (unsigned char)SvUV(ST(6));
7938 Uint8 g = (unsigned char)SvUV(ST(7));
7939 Uint8 b = (unsigned char)SvUV(ST(8));
7940 Uint8 a = (unsigned char)SvUV(ST(9));
7943 #line 4052 "SDL_perl.xs"
7944 RETVAL = filledPieRGBA( dst, x, y, rad, start, end, r, g, b, a );
7945 #line 7946 "SDL_perl.c"
7946 XSprePUSH; PUSHi((IV)RETVAL);
7951 XS(XS_SDL_GFXPolygonColor); /* prototype to pass -Wmissing-prototypes */
7952 XS(XS_SDL_GFXPolygonColor)
7956 Perl_croak(aTHX_ "Usage: SDL::GFXPolygonColor(dst, vx, vy, n, color)");
7958 SDL_Surface* dst = INT2PTR(SDL_Surface *,SvIV(ST(0)));
7959 Sint16* vx = INT2PTR(Sint16 *,SvIV(ST(1)));
7960 Sint16* vy = INT2PTR(Sint16 *,SvIV(ST(2)));
7961 int n = (int)SvIV(ST(3));
7962 Uint32 color = (Uint32)SvUV(ST(4));
7965 #line 4064 "SDL_perl.xs"
7966 RETVAL = polygonColor( dst, vx, vy, n, color );
7967 #line 7968 "SDL_perl.c"
7968 XSprePUSH; PUSHi((IV)RETVAL);
7973 XS(XS_SDL_GFXPolygonRGBA); /* prototype to pass -Wmissing-prototypes */
7974 XS(XS_SDL_GFXPolygonRGBA)
7978 Perl_croak(aTHX_ "Usage: SDL::GFXPolygonRGBA(dst, vx, vy, n, r, g, b, a)");
7980 SDL_Surface* dst = INT2PTR(SDL_Surface *,SvIV(ST(0)));
7981 Sint16* vx = INT2PTR(Sint16 *,SvIV(ST(1)));
7982 Sint16* vy = INT2PTR(Sint16 *,SvIV(ST(2)));
7983 int n = (int)SvIV(ST(3));
7984 Uint8 r = (unsigned char)SvUV(ST(4));
7985 Uint8 g = (unsigned char)SvUV(ST(5));
7986 Uint8 b = (unsigned char)SvUV(ST(6));
7987 Uint8 a = (unsigned char)SvUV(ST(7));
7990 #line 4079 "SDL_perl.xs"
7991 RETVAL = polygonRGBA( dst, vx, vy, n, r, g, b, a );
7992 #line 7993 "SDL_perl.c"
7993 XSprePUSH; PUSHi((IV)RETVAL);
7998 XS(XS_SDL_GFXAapolygonColor); /* prototype to pass -Wmissing-prototypes */
7999 XS(XS_SDL_GFXAapolygonColor)
8003 Perl_croak(aTHX_ "Usage: SDL::GFXAapolygonColor(dst, vx, vy, n, color)");
8005 SDL_Surface* dst = INT2PTR(SDL_Surface *,SvIV(ST(0)));
8006 Sint16* vx = INT2PTR(Sint16 *,SvIV(ST(1)));
8007 Sint16* vy = INT2PTR(Sint16 *,SvIV(ST(2)));
8008 int n = (int)SvIV(ST(3));
8009 Uint32 color = (Uint32)SvUV(ST(4));
8012 #line 4091 "SDL_perl.xs"
8013 RETVAL = aapolygonColor( dst, vx, vy, n, color );
8014 #line 8015 "SDL_perl.c"
8015 XSprePUSH; PUSHi((IV)RETVAL);
8020 XS(XS_SDL_GFXAapolygonRGBA); /* prototype to pass -Wmissing-prototypes */
8021 XS(XS_SDL_GFXAapolygonRGBA)
8025 Perl_croak(aTHX_ "Usage: SDL::GFXAapolygonRGBA(dst, vx, vy, n, r, g, b, a)");
8027 SDL_Surface* dst = INT2PTR(SDL_Surface *,SvIV(ST(0)));
8028 Sint16* vx = INT2PTR(Sint16 *,SvIV(ST(1)));
8029 Sint16* vy = INT2PTR(Sint16 *,SvIV(ST(2)));
8030 int n = (int)SvIV(ST(3));
8031 Uint8 r = (unsigned char)SvUV(ST(4));
8032 Uint8 g = (unsigned char)SvUV(ST(5));
8033 Uint8 b = (unsigned char)SvUV(ST(6));
8034 Uint8 a = (unsigned char)SvUV(ST(7));
8037 #line 4106 "SDL_perl.xs"
8038 RETVAL = aapolygonRGBA( dst, vx, vy, n, r, g, b, a );
8039 #line 8040 "SDL_perl.c"
8040 XSprePUSH; PUSHi((IV)RETVAL);
8045 XS(XS_SDL_GFXFilledPolygonColor); /* prototype to pass -Wmissing-prototypes */
8046 XS(XS_SDL_GFXFilledPolygonColor)
8050 Perl_croak(aTHX_ "Usage: SDL::GFXFilledPolygonColor(dst, vx, vy, n, color)");
8052 SDL_Surface* dst = INT2PTR(SDL_Surface *,SvIV(ST(0)));
8053 Sint16* vx = INT2PTR(Sint16 *,SvIV(ST(1)));
8054 Sint16* vy = INT2PTR(Sint16 *,SvIV(ST(2)));
8055 int n = (int)SvIV(ST(3));
8056 int color = (int)SvIV(ST(4));
8059 #line 4118 "SDL_perl.xs"
8060 RETVAL = filledPolygonColor( dst, vx, vy, n, color );
8061 #line 8062 "SDL_perl.c"
8062 XSprePUSH; PUSHi((IV)RETVAL);
8067 XS(XS_SDL_GFXFilledPolygonRGBA); /* prototype to pass -Wmissing-prototypes */
8068 XS(XS_SDL_GFXFilledPolygonRGBA)
8072 Perl_croak(aTHX_ "Usage: SDL::GFXFilledPolygonRGBA(dst, vx, vy, n, r, g, b, a)");
8074 SDL_Surface* dst = INT2PTR(SDL_Surface *,SvIV(ST(0)));
8075 Sint16* vx = INT2PTR(Sint16 *,SvIV(ST(1)));
8076 Sint16* vy = INT2PTR(Sint16 *,SvIV(ST(2)));
8077 int n = (int)SvIV(ST(3));
8078 Uint8 r = (unsigned char)SvUV(ST(4));
8079 Uint8 g = (unsigned char)SvUV(ST(5));
8080 Uint8 b = (unsigned char)SvUV(ST(6));
8081 Uint8 a = (unsigned char)SvUV(ST(7));
8084 #line 4133 "SDL_perl.xs"
8085 RETVAL = filledPolygonRGBA( dst, vx, vy, n, r, g, b, a );
8086 #line 8087 "SDL_perl.c"
8087 XSprePUSH; PUSHi((IV)RETVAL);
8092 XS(XS_SDL_GFXCharacterColor); /* prototype to pass -Wmissing-prototypes */
8093 XS(XS_SDL_GFXCharacterColor)
8097 Perl_croak(aTHX_ "Usage: SDL::GFXCharacterColor(dst, x, y, c, color)");
8099 SDL_Surface* dst = INT2PTR(SDL_Surface *,SvIV(ST(0)));
8100 Sint16 x = (Sint16)SvIV(ST(1));
8101 Sint16 y = (Sint16)SvIV(ST(2));
8102 char c = (char)*SvPV_nolen(ST(3));
8103 Uint32 color = (Uint32)SvUV(ST(4));
8106 #line 4145 "SDL_perl.xs"
8107 RETVAL = characterColor( dst, x, y, c, color );
8108 #line 8109 "SDL_perl.c"
8109 XSprePUSH; PUSHi((IV)RETVAL);
8114 XS(XS_SDL_GFXCharacterRGBA); /* prototype to pass -Wmissing-prototypes */
8115 XS(XS_SDL_GFXCharacterRGBA)
8119 Perl_croak(aTHX_ "Usage: SDL::GFXCharacterRGBA(dst, x, y, c, r, g, b, a)");
8121 SDL_Surface* dst = INT2PTR(SDL_Surface *,SvIV(ST(0)));
8122 Sint16 x = (Sint16)SvIV(ST(1));
8123 Sint16 y = (Sint16)SvIV(ST(2));
8124 char c = (char)*SvPV_nolen(ST(3));
8125 Uint8 r = (unsigned char)SvUV(ST(4));
8126 Uint8 g = (unsigned char)SvUV(ST(5));
8127 Uint8 b = (unsigned char)SvUV(ST(6));
8128 Uint8 a = (unsigned char)SvUV(ST(7));
8131 #line 4160 "SDL_perl.xs"
8132 RETVAL = characterRGBA( dst, x, y, c, r, g, b, a );
8133 #line 8134 "SDL_perl.c"
8134 XSprePUSH; PUSHi((IV)RETVAL);
8139 XS(XS_SDL_GFXStringColor); /* prototype to pass -Wmissing-prototypes */
8140 XS(XS_SDL_GFXStringColor)
8144 Perl_croak(aTHX_ "Usage: SDL::GFXStringColor(dst, x, y, c, color)");
8146 SDL_Surface* dst = INT2PTR(SDL_Surface *,SvIV(ST(0)));
8147 Sint16 x = (Sint16)SvIV(ST(1));
8148 Sint16 y = (Sint16)SvIV(ST(2));
8149 char* c = (char *)SvPV_nolen(ST(3));
8150 Uint32 color = (Uint32)SvUV(ST(4));
8153 #line 4172 "SDL_perl.xs"
8154 RETVAL = stringColor( dst, x, y, c, color );
8155 #line 8156 "SDL_perl.c"
8156 XSprePUSH; PUSHi((IV)RETVAL);
8161 XS(XS_SDL_GFXStringRGBA); /* prototype to pass -Wmissing-prototypes */
8162 XS(XS_SDL_GFXStringRGBA)
8166 Perl_croak(aTHX_ "Usage: SDL::GFXStringRGBA(dst, x, y, c, r, g, b, a)");
8168 SDL_Surface* dst = INT2PTR(SDL_Surface *,SvIV(ST(0)));
8169 Sint16 x = (Sint16)SvIV(ST(1));
8170 Sint16 y = (Sint16)SvIV(ST(2));
8171 char* c = (char *)SvPV_nolen(ST(3));
8172 Uint8 r = (unsigned char)SvUV(ST(4));
8173 Uint8 g = (unsigned char)SvUV(ST(5));
8174 Uint8 b = (unsigned char)SvUV(ST(6));
8175 Uint8 a = (unsigned char)SvUV(ST(7));
8178 #line 4187 "SDL_perl.xs"
8179 RETVAL = stringRGBA( dst, x, y, c, r, g, b, a );
8180 #line 8181 "SDL_perl.c"
8181 XSprePUSH; PUSHi((IV)RETVAL);
8188 #define XSubPPtmpAAAG 1
8190 XS(XS_SDL_SVG_Load); /* prototype to pass -Wmissing-prototypes */
8195 Perl_croak(aTHX_ "Usage: SDL::SVG_Load(filename)");
8197 char* filename = (char *)SvPV_nolen(ST(0));
8198 SDL_svg_context * RETVAL;
8200 #line 4200 "SDL_perl.xs"
8201 RETVAL = SVG_Load(filename);
8202 #line 8203 "SDL_perl.c"
8203 XSprePUSH; PUSHi(PTR2IV(RETVAL));
8208 XS(XS_SDL_SVG_LoadBuffer); /* prototype to pass -Wmissing-prototypes */
8209 XS(XS_SDL_SVG_LoadBuffer)
8213 Perl_croak(aTHX_ "Usage: SDL::SVG_LoadBuffer(data, len)");
8215 char* data = (char *)SvPV_nolen(ST(0));
8216 int len = (int)SvIV(ST(1));
8217 SDL_svg_context * RETVAL;
8219 #line 4209 "SDL_perl.xs"
8220 RETVAL = SVG_LoadBuffer(data,len);
8221 #line 8222 "SDL_perl.c"
8222 XSprePUSH; PUSHi(PTR2IV(RETVAL));
8227 XS(XS_SDL_SVG_SetOffset); /* prototype to pass -Wmissing-prototypes */
8228 XS(XS_SDL_SVG_SetOffset)
8232 Perl_croak(aTHX_ "Usage: SDL::SVG_SetOffset(source, xoff, yoff)");
8234 SDL_svg_context* source = INT2PTR(SDL_svg_context *,SvIV(ST(0)));
8235 double xoff = (double)SvNV(ST(1));
8236 double yoff = (double)SvNV(ST(2));
8239 #line 4219 "SDL_perl.xs"
8240 RETVAL = SVG_SetOffset(source,xoff,yoff);
8241 #line 8242 "SDL_perl.c"
8242 XSprePUSH; PUSHi((IV)RETVAL);
8247 XS(XS_SDL_SVG_SetScale); /* prototype to pass -Wmissing-prototypes */
8248 XS(XS_SDL_SVG_SetScale)
8252 Perl_croak(aTHX_ "Usage: SDL::SVG_SetScale(source, xscale, yscale)");
8254 SDL_svg_context* source = INT2PTR(SDL_svg_context *,SvIV(ST(0)));
8255 double xscale = (double)SvNV(ST(1));
8256 double yscale = (double)SvNV(ST(2));
8259 #line 4229 "SDL_perl.xs"
8260 RETVAL = SVG_SetScale(source,xscale,yscale);
8261 #line 8262 "SDL_perl.c"
8262 XSprePUSH; PUSHi((IV)RETVAL);
8267 XS(XS_SDL_SVG_RenderToSurface); /* prototype to pass -Wmissing-prototypes */
8268 XS(XS_SDL_SVG_RenderToSurface)
8272 Perl_croak(aTHX_ "Usage: SDL::SVG_RenderToSurface(source, x, y, dest)");
8274 SDL_svg_context* source = INT2PTR(SDL_svg_context *,SvIV(ST(0)));
8275 int x = (int)SvIV(ST(1));
8276 int y = (int)SvIV(ST(2));
8277 SDL_Surface* dest = INT2PTR(SDL_Surface *,SvIV(ST(3)));
8280 #line 4240 "SDL_perl.xs"
8281 RETVAL = SVG_RenderToSurface(source,x,y,dest);
8282 #line 8283 "SDL_perl.c"
8283 XSprePUSH; PUSHi((IV)RETVAL);
8288 XS(XS_SDL_SVG_Free); /* prototype to pass -Wmissing-prototypes */
8293 Perl_croak(aTHX_ "Usage: SDL::SVG_Free(source)");
8295 SDL_svg_context* source = INT2PTR(SDL_svg_context *,SvIV(ST(0)));
8296 #line 4248 "SDL_perl.xs"
8298 #line 8299 "SDL_perl.c"
8303 XS(XS_SDL_SVG_Set_Flags); /* prototype to pass -Wmissing-prototypes */
8304 XS(XS_SDL_SVG_Set_Flags)
8308 Perl_croak(aTHX_ "Usage: SDL::SVG_Set_Flags(source, flags)");
8310 SDL_svg_context* source = INT2PTR(SDL_svg_context *,SvIV(ST(0)));
8311 Uint32 flags = (Uint32)SvUV(ST(1));
8312 #line 4255 "SDL_perl.xs"
8313 SVG_Set_Flags(source,flags);
8314 #line 8315 "SDL_perl.c"
8319 XS(XS_SDL_SVG_Width); /* prototype to pass -Wmissing-prototypes */
8320 XS(XS_SDL_SVG_Width)
8324 Perl_croak(aTHX_ "Usage: SDL::SVG_Width(source)");
8326 SDL_svg_context* source = INT2PTR(SDL_svg_context *,SvIV(ST(0)));
8329 #line 4261 "SDL_perl.xs"
8330 RETVAL = SVG_Width(source);
8331 #line 8332 "SDL_perl.c"
8332 XSprePUSH; PUSHn((double)RETVAL);
8337 XS(XS_SDL_SVG_HEIGHT); /* prototype to pass -Wmissing-prototypes */
8338 XS(XS_SDL_SVG_HEIGHT)
8342 Perl_croak(aTHX_ "Usage: SDL::SVG_HEIGHT(source)");
8344 SDL_svg_context* source = INT2PTR(SDL_svg_context *,SvIV(ST(0)));
8347 #line 4269 "SDL_perl.xs"
8348 RETVAL = SVG_Height(source);
8349 #line 8350 "SDL_perl.c"
8350 XSprePUSH; PUSHn((double)RETVAL);
8355 XS(XS_SDL_SVG_SetClipping); /* prototype to pass -Wmissing-prototypes */
8356 XS(XS_SDL_SVG_SetClipping)
8360 Perl_croak(aTHX_ "Usage: SDL::SVG_SetClipping(source, minx, miny, maxx, maxy)");
8362 SDL_svg_context* source = INT2PTR(SDL_svg_context *,SvIV(ST(0)));
8363 int minx = (int)SvIV(ST(1));
8364 int miny = (int)SvIV(ST(2));
8365 int maxx = (int)SvIV(ST(3));
8366 int maxy = (int)SvIV(ST(4));
8367 #line 4281 "SDL_perl.xs"
8368 SVG_SetClipping(source,minx,miny,maxx,maxy);
8369 #line 8370 "SDL_perl.c"
8374 XS(XS_SDL_SVG_Version); /* prototype to pass -Wmissing-prototypes */
8375 XS(XS_SDL_SVG_Version)
8379 Perl_croak(aTHX_ "Usage: SDL::SVG_Version()");
8383 #line 4286 "SDL_perl.xs"
8384 RETVAL = SVG_Version();
8385 #line 8386 "SDL_perl.c"
8386 XSprePUSH; PUSHi((IV)RETVAL);
8392 #ifdef HAVE_SDL_SOUND
8393 #define XSubPPtmpAAAH 1
8395 XS(XS_SDL_SoundAudioInfoFormat); /* prototype to pass -Wmissing-prototypes */
8396 XS(XS_SDL_SoundAudioInfoFormat)
8400 Perl_croak(aTHX_ "Usage: SDL::SoundAudioInfoFormat(audioinfo)");
8402 Sound_AudioInfo* audioinfo = INT2PTR(Sound_AudioInfo *,SvIV(ST(0)));
8405 #line 4299 "SDL_perl.xs"
8406 RETVAL = audioinfo->format;
8407 #line 8408 "SDL_perl.c"
8408 XSprePUSH; PUSHu((UV)RETVAL);
8413 XS(XS_SDL_SoundAudioInfoChannels); /* prototype to pass -Wmissing-prototypes */
8414 XS(XS_SDL_SoundAudioInfoChannels)
8418 Perl_croak(aTHX_ "Usage: SDL::SoundAudioInfoChannels(audioinfo)");
8420 Sound_AudioInfo* audioinfo = INT2PTR(Sound_AudioInfo *,SvIV(ST(0)));
8423 #line 4307 "SDL_perl.xs"
8424 RETVAL = audioinfo->channels;
8425 #line 8426 "SDL_perl.c"
8426 XSprePUSH; PUSHu((UV)RETVAL);
8431 XS(XS_SDL_SoundAudioInforate); /* prototype to pass -Wmissing-prototypes */
8432 XS(XS_SDL_SoundAudioInforate)
8436 Perl_croak(aTHX_ "Usage: SDL::SoundAudioInforate(audioinfo)");
8438 Sound_AudioInfo* audioinfo = INT2PTR(Sound_AudioInfo *,SvIV(ST(0)));
8441 #line 4315 "SDL_perl.xs"
8442 RETVAL = audioinfo->rate;
8443 #line 8444 "SDL_perl.c"
8444 XSprePUSH; PUSHu((UV)RETVAL);
8449 XS(XS_SDL_SoundDecoderInfoExtensions); /* prototype to pass -Wmissing-prototypes */
8450 XS(XS_SDL_SoundDecoderInfoExtensions)
8454 Perl_croak(aTHX_ "Usage: SDL::SoundDecoderInfoExtensions(decoderinfo)");
8456 Sound_DecoderInfo* decoderinfo = INT2PTR(Sound_DecoderInfo *,SvIV(ST(0)));
8458 #line 4323 "SDL_perl.xs"
8460 for ( ext = decoderinfo->extensions; *ext != NULL; ext++ ){
8461 av_push(RETVAL,newSVpv(*ext,0));
8463 #line 8464 "SDL_perl.c"
8464 ST(0) = newRV((SV*)RETVAL);
8470 XS(XS_SDL_SoundDecoderInfoDescription); /* prototype to pass -Wmissing-prototypes */
8471 XS(XS_SDL_SoundDecoderInfoDescription)
8475 Perl_croak(aTHX_ "Usage: SDL::SoundDecoderInfoDescription(decoderinfo)");
8477 Sound_DecoderInfo* decoderinfo = INT2PTR(Sound_DecoderInfo *,SvIV(ST(0)));
8478 const char * RETVAL;
8480 #line 4334 "SDL_perl.xs"
8481 RETVAL = decoderinfo->description;
8482 #line 8483 "SDL_perl.c"
8483 sv_setpv(TARG, RETVAL); XSprePUSH; PUSHTARG;
8488 XS(XS_SDL_SoundDecoderInfoAuthor); /* prototype to pass -Wmissing-prototypes */
8489 XS(XS_SDL_SoundDecoderInfoAuthor)
8493 Perl_croak(aTHX_ "Usage: SDL::SoundDecoderInfoAuthor(decoderinfo)");
8495 Sound_DecoderInfo* decoderinfo = INT2PTR(Sound_DecoderInfo *,SvIV(ST(0)));
8496 const char * RETVAL;
8498 #line 4342 "SDL_perl.xs"
8499 RETVAL = decoderinfo->author;
8500 #line 8501 "SDL_perl.c"
8501 sv_setpv(TARG, RETVAL); XSprePUSH; PUSHTARG;
8506 XS(XS_SDL_SoundDecoderInfoUrl); /* prototype to pass -Wmissing-prototypes */
8507 XS(XS_SDL_SoundDecoderInfoUrl)
8511 Perl_croak(aTHX_ "Usage: SDL::SoundDecoderInfoUrl(decoderinfo)");
8513 Sound_DecoderInfo* decoderinfo = INT2PTR(Sound_DecoderInfo *,SvIV(ST(0)));
8514 const char * RETVAL;
8516 #line 4350 "SDL_perl.xs"
8517 RETVAL = decoderinfo->url;
8518 #line 8519 "SDL_perl.c"
8519 sv_setpv(TARG, RETVAL); XSprePUSH; PUSHTARG;
8524 XS(XS_SDL_SoundSampleDecoder); /* prototype to pass -Wmissing-prototypes */
8525 XS(XS_SDL_SoundSampleDecoder)
8529 Perl_croak(aTHX_ "Usage: SDL::SoundSampleDecoder(sample)");
8531 Sound_Sample* sample = INT2PTR(Sound_Sample *,SvIV(ST(0)));
8532 const Sound_DecoderInfo * RETVAL;
8534 #line 4358 "SDL_perl.xs"
8535 RETVAL = sample->decoder;
8536 #line 8537 "SDL_perl.c"
8537 XSprePUSH; PUSHi(PTR2IV(RETVAL));
8542 XS(XS_SDL_SoundSampleDesired); /* prototype to pass -Wmissing-prototypes */
8543 XS(XS_SDL_SoundSampleDesired)
8547 Perl_croak(aTHX_ "Usage: SDL::SoundSampleDesired(sample)");
8549 Sound_Sample* sample = INT2PTR(Sound_Sample *,SvIV(ST(0)));
8550 Sound_AudioInfo * RETVAL;
8552 #line 4366 "SDL_perl.xs"
8553 RETVAL = &sample->desired;
8554 #line 8555 "SDL_perl.c"
8555 XSprePUSH; PUSHi(PTR2IV(RETVAL));
8560 XS(XS_SDL_SoundSampleAcutal); /* prototype to pass -Wmissing-prototypes */
8561 XS(XS_SDL_SoundSampleAcutal)
8565 Perl_croak(aTHX_ "Usage: SDL::SoundSampleAcutal(sample)");
8567 Sound_Sample* sample = INT2PTR(Sound_Sample *,SvIV(ST(0)));
8568 Sound_AudioInfo * RETVAL;
8570 #line 4374 "SDL_perl.xs"
8571 RETVAL = &sample->actual;
8572 #line 8573 "SDL_perl.c"
8573 XSprePUSH; PUSHi(PTR2IV(RETVAL));
8578 XS(XS_SDL_SoundSampleBuffer); /* prototype to pass -Wmissing-prototypes */
8579 XS(XS_SDL_SoundSampleBuffer)
8583 Perl_croak(aTHX_ "Usage: SDL::SoundSampleBuffer(sample)");
8585 Sound_Sample* sample = INT2PTR(Sound_Sample *,SvIV(ST(0)));
8588 #line 4382 "SDL_perl.xs"
8589 RETVAL = sample->buffer;
8590 #line 8591 "SDL_perl.c"
8591 sv_setpv(TARG, RETVAL); XSprePUSH; PUSHTARG;
8596 XS(XS_SDL_SoundSampleBufferSize); /* prototype to pass -Wmissing-prototypes */
8597 XS(XS_SDL_SoundSampleBufferSize)
8601 Perl_croak(aTHX_ "Usage: SDL::SoundSampleBufferSize(sample)");
8603 Sound_Sample* sample = INT2PTR(Sound_Sample *,SvIV(ST(0)));
8606 #line 4390 "SDL_perl.xs"
8607 RETVAL = sample->buffer_size;
8608 #line 8609 "SDL_perl.c"
8609 XSprePUSH; PUSHu((UV)RETVAL);
8614 XS(XS_SDL_SoundSampleFlags); /* prototype to pass -Wmissing-prototypes */
8615 XS(XS_SDL_SoundSampleFlags)
8619 Perl_croak(aTHX_ "Usage: SDL::SoundSampleFlags(sample)");
8621 Sound_Sample* sample = INT2PTR(Sound_Sample *,SvIV(ST(0)));
8624 #line 4398 "SDL_perl.xs"
8625 RETVAL = (Uint32)sample->flags;
8626 #line 8627 "SDL_perl.c"
8627 XSprePUSH; PUSHu((UV)RETVAL);
8632 XS(XS_SDL_Sound_Init); /* prototype to pass -Wmissing-prototypes */
8633 XS(XS_SDL_Sound_Init)
8637 Perl_croak(aTHX_ "Usage: SDL::Sound_Init()");
8641 #line 4405 "SDL_perl.xs"
8642 RETVAL = Sound_Init();
8643 #line 8644 "SDL_perl.c"
8644 XSprePUSH; PUSHi((IV)RETVAL);
8649 XS(XS_SDL_Sound_Quit); /* prototype to pass -Wmissing-prototypes */
8650 XS(XS_SDL_Sound_Quit)
8654 Perl_croak(aTHX_ "Usage: SDL::Sound_Quit()");
8658 #line 4412 "SDL_perl.xs"
8659 RETVAL = Sound_Quit();
8660 #line 8661 "SDL_perl.c"
8661 XSprePUSH; PUSHi((IV)RETVAL);
8666 XS(XS_SDL_Sound_AvailableDecoders); /* prototype to pass -Wmissing-prototypes */
8667 XS(XS_SDL_Sound_AvailableDecoders)
8671 Perl_croak(aTHX_ "Usage: SDL::Sound_AvailableDecoders()");
8674 #line 4419 "SDL_perl.xs"
8676 const Sound_DecoderInfo** sdi;
8677 sdi = Sound_AvailableDecoders();
8679 for (;*sdi != NULL; ++sdi) {
8680 av_push(RETVAL,sv_2mortal(newSViv(PTR2IV(*sdi))));
8683 #line 8684 "SDL_perl.c"
8684 ST(0) = newRV((SV*)RETVAL);
8690 XS(XS_SDL_Sound_GetError); /* prototype to pass -Wmissing-prototypes */
8691 XS(XS_SDL_Sound_GetError)
8695 Perl_croak(aTHX_ "Usage: SDL::Sound_GetError()");
8697 const char * RETVAL;
8699 #line 4433 "SDL_perl.xs"
8700 RETVAL = Sound_GetError();
8701 #line 8702 "SDL_perl.c"
8702 sv_setpv(TARG, RETVAL); XSprePUSH; PUSHTARG;
8707 XS(XS_SDL_Sound_ClearError); /* prototype to pass -Wmissing-prototypes */
8708 XS(XS_SDL_Sound_ClearError)
8712 Perl_croak(aTHX_ "Usage: SDL::Sound_ClearError()");
8714 #line 4440 "SDL_perl.xs"
8716 #line 8717 "SDL_perl.c"
8721 XS(XS_SDL_Sound_NewSample); /* prototype to pass -Wmissing-prototypes */
8722 XS(XS_SDL_Sound_NewSample)
8726 Perl_croak(aTHX_ "Usage: SDL::Sound_NewSample(rw, ext, desired, buffsize)");
8728 SDL_RWops* rw = INT2PTR(SDL_RWops *,SvIV(ST(0)));
8729 const char* ext = (const char *)SvPV_nolen(ST(1));
8730 Sound_AudioInfo* desired = INT2PTR(Sound_AudioInfo *,SvIV(ST(2)));
8731 Uint32 buffsize = (Uint32)SvUV(ST(3));
8732 Sound_Sample * RETVAL;
8734 #line 4449 "SDL_perl.xs"
8735 RETVAL = Sound_NewSample(rw,ext,desired,buffsize);
8736 #line 8737 "SDL_perl.c"
8737 XSprePUSH; PUSHi(PTR2IV(RETVAL));
8742 XS(XS_SDL_Sound_NewSampleFromMem); /* prototype to pass -Wmissing-prototypes */
8743 XS(XS_SDL_Sound_NewSampleFromMem)
8747 Perl_croak(aTHX_ "Usage: SDL::Sound_NewSampleFromMem(data, size, ext, desired, buffsize)");
8749 const Uint8 * data = INT2PTR(const Uint8 *,SvIV(ST(0)));
8750 Uint32 size = (Uint32)SvUV(ST(1));
8751 const char* ext = (const char *)SvPV_nolen(ST(2));
8752 Sound_AudioInfo* desired = INT2PTR(Sound_AudioInfo *,SvIV(ST(3)));
8753 Uint32 buffsize = (Uint32)SvUV(ST(4));
8754 Sound_Sample * RETVAL;
8756 #line 4461 "SDL_perl.xs"
8757 RETVAL = Sound_NewSampleFromMem(data,size,ext,desired,buffsize);
8758 #line 8759 "SDL_perl.c"
8759 XSprePUSH; PUSHi(PTR2IV(RETVAL));
8764 XS(XS_SDL_Sound_NewSampleFromFile); /* prototype to pass -Wmissing-prototypes */
8765 XS(XS_SDL_Sound_NewSampleFromFile)
8769 Perl_croak(aTHX_ "Usage: SDL::Sound_NewSampleFromFile(fname, desired, buffsize)");
8771 const char* fname = (const char *)SvPV_nolen(ST(0));
8772 Sound_AudioInfo* desired = INT2PTR(Sound_AudioInfo *,SvIV(ST(1)));
8773 Uint32 buffsize = (Uint32)SvUV(ST(2));
8774 Sound_Sample * RETVAL;
8776 #line 4471 "SDL_perl.xs"
8777 RETVAL = Sound_NewSampleFromFile(fname,desired,buffsize);
8778 #line 8779 "SDL_perl.c"
8779 XSprePUSH; PUSHi(PTR2IV(RETVAL));
8784 XS(XS_SDL_Sound_FreeSample); /* prototype to pass -Wmissing-prototypes */
8785 XS(XS_SDL_Sound_FreeSample)
8789 Perl_croak(aTHX_ "Usage: SDL::Sound_FreeSample(sample)");
8791 Sound_Sample* sample = INT2PTR(Sound_Sample *,SvIV(ST(0)));
8792 #line 4479 "SDL_perl.xs"
8793 Sound_FreeSample(sample);
8794 #line 8795 "SDL_perl.c"
8799 XS(XS_SDL_Sound_GetDuration); /* prototype to pass -Wmissing-prototypes */
8800 XS(XS_SDL_Sound_GetDuration)
8804 Perl_croak(aTHX_ "Usage: SDL::Sound_GetDuration(sample)");
8806 Sound_Sample* sample = INT2PTR(Sound_Sample *,SvIV(ST(0)));
8809 #line 4485 "SDL_perl.xs"
8810 RETVAL = Sound_GetDuration(sample);
8811 #line 8812 "SDL_perl.c"
8812 XSprePUSH; PUSHi((IV)RETVAL);
8817 XS(XS_SDL_Sound_SetBufferSize); /* prototype to pass -Wmissing-prototypes */
8818 XS(XS_SDL_Sound_SetBufferSize)
8822 Perl_croak(aTHX_ "Usage: SDL::Sound_SetBufferSize(sample, size)");
8824 Sound_Sample* sample = INT2PTR(Sound_Sample *,SvIV(ST(0)));
8825 Uint32 size = (Uint32)SvUV(ST(1));
8828 #line 4494 "SDL_perl.xs"
8829 RETVAL = Sound_SetBufferSize(sample,size);
8830 #line 8831 "SDL_perl.c"
8831 XSprePUSH; PUSHi((IV)RETVAL);
8836 XS(XS_SDL_Sound_Decode); /* prototype to pass -Wmissing-prototypes */
8837 XS(XS_SDL_Sound_Decode)
8841 Perl_croak(aTHX_ "Usage: SDL::Sound_Decode(sample)");
8843 Sound_Sample* sample = INT2PTR(Sound_Sample *,SvIV(ST(0)));
8846 #line 4502 "SDL_perl.xs"
8847 RETVAL = Sound_Decode(sample);
8848 #line 8849 "SDL_perl.c"
8849 XSprePUSH; PUSHu((UV)RETVAL);
8854 XS(XS_SDL_Sound_DecodeAll); /* prototype to pass -Wmissing-prototypes */
8855 XS(XS_SDL_Sound_DecodeAll)
8859 Perl_croak(aTHX_ "Usage: SDL::Sound_DecodeAll(sample)");
8861 Sound_Sample* sample = INT2PTR(Sound_Sample *,SvIV(ST(0)));
8864 #line 4510 "SDL_perl.xs"
8865 RETVAL = Sound_DecodeAll(sample);
8866 #line 8867 "SDL_perl.c"
8867 XSprePUSH; PUSHu((UV)RETVAL);
8872 XS(XS_SDL_Sound_Rewind); /* prototype to pass -Wmissing-prototypes */
8873 XS(XS_SDL_Sound_Rewind)
8877 Perl_croak(aTHX_ "Usage: SDL::Sound_Rewind(sample)");
8879 Sound_Sample* sample = INT2PTR(Sound_Sample *,SvIV(ST(0)));
8882 #line 4518 "SDL_perl.xs"
8883 RETVAL = Sound_Rewind(sample);
8884 #line 8885 "SDL_perl.c"
8885 XSprePUSH; PUSHi((IV)RETVAL);
8890 XS(XS_SDL_Sound_Seek); /* prototype to pass -Wmissing-prototypes */
8891 XS(XS_SDL_Sound_Seek)
8895 Perl_croak(aTHX_ "Usage: SDL::Sound_Seek(sample, ms)");
8897 Sound_Sample* sample = INT2PTR(Sound_Sample *,SvIV(ST(0)));
8898 Uint32 ms = (Uint32)SvUV(ST(1));
8901 #line 4527 "SDL_perl.xs"
8902 RETVAL = Sound_Seek(sample,ms);
8903 #line 8904 "SDL_perl.c"
8904 XSprePUSH; PUSHi((IV)RETVAL);
8913 XS(boot_SDL); /* prototype to pass -Wmissing-prototypes */
8917 char* file = __FILE__;
8919 XS_VERSION_BOOTCHECK ;
8921 newXS("SDL::GetError", XS_SDL_GetError, file);
8922 newXS("SDL::Init", XS_SDL_Init, file);
8923 newXS("SDL::InitSubSystem", XS_SDL_InitSubSystem, file);
8924 newXS("SDL::QuitSubSystem", XS_SDL_QuitSubSystem, file);
8925 newXS("SDL::Quit", XS_SDL_Quit, file);
8926 newXS("SDL::WasInit", XS_SDL_WasInit, file);
8927 newXS("SDL::Delay", XS_SDL_Delay, file);
8928 newXS("SDL::GetTicks", XS_SDL_GetTicks, file);
8929 newXS("SDL::SetTimer", XS_SDL_SetTimer, file);
8930 newXS("SDL::AddTimer", XS_SDL_AddTimer, file);
8931 newXS("SDL::PerlTimerCallback", XS_SDL_PerlTimerCallback, file);
8932 newXS("SDL::NewTimer", XS_SDL_NewTimer, file);
8933 newXS("SDL::RemoveTimer", XS_SDL_RemoveTimer, file);
8934 newXS("SDL::RWFromFile", XS_SDL_RWFromFile, file);
8935 newXS("SDL::RWFromFP", XS_SDL_RWFromFP, file);
8936 newXS("SDL::RWFromMem", XS_SDL_RWFromMem, file);
8937 newXS("SDL::RWFromConstMem", XS_SDL_RWFromConstMem, file);
8938 newXS("SDL::AllocRW", XS_SDL_AllocRW, file);
8939 newXS("SDL::FreeRW", XS_SDL_FreeRW, file);
8940 newXS("SDL::RWseek", XS_SDL_RWseek, file);
8941 newXS("SDL::RWtell", XS_SDL_RWtell, file);
8942 newXS("SDL::RWread", XS_SDL_RWread, file);
8943 newXS("SDL::RWwrite", XS_SDL_RWwrite, file);
8944 newXS("SDL::RWclose", XS_SDL_RWclose, file);
8945 newXS("SDL::CDNumDrives", XS_SDL_CDNumDrives, file);
8946 newXS("SDL::CDName", XS_SDL_CDName, file);
8947 newXS("SDL::CDOpen", XS_SDL_CDOpen, file);
8948 newXS("SDL::CDTrackId", XS_SDL_CDTrackId, file);
8949 newXS("SDL::CDTrackType", XS_SDL_CDTrackType, file);
8950 newXS("SDL::CDTrackLength", XS_SDL_CDTrackLength, file);
8951 newXS("SDL::CDTrackOffset", XS_SDL_CDTrackOffset, file);
8952 newXS("SDL::CDStatus", XS_SDL_CDStatus, file);
8953 newXS("SDL::CDPlayTracks", XS_SDL_CDPlayTracks, file);
8954 newXS("SDL::CDPlay", XS_SDL_CDPlay, file);
8955 newXS("SDL::CDPause", XS_SDL_CDPause, file);
8956 newXS("SDL::CDResume", XS_SDL_CDResume, file);
8957 newXS("SDL::CDStop", XS_SDL_CDStop, file);
8958 newXS("SDL::CDEject", XS_SDL_CDEject, file);
8959 newXS("SDL::CDClose", XS_SDL_CDClose, file);
8960 newXS("SDL::CDId", XS_SDL_CDId, file);
8961 newXS("SDL::CDNumTracks", XS_SDL_CDNumTracks, file);
8962 newXS("SDL::CDCurTrack", XS_SDL_CDCurTrack, file);
8963 newXS("SDL::CDCurFrame", XS_SDL_CDCurFrame, file);
8964 newXS("SDL::CDTrack", XS_SDL_CDTrack, file);
8965 newXS("SDL::PumpEvents", XS_SDL_PumpEvents, file);
8966 newXS("SDL::PushEvent", XS_SDL_PushEvent, file);
8967 newXS("SDL::NewEvent", XS_SDL_NewEvent, file);
8968 newXS("SDL::FreeEvent", XS_SDL_FreeEvent, file);
8969 newXS("SDL::PollEvent", XS_SDL_PollEvent, file);
8970 newXS("SDL::WaitEvent", XS_SDL_WaitEvent, file);
8971 newXS("SDL::EventState", XS_SDL_EventState, file);
8972 newXS("SDL::EventType", XS_SDL_EventType, file);
8973 newXS("SDL::SetEventType", XS_SDL_SetEventType, file);
8974 newXS("SDL::ActiveEventGain", XS_SDL_ActiveEventGain, file);
8975 newXS("SDL::ActiveEventState", XS_SDL_ActiveEventState, file);
8976 newXS("SDL::KeyEventState", XS_SDL_KeyEventState, file);
8977 newXS("SDL::KeyEventSym", XS_SDL_KeyEventSym, file);
8978 newXS("SDL::KeyEventMod", XS_SDL_KeyEventMod, file);
8979 newXS("SDL::KeyEventUnicode", XS_SDL_KeyEventUnicode, file);
8980 newXS("SDL::KeyEventScanCode", XS_SDL_KeyEventScanCode, file);
8981 newXS("SDL::MouseMotionState", XS_SDL_MouseMotionState, file);
8982 newXS("SDL::MouseMotionX", XS_SDL_MouseMotionX, file);
8983 newXS("SDL::MouseMotionY", XS_SDL_MouseMotionY, file);
8984 newXS("SDL::MouseMotionXrel", XS_SDL_MouseMotionXrel, file);
8985 newXS("SDL::MouseMotionYrel", XS_SDL_MouseMotionYrel, file);
8986 newXS("SDL::MouseButtonState", XS_SDL_MouseButtonState, file);
8987 newXS("SDL::MouseButton", XS_SDL_MouseButton, file);
8988 newXS("SDL::MouseButtonX", XS_SDL_MouseButtonX, file);
8989 newXS("SDL::MouseButtonY", XS_SDL_MouseButtonY, file);
8990 newXS("SDL::SysWMEventMsg", XS_SDL_SysWMEventMsg, file);
8991 newXS("SDL::EnableUnicode", XS_SDL_EnableUnicode, file);
8992 newXS("SDL::EnableKeyRepeat", XS_SDL_EnableKeyRepeat, file);
8993 newXS("SDL::GetModState", XS_SDL_GetModState, file);
8994 newXS("SDL::SetModState", XS_SDL_SetModState, file);
8995 newXS("SDL::GetKeyName", XS_SDL_GetKeyName, file);
8996 newXS("SDL::CreateRGBSurface", XS_SDL_CreateRGBSurface, file);
8997 newXS("SDL::CreateRGBSurfaceFrom", XS_SDL_CreateRGBSurfaceFrom, file);
8999 newXS("SDL::IMGLoad", XS_SDL_IMGLoad, file);
9001 newXS("SDL::SurfaceCopy", XS_SDL_SurfaceCopy, file);
9002 newXS("SDL::FreeSurface", XS_SDL_FreeSurface, file);
9003 newXS("SDL::SurfaceFlags", XS_SDL_SurfaceFlags, file);
9004 newXS("SDL::SurfacePalette", XS_SDL_SurfacePalette, file);
9005 newXS("SDL::SurfaceBitsPerPixel", XS_SDL_SurfaceBitsPerPixel, file);
9006 newXS("SDL::SurfaceBytesPerPixel", XS_SDL_SurfaceBytesPerPixel, file);
9007 newXS("SDL::SurfaceRshift", XS_SDL_SurfaceRshift, file);
9008 newXS("SDL::SurfaceGshift", XS_SDL_SurfaceGshift, file);
9009 newXS("SDL::SurfaceBshift", XS_SDL_SurfaceBshift, file);
9010 newXS("SDL::SurfaceAshift", XS_SDL_SurfaceAshift, file);
9011 newXS("SDL::SurfaceRmask", XS_SDL_SurfaceRmask, file);
9012 newXS("SDL::SurfaceGmask", XS_SDL_SurfaceGmask, file);
9013 newXS("SDL::SurfaceBmask", XS_SDL_SurfaceBmask, file);
9014 newXS("SDL::SurfaceAmask", XS_SDL_SurfaceAmask, file);
9015 newXS("SDL::SurfaceColorKey", XS_SDL_SurfaceColorKey, file);
9016 newXS("SDL::SurfaceAlpha", XS_SDL_SurfaceAlpha, file);
9017 newXS("SDL::SurfaceW", XS_SDL_SurfaceW, file);
9018 newXS("SDL::SurfaceH", XS_SDL_SurfaceH, file);
9019 newXS("SDL::SurfacePitch", XS_SDL_SurfacePitch, file);
9020 newXS("SDL::SurfacePixels", XS_SDL_SurfacePixels, file);
9021 newXS("SDL::SurfacePixel", XS_SDL_SurfacePixel, file);
9022 newXS("SDL::MUSTLOCK", XS_SDL_MUSTLOCK, file);
9023 newXS("SDL::SurfaceLock", XS_SDL_SurfaceLock, file);
9024 newXS("SDL::SurfaceUnlock", XS_SDL_SurfaceUnlock, file);
9025 newXS("SDL::GetVideoSurface", XS_SDL_GetVideoSurface, file);
9026 newXS("SDL::VideoInfo", XS_SDL_VideoInfo, file);
9027 newXS("SDL::NewRect", XS_SDL_NewRect, file);
9028 newXS("SDL::FreeRect", XS_SDL_FreeRect, file);
9029 newXS("SDL::RectX", XS_SDL_RectX, file);
9030 newXS("SDL::RectY", XS_SDL_RectY, file);
9031 newXS("SDL::RectW", XS_SDL_RectW, file);
9032 newXS("SDL::RectH", XS_SDL_RectH, file);
9033 newXS("SDL::ListModes", XS_SDL_ListModes, file);
9034 newXS("SDL::NewColor", XS_SDL_NewColor, file);
9035 newXS("SDL::ColorR", XS_SDL_ColorR, file);
9036 newXS("SDL::ColorG", XS_SDL_ColorG, file);
9037 newXS("SDL::ColorB", XS_SDL_ColorB, file);
9038 newXS("SDL::FreeColor", XS_SDL_FreeColor, file);
9039 newXS("SDL::NewPalette", XS_SDL_NewPalette, file);
9040 newXS("SDL::PaletteNColors", XS_SDL_PaletteNColors, file);
9041 newXS("SDL::PaletteColors", XS_SDL_PaletteColors, file);
9042 newXS("SDL::VideoModeOK", XS_SDL_VideoModeOK, file);
9043 newXS("SDL::SetVideoMode", XS_SDL_SetVideoMode, file);
9044 newXS("SDL::UpdateRect", XS_SDL_UpdateRect, file);
9045 newXS("SDL::UpdateRects", XS_SDL_UpdateRects, file);
9046 newXS("SDL::Flip", XS_SDL_Flip, file);
9047 newXS("SDL::SetColors", XS_SDL_SetColors, file);
9048 newXS("SDL::MapRGB", XS_SDL_MapRGB, file);
9049 newXS("SDL::MapRGBA", XS_SDL_MapRGBA, file);
9050 newXS("SDL::GetRGB", XS_SDL_GetRGB, file);
9051 newXS("SDL::GetRGBA", XS_SDL_GetRGBA, file);
9052 newXS("SDL::SaveBMP", XS_SDL_SaveBMP, file);
9053 newXS("SDL::SetColorKey", XS_SDL_SetColorKey, file);
9054 newXS("SDL::SetAlpha", XS_SDL_SetAlpha, file);
9055 newXS("SDL::DisplayFormat", XS_SDL_DisplayFormat, file);
9056 newXS("SDL::DisplayFormatAlpha", XS_SDL_DisplayFormatAlpha, file);
9057 newXS("SDL::ConvertRGB", XS_SDL_ConvertRGB, file);
9058 newXS("SDL::ConvertRGBA", XS_SDL_ConvertRGBA, file);
9059 newXS("SDL::BlitSurface", XS_SDL_BlitSurface, file);
9060 newXS("SDL::FillRect", XS_SDL_FillRect, file);
9061 newXS("SDL::GetAppState", XS_SDL_GetAppState, file);
9062 newXS("SDL::WMSetCaption", XS_SDL_WMSetCaption, file);
9063 newXS("SDL::WMGetCaption", XS_SDL_WMGetCaption, file);
9064 newXS("SDL::WMSetIcon", XS_SDL_WMSetIcon, file);
9065 newXS("SDL::WarpMouse", XS_SDL_WarpMouse, file);
9066 newXS("SDL::GetMouseState", XS_SDL_GetMouseState, file);
9067 newXS("SDL::GetRelativeMouseState", XS_SDL_GetRelativeMouseState, file);
9068 newXS("SDL::NewCursor", XS_SDL_NewCursor, file);
9069 newXS("SDL::FreeCursor", XS_SDL_FreeCursor, file);
9070 newXS("SDL::SetCursor", XS_SDL_SetCursor, file);
9071 newXS("SDL::GetCursor", XS_SDL_GetCursor, file);
9072 newXS("SDL::ShowCursor", XS_SDL_ShowCursor, file);
9073 newXS("SDL::NewAudioSpec", XS_SDL_NewAudioSpec, file);
9074 newXS("SDL::FreeAudioSpec", XS_SDL_FreeAudioSpec, file);
9075 newXS("SDL::NewAudioCVT", XS_SDL_NewAudioCVT, file);
9076 newXS("SDL::FreeAudioCVT", XS_SDL_FreeAudioCVT, file);
9077 newXS("SDL::ConvertAudioData", XS_SDL_ConvertAudioData, file);
9078 newXS("SDL::OpenAudio", XS_SDL_OpenAudio, file);
9079 newXS("SDL::GetAudioStatus", XS_SDL_GetAudioStatus, file);
9080 newXS("SDL::PauseAudio", XS_SDL_PauseAudio, file);
9081 newXS("SDL::LockAudio", XS_SDL_LockAudio, file);
9082 newXS("SDL::UnlockAudio", XS_SDL_UnlockAudio, file);
9083 newXS("SDL::CloseAudio", XS_SDL_CloseAudio, file);
9084 newXS("SDL::FreeWAV", XS_SDL_FreeWAV, file);
9085 newXS("SDL::LoadWAV", XS_SDL_LoadWAV, file);
9087 newXS("SDL::MixAudio", XS_SDL_MixAudio, file);
9088 newXS("SDL::MixOpenAudio", XS_SDL_MixOpenAudio, file);
9089 newXS("SDL::MixAllocateChannels", XS_SDL_MixAllocateChannels, file);
9090 newXS("SDL::MixQuerySpec", XS_SDL_MixQuerySpec, file);
9091 newXS("SDL::MixLoadWAV", XS_SDL_MixLoadWAV, file);
9092 newXS("SDL::MixLoadMusic", XS_SDL_MixLoadMusic, file);
9093 newXS("SDL::MixQuickLoadWAV", XS_SDL_MixQuickLoadWAV, file);
9094 newXS("SDL::MixFreeChunk", XS_SDL_MixFreeChunk, file);
9095 newXS("SDL::MixFreeMusic", XS_SDL_MixFreeMusic, file);
9096 newXS("SDL::MixSetPostMixCallback", XS_SDL_MixSetPostMixCallback, file);
9097 newXS("SDL::PerlMixMusicHook", XS_SDL_PerlMixMusicHook, file);
9098 newXS("SDL::MixSetMusicHook", XS_SDL_MixSetMusicHook, file);
9099 newXS("SDL::MixSetMusicFinishedHook", XS_SDL_MixSetMusicFinishedHook, file);
9100 newXS("SDL::MixGetMusicHookData", XS_SDL_MixGetMusicHookData, file);
9101 newXS("SDL::MixReverseChannels", XS_SDL_MixReverseChannels, file);
9102 newXS("SDL::MixGroupChannel", XS_SDL_MixGroupChannel, file);
9103 newXS("SDL::MixGroupChannels", XS_SDL_MixGroupChannels, file);
9104 newXS("SDL::MixGroupAvailable", XS_SDL_MixGroupAvailable, file);
9105 newXS("SDL::MixGroupCount", XS_SDL_MixGroupCount, file);
9106 newXS("SDL::MixGroupOldest", XS_SDL_MixGroupOldest, file);
9107 newXS("SDL::MixGroupNewer", XS_SDL_MixGroupNewer, file);
9108 newXS("SDL::MixPlayChannel", XS_SDL_MixPlayChannel, file);
9109 newXS("SDL::MixPlayChannelTimed", XS_SDL_MixPlayChannelTimed, file);
9110 newXS("SDL::MixPlayMusic", XS_SDL_MixPlayMusic, file);
9111 newXS("SDL::MixFadeInChannel", XS_SDL_MixFadeInChannel, file);
9112 newXS("SDL::MixFadeInChannelTimed", XS_SDL_MixFadeInChannelTimed, file);
9113 newXS("SDL::MixFadeInMusic", XS_SDL_MixFadeInMusic, file);
9114 newXS("SDL::MixVolume", XS_SDL_MixVolume, file);
9115 newXS("SDL::MixVolumeChunk", XS_SDL_MixVolumeChunk, file);
9116 newXS("SDL::MixVolumeMusic", XS_SDL_MixVolumeMusic, file);
9117 newXS("SDL::MixHaltChannel", XS_SDL_MixHaltChannel, file);
9118 newXS("SDL::MixHaltGroup", XS_SDL_MixHaltGroup, file);
9119 newXS("SDL::MixHaltMusic", XS_SDL_MixHaltMusic, file);
9120 newXS("SDL::MixExpireChannel", XS_SDL_MixExpireChannel, file);
9121 newXS("SDL::MixFadeOutChannel", XS_SDL_MixFadeOutChannel, file);
9122 newXS("SDL::MixFadeOutGroup", XS_SDL_MixFadeOutGroup, file);
9123 newXS("SDL::MixFadeOutMusic", XS_SDL_MixFadeOutMusic, file);
9124 newXS("SDL::MixFadingMusic", XS_SDL_MixFadingMusic, file);
9125 newXS("SDL::MixFadingChannel", XS_SDL_MixFadingChannel, file);
9126 newXS("SDL::MixPause", XS_SDL_MixPause, file);
9127 newXS("SDL::MixResume", XS_SDL_MixResume, file);
9128 newXS("SDL::MixPaused", XS_SDL_MixPaused, file);
9129 newXS("SDL::MixPauseMusic", XS_SDL_MixPauseMusic, file);
9130 newXS("SDL::MixResumeMusic", XS_SDL_MixResumeMusic, file);
9131 newXS("SDL::MixRewindMusic", XS_SDL_MixRewindMusic, file);
9132 newXS("SDL::MixPausedMusic", XS_SDL_MixPausedMusic, file);
9133 newXS("SDL::MixPlaying", XS_SDL_MixPlaying, file);
9134 newXS("SDL::MixPlayingMusic", XS_SDL_MixPlayingMusic, file);
9135 newXS("SDL::MixCloseAudio", XS_SDL_MixCloseAudio, file);
9137 newXS("SDL::GLLoadLibrary", XS_SDL_GLLoadLibrary, file);
9138 newXS("SDL::GLGetProcAddress", XS_SDL_GLGetProcAddress, file);
9139 newXS("SDL::GLSetAttribute", XS_SDL_GLSetAttribute, file);
9140 newXS("SDL::GLGetAttribute", XS_SDL_GLGetAttribute, file);
9141 newXS("SDL::GLSwapBuffers", XS_SDL_GLSwapBuffers, file);
9142 newXS("SDL::BigEndian", XS_SDL_BigEndian, file);
9143 newXS("SDL::NumJoysticks", XS_SDL_NumJoysticks, file);
9144 newXS("SDL::JoystickName", XS_SDL_JoystickName, file);
9145 newXS("SDL::JoystickOpen", XS_SDL_JoystickOpen, file);
9146 newXS("SDL::JoystickOpened", XS_SDL_JoystickOpened, file);
9147 newXS("SDL::JoystickIndex", XS_SDL_JoystickIndex, file);
9148 newXS("SDL::JoystickNumAxes", XS_SDL_JoystickNumAxes, file);
9149 newXS("SDL::JoystickNumBalls", XS_SDL_JoystickNumBalls, file);
9150 newXS("SDL::JoystickNumHats", XS_SDL_JoystickNumHats, file);
9151 newXS("SDL::JoystickNumButtons", XS_SDL_JoystickNumButtons, file);
9152 newXS("SDL::JoystickUpdate", XS_SDL_JoystickUpdate, file);
9153 newXS("SDL::JoystickGetAxis", XS_SDL_JoystickGetAxis, file);
9154 newXS("SDL::JoystickGetHat", XS_SDL_JoystickGetHat, file);
9155 newXS("SDL::JoystickGetButton", XS_SDL_JoystickGetButton, file);
9156 newXS("SDL::JoystickGetBall", XS_SDL_JoystickGetBall, file);
9157 newXS("SDL::JoystickClose", XS_SDL_JoystickClose, file);
9158 newXS("SDL::JoyAxisEventWhich", XS_SDL_JoyAxisEventWhich, file);
9159 newXS("SDL::JoyAxisEventAxis", XS_SDL_JoyAxisEventAxis, file);
9160 newXS("SDL::JoyAxisEventValue", XS_SDL_JoyAxisEventValue, file);
9161 newXS("SDL::JoyButtonEventWhich", XS_SDL_JoyButtonEventWhich, file);
9162 newXS("SDL::JoyButtonEventButton", XS_SDL_JoyButtonEventButton, file);
9163 newXS("SDL::JoyButtonEventState", XS_SDL_JoyButtonEventState, file);
9164 newXS("SDL::JoyHatEventWhich", XS_SDL_JoyHatEventWhich, file);
9165 newXS("SDL::JoyHatEventHat", XS_SDL_JoyHatEventHat, file);
9166 newXS("SDL::JoyHatEventValue", XS_SDL_JoyHatEventValue, file);
9167 newXS("SDL::JoyBallEventWhich", XS_SDL_JoyBallEventWhich, file);
9168 newXS("SDL::JoyBallEventBall", XS_SDL_JoyBallEventBall, file);
9169 newXS("SDL::JoyBallEventXrel", XS_SDL_JoyBallEventXrel, file);
9170 newXS("SDL::JoyBallEventYrel", XS_SDL_JoyBallEventYrel, file);
9171 newXS("SDL::SetClipRect", XS_SDL_SetClipRect, file);
9172 newXS("SDL::GetClipRect", XS_SDL_GetClipRect, file);
9174 newXS("SDL::NetInit", XS_SDL_NetInit, file);
9175 newXS("SDL::NetQuit", XS_SDL_NetQuit, file);
9176 newXS("SDL::NetNewIPaddress", XS_SDL_NetNewIPaddress, file);
9177 newXS("SDL::NetIPaddressHost", XS_SDL_NetIPaddressHost, file);
9178 newXS("SDL::NetIPaddressPort", XS_SDL_NetIPaddressPort, file);
9179 newXS("SDL::NetFreeIPaddress", XS_SDL_NetFreeIPaddress, file);
9180 newXS("SDL::NetResolveIP", XS_SDL_NetResolveIP, file);
9181 newXS("SDL::NetResolveHost", XS_SDL_NetResolveHost, file);
9182 newXS("SDL::NetTCPOpen", XS_SDL_NetTCPOpen, file);
9183 newXS("SDL::NetTCPAccept", XS_SDL_NetTCPAccept, file);
9184 newXS("SDL::NetTCPGetPeerAddress", XS_SDL_NetTCPGetPeerAddress, file);
9185 newXS("SDL::NetTCPSend", XS_SDL_NetTCPSend, file);
9186 newXS("SDL::NetTCPRecv", XS_SDL_NetTCPRecv, file);
9187 newXS("SDL::NetTCPClose", XS_SDL_NetTCPClose, file);
9188 newXS("SDL::NetAllocPacket", XS_SDL_NetAllocPacket, file);
9189 newXS("SDL::NetAllocPacketV", XS_SDL_NetAllocPacketV, file);
9190 newXS("SDL::NetResizePacket", XS_SDL_NetResizePacket, file);
9191 newXS("SDL::NetFreePacket", XS_SDL_NetFreePacket, file);
9192 newXS("SDL::NetFreePacketV", XS_SDL_NetFreePacketV, file);
9193 newXS("SDL::NetUDPOpen", XS_SDL_NetUDPOpen, file);
9194 newXS("SDL::NetUDPBind", XS_SDL_NetUDPBind, file);
9195 newXS("SDL::NetUDPUnbind", XS_SDL_NetUDPUnbind, file);
9196 newXS("SDL::NetUDPGetPeerAddress", XS_SDL_NetUDPGetPeerAddress, file);
9197 newXS("SDL::NetUDPSendV", XS_SDL_NetUDPSendV, file);
9198 newXS("SDL::NetUDPSend", XS_SDL_NetUDPSend, file);
9199 newXS("SDL::NetUDPRecvV", XS_SDL_NetUDPRecvV, file);
9200 newXS("SDL::NetUDPRecv", XS_SDL_NetUDPRecv, file);
9201 newXS("SDL::NetUDPClose", XS_SDL_NetUDPClose, file);
9202 newXS("SDL::NetAllocSocketSet", XS_SDL_NetAllocSocketSet, file);
9203 newXS("SDL::NetTCP_AddSocket", XS_SDL_NetTCP_AddSocket, file);
9204 newXS("SDL::NetUDP_AddSocket", XS_SDL_NetUDP_AddSocket, file);
9205 newXS("SDL::NetTCP_DelSocket", XS_SDL_NetTCP_DelSocket, file);
9206 newXS("SDL::NetUDP_DelSocket", XS_SDL_NetUDP_DelSocket, file);
9207 newXS("SDL::NetCheckSockets", XS_SDL_NetCheckSockets, file);
9208 newXS("SDL::NetSocketReady", XS_SDL_NetSocketReady, file);
9209 newXS("SDL::NetFreeSocketSet", XS_SDL_NetFreeSocketSet, file);
9210 newXS("SDL::NetWrite16", XS_SDL_NetWrite16, file);
9211 newXS("SDL::NetWrite32", XS_SDL_NetWrite32, file);
9212 newXS("SDL::NetRead16", XS_SDL_NetRead16, file);
9213 newXS("SDL::NetRead32", XS_SDL_NetRead32, file);
9216 newXS("SDL::TTFInit", XS_SDL_TTFInit, file);
9217 newXS("SDL::TTFQuit", XS_SDL_TTFQuit, file);
9218 newXS("SDL::TTFOpenFont", XS_SDL_TTFOpenFont, file);
9219 newXS("SDL::TTFGetFontStyle", XS_SDL_TTFGetFontStyle, file);
9220 newXS("SDL::TTFSetFontStyle", XS_SDL_TTFSetFontStyle, file);
9221 newXS("SDL::TTFFontHeight", XS_SDL_TTFFontHeight, file);
9222 newXS("SDL::TTFFontAscent", XS_SDL_TTFFontAscent, file);
9223 newXS("SDL::TTFFontDescent", XS_SDL_TTFFontDescent, file);
9224 newXS("SDL::TTFFontLineSkip", XS_SDL_TTFFontLineSkip, file);
9225 newXS("SDL::TTFGlyphMetrics", XS_SDL_TTFGlyphMetrics, file);
9226 newXS("SDL::TTFSizeText", XS_SDL_TTFSizeText, file);
9227 newXS("SDL::TTFSizeUTF8", XS_SDL_TTFSizeUTF8, file);
9228 newXS("SDL::TTFSizeUNICODE", XS_SDL_TTFSizeUNICODE, file);
9229 newXS("SDL::TTFRenderTextSolid", XS_SDL_TTFRenderTextSolid, file);
9230 newXS("SDL::TTFRenderUTF8Solid", XS_SDL_TTFRenderUTF8Solid, file);
9231 newXS("SDL::TTFRenderUNICODESolid", XS_SDL_TTFRenderUNICODESolid, file);
9232 newXS("SDL::TTFRenderGlyphSolid", XS_SDL_TTFRenderGlyphSolid, file);
9233 newXS("SDL::TTFRenderTextShaded", XS_SDL_TTFRenderTextShaded, file);
9234 newXS("SDL::TTFRenderUTF8Shaded", XS_SDL_TTFRenderUTF8Shaded, file);
9235 newXS("SDL::TTFRenderUNICODEShaded", XS_SDL_TTFRenderUNICODEShaded, file);
9236 newXS("SDL::TTFRenderGlyphShaded", XS_SDL_TTFRenderGlyphShaded, file);
9237 newXS("SDL::TTFRenderTextBlended", XS_SDL_TTFRenderTextBlended, file);
9238 newXS("SDL::TTFRenderUTF8Blended", XS_SDL_TTFRenderUTF8Blended, file);
9239 newXS("SDL::TTFRenderUNICODEBlended", XS_SDL_TTFRenderUNICODEBlended, file);
9240 newXS("SDL::TTFRenderGlyphBlended", XS_SDL_TTFRenderGlyphBlended, file);
9241 newXS("SDL::TTFCloseFont", XS_SDL_TTFCloseFont, file);
9242 newXS("SDL::TTFPutString", XS_SDL_TTFPutString, file);
9244 newXS("SDL::CreateYUVOverlay", XS_SDL_CreateYUVOverlay, file);
9245 newXS("SDL::LockYUVOverlay", XS_SDL_LockYUVOverlay, file);
9246 newXS("SDL::UnlockYUVOverlay", XS_SDL_UnlockYUVOverlay, file);
9247 newXS("SDL::DisplayYUVOverlay", XS_SDL_DisplayYUVOverlay, file);
9248 newXS("SDL::FreeYUVOverlay", XS_SDL_FreeYUVOverlay, file);
9249 newXS("SDL::OverlayFormat", XS_SDL_OverlayFormat, file);
9250 newXS("SDL::OverlayW", XS_SDL_OverlayW, file);
9251 newXS("SDL::OverlayH", XS_SDL_OverlayH, file);
9252 newXS("SDL::OverlayPlanes", XS_SDL_OverlayPlanes, file);
9253 newXS("SDL::OverlayHW", XS_SDL_OverlayHW, file);
9254 newXS("SDL::OverlayPitches", XS_SDL_OverlayPitches, file);
9255 newXS("SDL::OverlayPixels", XS_SDL_OverlayPixels, file);
9256 newXS("SDL::WMToggleFullScreen", XS_SDL_WMToggleFullScreen, file);
9257 newXS("SDL::WMGrabInput", XS_SDL_WMGrabInput, file);
9258 newXS("SDL::WMIconifyWindow", XS_SDL_WMIconifyWindow, file);
9259 newXS("SDL::ResizeEventW", XS_SDL_ResizeEventW, file);
9260 newXS("SDL::ResizeEventH", XS_SDL_ResizeEventH, file);
9261 newXS("SDL::AudioDriverName", XS_SDL_AudioDriverName, file);
9262 newXS("SDL::GetKeyState", XS_SDL_GetKeyState, file);
9264 newXS("SDL::NewSMPEGInfo", XS_SDL_NewSMPEGInfo, file);
9265 newXS("SDL::FreeSMPEGInfo", XS_SDL_FreeSMPEGInfo, file);
9266 newXS("SDL::SMPEGInfoHasAudio", XS_SDL_SMPEGInfoHasAudio, file);
9267 newXS("SDL::SMPEGInfoHasVideo", XS_SDL_SMPEGInfoHasVideo, file);
9268 newXS("SDL::SMPEGInfoWidth", XS_SDL_SMPEGInfoWidth, file);
9269 newXS("SDL::SMPEGInfoHeight", XS_SDL_SMPEGInfoHeight, file);
9270 newXS("SDL::SMPEGInfoCurrentFrame", XS_SDL_SMPEGInfoCurrentFrame, file);
9271 newXS("SDL::SMPEGInfoCurrentFPS", XS_SDL_SMPEGInfoCurrentFPS, file);
9272 newXS("SDL::SMPEGInfoCurrentAudioFrame", XS_SDL_SMPEGInfoCurrentAudioFrame, file);
9273 newXS("SDL::SMPEGInfoCurrentOffset", XS_SDL_SMPEGInfoCurrentOffset, file);
9274 newXS("SDL::SMPEGInfoTotalSize", XS_SDL_SMPEGInfoTotalSize, file);
9275 newXS("SDL::SMPEGInfoCurrentTime", XS_SDL_SMPEGInfoCurrentTime, file);
9276 newXS("SDL::SMPEGInfoTotalTime", XS_SDL_SMPEGInfoTotalTime, file);
9277 newXS("SDL::SMPEGError", XS_SDL_SMPEGError, file);
9278 newXS("SDL::NewSMPEG", XS_SDL_NewSMPEG, file);
9279 newXS("SDL::FreeSMPEG", XS_SDL_FreeSMPEG, file);
9280 newXS("SDL::SMPEGEnableAudio", XS_SDL_SMPEGEnableAudio, file);
9281 newXS("SDL::SMPEGEnableVideo", XS_SDL_SMPEGEnableVideo, file);
9282 newXS("SDL::SMPEGSetVolume", XS_SDL_SMPEGSetVolume, file);
9283 newXS("SDL::SMPEGSetDisplay", XS_SDL_SMPEGSetDisplay, file);
9284 newXS("SDL::SMPEGScaleXY", XS_SDL_SMPEGScaleXY, file);
9285 newXS("SDL::SMPEGScale", XS_SDL_SMPEGScale, file);
9286 newXS("SDL::SMPEGPlay", XS_SDL_SMPEGPlay, file);
9287 newXS("SDL::SMPEGStatus", XS_SDL_SMPEGStatus, file);
9288 newXS("SDL::SMPEGPause", XS_SDL_SMPEGPause, file);
9289 newXS("SDL::SMPEGLoop", XS_SDL_SMPEGLoop, file);
9290 newXS("SDL::SMPEGStop", XS_SDL_SMPEGStop, file);
9291 newXS("SDL::SMPEGRewind", XS_SDL_SMPEGRewind, file);
9292 newXS("SDL::SMPEGSeek", XS_SDL_SMPEGSeek, file);
9293 newXS("SDL::SMPEGSkip", XS_SDL_SMPEGSkip, file);
9294 newXS("SDL::SMPEGSetDisplayRegion", XS_SDL_SMPEGSetDisplayRegion, file);
9295 newXS("SDL::SMPEGRenderFrame", XS_SDL_SMPEGRenderFrame, file);
9296 newXS("SDL::SMPEGGetInfo", XS_SDL_SMPEGGetInfo, file);
9299 newXS("SDL::GFXRotoZoom", XS_SDL_GFXRotoZoom, file);
9300 newXS("SDL::GFXZoom", XS_SDL_GFXZoom, file);
9301 newXS("SDL::GFXPixelColor", XS_SDL_GFXPixelColor, file);
9302 newXS("SDL::GFXPixelRGBA", XS_SDL_GFXPixelRGBA, file);
9303 newXS("SDL::GFXHlineColor", XS_SDL_GFXHlineColor, file);
9304 newXS("SDL::GFXHlineRGBA", XS_SDL_GFXHlineRGBA, file);
9305 newXS("SDL::GFXVlineColor", XS_SDL_GFXVlineColor, file);
9306 newXS("SDL::GFXVlineRGBA", XS_SDL_GFXVlineRGBA, file);
9307 newXS("SDL::GFXRectangleColor", XS_SDL_GFXRectangleColor, file);
9308 newXS("SDL::GFXRectangleRGBA", XS_SDL_GFXRectangleRGBA, file);
9309 newXS("SDL::GFXBoxColor", XS_SDL_GFXBoxColor, file);
9310 newXS("SDL::GFXBoxRGBA", XS_SDL_GFXBoxRGBA, file);
9311 newXS("SDL::GFXLineColor", XS_SDL_GFXLineColor, file);
9312 newXS("SDL::GFXLineRGBA", XS_SDL_GFXLineRGBA, file);
9313 newXS("SDL::GFXAalineColor", XS_SDL_GFXAalineColor, file);
9314 newXS("SDL::GFXAalineRGBA", XS_SDL_GFXAalineRGBA, file);
9315 newXS("SDL::GFXCircleColor", XS_SDL_GFXCircleColor, file);
9316 newXS("SDL::GFXCircleRGBA", XS_SDL_GFXCircleRGBA, file);
9317 newXS("SDL::GFXAacircleColor", XS_SDL_GFXAacircleColor, file);
9318 newXS("SDL::GFXAacircleRGBA", XS_SDL_GFXAacircleRGBA, file);
9319 newXS("SDL::GFXFilledCircleColor", XS_SDL_GFXFilledCircleColor, file);
9320 newXS("SDL::GFXFilledCircleRGBA", XS_SDL_GFXFilledCircleRGBA, file);
9321 newXS("SDL::GFXEllipseColor", XS_SDL_GFXEllipseColor, file);
9322 newXS("SDL::GFXEllipseRGBA", XS_SDL_GFXEllipseRGBA, file);
9323 newXS("SDL::GFXAaellipseColor", XS_SDL_GFXAaellipseColor, file);
9324 newXS("SDL::GFXAaellipseRGBA", XS_SDL_GFXAaellipseRGBA, file);
9325 newXS("SDL::GFXFilledEllipseColor", XS_SDL_GFXFilledEllipseColor, file);
9326 newXS("SDL::GFXFilledEllipseRGBA", XS_SDL_GFXFilledEllipseRGBA, file);
9327 newXS("SDL::GFXFilledPieColor", XS_SDL_GFXFilledPieColor, file);
9328 newXS("SDL::GFXFilledPieRGBA", XS_SDL_GFXFilledPieRGBA, file);
9329 newXS("SDL::GFXPolygonColor", XS_SDL_GFXPolygonColor, file);
9330 newXS("SDL::GFXPolygonRGBA", XS_SDL_GFXPolygonRGBA, file);
9331 newXS("SDL::GFXAapolygonColor", XS_SDL_GFXAapolygonColor, file);
9332 newXS("SDL::GFXAapolygonRGBA", XS_SDL_GFXAapolygonRGBA, file);
9333 newXS("SDL::GFXFilledPolygonColor", XS_SDL_GFXFilledPolygonColor, file);
9334 newXS("SDL::GFXFilledPolygonRGBA", XS_SDL_GFXFilledPolygonRGBA, file);
9335 newXS("SDL::GFXCharacterColor", XS_SDL_GFXCharacterColor, file);
9336 newXS("SDL::GFXCharacterRGBA", XS_SDL_GFXCharacterRGBA, file);
9337 newXS("SDL::GFXStringColor", XS_SDL_GFXStringColor, file);
9338 newXS("SDL::GFXStringRGBA", XS_SDL_GFXStringRGBA, file);
9341 newXS("SDL::SVG_Load", XS_SDL_SVG_Load, file);
9342 newXS("SDL::SVG_LoadBuffer", XS_SDL_SVG_LoadBuffer, file);
9343 newXS("SDL::SVG_SetOffset", XS_SDL_SVG_SetOffset, file);
9344 newXS("SDL::SVG_SetScale", XS_SDL_SVG_SetScale, file);
9345 newXS("SDL::SVG_RenderToSurface", XS_SDL_SVG_RenderToSurface, file);
9346 newXS("SDL::SVG_Free", XS_SDL_SVG_Free, file);
9347 newXS("SDL::SVG_Set_Flags", XS_SDL_SVG_Set_Flags, file);
9348 newXS("SDL::SVG_Width", XS_SDL_SVG_Width, file);
9349 newXS("SDL::SVG_HEIGHT", XS_SDL_SVG_HEIGHT, file);
9350 newXS("SDL::SVG_SetClipping", XS_SDL_SVG_SetClipping, file);
9351 newXS("SDL::SVG_Version", XS_SDL_SVG_Version, file);
9354 newXS("SDL::SoundAudioInfoFormat", XS_SDL_SoundAudioInfoFormat, file);
9355 newXS("SDL::SoundAudioInfoChannels", XS_SDL_SoundAudioInfoChannels, file);
9356 newXS("SDL::SoundAudioInforate", XS_SDL_SoundAudioInforate, file);
9357 newXS("SDL::SoundDecoderInfoExtensions", XS_SDL_SoundDecoderInfoExtensions, file);
9358 newXS("SDL::SoundDecoderInfoDescription", XS_SDL_SoundDecoderInfoDescription, file);
9359 newXS("SDL::SoundDecoderInfoAuthor", XS_SDL_SoundDecoderInfoAuthor, file);
9360 newXS("SDL::SoundDecoderInfoUrl", XS_SDL_SoundDecoderInfoUrl, file);
9361 newXS("SDL::SoundSampleDecoder", XS_SDL_SoundSampleDecoder, file);
9362 newXS("SDL::SoundSampleDesired", XS_SDL_SoundSampleDesired, file);
9363 newXS("SDL::SoundSampleAcutal", XS_SDL_SoundSampleAcutal, file);
9364 newXS("SDL::SoundSampleBuffer", XS_SDL_SoundSampleBuffer, file);
9365 newXS("SDL::SoundSampleBufferSize", XS_SDL_SoundSampleBufferSize, file);
9366 newXS("SDL::SoundSampleFlags", XS_SDL_SoundSampleFlags, file);
9367 newXS("SDL::Sound_Init", XS_SDL_Sound_Init, file);
9368 newXS("SDL::Sound_Quit", XS_SDL_Sound_Quit, file);
9369 newXS("SDL::Sound_AvailableDecoders", XS_SDL_Sound_AvailableDecoders, file);
9370 newXS("SDL::Sound_GetError", XS_SDL_Sound_GetError, file);
9371 newXS("SDL::Sound_ClearError", XS_SDL_Sound_ClearError, file);
9372 newXS("SDL::Sound_NewSample", XS_SDL_Sound_NewSample, file);
9373 newXS("SDL::Sound_NewSampleFromMem", XS_SDL_Sound_NewSampleFromMem, file);
9374 newXS("SDL::Sound_NewSampleFromFile", XS_SDL_Sound_NewSampleFromFile, file);
9375 newXS("SDL::Sound_FreeSample", XS_SDL_Sound_FreeSample, file);
9376 newXS("SDL::Sound_GetDuration", XS_SDL_Sound_GetDuration, file);
9377 newXS("SDL::Sound_SetBufferSize", XS_SDL_Sound_SetBufferSize, file);
9378 newXS("SDL::Sound_Decode", XS_SDL_Sound_Decode, file);
9379 newXS("SDL::Sound_DecodeAll", XS_SDL_Sound_DecodeAll, file);
9380 newXS("SDL::Sound_Rewind", XS_SDL_Sound_Rewind, file);
9381 newXS("SDL::Sound_Seek", XS_SDL_Sound_Seek, file);
9384 /* Initialisation Section */
9402 #line 9403 "SDL_perl.c"
9404 /* End of Initialisation Section */