/* * This file was generated automatically by ExtUtils::ParseXS version 2.18 from the * contents of SDL_perl.xs. Do not edit this file, edit SDL_perl.xs instead. * * ANY CHANGES MADE HERE WILL BE LOST! * */ #line 1 "SDL_perl.xs" // SDL_perl.xs // // SDL_perl by David J. Goehrig // // Copyright (C) 2000,2001,2002 David J. Goehrig // // This software is under the GNU Library General Public License (LGPL) // see the file COPYING for terms of use #include "EXTERN.h" #include "perl.h" #include "XSUB.h" #ifndef aTHX_ #define aTHX_ #endif #include #ifdef HAVE_SDL_IMAGE #include int TextWidth(char *text); void InitFont(SDL_Surface *Font); void PutString(SDL_Surface *Surface, int x, int y, char *text); #endif #ifdef HAVE_SDL_MIXER #include void (*mix_music_finished_cv)(); #endif #ifdef HAVE_GL #include #endif #ifdef HAVE_GLU #include #endif #ifdef HAVE_SDL_NET #include #endif #ifdef HAVE_SDL_SOUND #include #endif #ifdef HAVE_SDL_TTF #include #define TEXT_SOLID 1 #define TEXT_SHADED 2 #define TEXT_BLENDED 4 #define UTF8_SOLID 8 #define UTF8_SHADED 16 #define UTF8_BLENDED 32 #define UNICODE_SOLID 64 #define UNICODE_SHADED 128 #define UNICODE_BLENDED 256 #endif #ifdef HAVE_SMPEG #ifdef WIN32 #include #else #include #endif #endif #ifdef HAVE_SDL_GFX #include #include #include #include #endif #ifdef HAVE_SDL_CONSOLE #include "CON_console.h" #include "CON_consolecommands.h" #include "DT_drawtext.h" #endif #ifdef USE_THREADS #define HAVE_TLS_CONTEXT #endif #include "defines.h" Uint32 sdl_perl_timer_callback ( Uint32 interval, void* param ) { Uint32 retval; int back; SV* cmd; ENTER_TLS_CONTEXT dSP; cmd = (SV*)param; ENTER; SAVETMPS; PUSHMARK(SP); XPUSHs(sv_2mortal(newSViv(interval))); PUTBACK; if (0 != (back = call_sv(cmd,G_SCALAR))) { SPAGAIN; if (back != 1 ) Perl_croak (aTHX_ "Timer Callback failed!"); retval = POPi; } else { Perl_croak(aTHX_ "Timer Callback failed!"); } FREETMPS; LEAVE; LEAVE_TLS_CONTEXT return retval; } void sdl_perl_audio_callback ( void* data, Uint8 *stream, int len ) { SV *cmd; ENTER_TLS_CONTEXT dSP; cmd = (SV*)data; ENTER; SAVETMPS; PUSHMARK(SP); XPUSHs(sv_2mortal(newSViv(PTR2IV(stream)))); XPUSHs(sv_2mortal(newSViv(len))); PUTBACK; call_sv(cmd,G_VOID|G_DISCARD); PUTBACK; FREETMPS; LEAVE; LEAVE_TLS_CONTEXT } #ifdef HAVE_SDL_MIXER void sdl_perl_music_callback ( void ) { SV *cmd; ENTER_TLS_CONTEXT dSP; cmd = (SV*)Mix_GetMusicHookData(); ENTER; SAVETMPS; PUSHMARK(SP); PUTBACK; call_sv(cmd,G_VOID|G_DISCARD); PUTBACK; FREETMPS; LEAVE; LEAVE_TLS_CONTEXT } void sdl_perl_music_finished_callback ( void ) { SV *cmd; ENTER_TLS_CONTEXT dSP; cmd = (SV*)mix_music_finished_cv; if ( cmd == NULL ) return; ENTER; SAVETMPS; PUSHMARK(SP); PUTBACK; call_sv(cmd,G_VOID|G_DISCARD); PUTBACK; FREETMPS; LEAVE; LEAVE_TLS_CONTEXT } #endif #ifdef HAVE_SDL_CONSOLE void sdl_perl_console_callback(ConsoleInformation *console, char *Parameters) { ENTER_TLS_CONTEXT // no semi-colon, breaks Perl macro dSP; ENTER; SAVETMPS; PUSHMARK(SP); XPUSHs(sv_2mortal(newSViv(PTR2IV(console)))); XPUSHs(sv_2mortal(newSVpv(Parameters,0))); PUTBACK; call_pv("SDL::Console::CommandDispatch",G_VOID|G_DISCARD); PUTBACK; FREETMPS; LEAVE; LEAVE_TLS_CONTEXT } #endif void sdl_perl_atexit (void) { SDL_Quit(); } void boot_SDL(); void boot_SDL__OpenGL(); XS(boot_SDL_perl) { GET_TLS_CONTEXT boot_SDL(); #ifdef HAVE_GL boot_SDL__OpenGL(); #endif } #ifndef PERL_UNUSED_VAR # define PERL_UNUSED_VAR(var) if (0) var = var #endif #line 258 "SDL_perl.c" XS(XS_SDL_GetError); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_GetError) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 0) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::GetError", ""); PERL_UNUSED_VAR(cv); /* -W */ { char * RETVAL; dXSTARG; #line 250 "SDL_perl.xs" RETVAL = SDL_GetError(); #line 276 "SDL_perl.c" sv_setpv(TARG, RETVAL); XSprePUSH; PUSHTARG; } XSRETURN(1); } XS(XS_SDL_Init); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_Init) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::Init", "flags"); PERL_UNUSED_VAR(cv); /* -W */ { Uint32 flags = (Uint32)SvUV(ST(0)); int RETVAL; dXSTARG; #line 258 "SDL_perl.xs" RETVAL = SDL_Init(flags); #ifdef HAVE_TLS_CONTEXT Perl_call_atexit(PERL_GET_CONTEXT, (void*)sdl_perl_atexit,0); #else atexit(sdl_perl_atexit); #endif #line 305 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_InitSubSystem); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_InitSubSystem) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::InitSubSystem", "flags"); PERL_UNUSED_VAR(cv); /* -W */ { Uint32 flags = (Uint32)SvUV(ST(0)); int RETVAL; dXSTARG; #line 271 "SDL_perl.xs" RETVAL = SDL_InitSubSystem(flags); #line 329 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_QuitSubSystem); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_QuitSubSystem) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::QuitSubSystem", "flags"); PERL_UNUSED_VAR(cv); /* -W */ { Uint32 flags = (Uint32)SvUV(ST(0)); #line 279 "SDL_perl.xs" SDL_QuitSubSystem(flags); #line 351 "SDL_perl.c" } XSRETURN_EMPTY; } XS(XS_SDL_Quit); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_Quit) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 0) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::Quit", ""); PERL_UNUSED_VAR(cv); /* -W */ { #line 284 "SDL_perl.xs" SDL_Quit(); #line 371 "SDL_perl.c" } XSRETURN_EMPTY; } XS(XS_SDL_WasInit); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_WasInit) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::WasInit", "flags"); PERL_UNUSED_VAR(cv); /* -W */ { Uint32 flags = (Uint32)SvUV(ST(0)); int RETVAL; dXSTARG; #line 290 "SDL_perl.xs" RETVAL = SDL_WasInit(flags); #line 394 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_Delay); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_Delay) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::Delay", "ms"); PERL_UNUSED_VAR(cv); /* -W */ { int ms = (int)SvIV(ST(0)); #line 298 "SDL_perl.xs" SDL_Delay(ms); #line 416 "SDL_perl.c" } XSRETURN_EMPTY; } XS(XS_SDL_GetTicks); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_GetTicks) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 0) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::GetTicks", ""); PERL_UNUSED_VAR(cv); /* -W */ { Uint32 RETVAL; dXSTARG; #line 303 "SDL_perl.xs" RETVAL = SDL_GetTicks(); #line 438 "SDL_perl.c" XSprePUSH; PUSHu((UV)RETVAL); } XSRETURN(1); } XS(XS_SDL_SetTimer); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_SetTimer) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::SetTimer", "interval, callback"); PERL_UNUSED_VAR(cv); /* -W */ { Uint32 interval = (Uint32)SvUV(ST(0)); SDL_TimerCallback callback = INT2PTR(SDL_TimerCallback,SvIV(ST(1))); int RETVAL; dXSTARG; #line 312 "SDL_perl.xs" RETVAL = SDL_SetTimer(interval,callback); #line 463 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_AddTimer); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_AddTimer) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 3) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::AddTimer", "interval, callback, param"); PERL_UNUSED_VAR(cv); /* -W */ { Uint32 interval = (Uint32)SvUV(ST(0)); SDL_NewTimerCallback callback = INT2PTR(SDL_NewTimerCallback,SvIV(ST(1))); void * param = INT2PTR(void *,SvIV(ST(2))); SDL_TimerID RETVAL; dXSTARG; #line 322 "SDL_perl.xs" RETVAL = SDL_AddTimer(interval,callback,param); #line 489 "SDL_perl.c" XSprePUSH; PUSHi(PTR2IV(RETVAL)); } XSRETURN(1); } XS(XS_SDL_PerlTimerCallback); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_PerlTimerCallback) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 0) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::PerlTimerCallback", ""); PERL_UNUSED_VAR(cv); /* -W */ { SDL_NewTimerCallback RETVAL; dXSTARG; #line 329 "SDL_perl.xs" RETVAL = sdl_perl_timer_callback; #line 512 "SDL_perl.c" XSprePUSH; PUSHi(PTR2IV(RETVAL)); } XSRETURN(1); } XS(XS_SDL_NewTimer); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_NewTimer) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::NewTimer", "interval, cmd"); PERL_UNUSED_VAR(cv); /* -W */ { Uint32 interval = (Uint32)SvUV(ST(0)); void * cmd = INT2PTR(void *,SvIV(ST(1))); SDL_TimerID RETVAL; dXSTARG; #line 338 "SDL_perl.xs" RETVAL = SDL_AddTimer(interval,sdl_perl_timer_callback,cmd); #line 537 "SDL_perl.c" XSprePUSH; PUSHi(PTR2IV(RETVAL)); } XSRETURN(1); } XS(XS_SDL_RemoveTimer); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_RemoveTimer) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::RemoveTimer", "id"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_TimerID id = INT2PTR(SDL_TimerID,SvIV(ST(0))); Uint32 RETVAL; dXSTARG; #line 346 "SDL_perl.xs" RETVAL = SDL_RemoveTimer(id); #line 561 "SDL_perl.c" XSprePUSH; PUSHu((UV)RETVAL); } XSRETURN(1); } XS(XS_SDL_CDNumDrives); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_CDNumDrives) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 0) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::CDNumDrives", ""); PERL_UNUSED_VAR(cv); /* -W */ { int RETVAL; dXSTARG; #line 353 "SDL_perl.xs" RETVAL = SDL_CDNumDrives(); #line 584 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_CDName); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_CDName) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::CDName", "drive"); PERL_UNUSED_VAR(cv); /* -W */ { int drive = (int)SvIV(ST(0)); char * RETVAL; dXSTARG; #line 361 "SDL_perl.xs" RETVAL = strdup(SDL_CDName(drive)); #line 608 "SDL_perl.c" sv_setpv(TARG, RETVAL); XSprePUSH; PUSHTARG; } XSRETURN(1); } XS(XS_SDL_CDOpen); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_CDOpen) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::CDOpen", "drive"); PERL_UNUSED_VAR(cv); /* -W */ { int drive = (int)SvIV(ST(0)); SDL_CD * RETVAL; dXSTARG; #line 369 "SDL_perl.xs" RETVAL = SDL_CDOpen(drive); #line 632 "SDL_perl.c" XSprePUSH; PUSHi(PTR2IV(RETVAL)); } XSRETURN(1); } XS(XS_SDL_CDTrackId); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_CDTrackId) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::CDTrackId", "track"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_CDtrack * track = INT2PTR(SDL_CDtrack *,SvIV(ST(0))); Uint8 RETVAL; dXSTARG; #line 377 "SDL_perl.xs" RETVAL = track->id; #line 656 "SDL_perl.c" XSprePUSH; PUSHu((UV)RETVAL); } XSRETURN(1); } XS(XS_SDL_CDTrackType); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_CDTrackType) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::CDTrackType", "track"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_CDtrack * track = INT2PTR(SDL_CDtrack *,SvIV(ST(0))); Uint8 RETVAL; dXSTARG; #line 385 "SDL_perl.xs" RETVAL = track->type; #line 680 "SDL_perl.c" XSprePUSH; PUSHu((UV)RETVAL); } XSRETURN(1); } XS(XS_SDL_CDTrackLength); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_CDTrackLength) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::CDTrackLength", "track"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_CDtrack * track = INT2PTR(SDL_CDtrack *,SvIV(ST(0))); Uint16 RETVAL; dXSTARG; #line 393 "SDL_perl.xs" RETVAL = track->length; #line 704 "SDL_perl.c" XSprePUSH; PUSHu((UV)RETVAL); } XSRETURN(1); } XS(XS_SDL_CDTrackOffset); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_CDTrackOffset) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::CDTrackOffset", "track"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_CDtrack * track = INT2PTR(SDL_CDtrack *,SvIV(ST(0))); Uint32 RETVAL; dXSTARG; #line 401 "SDL_perl.xs" RETVAL = track->offset; #line 728 "SDL_perl.c" XSprePUSH; PUSHu((UV)RETVAL); } XSRETURN(1); } XS(XS_SDL_CDStatus); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_CDStatus) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::CDStatus", "cd"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_CD * cd = INT2PTR(SDL_CD *,SvIV(ST(0))); Uint32 RETVAL; dXSTARG; #line 409 "SDL_perl.xs" RETVAL = SDL_CDStatus(cd); #line 752 "SDL_perl.c" XSprePUSH; PUSHu((UV)RETVAL); } XSRETURN(1); } XS(XS_SDL_CDPlayTracks); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_CDPlayTracks) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 5) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::CDPlayTracks", "cd, start_track, ntracks, start_frame, nframes"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_CD * cd = INT2PTR(SDL_CD *,SvIV(ST(0))); int start_track = (int)SvIV(ST(1)); int ntracks = (int)SvIV(ST(2)); int start_frame = (int)SvIV(ST(3)); int nframes = (int)SvIV(ST(4)); int RETVAL; dXSTARG; #line 421 "SDL_perl.xs" RETVAL = SDL_CDPlayTracks(cd,start_track,start_frame,ntracks,nframes); #line 780 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_CDPlay); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_CDPlay) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 3) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::CDPlay", "cd, start, length"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_CD * cd = INT2PTR(SDL_CD *,SvIV(ST(0))); int start = (int)SvIV(ST(1)); int length = (int)SvIV(ST(2)); int RETVAL; dXSTARG; #line 431 "SDL_perl.xs" RETVAL = SDL_CDPlay(cd,start,length); #line 806 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_CDPause); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_CDPause) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::CDPause", "cd"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_CD * cd = INT2PTR(SDL_CD *,SvIV(ST(0))); int RETVAL; dXSTARG; #line 439 "SDL_perl.xs" RETVAL = SDL_CDPause(cd); #line 830 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_CDResume); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_CDResume) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::CDResume", "cd"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_CD * cd = INT2PTR(SDL_CD *,SvIV(ST(0))); int RETVAL; dXSTARG; #line 447 "SDL_perl.xs" RETVAL = SDL_CDResume(cd); #line 854 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_CDStop); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_CDStop) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::CDStop", "cd"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_CD * cd = INT2PTR(SDL_CD *,SvIV(ST(0))); int RETVAL; dXSTARG; #line 455 "SDL_perl.xs" RETVAL = SDL_CDStop(cd); #line 878 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_CDEject); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_CDEject) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::CDEject", "cd"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_CD * cd = INT2PTR(SDL_CD *,SvIV(ST(0))); int RETVAL; dXSTARG; #line 463 "SDL_perl.xs" RETVAL = SDL_CDEject(cd); #line 902 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_CDClose); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_CDClose) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::CDClose", "cd"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_CD * cd = INT2PTR(SDL_CD *,SvIV(ST(0))); #line 471 "SDL_perl.xs" SDL_CDClose(cd); #line 924 "SDL_perl.c" } XSRETURN_EMPTY; } XS(XS_SDL_CDId); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_CDId) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::CDId", "cd"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_CD * cd = INT2PTR(SDL_CD *,SvIV(ST(0))); int RETVAL; dXSTARG; #line 477 "SDL_perl.xs" RETVAL = cd->id; #line 947 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_CDNumTracks); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_CDNumTracks) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::CDNumTracks", "cd"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_CD * cd = INT2PTR(SDL_CD *,SvIV(ST(0))); int RETVAL; dXSTARG; #line 485 "SDL_perl.xs" RETVAL = cd->numtracks; #line 971 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_CDCurTrack); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_CDCurTrack) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::CDCurTrack", "cd"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_CD * cd = INT2PTR(SDL_CD *,SvIV(ST(0))); int RETVAL; dXSTARG; #line 493 "SDL_perl.xs" RETVAL = cd->cur_track; #line 995 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_CDCurFrame); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_CDCurFrame) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::CDCurFrame", "cd"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_CD * cd = INT2PTR(SDL_CD *,SvIV(ST(0))); int RETVAL; dXSTARG; #line 501 "SDL_perl.xs" RETVAL = cd->cur_frame; #line 1019 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_CDTrack); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_CDTrack) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::CDTrack", "cd, number"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_CD * cd = INT2PTR(SDL_CD *,SvIV(ST(0))); int number = (int)SvIV(ST(1)); SDL_CDtrack * RETVAL; dXSTARG; #line 510 "SDL_perl.xs" RETVAL = (SDL_CDtrack *)(cd->track + number); #line 1044 "SDL_perl.c" XSprePUSH; PUSHi(PTR2IV(RETVAL)); } XSRETURN(1); } XS(XS_SDL_PumpEvents); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_PumpEvents) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 0) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::PumpEvents", ""); PERL_UNUSED_VAR(cv); /* -W */ { #line 517 "SDL_perl.xs" SDL_PumpEvents(); #line 1065 "SDL_perl.c" } XSRETURN_EMPTY; } XS(XS_SDL_NewEvent); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_NewEvent) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 0) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::NewEvent", ""); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Event * RETVAL; dXSTARG; #line 522 "SDL_perl.xs" RETVAL = (SDL_Event *) safemalloc (sizeof(SDL_Event)); #line 1087 "SDL_perl.c" XSprePUSH; PUSHi(PTR2IV(RETVAL)); } XSRETURN(1); } XS(XS_SDL_FreeEvent); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_FreeEvent) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::FreeEvent", "e"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Event * e = INT2PTR(SDL_Event *,SvIV(ST(0))); #line 530 "SDL_perl.xs" safefree(e); #line 1109 "SDL_perl.c" } XSRETURN_EMPTY; } XS(XS_SDL_PollEvent); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_PollEvent) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::PollEvent", "e"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Event * e = INT2PTR(SDL_Event *,SvIV(ST(0))); int RETVAL; dXSTARG; #line 536 "SDL_perl.xs" RETVAL = SDL_PollEvent(e); #line 1132 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_WaitEvent); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_WaitEvent) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::WaitEvent", "e"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Event * e = INT2PTR(SDL_Event *,SvIV(ST(0))); int RETVAL; dXSTARG; #line 544 "SDL_perl.xs" RETVAL = SDL_WaitEvent(e); #line 1156 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_EventState); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_EventState) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::EventState", "type, state"); PERL_UNUSED_VAR(cv); /* -W */ { Uint8 type = (unsigned char)SvUV(ST(0)); int state = (int)SvIV(ST(1)); Uint8 RETVAL; dXSTARG; #line 553 "SDL_perl.xs" RETVAL = SDL_EventState(type,state); #line 1181 "SDL_perl.c" XSprePUSH; PUSHu((UV)RETVAL); } XSRETURN(1); } XS(XS_SDL_EventType); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_EventType) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::EventType", "e"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Event * e = INT2PTR(SDL_Event *,SvIV(ST(0))); Uint8 RETVAL; dXSTARG; #line 561 "SDL_perl.xs" RETVAL = e->type; #line 1205 "SDL_perl.c" XSprePUSH; PUSHu((UV)RETVAL); } XSRETURN(1); } XS(XS_SDL_ActiveEventGain); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_ActiveEventGain) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::ActiveEventGain", "e"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Event * e = INT2PTR(SDL_Event *,SvIV(ST(0))); Uint8 RETVAL; dXSTARG; #line 569 "SDL_perl.xs" RETVAL = e->active.gain; #line 1229 "SDL_perl.c" XSprePUSH; PUSHu((UV)RETVAL); } XSRETURN(1); } XS(XS_SDL_ActiveEventState); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_ActiveEventState) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::ActiveEventState", "e"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Event * e = INT2PTR(SDL_Event *,SvIV(ST(0))); Uint8 RETVAL; dXSTARG; #line 577 "SDL_perl.xs" RETVAL = e->active.state; #line 1253 "SDL_perl.c" XSprePUSH; PUSHu((UV)RETVAL); } XSRETURN(1); } XS(XS_SDL_KeyEventState); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_KeyEventState) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::KeyEventState", "e"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Event * e = INT2PTR(SDL_Event *,SvIV(ST(0))); Uint8 RETVAL; dXSTARG; #line 585 "SDL_perl.xs" RETVAL = e->key.state; #line 1277 "SDL_perl.c" XSprePUSH; PUSHu((UV)RETVAL); } XSRETURN(1); } XS(XS_SDL_KeyEventSym); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_KeyEventSym) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::KeyEventSym", "e"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Event * e = INT2PTR(SDL_Event *,SvIV(ST(0))); int RETVAL; dXSTARG; #line 593 "SDL_perl.xs" RETVAL = e->key.keysym.sym; #line 1301 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_KeyEventMod); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_KeyEventMod) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::KeyEventMod", "e"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Event * e = INT2PTR(SDL_Event *,SvIV(ST(0))); int RETVAL; dXSTARG; #line 601 "SDL_perl.xs" RETVAL = e->key.keysym.mod; #line 1325 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_KeyEventUnicode); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_KeyEventUnicode) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::KeyEventUnicode", "e"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Event * e = INT2PTR(SDL_Event *,SvIV(ST(0))); Uint16 RETVAL; dXSTARG; #line 609 "SDL_perl.xs" RETVAL = e->key.keysym.unicode; #line 1349 "SDL_perl.c" XSprePUSH; PUSHu((UV)RETVAL); } XSRETURN(1); } XS(XS_SDL_KeyEventScanCode); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_KeyEventScanCode) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::KeyEventScanCode", "e"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Event * e = INT2PTR(SDL_Event *,SvIV(ST(0))); Uint8 RETVAL; dXSTARG; #line 617 "SDL_perl.xs" RETVAL = e->key.keysym.scancode; #line 1373 "SDL_perl.c" XSprePUSH; PUSHu((UV)RETVAL); } XSRETURN(1); } XS(XS_SDL_MouseMotionState); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_MouseMotionState) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::MouseMotionState", "e"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Event * e = INT2PTR(SDL_Event *,SvIV(ST(0))); Uint8 RETVAL; dXSTARG; #line 625 "SDL_perl.xs" RETVAL = e->motion.state; #line 1397 "SDL_perl.c" XSprePUSH; PUSHu((UV)RETVAL); } XSRETURN(1); } XS(XS_SDL_MouseMotionX); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_MouseMotionX) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::MouseMotionX", "e"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Event * e = INT2PTR(SDL_Event *,SvIV(ST(0))); Uint16 RETVAL; dXSTARG; #line 633 "SDL_perl.xs" RETVAL = e->motion.x; #line 1421 "SDL_perl.c" XSprePUSH; PUSHu((UV)RETVAL); } XSRETURN(1); } XS(XS_SDL_MouseMotionY); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_MouseMotionY) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::MouseMotionY", "e"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Event * e = INT2PTR(SDL_Event *,SvIV(ST(0))); Uint16 RETVAL; dXSTARG; #line 641 "SDL_perl.xs" RETVAL = e->motion.y; #line 1445 "SDL_perl.c" XSprePUSH; PUSHu((UV)RETVAL); } XSRETURN(1); } XS(XS_SDL_MouseMotionXrel); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_MouseMotionXrel) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::MouseMotionXrel", "e"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Event * e = INT2PTR(SDL_Event *,SvIV(ST(0))); Sint16 RETVAL; dXSTARG; #line 649 "SDL_perl.xs" RETVAL = e->motion.xrel; #line 1469 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_MouseMotionYrel); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_MouseMotionYrel) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::MouseMotionYrel", "e"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Event * e = INT2PTR(SDL_Event *,SvIV(ST(0))); Sint16 RETVAL; dXSTARG; #line 657 "SDL_perl.xs" RETVAL = e->motion.yrel; #line 1493 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_MouseButtonState); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_MouseButtonState) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::MouseButtonState", "e"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Event * e = INT2PTR(SDL_Event *,SvIV(ST(0))); Uint8 RETVAL; dXSTARG; #line 665 "SDL_perl.xs" RETVAL = e->button.state; #line 1517 "SDL_perl.c" XSprePUSH; PUSHu((UV)RETVAL); } XSRETURN(1); } XS(XS_SDL_MouseButton); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_MouseButton) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::MouseButton", "e"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Event * e = INT2PTR(SDL_Event *,SvIV(ST(0))); Uint8 RETVAL; dXSTARG; #line 673 "SDL_perl.xs" RETVAL = e->button.button; #line 1541 "SDL_perl.c" XSprePUSH; PUSHu((UV)RETVAL); } XSRETURN(1); } XS(XS_SDL_MouseButtonX); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_MouseButtonX) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::MouseButtonX", "e"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Event * e = INT2PTR(SDL_Event *,SvIV(ST(0))); Uint16 RETVAL; dXSTARG; #line 681 "SDL_perl.xs" RETVAL = e->button.x; #line 1565 "SDL_perl.c" XSprePUSH; PUSHu((UV)RETVAL); } XSRETURN(1); } XS(XS_SDL_MouseButtonY); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_MouseButtonY) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::MouseButtonY", "e"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Event * e = INT2PTR(SDL_Event *,SvIV(ST(0))); Uint16 RETVAL; dXSTARG; #line 689 "SDL_perl.xs" RETVAL = e->button.y; #line 1589 "SDL_perl.c" XSprePUSH; PUSHu((UV)RETVAL); } XSRETURN(1); } XS(XS_SDL_SysWMEventMsg); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_SysWMEventMsg) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::SysWMEventMsg", "e"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Event * e = INT2PTR(SDL_Event *,SvIV(ST(0))); SDL_SysWMmsg * RETVAL; dXSTARG; #line 697 "SDL_perl.xs" RETVAL = e->syswm.msg; #line 1613 "SDL_perl.c" XSprePUSH; PUSHi(PTR2IV(RETVAL)); } XSRETURN(1); } XS(XS_SDL_EnableUnicode); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_EnableUnicode) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::EnableUnicode", "enable"); PERL_UNUSED_VAR(cv); /* -W */ { int enable = (int)SvIV(ST(0)); int RETVAL; dXSTARG; #line 705 "SDL_perl.xs" RETVAL = SDL_EnableUNICODE(enable); #line 1637 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_EnableKeyRepeat); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_EnableKeyRepeat) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::EnableKeyRepeat", "delay, interval"); PERL_UNUSED_VAR(cv); /* -W */ { int delay = (int)SvIV(ST(0)); int interval = (int)SvIV(ST(1)); #line 714 "SDL_perl.xs" SDL_EnableKeyRepeat(delay,interval); #line 1660 "SDL_perl.c" } XSRETURN_EMPTY; } XS(XS_SDL_GetModState); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_GetModState) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 0) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::GetModState", ""); PERL_UNUSED_VAR(cv); /* -W */ { Uint32 RETVAL; dXSTARG; #line 719 "SDL_perl.xs" RETVAL = SDL_GetModState(); #line 1682 "SDL_perl.c" XSprePUSH; PUSHu((UV)RETVAL); } XSRETURN(1); } XS(XS_SDL_SetModState); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_SetModState) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::SetModState", "state"); PERL_UNUSED_VAR(cv); /* -W */ { Uint32 state = (Uint32)SvUV(ST(0)); #line 727 "SDL_perl.xs" SDL_SetModState(state); #line 1704 "SDL_perl.c" } XSRETURN_EMPTY; } XS(XS_SDL_GetKeyName); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_GetKeyName) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::GetKeyName", "sym"); PERL_UNUSED_VAR(cv); /* -W */ { int sym = (int)SvIV(ST(0)); char * RETVAL; dXSTARG; #line 733 "SDL_perl.xs" RETVAL = SDL_GetKeyName(sym); #line 1727 "SDL_perl.c" sv_setpv(TARG, RETVAL); XSprePUSH; PUSHTARG; } XSRETURN(1); } XS(XS_SDL_CreateRGBSurface); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_CreateRGBSurface) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 8) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::CreateRGBSurface", "flags, width, height, depth, Rmask, Gmask, Bmask, Amask"); PERL_UNUSED_VAR(cv); /* -W */ { Uint32 flags = (Uint32)SvUV(ST(0)); int width = (int)SvIV(ST(1)); int height = (int)SvIV(ST(2)); int depth = (int)SvIV(ST(3)); Uint32 Rmask = (Uint32)SvUV(ST(4)); Uint32 Gmask = (Uint32)SvUV(ST(5)); Uint32 Bmask = (Uint32)SvUV(ST(6)); Uint32 Amask = (Uint32)SvUV(ST(7)); SDL_Surface * RETVAL; dXSTARG; #line 748 "SDL_perl.xs" RETVAL = SDL_CreateRGBSurface ( flags, width, height, depth, Rmask, Gmask, Bmask, Amask ); #line 1759 "SDL_perl.c" XSprePUSH; PUSHi(PTR2IV(RETVAL)); } XSRETURN(1); } XS(XS_SDL_CreateRGBSurfaceFrom); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_CreateRGBSurfaceFrom) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 9) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::CreateRGBSurfaceFrom", "pixels, width, height, depth, pitch, Rmask, Gmask, Bmask, Amask"); PERL_UNUSED_VAR(cv); /* -W */ { char * pixels = (char *)SvPV_nolen(ST(0)); int width = (int)SvIV(ST(1)); int height = (int)SvIV(ST(2)); int depth = (int)SvIV(ST(3)); int pitch = (int)SvIV(ST(4)); Uint32 Rmask = (Uint32)SvUV(ST(5)); Uint32 Gmask = (Uint32)SvUV(ST(6)); Uint32 Bmask = (Uint32)SvUV(ST(7)); Uint32 Amask = (Uint32)SvUV(ST(8)); SDL_Surface * RETVAL; dXSTARG; #line 766 "SDL_perl.xs" RETVAL = SDL_CreateRGBSurfaceFrom ( pixels, width, height, depth, pitch, Rmask, Gmask, Bmask, Amask ); #line 1792 "SDL_perl.c" XSprePUSH; PUSHi(PTR2IV(RETVAL)); } XSRETURN(1); } #ifdef HAVE_SDL_IMAGE #define XSubPPtmpAAAA 1 XS(XS_SDL_IMGLoad); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_IMGLoad) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::IMGLoad", "fname"); PERL_UNUSED_VAR(cv); /* -W */ { char * fname = (char *)SvPV_nolen(ST(0)); SDL_Surface * RETVAL; dXSTARG; #line 777 "SDL_perl.xs" RETVAL = IMG_Load(fname); #line 1819 "SDL_perl.c" XSprePUSH; PUSHi(PTR2IV(RETVAL)); } XSRETURN(1); } #endif XS(XS_SDL_SurfaceCopy); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_SurfaceCopy) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::SurfaceCopy", "surface"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0))); SDL_Surface * RETVAL; dXSTARG; #line 787 "SDL_perl.xs" Uint8* pixels; Uint32 size = surface->pitch * surface->format->BytesPerPixel* surface->h; pixels = (Uint8*)safemalloc(size); memcpy(pixels,surface->pixels,size); RETVAL = SDL_CreateRGBSurfaceFrom(pixels,surface->w,surface->h, surface->format->BitsPerPixel, surface->pitch, surface->format->Rmask, surface->format->Gmask, surface->format->Bmask, surface->format->Amask); #line 1852 "SDL_perl.c" XSprePUSH; PUSHi(PTR2IV(RETVAL)); } XSRETURN(1); } XS(XS_SDL_FreeSurface); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_FreeSurface) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::FreeSurface", "surface"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0))); #line 803 "SDL_perl.xs" SDL_FreeSurface(surface); #line 1874 "SDL_perl.c" } XSRETURN_EMPTY; } XS(XS_SDL_SurfaceFlags); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_SurfaceFlags) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::SurfaceFlags", "surface"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0))); Uint32 RETVAL; dXSTARG; #line 809 "SDL_perl.xs" RETVAL = surface->flags; #line 1897 "SDL_perl.c" XSprePUSH; PUSHu((UV)RETVAL); } XSRETURN(1); } XS(XS_SDL_SurfacePalette); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_SurfacePalette) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::SurfacePalette", "surface"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0))); SDL_Palette * RETVAL; dXSTARG; #line 817 "SDL_perl.xs" RETVAL = surface->format->palette; #line 1921 "SDL_perl.c" XSprePUSH; PUSHi(PTR2IV(RETVAL)); } XSRETURN(1); } XS(XS_SDL_SurfaceBitsPerPixel); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_SurfaceBitsPerPixel) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::SurfaceBitsPerPixel", "surface"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0))); Uint8 RETVAL; dXSTARG; #line 825 "SDL_perl.xs" RETVAL = surface->format->BitsPerPixel; #line 1945 "SDL_perl.c" XSprePUSH; PUSHu((UV)RETVAL); } XSRETURN(1); } XS(XS_SDL_SurfaceBytesPerPixel); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_SurfaceBytesPerPixel) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::SurfaceBytesPerPixel", "surface"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0))); Uint8 RETVAL; dXSTARG; #line 833 "SDL_perl.xs" RETVAL = surface->format->BytesPerPixel; #line 1969 "SDL_perl.c" XSprePUSH; PUSHu((UV)RETVAL); } XSRETURN(1); } XS(XS_SDL_SurfaceRshift); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_SurfaceRshift) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::SurfaceRshift", "surface"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0))); Uint8 RETVAL; dXSTARG; #line 841 "SDL_perl.xs" RETVAL = surface->format->Rshift; #line 1993 "SDL_perl.c" XSprePUSH; PUSHu((UV)RETVAL); } XSRETURN(1); } XS(XS_SDL_SurfaceGshift); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_SurfaceGshift) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::SurfaceGshift", "surface"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0))); Uint8 RETVAL; dXSTARG; #line 849 "SDL_perl.xs" RETVAL = surface->format->Gshift; #line 2017 "SDL_perl.c" XSprePUSH; PUSHu((UV)RETVAL); } XSRETURN(1); } XS(XS_SDL_SurfaceBshift); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_SurfaceBshift) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::SurfaceBshift", "surface"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0))); Uint8 RETVAL; dXSTARG; #line 857 "SDL_perl.xs" RETVAL = surface->format->Bshift; #line 2041 "SDL_perl.c" XSprePUSH; PUSHu((UV)RETVAL); } XSRETURN(1); } XS(XS_SDL_SurfaceAshift); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_SurfaceAshift) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::SurfaceAshift", "surface"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0))); Uint8 RETVAL; dXSTARG; #line 865 "SDL_perl.xs" RETVAL = surface->format->Ashift; #line 2065 "SDL_perl.c" XSprePUSH; PUSHu((UV)RETVAL); } XSRETURN(1); } XS(XS_SDL_SurfaceRmask); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_SurfaceRmask) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::SurfaceRmask", "surface"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0))); Uint32 RETVAL; dXSTARG; #line 873 "SDL_perl.xs" RETVAL = surface->format->Rmask; #line 2089 "SDL_perl.c" XSprePUSH; PUSHu((UV)RETVAL); } XSRETURN(1); } XS(XS_SDL_SurfaceGmask); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_SurfaceGmask) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::SurfaceGmask", "surface"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0))); Uint32 RETVAL; dXSTARG; #line 881 "SDL_perl.xs" RETVAL = surface->format->Gmask; #line 2113 "SDL_perl.c" XSprePUSH; PUSHu((UV)RETVAL); } XSRETURN(1); } XS(XS_SDL_SurfaceBmask); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_SurfaceBmask) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::SurfaceBmask", "surface"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0))); Uint32 RETVAL; dXSTARG; #line 889 "SDL_perl.xs" RETVAL = surface->format->Bmask; #line 2137 "SDL_perl.c" XSprePUSH; PUSHu((UV)RETVAL); } XSRETURN(1); } XS(XS_SDL_SurfaceAmask); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_SurfaceAmask) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::SurfaceAmask", "surface"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0))); Uint32 RETVAL; dXSTARG; #line 897 "SDL_perl.xs" RETVAL = surface->format->Amask; #line 2161 "SDL_perl.c" XSprePUSH; PUSHu((UV)RETVAL); } XSRETURN(1); } XS(XS_SDL_SurfaceColorKey); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_SurfaceColorKey) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::SurfaceColorKey", "surface"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0))); Uint32 RETVAL; dXSTARG; #line 905 "SDL_perl.xs" RETVAL = surface->format->colorkey; #line 2185 "SDL_perl.c" XSprePUSH; PUSHu((UV)RETVAL); } XSRETURN(1); } XS(XS_SDL_SurfaceAlpha); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_SurfaceAlpha) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::SurfaceAlpha", "surface"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0))); Uint32 RETVAL; dXSTARG; #line 913 "SDL_perl.xs" RETVAL = surface->format->alpha; #line 2209 "SDL_perl.c" XSprePUSH; PUSHu((UV)RETVAL); } XSRETURN(1); } XS(XS_SDL_SurfaceW); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_SurfaceW) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::SurfaceW", "surface"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0))); int RETVAL; dXSTARG; #line 921 "SDL_perl.xs" RETVAL = surface->w; #line 2233 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_SurfaceH); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_SurfaceH) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::SurfaceH", "surface"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0))); int RETVAL; dXSTARG; #line 929 "SDL_perl.xs" RETVAL = surface->h; #line 2257 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_SurfacePitch); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_SurfacePitch) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::SurfacePitch", "surface"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0))); Uint16 RETVAL; dXSTARG; #line 937 "SDL_perl.xs" RETVAL = surface->pitch; #line 2281 "SDL_perl.c" XSprePUSH; PUSHu((UV)RETVAL); } XSRETURN(1); } XS(XS_SDL_SurfacePixels); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_SurfacePixels) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::SurfacePixels", "surface"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0))); SV * RETVAL; #line 945 "SDL_perl.xs" RETVAL = newSVpvn(surface->pixels,surface->pitch*surface->h); #line 2304 "SDL_perl.c" ST(0) = RETVAL; sv_2mortal(ST(0)); } XSRETURN(1); } XS(XS_SDL_SurfacePixel); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_SurfacePixel) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items < 3) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::SurfacePixel", "surface, x, y, ..."); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0))); Sint32 x = (Sint32)SvIV(ST(1)); Sint32 y = (Sint32)SvIV(ST(2)); SDL_Color * RETVAL; dXSTARG; #line 955 "SDL_perl.xs" SDL_Color* color; int pix,index; Uint8 r,g,b,a; int bpp = surface->format->BytesPerPixel; Uint8* p = (Uint8*)surface->pixels + bpp*x + surface->pitch*y; if ( items < 3 || items > 4 ) Perl_croak(aTHX_ "usage: SDL::SurfacePixel(surface,x,y,[color])"); if ( items == 4) { color = (SDL_Color*)SvIV(ST(3)); pix = SDL_MapRGB(surface->format,color->r,color->g,color->b); switch(bpp) { case 1: *(Uint8*)p = pix; break; case 2: *(Uint16*)p = pix; break; case 3: if (SDL_BYTEORDER == SDL_BIG_ENDIAN) { p[0] = (pix >> 16) & 0xff; p[1] = (pix >> 8) & 0xff; p[2] = pix & 0xff; } else { p[0] = pix & 0xff; p[1] = (pix >> 8) & 0xff; p[2] = (pix >> 16) & 0xff; } break; case 4: *(Uint32*)p = pix; break; } } RETVAL = (SDL_Color *) safemalloc(sizeof(SDL_Color)); switch(bpp) { case 1: index = *(Uint8*)p; memcpy(RETVAL,&surface->format->palette[index],sizeof(SDL_Color)); break; case 2: pix = *(Uint16*)p; SDL_GetRGB(pix,surface->format,&r,&g,&b); RETVAL->r = r; RETVAL->g = g; RETVAL->b = b; break; case 3: case 4: pix = *(Uint32*)p; SDL_GetRGB(pix,surface->format,&r,&g,&b); RETVAL->r = r; RETVAL->g = g; RETVAL->b = b; break; } #line 2385 "SDL_perl.c" XSprePUSH; PUSHi(PTR2IV(RETVAL)); } XSRETURN(1); } XS(XS_SDL_MUSTLOCK); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_MUSTLOCK) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::MUSTLOCK", "surface"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0))); int RETVAL; dXSTARG; #line 1017 "SDL_perl.xs" RETVAL = SDL_MUSTLOCK(surface); #line 2409 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_SurfaceLock); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_SurfaceLock) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::SurfaceLock", "surface"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0))); int RETVAL; dXSTARG; #line 1025 "SDL_perl.xs" RETVAL = SDL_LockSurface(surface); #line 2433 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_SurfaceUnlock); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_SurfaceUnlock) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::SurfaceUnlock", "surface"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0))); #line 1033 "SDL_perl.xs" SDL_UnlockSurface(surface); #line 2455 "SDL_perl.c" } XSRETURN_EMPTY; } XS(XS_SDL_GetVideoSurface); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_GetVideoSurface) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 0) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::GetVideoSurface", ""); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface * RETVAL; dXSTARG; #line 1038 "SDL_perl.xs" RETVAL = SDL_GetVideoSurface(); #line 2477 "SDL_perl.c" XSprePUSH; PUSHi(PTR2IV(RETVAL)); } XSRETURN(1); } XS(XS_SDL_VideoInfo); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_VideoInfo) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 0) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::VideoInfo", ""); PERL_UNUSED_VAR(cv); /* -W */ { HV * RETVAL; #line 1046 "SDL_perl.xs" HV *hv; SDL_VideoInfo *info; info = (SDL_VideoInfo *) safemalloc ( sizeof(SDL_VideoInfo)); memcpy(info,SDL_GetVideoInfo(),sizeof(SDL_VideoInfo)); hv = newHV(); hv_store(hv,"hw_available",strlen("hw_available"), newSViv(info->hw_available),0); hv_store(hv,"wm_available",strlen("wm_available"), newSViv(info->wm_available),0); hv_store(hv,"blit_hw",strlen("blit_hw"), newSViv(info->blit_hw),0); hv_store(hv,"blit_hw_CC",strlen("blit_hw_CC"), newSViv(info->blit_hw_CC),0); hv_store(hv,"blit_hw_A",strlen("blit_hw_A"), newSViv(info->blit_hw_A),0); hv_store(hv,"blit_sw",strlen("blit_sw"), newSViv(info->blit_sw),0); hv_store(hv,"blit_sw_CC",strlen("blit_sw_CC"), newSViv(info->blit_sw_CC),0); hv_store(hv,"blit_sw_A",strlen("blit_sw_A"), newSViv(info->blit_sw_A),0); hv_store(hv,"blit_fill",strlen("blit_fill"), newSViv(info->blit_fill),0); hv_store(hv,"video_mem",strlen("video_mem"), newSViv(info->video_mem),0); RETVAL = hv; #line 2524 "SDL_perl.c" ST(0) = newRV((SV*)RETVAL); sv_2mortal(ST(0)); } XSRETURN(1); } XS(XS_SDL_NewRect); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_NewRect) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 4) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::NewRect", "x, y, w, h"); PERL_UNUSED_VAR(cv); /* -W */ { Sint16 x = (Sint16)SvIV(ST(0)); Sint16 y = (Sint16)SvIV(ST(1)); Uint16 w = (Uint16)SvUV(ST(2)); Uint16 h = (Uint16)SvUV(ST(3)); SDL_Rect * RETVAL; dXSTARG; #line 1082 "SDL_perl.xs" RETVAL = (SDL_Rect *) safemalloc (sizeof(SDL_Rect)); RETVAL->x = x; RETVAL->y = y; RETVAL->w = w; RETVAL->h = h; #line 2556 "SDL_perl.c" XSprePUSH; PUSHi(PTR2IV(RETVAL)); } XSRETURN(1); } XS(XS_SDL_FreeRect); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_FreeRect) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::FreeRect", "rect"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Rect * rect = INT2PTR(SDL_Rect *,SvIV(ST(0))); #line 1094 "SDL_perl.xs" safefree(rect); #line 2578 "SDL_perl.c" } XSRETURN_EMPTY; } XS(XS_SDL_RectX); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_RectX) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items < 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::RectX", "rect, ..."); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Rect * rect = INT2PTR(SDL_Rect *,SvIV(ST(0))); Sint16 RETVAL; dXSTARG; #line 1100 "SDL_perl.xs" if (items > 1 ) rect->x = SvIV(ST(1)); RETVAL = rect->x; #line 2602 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_RectY); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_RectY) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items < 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::RectY", "rect, ..."); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Rect * rect = INT2PTR(SDL_Rect *,SvIV(ST(0))); Sint16 RETVAL; dXSTARG; #line 1109 "SDL_perl.xs" if (items > 1 ) rect->y = SvIV(ST(1)); RETVAL = rect->y; #line 2627 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_RectW); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_RectW) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items < 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::RectW", "rect, ..."); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Rect * rect = INT2PTR(SDL_Rect *,SvIV(ST(0))); Uint16 RETVAL; dXSTARG; #line 1118 "SDL_perl.xs" if (items > 1 ) rect->w = SvIV(ST(1)); RETVAL = rect->w; #line 2652 "SDL_perl.c" XSprePUSH; PUSHu((UV)RETVAL); } XSRETURN(1); } XS(XS_SDL_RectH); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_RectH) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items < 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::RectH", "rect, ..."); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Rect * rect = INT2PTR(SDL_Rect *,SvIV(ST(0))); Uint16 RETVAL; dXSTARG; #line 1127 "SDL_perl.xs" if (items > 1 ) rect->h = SvIV(ST(1)); RETVAL = rect->h; #line 2677 "SDL_perl.c" XSprePUSH; PUSHu((UV)RETVAL); } XSRETURN(1); } XS(XS_SDL_ListModes); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_ListModes) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::ListModes", "format, flags"); PERL_UNUSED_VAR(cv); /* -W */ { Uint32 flags = (Uint32)SvUV(ST(1)); SDL_PixelFormat * format = INT2PTR(SDL_PixelFormat *,SvIV(ST(0))); AV * RETVAL; #line 1137 "SDL_perl.xs" SDL_Rect **mode; RETVAL = newAV(); mode = SDL_ListModes(format,flags); if (mode == (SDL_Rect**)-1 ) { av_push(RETVAL,newSVpv("all",0)); } else if (! mode ) { av_push(RETVAL,newSVpv("none",0)); } else { for (;*mode;mode++) { av_push(RETVAL,newSViv(PTR2IV(*mode))); } } #line 2712 "SDL_perl.c" ST(0) = newRV((SV*)RETVAL); sv_2mortal(ST(0)); } XSRETURN(1); } XS(XS_SDL_NewColor); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_NewColor) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 3) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::NewColor", "r, g, b"); PERL_UNUSED_VAR(cv); /* -W */ { Uint8 r = (unsigned char)SvUV(ST(0)); Uint8 g = (unsigned char)SvUV(ST(1)); Uint8 b = (unsigned char)SvUV(ST(2)); SDL_Color * RETVAL; dXSTARG; #line 1159 "SDL_perl.xs" RETVAL = (SDL_Color *) safemalloc(sizeof(SDL_Color)); RETVAL->r = r; RETVAL->g = g; RETVAL->b = b; #line 2742 "SDL_perl.c" XSprePUSH; PUSHi(PTR2IV(RETVAL)); } XSRETURN(1); } XS(XS_SDL_ColorR); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_ColorR) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items < 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::ColorR", "color, ..."); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Color * color = INT2PTR(SDL_Color *,SvIV(ST(0))); Uint8 RETVAL; dXSTARG; #line 1170 "SDL_perl.xs" if (items > 1 ) color->r = SvIV(ST(1)); RETVAL = color->r; #line 2767 "SDL_perl.c" XSprePUSH; PUSHu((UV)RETVAL); } XSRETURN(1); } XS(XS_SDL_ColorG); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_ColorG) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items < 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::ColorG", "color, ..."); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Color * color = INT2PTR(SDL_Color *,SvIV(ST(0))); Uint8 RETVAL; dXSTARG; #line 1179 "SDL_perl.xs" if (items > 1 ) color->g = SvIV(ST(1)); RETVAL = color->g; #line 2792 "SDL_perl.c" XSprePUSH; PUSHu((UV)RETVAL); } XSRETURN(1); } XS(XS_SDL_ColorB); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_ColorB) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items < 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::ColorB", "color, ..."); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Color * color = INT2PTR(SDL_Color *,SvIV(ST(0))); Uint8 RETVAL; dXSTARG; #line 1188 "SDL_perl.xs" if (items > 1 ) color->b = SvIV(ST(1)); RETVAL = color->b; #line 2817 "SDL_perl.c" XSprePUSH; PUSHu((UV)RETVAL); } XSRETURN(1); } XS(XS_SDL_FreeColor); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_FreeColor) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::FreeColor", "color"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Color * color = INT2PTR(SDL_Color *,SvIV(ST(0))); #line 1197 "SDL_perl.xs" return; safefree(color); #line 2839 "SDL_perl.c" } XSRETURN_EMPTY; } XS(XS_SDL_NewPalette); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_NewPalette) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::NewPalette", "number"); PERL_UNUSED_VAR(cv); /* -W */ { int number = (int)SvIV(ST(0)); SDL_Palette * RETVAL; dXSTARG; #line 1203 "SDL_perl.xs" RETVAL = (SDL_Palette *)safemalloc(sizeof(SDL_Palette)); RETVAL->colors = (SDL_Color *)safemalloc(number * sizeof(SDL_Color)); RETVAL->ncolors = number; #line 2865 "SDL_perl.c" XSprePUSH; PUSHi(PTR2IV(RETVAL)); } XSRETURN(1); } XS(XS_SDL_PaletteNColors); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_PaletteNColors) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items < 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::PaletteNColors", "palette, ..."); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Palette * palette = INT2PTR(SDL_Palette *,SvIV(ST(0))); int RETVAL; dXSTARG; #line 1214 "SDL_perl.xs" if ( items > 1 ) palette->ncolors = SvIV(ST(1)); RETVAL = palette->ncolors; #line 2890 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_PaletteColors); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_PaletteColors) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items < 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::PaletteColors", "palette, index, ..."); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Palette * palette = INT2PTR(SDL_Palette *,SvIV(ST(0))); int index = (int)SvIV(ST(1)); SDL_Color * RETVAL; dXSTARG; #line 1224 "SDL_perl.xs" if ( items > 2 ) { palette->colors[index].r = SvUV(ST(2)); palette->colors[index].g = SvUV(ST(3)); palette->colors[index].b = SvUV(ST(4)); } RETVAL = (SDL_Color *)(palette->colors + index); #line 2920 "SDL_perl.c" XSprePUSH; PUSHi(PTR2IV(RETVAL)); } XSRETURN(1); } XS(XS_SDL_VideoModeOK); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_VideoModeOK) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 4) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::VideoModeOK", "width, height, bpp, flags"); PERL_UNUSED_VAR(cv); /* -W */ { int width = (int)SvIV(ST(0)); int height = (int)SvIV(ST(1)); int bpp = (int)SvIV(ST(2)); Uint32 flags = (Uint32)SvUV(ST(3)); int RETVAL; dXSTARG; #line 1240 "SDL_perl.xs" RETVAL = SDL_VideoModeOK(width,height,bpp,flags); #line 2947 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_SetVideoMode); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_SetVideoMode) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 4) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::SetVideoMode", "width, height, bpp, flags"); PERL_UNUSED_VAR(cv); /* -W */ { int width = (int)SvIV(ST(0)); int height = (int)SvIV(ST(1)); int bpp = (int)SvIV(ST(2)); Uint32 flags = (Uint32)SvUV(ST(3)); SDL_Surface * RETVAL; dXSTARG; #line 1251 "SDL_perl.xs" RETVAL = SDL_SetVideoMode(width,height,bpp,flags); #line 2974 "SDL_perl.c" XSprePUSH; PUSHi(PTR2IV(RETVAL)); } XSRETURN(1); } XS(XS_SDL_UpdateRect); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_UpdateRect) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 5) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::UpdateRect", "surface, x, y, w, h"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0))); int x = (int)SvIV(ST(1)); int y = (int)SvIV(ST(2)); int w = (int)SvIV(ST(3)); int h = (int)SvIV(ST(4)); #line 1263 "SDL_perl.xs" SDL_UpdateRect(surface,x,y,w,h); #line 3000 "SDL_perl.c" } XSRETURN_EMPTY; } XS(XS_SDL_UpdateRects); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_UpdateRects) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items < 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::UpdateRects", "surface, ..."); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0))); #line 1269 "SDL_perl.xs" SDL_Rect *rects, *temp; int num_rects,i; if ( items < 2 ) return; num_rects = items - 1; rects = (SDL_Rect *)safemalloc(sizeof(SDL_Rect)*items); for(i=0;ix; rects[i].y = temp->y; rects[i].w = temp->w; rects[i].h = temp->h; } SDL_UpdateRects(surface,num_rects,rects); safefree(rects); #line 3034 "SDL_perl.c" } XSRETURN_EMPTY; } XS(XS_SDL_Flip); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_Flip) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::Flip", "surface"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0))); int RETVAL; dXSTARG; #line 1288 "SDL_perl.xs" RETVAL = SDL_Flip(surface); #line 3057 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_SetColors); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_SetColors) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items < 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::SetColors", "surface, start, ..."); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0))); int start = (int)SvIV(ST(1)); int RETVAL; dXSTARG; #line 1297 "SDL_perl.xs" SDL_Color *colors,*temp; int i, length; if ( items < 3 ) { RETVAL = 0; goto all_done; } length = items - 2; colors = (SDL_Color *)safemalloc(sizeof(SDL_Color)*(length+1)); for ( i = 0; i < length ; i++ ) { temp = (SDL_Color *)SvIV(ST(i+2)); colors[i].r = temp->r; colors[i].g = temp->g; colors[i].b = temp->b; } RETVAL = SDL_SetColors(surface, colors, start, length ); safefree(colors); all_done: #line 3095 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_MapRGB); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_MapRGB) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 4) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::MapRGB", "surface, r, g, b"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0))); Uint8 r = (unsigned char)SvUV(ST(1)); Uint8 g = (unsigned char)SvUV(ST(2)); Uint8 b = (unsigned char)SvUV(ST(3)); Uint32 RETVAL; dXSTARG; #line 1321 "SDL_perl.xs" RETVAL = SDL_MapRGB(surface->format,r,g,b); #line 3122 "SDL_perl.c" XSprePUSH; PUSHu((UV)RETVAL); } XSRETURN(1); } XS(XS_SDL_MapRGBA); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_MapRGBA) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 5) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::MapRGBA", "surface, r, g, b, a"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0))); Uint8 r = (unsigned char)SvUV(ST(1)); Uint8 g = (unsigned char)SvUV(ST(2)); Uint8 b = (unsigned char)SvUV(ST(3)); Uint8 a = (unsigned char)SvUV(ST(4)); Uint32 RETVAL; dXSTARG; #line 1333 "SDL_perl.xs" RETVAL = SDL_MapRGBA(surface->format,r,g,b,a); #line 3150 "SDL_perl.c" XSprePUSH; PUSHu((UV)RETVAL); } XSRETURN(1); } XS(XS_SDL_GetRGB); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_GetRGB) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::GetRGB", "surface, pixel"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0))); Uint32 pixel = (Uint32)SvUV(ST(1)); AV * RETVAL; #line 1342 "SDL_perl.xs" Uint8 r,g,b; SDL_GetRGB(pixel,surface->format,&r,&g,&b); RETVAL = newAV(); av_push(RETVAL,newSViv(r)); av_push(RETVAL,newSViv(g)); av_push(RETVAL,newSViv(b)); #line 3179 "SDL_perl.c" ST(0) = newRV((SV*)RETVAL); sv_2mortal(ST(0)); } XSRETURN(1); } XS(XS_SDL_GetRGBA); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_GetRGBA) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::GetRGBA", "surface, pixel"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0))); Uint32 pixel = (Uint32)SvUV(ST(1)); AV * RETVAL; #line 1356 "SDL_perl.xs" Uint8 r,g,b,a; SDL_GetRGBA(pixel,surface->format,&r,&g,&b,&a); RETVAL = newAV(); av_push(RETVAL,newSViv(r)); av_push(RETVAL,newSViv(g)); av_push(RETVAL,newSViv(b)); av_push(RETVAL,newSViv(a)); #line 3210 "SDL_perl.c" ST(0) = newRV((SV*)RETVAL); sv_2mortal(ST(0)); } XSRETURN(1); } XS(XS_SDL_SaveBMP); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_SaveBMP) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::SaveBMP", "surface, filename"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0))); char * filename = (char *)SvPV_nolen(ST(1)); int RETVAL; dXSTARG; #line 1371 "SDL_perl.xs" RETVAL = SDL_SaveBMP(surface,filename); #line 3236 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_SetColorKey); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_SetColorKey) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 3) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::SetColorKey", "surface, flag, key"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0))); Uint32 flag = (Uint32)SvUV(ST(1)); SDL_Color * key = INT2PTR(SDL_Color *,SvIV(ST(2))); int RETVAL; dXSTARG; #line 1381 "SDL_perl.xs" Uint32 pixel = SDL_MapRGB(surface->format,key->r,key->g,key->b); RETVAL = SDL_SetColorKey(surface,flag,pixel); #line 3263 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_SetAlpha); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_SetAlpha) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 3) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::SetAlpha", "surface, flag, alpha"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0))); Uint32 flag = (Uint32)SvUV(ST(1)); Uint8 alpha = (unsigned char)SvUV(ST(2)); int RETVAL; dXSTARG; #line 1392 "SDL_perl.xs" RETVAL = SDL_SetAlpha(surface,flag,alpha); #line 3289 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_DisplayFormat); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_DisplayFormat) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::DisplayFormat", "surface"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0))); SDL_Surface * RETVAL; dXSTARG; #line 1400 "SDL_perl.xs" RETVAL = SDL_DisplayFormat(surface); #line 3313 "SDL_perl.c" XSprePUSH; PUSHi(PTR2IV(RETVAL)); } XSRETURN(1); } XS(XS_SDL_DisplayFormatAlpha); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_DisplayFormatAlpha) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::DisplayFormatAlpha", "surface"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0))); SDL_Surface * RETVAL; dXSTARG; #line 1408 "SDL_perl.xs" RETVAL = SDL_DisplayFormatAlpha(surface); #line 3337 "SDL_perl.c" XSprePUSH; PUSHi(PTR2IV(RETVAL)); } XSRETURN(1); } XS(XS_SDL_ConvertRGB); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_ConvertRGB) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::ConvertRGB", "surface"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0))); SDL_Surface * RETVAL; dXSTARG; #line 1416 "SDL_perl.xs" SDL_PixelFormat fmt; fmt.palette = NULL; fmt.BitsPerPixel = 24; fmt.BytesPerPixel = 3; fmt.Rmask = 0x000000ff; fmt.Gmask = 0x0000ff00; fmt.Bmask = 0x00ff0000; fmt.Amask = 0x00000000; fmt.Rloss = 0; fmt.Gloss = 0; fmt.Bloss = 0; fmt.Aloss = 0; fmt.Rshift = 0; fmt.Gshift = 8; fmt.Bshift = 16; fmt.Ashift = 24; fmt.colorkey = 0; fmt.alpha = 0; RETVAL = SDL_ConvertSurface(surface,&fmt,surface->flags); #line 3379 "SDL_perl.c" XSprePUSH; PUSHi(PTR2IV(RETVAL)); } XSRETURN(1); } XS(XS_SDL_ConvertRGBA); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_ConvertRGBA) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::ConvertRGBA", "surface"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0))); SDL_Surface * RETVAL; dXSTARG; #line 1442 "SDL_perl.xs" SDL_PixelFormat fmt; fmt.palette = NULL; fmt.BitsPerPixel = 32; fmt.BytesPerPixel = 4; fmt.Rmask = 0x000000ff; fmt.Gmask = 0x0000ff00; fmt.Bmask = 0x00ff0000; fmt.Amask = 0xff000000; fmt.Rloss = 0; fmt.Gloss = 0; fmt.Bloss = 0; fmt.Aloss = 0; fmt.Rshift = 0; fmt.Gshift = 8; fmt.Bshift = 16; fmt.Ashift = 24; fmt.colorkey = 0; fmt.alpha = 0; RETVAL = SDL_ConvertSurface(surface,&fmt,surface->flags); #line 3421 "SDL_perl.c" XSprePUSH; PUSHi(PTR2IV(RETVAL)); } XSRETURN(1); } XS(XS_SDL_BlitSurface); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_BlitSurface) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 4) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::BlitSurface", "src, src_rect, dest, dest_rect"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface * src = INT2PTR(SDL_Surface *,SvIV(ST(0))); SDL_Rect * src_rect = INT2PTR(SDL_Rect *,SvIV(ST(1))); SDL_Surface * dest = INT2PTR(SDL_Surface *,SvIV(ST(2))); SDL_Rect * dest_rect = INT2PTR(SDL_Rect *,SvIV(ST(3))); int RETVAL; dXSTARG; #line 1471 "SDL_perl.xs" RETVAL = SDL_BlitSurface(src,src_rect,dest,dest_rect); #line 3448 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_FillRect); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_FillRect) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 3) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::FillRect", "dest, dest_rect, color"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface * dest = INT2PTR(SDL_Surface *,SvIV(ST(0))); SDL_Rect * dest_rect = INT2PTR(SDL_Rect *,SvIV(ST(1))); SDL_Color * color = INT2PTR(SDL_Color *,SvIV(ST(2))); int RETVAL; dXSTARG; #line 1481 "SDL_perl.xs" Uint32 pixel = SDL_MapRGB(dest->format,color->r,color->g,color->b); RETVAL = SDL_FillRect(dest,dest_rect,pixel); #line 3475 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_WMSetCaption); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_WMSetCaption) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::WMSetCaption", "title, icon"); PERL_UNUSED_VAR(cv); /* -W */ { char * title = (char *)SvPV_nolen(ST(0)); char * icon = (char *)SvPV_nolen(ST(1)); #line 1491 "SDL_perl.xs" SDL_WM_SetCaption(title,icon); #line 3498 "SDL_perl.c" } XSRETURN_EMPTY; } XS(XS_SDL_WMGetCaption); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_WMGetCaption) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 0) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::WMGetCaption", ""); PERL_UNUSED_VAR(cv); /* -W */ { AV * RETVAL; #line 1496 "SDL_perl.xs" char *title,*icon; SDL_WM_GetCaption(&title,&icon); RETVAL = newAV(); av_push(RETVAL,newSVpv(title,0)); av_push(RETVAL,newSVpv(icon,0)); #line 3523 "SDL_perl.c" ST(0) = newRV((SV*)RETVAL); sv_2mortal(ST(0)); } XSRETURN(1); } XS(XS_SDL_WMSetIcon); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_WMSetIcon) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::WMSetIcon", "icon"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface * icon = INT2PTR(SDL_Surface *,SvIV(ST(0))); #line 1508 "SDL_perl.xs" SDL_WM_SetIcon(icon,NULL); #line 3546 "SDL_perl.c" } XSRETURN_EMPTY; } XS(XS_SDL_WarpMouse); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_WarpMouse) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::WarpMouse", "x, y"); PERL_UNUSED_VAR(cv); /* -W */ { Uint16 x = (Uint16)SvUV(ST(0)); Uint16 y = (Uint16)SvUV(ST(1)); #line 1515 "SDL_perl.xs" SDL_WarpMouse(x,y); #line 3568 "SDL_perl.c" } XSRETURN_EMPTY; } XS(XS_SDL_NewCursor); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_NewCursor) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 4) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::NewCursor", "data, mask, x, y"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface * data = INT2PTR(SDL_Surface *,SvIV(ST(0))); SDL_Surface * mask = INT2PTR(SDL_Surface *,SvIV(ST(1))); int x = (int)SvIV(ST(2)); int y = (int)SvIV(ST(3)); SDL_Cursor * RETVAL; dXSTARG; #line 1524 "SDL_perl.xs" RETVAL = SDL_CreateCursor((Uint8*)data->pixels, (Uint8*)mask->pixels,data->w,data->h,x,y); #line 3595 "SDL_perl.c" XSprePUSH; PUSHi(PTR2IV(RETVAL)); } XSRETURN(1); } XS(XS_SDL_FreeCursor); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_FreeCursor) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::FreeCursor", "cursor"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Cursor * cursor = INT2PTR(SDL_Cursor *,SvIV(ST(0))); #line 1533 "SDL_perl.xs" SDL_FreeCursor(cursor); #line 3617 "SDL_perl.c" } XSRETURN_EMPTY; } XS(XS_SDL_SetCursor); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_SetCursor) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::SetCursor", "cursor"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Cursor * cursor = INT2PTR(SDL_Cursor *,SvIV(ST(0))); #line 1539 "SDL_perl.xs" SDL_SetCursor(cursor); #line 3638 "SDL_perl.c" } XSRETURN_EMPTY; } XS(XS_SDL_GetCursor); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_GetCursor) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 0) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::GetCursor", ""); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Cursor * RETVAL; dXSTARG; #line 1544 "SDL_perl.xs" RETVAL = SDL_GetCursor(); #line 3660 "SDL_perl.c" XSprePUSH; PUSHi(PTR2IV(RETVAL)); } XSRETURN(1); } XS(XS_SDL_ShowCursor); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_ShowCursor) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::ShowCursor", "toggle"); PERL_UNUSED_VAR(cv); /* -W */ { int toggle = (int)SvIV(ST(0)); int RETVAL; dXSTARG; #line 1552 "SDL_perl.xs" RETVAL = SDL_ShowCursor(toggle); #line 3684 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_NewAudioSpec); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_NewAudioSpec) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 4) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::NewAudioSpec", "freq, format, channels, samples"); PERL_UNUSED_VAR(cv); /* -W */ { int freq = (int)SvIV(ST(0)); Uint16 format = (Uint16)SvUV(ST(1)); Uint8 channels = (unsigned char)SvUV(ST(2)); Uint16 samples = (Uint16)SvUV(ST(3)); SDL_AudioSpec * RETVAL; dXSTARG; #line 1563 "SDL_perl.xs" RETVAL = (SDL_AudioSpec *)safemalloc(sizeof(SDL_AudioSpec)); RETVAL->freq = freq; RETVAL->format = format; RETVAL->channels = channels; RETVAL->samples = samples; #line 3715 "SDL_perl.c" XSprePUSH; PUSHi(PTR2IV(RETVAL)); } XSRETURN(1); } XS(XS_SDL_FreeAudioSpec); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_FreeAudioSpec) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::FreeAudioSpec", "spec"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_AudioSpec * spec = INT2PTR(SDL_AudioSpec *,SvIV(ST(0))); #line 1575 "SDL_perl.xs" safefree(spec); #line 3737 "SDL_perl.c" } XSRETURN_EMPTY; } XS(XS_SDL_NewAudioCVT); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_NewAudioCVT) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 6) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::NewAudioCVT", "src_format, src_channels, src_rate, dst_format, dst_channels, dst_rate"); PERL_UNUSED_VAR(cv); /* -W */ { Uint16 src_format = (Uint16)SvUV(ST(0)); Uint8 src_channels = (unsigned char)SvUV(ST(1)); int src_rate = (int)SvIV(ST(2)); Uint16 dst_format = (Uint16)SvUV(ST(3)); Uint8 dst_channels = (unsigned char)SvUV(ST(4)); int dst_rate = (int)SvIV(ST(5)); SDL_AudioCVT * RETVAL; dXSTARG; #line 1586 "SDL_perl.xs" RETVAL = (SDL_AudioCVT *)safemalloc(sizeof(SDL_AudioCVT)); if (SDL_BuildAudioCVT(RETVAL,src_format, src_channels, src_rate, dst_format, dst_channels, dst_rate)) { safefree(RETVAL); RETVAL = NULL; } #line 3768 "SDL_perl.c" XSprePUSH; PUSHi(PTR2IV(RETVAL)); } XSRETURN(1); } XS(XS_SDL_FreeAudioCVT); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_FreeAudioCVT) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::FreeAudioCVT", "cvt"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_AudioCVT * cvt = INT2PTR(SDL_AudioCVT *,SvIV(ST(0))); #line 1597 "SDL_perl.xs" safefree(cvt); #line 3790 "SDL_perl.c" } XSRETURN_EMPTY; } XS(XS_SDL_ConvertAudioData); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_ConvertAudioData) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 3) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::ConvertAudioData", "cvt, data, len"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_AudioCVT * cvt = INT2PTR(SDL_AudioCVT *,SvIV(ST(0))); Uint8 * data = INT2PTR(Uint8 *,SvIV(ST(1))); int len = (int)SvIV(ST(2)); int RETVAL; dXSTARG; #line 1605 "SDL_perl.xs" cvt->len = len; cvt->buf = (Uint8*) safemalloc(cvt->len*cvt->len_mult); memcpy(cvt->buf,data,cvt->len); RETVAL = SDL_ConvertAudio(cvt); #line 3818 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_OpenAudio); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_OpenAudio) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenAudio", "spec, callback"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_AudioSpec * spec = INT2PTR(SDL_AudioSpec *,SvIV(ST(0))); SV* callback = ST(1); int RETVAL; dXSTARG; #line 1617 "SDL_perl.xs" spec->userdata = (void*)callback; spec->callback = sdl_perl_audio_callback; RETVAL = SDL_OpenAudio(spec,NULL); #line 3845 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_GetAudioStatus); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_GetAudioStatus) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 0) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::GetAudioStatus", ""); PERL_UNUSED_VAR(cv); /* -W */ { Uint32 RETVAL; dXSTARG; #line 1626 "SDL_perl.xs" RETVAL = SDL_GetAudioStatus (); #line 3868 "SDL_perl.c" XSprePUSH; PUSHu((UV)RETVAL); } XSRETURN(1); } XS(XS_SDL_PauseAudio); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_PauseAudio) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::PauseAudio", "p_on"); PERL_UNUSED_VAR(cv); /* -W */ { int p_on = (int)SvIV(ST(0)); #line 1634 "SDL_perl.xs" SDL_PauseAudio(p_on); #line 3890 "SDL_perl.c" } XSRETURN_EMPTY; } XS(XS_SDL_LockAudio); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_LockAudio) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 0) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::LockAudio", ""); PERL_UNUSED_VAR(cv); /* -W */ { #line 1639 "SDL_perl.xs" SDL_LockAudio(); #line 3910 "SDL_perl.c" } XSRETURN_EMPTY; } XS(XS_SDL_UnlockAudio); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_UnlockAudio) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 0) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::UnlockAudio", ""); PERL_UNUSED_VAR(cv); /* -W */ { #line 1644 "SDL_perl.xs" SDL_UnlockAudio(); #line 3930 "SDL_perl.c" } XSRETURN_EMPTY; } XS(XS_SDL_CloseAudio); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_CloseAudio) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 0) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::CloseAudio", ""); PERL_UNUSED_VAR(cv); /* -W */ { #line 1649 "SDL_perl.xs" SDL_CloseAudio(); #line 3950 "SDL_perl.c" } XSRETURN_EMPTY; } XS(XS_SDL_FreeWAV); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_FreeWAV) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::FreeWAV", "buf"); PERL_UNUSED_VAR(cv); /* -W */ { Uint8 * buf = INT2PTR(Uint8 *,SvIV(ST(0))); #line 1655 "SDL_perl.xs" SDL_FreeWAV(buf); #line 3971 "SDL_perl.c" } XSRETURN_EMPTY; } XS(XS_SDL_LoadWAV); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_LoadWAV) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::LoadWAV", "filename, spec"); PERL_UNUSED_VAR(cv); /* -W */ { char * filename = (char *)SvPV_nolen(ST(0)); SDL_AudioSpec * spec = INT2PTR(SDL_AudioSpec *,SvIV(ST(1))); AV * RETVAL; #line 1662 "SDL_perl.xs" SDL_AudioSpec *temp; Uint8 *buf; Uint32 len; RETVAL = newAV(); temp = SDL_LoadWAV(filename,spec,&buf,&len); if ( ! temp ) goto error; av_push(RETVAL,newSViv(PTR2IV(temp))); av_push(RETVAL,newSViv(PTR2IV(buf))); av_push(RETVAL,newSViv(len)); error: #line 4004 "SDL_perl.c" ST(0) = newRV((SV*)RETVAL); sv_2mortal(ST(0)); } XSRETURN(1); } #ifdef HAVE_SDL_MIXER #define XSubPPtmpAAAB 1 XS(XS_SDL_MixAudio); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_MixAudio) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 4) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::MixAudio", "dst, src, len, volume"); PERL_UNUSED_VAR(cv); /* -W */ { Uint8 * dst = INT2PTR(Uint8 *,SvIV(ST(0))); Uint8 * src = INT2PTR(Uint8 *,SvIV(ST(1))); Uint32 len = (Uint32)SvUV(ST(2)); int volume = (int)SvIV(ST(3)); #line 1685 "SDL_perl.xs" SDL_MixAudio(dst,src,len,volume); #line 4033 "SDL_perl.c" } XSRETURN_EMPTY; } XS(XS_SDL_MixOpenAudio); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_MixOpenAudio) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 4) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::MixOpenAudio", "frequency, format, channels, chunksize"); PERL_UNUSED_VAR(cv); /* -W */ { int frequency = (int)SvIV(ST(0)); Uint16 format = (Uint16)SvUV(ST(1)); int channels = (int)SvIV(ST(2)); int chunksize = (int)SvIV(ST(3)); int RETVAL; dXSTARG; #line 1694 "SDL_perl.xs" RETVAL = Mix_OpenAudio(frequency, format, channels, chunksize); #line 4059 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_MixAllocateChannels); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_MixAllocateChannels) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::MixAllocateChannels", "number"); PERL_UNUSED_VAR(cv); /* -W */ { int number = (int)SvIV(ST(0)); int RETVAL; dXSTARG; #line 1702 "SDL_perl.xs" RETVAL = Mix_AllocateChannels(number); #line 4083 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_MixQuerySpec); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_MixQuerySpec) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 0) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::MixQuerySpec", ""); PERL_UNUSED_VAR(cv); /* -W */ { AV * RETVAL; #line 1709 "SDL_perl.xs" int freq, channels, status; Uint16 format; status = Mix_QuerySpec(&freq,&format,&channels); RETVAL = newAV(); av_push(RETVAL,newSViv(status)); av_push(RETVAL,newSViv(freq)); av_push(RETVAL,newSViv(format)); av_push(RETVAL,newSViv(channels)); #line 4112 "SDL_perl.c" ST(0) = newRV((SV*)RETVAL); sv_2mortal(ST(0)); } XSRETURN(1); } XS(XS_SDL_MixLoadWAV); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_MixLoadWAV) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::MixLoadWAV", "filename"); PERL_UNUSED_VAR(cv); /* -W */ { char * filename = (char *)SvPV_nolen(ST(0)); Mix_Chunk * RETVAL; dXSTARG; #line 1724 "SDL_perl.xs" RETVAL = Mix_LoadWAV(filename); #line 4137 "SDL_perl.c" XSprePUSH; PUSHi(PTR2IV(RETVAL)); } XSRETURN(1); } XS(XS_SDL_MixLoadMusic); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_MixLoadMusic) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::MixLoadMusic", "filename"); PERL_UNUSED_VAR(cv); /* -W */ { char * filename = (char *)SvPV_nolen(ST(0)); Mix_Music * RETVAL; dXSTARG; #line 1732 "SDL_perl.xs" RETVAL = Mix_LoadMUS(filename); #line 4161 "SDL_perl.c" XSprePUSH; PUSHi(PTR2IV(RETVAL)); } XSRETURN(1); } XS(XS_SDL_MixQuickLoadWAV); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_MixQuickLoadWAV) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::MixQuickLoadWAV", "buf"); PERL_UNUSED_VAR(cv); /* -W */ { Uint8 * buf = INT2PTR(Uint8 *,SvIV(ST(0))); Mix_Chunk * RETVAL; dXSTARG; #line 1740 "SDL_perl.xs" RETVAL = Mix_QuickLoad_WAV(buf); #line 4185 "SDL_perl.c" XSprePUSH; PUSHi(PTR2IV(RETVAL)); } XSRETURN(1); } XS(XS_SDL_MixFreeChunk); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_MixFreeChunk) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::MixFreeChunk", "chunk"); PERL_UNUSED_VAR(cv); /* -W */ { Mix_Chunk * chunk = INT2PTR(Mix_Chunk *,SvIV(ST(0))); #line 1748 "SDL_perl.xs" Mix_FreeChunk(chunk); #line 4207 "SDL_perl.c" } XSRETURN_EMPTY; } XS(XS_SDL_MixFreeMusic); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_MixFreeMusic) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::MixFreeMusic", "music"); PERL_UNUSED_VAR(cv); /* -W */ { Mix_Music * music = INT2PTR(Mix_Music *,SvIV(ST(0))); #line 1754 "SDL_perl.xs" Mix_FreeMusic(music); #line 4228 "SDL_perl.c" } XSRETURN_EMPTY; } XS(XS_SDL_MixSetPostMixCallback); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_MixSetPostMixCallback) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::MixSetPostMixCallback", "func, arg"); PERL_UNUSED_VAR(cv); /* -W */ { void * func = INT2PTR(void *,SvIV(ST(0))); void * arg = INT2PTR(void *,SvIV(ST(1))); #line 1761 "SDL_perl.xs" Mix_SetPostMix(func,arg); #line 4250 "SDL_perl.c" } XSRETURN_EMPTY; } XS(XS_SDL_PerlMixMusicHook); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_PerlMixMusicHook) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 0) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::PerlMixMusicHook", ""); PERL_UNUSED_VAR(cv); /* -W */ { void * RETVAL; dXSTARG; #line 1766 "SDL_perl.xs" RETVAL = sdl_perl_music_callback; #line 4272 "SDL_perl.c" XSprePUSH; PUSHi(PTR2IV(RETVAL)); } XSRETURN(1); } XS(XS_SDL_MixSetMusicHook); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_MixSetMusicHook) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::MixSetMusicHook", "func, arg"); PERL_UNUSED_VAR(cv); /* -W */ { void * func = INT2PTR(void *,SvIV(ST(0))); void * arg = INT2PTR(void *,SvIV(ST(1))); #line 1775 "SDL_perl.xs" Mix_HookMusic(func,arg); #line 4295 "SDL_perl.c" } XSRETURN_EMPTY; } XS(XS_SDL_MixSetMusicFinishedHook); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_MixSetMusicFinishedHook) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::MixSetMusicFinishedHook", "func"); PERL_UNUSED_VAR(cv); /* -W */ { void * func = INT2PTR(void *,SvIV(ST(0))); #line 1781 "SDL_perl.xs" mix_music_finished_cv = func; Mix_HookMusicFinished(sdl_perl_music_finished_callback); #line 4317 "SDL_perl.c" } XSRETURN_EMPTY; } XS(XS_SDL_MixGetMusicHookData); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_MixGetMusicHookData) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 0) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::MixGetMusicHookData", ""); PERL_UNUSED_VAR(cv); /* -W */ { void * RETVAL; dXSTARG; #line 1787 "SDL_perl.xs" RETVAL = Mix_GetMusicHookData(); #line 4339 "SDL_perl.c" XSprePUSH; PUSHi(PTR2IV(RETVAL)); } XSRETURN(1); } XS(XS_SDL_MixReverseChannels); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_MixReverseChannels) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::MixReverseChannels", "number"); PERL_UNUSED_VAR(cv); /* -W */ { int number = (int)SvIV(ST(0)); int RETVAL; dXSTARG; #line 1795 "SDL_perl.xs" RETVAL = Mix_ReserveChannels ( number ); #line 4363 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_MixGroupChannel); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_MixGroupChannel) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::MixGroupChannel", "which, tag"); PERL_UNUSED_VAR(cv); /* -W */ { int which = (int)SvIV(ST(0)); int tag = (int)SvIV(ST(1)); int RETVAL; dXSTARG; #line 1804 "SDL_perl.xs" RETVAL = Mix_GroupChannel(which,tag); #line 4388 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_MixGroupChannels); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_MixGroupChannels) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 3) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::MixGroupChannels", "from, to, tag"); PERL_UNUSED_VAR(cv); /* -W */ { int from = (int)SvIV(ST(0)); int to = (int)SvIV(ST(1)); int tag = (int)SvIV(ST(2)); int RETVAL; dXSTARG; #line 1814 "SDL_perl.xs" RETVAL = Mix_GroupChannels(from,to,tag); #line 4414 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_MixGroupAvailable); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_MixGroupAvailable) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::MixGroupAvailable", "tag"); PERL_UNUSED_VAR(cv); /* -W */ { int tag = (int)SvIV(ST(0)); int RETVAL; dXSTARG; #line 1822 "SDL_perl.xs" RETVAL = Mix_GroupAvailable(tag); #line 4438 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_MixGroupCount); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_MixGroupCount) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::MixGroupCount", "tag"); PERL_UNUSED_VAR(cv); /* -W */ { int tag = (int)SvIV(ST(0)); int RETVAL; dXSTARG; #line 1830 "SDL_perl.xs" RETVAL = Mix_GroupCount(tag); #line 4462 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_MixGroupOldest); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_MixGroupOldest) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::MixGroupOldest", "tag"); PERL_UNUSED_VAR(cv); /* -W */ { int tag = (int)SvIV(ST(0)); int RETVAL; dXSTARG; #line 1838 "SDL_perl.xs" RETVAL = Mix_GroupOldest(tag); #line 4486 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_MixGroupNewer); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_MixGroupNewer) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::MixGroupNewer", "tag"); PERL_UNUSED_VAR(cv); /* -W */ { int tag = (int)SvIV(ST(0)); int RETVAL; dXSTARG; #line 1846 "SDL_perl.xs" RETVAL = Mix_GroupNewer(tag); #line 4510 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_MixPlayChannel); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_MixPlayChannel) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 3) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::MixPlayChannel", "channel, chunk, loops"); PERL_UNUSED_VAR(cv); /* -W */ { int channel = (int)SvIV(ST(0)); Mix_Chunk * chunk = INT2PTR(Mix_Chunk *,SvIV(ST(1))); int loops = (int)SvIV(ST(2)); int RETVAL; dXSTARG; #line 1856 "SDL_perl.xs" RETVAL = Mix_PlayChannel(channel,chunk,loops); #line 4536 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_MixPlayChannelTimed); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_MixPlayChannelTimed) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 4) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::MixPlayChannelTimed", "channel, chunk, loops, ticks"); PERL_UNUSED_VAR(cv); /* -W */ { int channel = (int)SvIV(ST(0)); Mix_Chunk * chunk = INT2PTR(Mix_Chunk *,SvIV(ST(1))); int loops = (int)SvIV(ST(2)); int ticks = (int)SvIV(ST(3)); int RETVAL; dXSTARG; #line 1867 "SDL_perl.xs" RETVAL = Mix_PlayChannelTimed(channel,chunk,loops,ticks); #line 4563 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_MixPlayMusic); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_MixPlayMusic) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::MixPlayMusic", "music, loops"); PERL_UNUSED_VAR(cv); /* -W */ { Mix_Music * music = INT2PTR(Mix_Music *,SvIV(ST(0))); int loops = (int)SvIV(ST(1)); int RETVAL; dXSTARG; #line 1876 "SDL_perl.xs" RETVAL = Mix_PlayMusic(music,loops); #line 4588 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_MixFadeInChannel); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_MixFadeInChannel) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 4) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::MixFadeInChannel", "channel, chunk, loops, ms"); PERL_UNUSED_VAR(cv); /* -W */ { int channel = (int)SvIV(ST(0)); Mix_Chunk * chunk = INT2PTR(Mix_Chunk *,SvIV(ST(1))); int loops = (int)SvIV(ST(2)); int ms = (int)SvIV(ST(3)); int RETVAL; dXSTARG; #line 1887 "SDL_perl.xs" RETVAL = Mix_FadeInChannel(channel,chunk,loops,ms); #line 4615 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_MixFadeInChannelTimed); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_MixFadeInChannelTimed) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 5) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::MixFadeInChannelTimed", "channel, chunk, loops, ms, ticks"); PERL_UNUSED_VAR(cv); /* -W */ { int channel = (int)SvIV(ST(0)); Mix_Chunk * chunk = INT2PTR(Mix_Chunk *,SvIV(ST(1))); int loops = (int)SvIV(ST(2)); int ticks = (int)SvIV(ST(4)); int ms = (int)SvIV(ST(3)); int RETVAL; dXSTARG; #line 1899 "SDL_perl.xs" RETVAL = Mix_FadeInChannelTimed(channel,chunk,loops,ms,ticks); #line 4643 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_MixFadeInMusic); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_MixFadeInMusic) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 3) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::MixFadeInMusic", "music, loops, ms"); PERL_UNUSED_VAR(cv); /* -W */ { Mix_Music * music = INT2PTR(Mix_Music *,SvIV(ST(0))); int loops = (int)SvIV(ST(1)); int ms = (int)SvIV(ST(2)); int RETVAL; dXSTARG; #line 1909 "SDL_perl.xs" RETVAL = Mix_FadeInMusic(music,loops,ms); #line 4669 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_MixVolume); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_MixVolume) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::MixVolume", "channel, volume"); PERL_UNUSED_VAR(cv); /* -W */ { int channel = (int)SvIV(ST(0)); int volume = (int)SvIV(ST(1)); int RETVAL; dXSTARG; #line 1918 "SDL_perl.xs" RETVAL = Mix_Volume(channel,volume); #line 4694 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_MixVolumeChunk); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_MixVolumeChunk) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::MixVolumeChunk", "chunk, volume"); PERL_UNUSED_VAR(cv); /* -W */ { Mix_Chunk * chunk = INT2PTR(Mix_Chunk *,SvIV(ST(0))); int volume = (int)SvIV(ST(1)); int RETVAL; dXSTARG; #line 1927 "SDL_perl.xs" RETVAL = Mix_VolumeChunk(chunk,volume); #line 4719 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_MixVolumeMusic); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_MixVolumeMusic) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::MixVolumeMusic", "volume"); PERL_UNUSED_VAR(cv); /* -W */ { int volume = (int)SvIV(ST(0)); int RETVAL; dXSTARG; #line 1935 "SDL_perl.xs" RETVAL = Mix_VolumeMusic(volume); #line 4743 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_MixHaltChannel); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_MixHaltChannel) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::MixHaltChannel", "channel"); PERL_UNUSED_VAR(cv); /* -W */ { int channel = (int)SvIV(ST(0)); int RETVAL; dXSTARG; #line 1943 "SDL_perl.xs" RETVAL = Mix_HaltChannel(channel); #line 4767 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_MixHaltGroup); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_MixHaltGroup) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::MixHaltGroup", "tag"); PERL_UNUSED_VAR(cv); /* -W */ { int tag = (int)SvIV(ST(0)); int RETVAL; dXSTARG; #line 1951 "SDL_perl.xs" RETVAL = Mix_HaltGroup(tag); #line 4791 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_MixHaltMusic); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_MixHaltMusic) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 0) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::MixHaltMusic", ""); PERL_UNUSED_VAR(cv); /* -W */ { int RETVAL; dXSTARG; #line 1958 "SDL_perl.xs" RETVAL = Mix_HaltMusic(); #line 4814 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_MixExpireChannel); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_MixExpireChannel) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::MixExpireChannel", "channel, ticks"); PERL_UNUSED_VAR(cv); /* -W */ { int channel = (int)SvIV(ST(0)); int ticks = (int)SvIV(ST(1)); int RETVAL; dXSTARG; #line 1967 "SDL_perl.xs" RETVAL = Mix_ExpireChannel ( channel,ticks); #line 4839 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_MixFadeOutChannel); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_MixFadeOutChannel) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::MixFadeOutChannel", "which, ms"); PERL_UNUSED_VAR(cv); /* -W */ { int which = (int)SvIV(ST(0)); int ms = (int)SvIV(ST(1)); int RETVAL; dXSTARG; #line 1976 "SDL_perl.xs" RETVAL = Mix_FadeOutChannel(which,ms); #line 4864 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_MixFadeOutGroup); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_MixFadeOutGroup) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::MixFadeOutGroup", "which, ms"); PERL_UNUSED_VAR(cv); /* -W */ { int which = (int)SvIV(ST(0)); int ms = (int)SvIV(ST(1)); int RETVAL; dXSTARG; #line 1985 "SDL_perl.xs" RETVAL = Mix_FadeOutGroup(which,ms); #line 4889 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_MixFadeOutMusic); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_MixFadeOutMusic) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::MixFadeOutMusic", "ms"); PERL_UNUSED_VAR(cv); /* -W */ { int ms = (int)SvIV(ST(0)); int RETVAL; dXSTARG; #line 1993 "SDL_perl.xs" RETVAL = Mix_FadeOutMusic(ms); #line 4913 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_MixFadingMusic); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_MixFadingMusic) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 0) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::MixFadingMusic", ""); PERL_UNUSED_VAR(cv); /* -W */ { Mix_Fading RETVAL; dXSTARG; #line 2000 "SDL_perl.xs" RETVAL = Mix_FadingMusic(); #line 4936 "SDL_perl.c" XSprePUSH; PUSHu((UV)RETVAL); } XSRETURN(1); } XS(XS_SDL_MixFadingChannel); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_MixFadingChannel) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::MixFadingChannel", "which"); PERL_UNUSED_VAR(cv); /* -W */ { int which = (int)SvIV(ST(0)); Mix_Fading RETVAL; dXSTARG; #line 2008 "SDL_perl.xs" RETVAL = Mix_FadingChannel(which); #line 4960 "SDL_perl.c" XSprePUSH; PUSHu((UV)RETVAL); } XSRETURN(1); } XS(XS_SDL_MixPause); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_MixPause) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::MixPause", "channel"); PERL_UNUSED_VAR(cv); /* -W */ { int channel = (int)SvIV(ST(0)); #line 2016 "SDL_perl.xs" Mix_Pause(channel); #line 4982 "SDL_perl.c" } XSRETURN_EMPTY; } XS(XS_SDL_MixResume); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_MixResume) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::MixResume", "channel"); PERL_UNUSED_VAR(cv); /* -W */ { int channel = (int)SvIV(ST(0)); #line 2022 "SDL_perl.xs" Mix_Resume(channel); #line 5003 "SDL_perl.c" } XSRETURN_EMPTY; } XS(XS_SDL_MixPaused); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_MixPaused) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::MixPaused", "channel"); PERL_UNUSED_VAR(cv); /* -W */ { int channel = (int)SvIV(ST(0)); int RETVAL; dXSTARG; #line 2028 "SDL_perl.xs" RETVAL = Mix_Paused(channel); #line 5026 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_MixPauseMusic); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_MixPauseMusic) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 0) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::MixPauseMusic", ""); PERL_UNUSED_VAR(cv); /* -W */ { #line 2035 "SDL_perl.xs" Mix_PauseMusic(); #line 5047 "SDL_perl.c" } XSRETURN_EMPTY; } XS(XS_SDL_MixResumeMusic); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_MixResumeMusic) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 0) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::MixResumeMusic", ""); PERL_UNUSED_VAR(cv); /* -W */ { #line 2040 "SDL_perl.xs" Mix_ResumeMusic(); #line 5067 "SDL_perl.c" } XSRETURN_EMPTY; } XS(XS_SDL_MixRewindMusic); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_MixRewindMusic) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 0) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::MixRewindMusic", ""); PERL_UNUSED_VAR(cv); /* -W */ { #line 2045 "SDL_perl.xs" Mix_RewindMusic(); #line 5087 "SDL_perl.c" } XSRETURN_EMPTY; } XS(XS_SDL_MixPausedMusic); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_MixPausedMusic) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 0) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::MixPausedMusic", ""); PERL_UNUSED_VAR(cv); /* -W */ { int RETVAL; dXSTARG; #line 2050 "SDL_perl.xs" RETVAL = Mix_PausedMusic(); #line 5109 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_MixPlaying); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_MixPlaying) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::MixPlaying", "channel"); PERL_UNUSED_VAR(cv); /* -W */ { int channel = (int)SvIV(ST(0)); int RETVAL; dXSTARG; #line 2058 "SDL_perl.xs" RETVAL = Mix_Playing(channel); #line 5133 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_MixPlayingMusic); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_MixPlayingMusic) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 0) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::MixPlayingMusic", ""); PERL_UNUSED_VAR(cv); /* -W */ { int RETVAL; dXSTARG; #line 2065 "SDL_perl.xs" RETVAL = Mix_PlayingMusic(); #line 5156 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_MixCloseAudio); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_MixCloseAudio) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 0) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::MixCloseAudio", ""); PERL_UNUSED_VAR(cv); /* -W */ { #line 2073 "SDL_perl.xs" Mix_CloseAudio(); #line 5177 "SDL_perl.c" } XSRETURN_EMPTY; } #endif #ifdef HAVE_SDL_IMAGE #define XSubPPtmpAAAC 1 XS(XS_SDL_NewFont); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_NewFont) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::NewFont", "filename"); PERL_UNUSED_VAR(cv); /* -W */ { char * filename = (char *)SvPV_nolen(ST(0)); SDL_Surface * RETVAL; dXSTARG; #line 2083 "SDL_perl.xs" RETVAL = IMG_Load(filename); InitFont(RETVAL); #line 5205 "SDL_perl.c" XSprePUSH; PUSHi(PTR2IV(RETVAL)); } XSRETURN(1); } XS(XS_SDL_UseFont); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_UseFont) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::UseFont", "surface"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0))); #line 2092 "SDL_perl.xs" InitFont(surface); #line 5227 "SDL_perl.c" } XSRETURN_EMPTY; } XS(XS_SDL_PutString); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_PutString) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 4) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::PutString", "surface, x, y, text"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0))); int x = (int)SvIV(ST(1)); int y = (int)SvIV(ST(2)); char * text = (char *)SvPV_nolen(ST(3)); #line 2101 "SDL_perl.xs" PutString( surface, x, y, text ); #line 5251 "SDL_perl.c" } XSRETURN_EMPTY; } XS(XS_SDL_TextWidth); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_TextWidth) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::TextWidth", "text"); PERL_UNUSED_VAR(cv); /* -W */ { char * text = (char *)SvPV_nolen(ST(0)); int RETVAL; dXSTARG; #line 2107 "SDL_perl.xs" RETVAL = TextWidth(text); #line 5274 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } #endif XS(XS_SDL_GLLoadLibrary); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_GLLoadLibrary) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::GLLoadLibrary", "path"); PERL_UNUSED_VAR(cv); /* -W */ { char * path = (char *)SvPV_nolen(ST(0)); int RETVAL; dXSTARG; #line 2117 "SDL_perl.xs" RETVAL = SDL_GL_LoadLibrary(path); #line 5299 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_GLGetProcAddress); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_GLGetProcAddress) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::GLGetProcAddress", "proc"); PERL_UNUSED_VAR(cv); /* -W */ { char * proc = (char *)SvPV_nolen(ST(0)); void * RETVAL; dXSTARG; #line 2125 "SDL_perl.xs" RETVAL = SDL_GL_GetProcAddress(proc); #line 5323 "SDL_perl.c" XSprePUSH; PUSHi(PTR2IV(RETVAL)); } XSRETURN(1); } XS(XS_SDL_GLSetAttribute); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_GLSetAttribute) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::GLSetAttribute", "attr, value"); PERL_UNUSED_VAR(cv); /* -W */ { int attr = (int)SvIV(ST(0)); int value = (int)SvIV(ST(1)); int RETVAL; dXSTARG; #line 2134 "SDL_perl.xs" RETVAL = SDL_GL_SetAttribute(attr, value); #line 5348 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_GLGetAttribute); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_GLGetAttribute) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::GLGetAttribute", "attr"); PERL_UNUSED_VAR(cv); /* -W */ { int attr = (int)SvIV(ST(0)); AV * RETVAL; #line 2142 "SDL_perl.xs" int value; RETVAL = newAV(); av_push(RETVAL,newSViv(SDL_GL_GetAttribute(attr, &value))); av_push(RETVAL,newSViv(value)); #line 5374 "SDL_perl.c" ST(0) = newRV((SV*)RETVAL); sv_2mortal(ST(0)); } XSRETURN(1); } XS(XS_SDL_GLSwapBuffers); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_GLSwapBuffers) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 0) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::GLSwapBuffers", ""); PERL_UNUSED_VAR(cv); /* -W */ { #line 2152 "SDL_perl.xs" SDL_GL_SwapBuffers (); #line 5396 "SDL_perl.c" } XSRETURN_EMPTY; } XS(XS_SDL_BigEndian); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_BigEndian) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 0) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::BigEndian", ""); PERL_UNUSED_VAR(cv); /* -W */ { int RETVAL; dXSTARG; #line 2158 "SDL_perl.xs" RETVAL = (SDL_BYTEORDER == SDL_BIG_ENDIAN); #line 5418 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_NumJoysticks); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_NumJoysticks) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 0) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::NumJoysticks", ""); PERL_UNUSED_VAR(cv); /* -W */ { int RETVAL; dXSTARG; #line 2165 "SDL_perl.xs" RETVAL = SDL_NumJoysticks(); #line 5441 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_JoystickName); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_JoystickName) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::JoystickName", "index"); PERL_UNUSED_VAR(cv); /* -W */ { int index = (int)SvIV(ST(0)); char * RETVAL; dXSTARG; #line 2173 "SDL_perl.xs" RETVAL = (char*)SDL_JoystickName(index); #line 5465 "SDL_perl.c" sv_setpv(TARG, RETVAL); XSprePUSH; PUSHTARG; } XSRETURN(1); } XS(XS_SDL_JoystickOpen); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_JoystickOpen) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::JoystickOpen", "index"); PERL_UNUSED_VAR(cv); /* -W */ { int index = (int)SvIV(ST(0)); SDL_Joystick * RETVAL; dXSTARG; #line 2181 "SDL_perl.xs" RETVAL = SDL_JoystickOpen(index); #line 5489 "SDL_perl.c" XSprePUSH; PUSHi(PTR2IV(RETVAL)); } XSRETURN(1); } XS(XS_SDL_JoystickOpened); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_JoystickOpened) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::JoystickOpened", "index"); PERL_UNUSED_VAR(cv); /* -W */ { int index = (int)SvIV(ST(0)); int RETVAL; dXSTARG; #line 2189 "SDL_perl.xs" RETVAL = SDL_JoystickOpened(index); #line 5513 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_JoystickIndex); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_JoystickIndex) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::JoystickIndex", "joystick"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Joystick * joystick = INT2PTR(SDL_Joystick *,SvIV(ST(0))); int RETVAL; dXSTARG; #line 2197 "SDL_perl.xs" RETVAL = SDL_JoystickIndex(joystick); #line 5537 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_JoystickNumAxes); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_JoystickNumAxes) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::JoystickNumAxes", "joystick"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Joystick * joystick = INT2PTR(SDL_Joystick *,SvIV(ST(0))); int RETVAL; dXSTARG; #line 2205 "SDL_perl.xs" RETVAL = SDL_JoystickNumAxes(joystick); #line 5561 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_JoystickNumBalls); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_JoystickNumBalls) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::JoystickNumBalls", "joystick"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Joystick * joystick = INT2PTR(SDL_Joystick *,SvIV(ST(0))); int RETVAL; dXSTARG; #line 2213 "SDL_perl.xs" RETVAL = SDL_JoystickNumBalls(joystick); #line 5585 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_JoystickNumHats); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_JoystickNumHats) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::JoystickNumHats", "joystick"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Joystick * joystick = INT2PTR(SDL_Joystick *,SvIV(ST(0))); int RETVAL; dXSTARG; #line 2221 "SDL_perl.xs" RETVAL = SDL_JoystickNumHats(joystick); #line 5609 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_JoystickNumButtons); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_JoystickNumButtons) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::JoystickNumButtons", "joystick"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Joystick * joystick = INT2PTR(SDL_Joystick *,SvIV(ST(0))); int RETVAL; dXSTARG; #line 2229 "SDL_perl.xs" RETVAL = SDL_JoystickNumButtons(joystick); #line 5633 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_JoystickUpdate); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_JoystickUpdate) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 0) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::JoystickUpdate", ""); PERL_UNUSED_VAR(cv); /* -W */ { #line 2236 "SDL_perl.xs" SDL_JoystickUpdate(); #line 5654 "SDL_perl.c" } XSRETURN_EMPTY; } XS(XS_SDL_JoystickGetAxis); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_JoystickGetAxis) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::JoystickGetAxis", "joystick, axis"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Joystick * joystick = INT2PTR(SDL_Joystick *,SvIV(ST(0))); int axis = (int)SvIV(ST(1)); Sint16 RETVAL; dXSTARG; #line 2243 "SDL_perl.xs" RETVAL = SDL_JoystickGetAxis(joystick,axis); #line 5678 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_JoystickGetHat); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_JoystickGetHat) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::JoystickGetHat", "joystick, hat"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Joystick * joystick = INT2PTR(SDL_Joystick *,SvIV(ST(0))); int hat = (int)SvIV(ST(1)); Uint8 RETVAL; dXSTARG; #line 2252 "SDL_perl.xs" RETVAL = SDL_JoystickGetHat(joystick,hat); #line 5703 "SDL_perl.c" XSprePUSH; PUSHu((UV)RETVAL); } XSRETURN(1); } XS(XS_SDL_JoystickGetButton); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_JoystickGetButton) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::JoystickGetButton", "joystick, button"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Joystick * joystick = INT2PTR(SDL_Joystick *,SvIV(ST(0))); int button = (int)SvIV(ST(1)); Uint8 RETVAL; dXSTARG; #line 2261 "SDL_perl.xs" RETVAL = SDL_JoystickGetButton(joystick,button); #line 5728 "SDL_perl.c" XSprePUSH; PUSHu((UV)RETVAL); } XSRETURN(1); } XS(XS_SDL_JoystickGetBall); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_JoystickGetBall) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::JoystickGetBall", "joystick, ball"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Joystick * joystick = INT2PTR(SDL_Joystick *,SvIV(ST(0))); int ball = (int)SvIV(ST(1)); AV * RETVAL; #line 2270 "SDL_perl.xs" int success,dx,dy; success = SDL_JoystickGetBall(joystick,ball,&dx,&dy); RETVAL = newAV(); av_push(RETVAL,newSViv(success)); av_push(RETVAL,newSViv(dx)); av_push(RETVAL,newSViv(dy)); #line 5757 "SDL_perl.c" ST(0) = newRV((SV*)RETVAL); sv_2mortal(ST(0)); } XSRETURN(1); } XS(XS_SDL_JoystickClose); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_JoystickClose) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::JoystickClose", "joystick"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Joystick * joystick = INT2PTR(SDL_Joystick *,SvIV(ST(0))); #line 2283 "SDL_perl.xs" SDL_JoystickClose(joystick); #line 5780 "SDL_perl.c" } XSRETURN_EMPTY; } XS(XS_SDL_JoyAxisEventWhich); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_JoyAxisEventWhich) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::JoyAxisEventWhich", "e"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Event * e = INT2PTR(SDL_Event *,SvIV(ST(0))); Sint16 RETVAL; dXSTARG; #line 2289 "SDL_perl.xs" RETVAL = e->jaxis.which; #line 5803 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_JoyAxisEventAxis); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_JoyAxisEventAxis) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::JoyAxisEventAxis", "e"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Event * e = INT2PTR(SDL_Event *,SvIV(ST(0))); Uint8 RETVAL; dXSTARG; #line 2297 "SDL_perl.xs" RETVAL = e->jaxis.axis; #line 5827 "SDL_perl.c" XSprePUSH; PUSHu((UV)RETVAL); } XSRETURN(1); } XS(XS_SDL_JoyAxisEventValue); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_JoyAxisEventValue) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::JoyAxisEventValue", "e"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Event * e = INT2PTR(SDL_Event *,SvIV(ST(0))); Uint8 RETVAL; dXSTARG; #line 2305 "SDL_perl.xs" RETVAL = e->jaxis.value; #line 5851 "SDL_perl.c" XSprePUSH; PUSHu((UV)RETVAL); } XSRETURN(1); } XS(XS_SDL_JoyButtonEventWhich); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_JoyButtonEventWhich) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::JoyButtonEventWhich", "e"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Event * e = INT2PTR(SDL_Event *,SvIV(ST(0))); Uint8 RETVAL; dXSTARG; #line 2313 "SDL_perl.xs" RETVAL = e->jbutton.which; #line 5875 "SDL_perl.c" XSprePUSH; PUSHu((UV)RETVAL); } XSRETURN(1); } XS(XS_SDL_JoyButtonEventButton); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_JoyButtonEventButton) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::JoyButtonEventButton", "e"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Event * e = INT2PTR(SDL_Event *,SvIV(ST(0))); Uint8 RETVAL; dXSTARG; #line 2321 "SDL_perl.xs" RETVAL = e->jbutton.button; #line 5899 "SDL_perl.c" XSprePUSH; PUSHu((UV)RETVAL); } XSRETURN(1); } XS(XS_SDL_JoyButtonEventState); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_JoyButtonEventState) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::JoyButtonEventState", "e"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Event * e = INT2PTR(SDL_Event *,SvIV(ST(0))); Uint8 RETVAL; dXSTARG; #line 2329 "SDL_perl.xs" RETVAL = e->jbutton.state; #line 5923 "SDL_perl.c" XSprePUSH; PUSHu((UV)RETVAL); } XSRETURN(1); } XS(XS_SDL_JoyHatEventWhich); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_JoyHatEventWhich) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::JoyHatEventWhich", "e"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Event * e = INT2PTR(SDL_Event *,SvIV(ST(0))); Uint8 RETVAL; dXSTARG; #line 2337 "SDL_perl.xs" RETVAL = e->jhat.which; #line 5947 "SDL_perl.c" XSprePUSH; PUSHu((UV)RETVAL); } XSRETURN(1); } XS(XS_SDL_JoyHatEventHat); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_JoyHatEventHat) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::JoyHatEventHat", "e"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Event * e = INT2PTR(SDL_Event *,SvIV(ST(0))); Uint8 RETVAL; dXSTARG; #line 2345 "SDL_perl.xs" RETVAL = e->jhat.hat; #line 5971 "SDL_perl.c" XSprePUSH; PUSHu((UV)RETVAL); } XSRETURN(1); } XS(XS_SDL_JoyHatEventValue); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_JoyHatEventValue) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::JoyHatEventValue", "e"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Event * e = INT2PTR(SDL_Event *,SvIV(ST(0))); Uint8 RETVAL; dXSTARG; #line 2353 "SDL_perl.xs" RETVAL = e->jhat.value; #line 5995 "SDL_perl.c" XSprePUSH; PUSHu((UV)RETVAL); } XSRETURN(1); } XS(XS_SDL_JoyBallEventWhich); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_JoyBallEventWhich) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::JoyBallEventWhich", "e"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Event * e = INT2PTR(SDL_Event *,SvIV(ST(0))); Uint8 RETVAL; dXSTARG; #line 2361 "SDL_perl.xs" RETVAL = e->jball.which; #line 6019 "SDL_perl.c" XSprePUSH; PUSHu((UV)RETVAL); } XSRETURN(1); } XS(XS_SDL_JoyBallEventBall); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_JoyBallEventBall) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::JoyBallEventBall", "e"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Event * e = INT2PTR(SDL_Event *,SvIV(ST(0))); Uint8 RETVAL; dXSTARG; #line 2369 "SDL_perl.xs" RETVAL = e->jball.ball; #line 6043 "SDL_perl.c" XSprePUSH; PUSHu((UV)RETVAL); } XSRETURN(1); } XS(XS_SDL_JoyBallEventXrel); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_JoyBallEventXrel) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::JoyBallEventXrel", "e"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Event * e = INT2PTR(SDL_Event *,SvIV(ST(0))); Sint16 RETVAL; dXSTARG; #line 2377 "SDL_perl.xs" RETVAL = e->jball.xrel; #line 6067 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_JoyBallEventYrel); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_JoyBallEventYrel) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::JoyBallEventYrel", "e"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Event * e = INT2PTR(SDL_Event *,SvIV(ST(0))); Sint16 RETVAL; dXSTARG; #line 2385 "SDL_perl.xs" RETVAL = e->jball.yrel; #line 6091 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_SetClipRect); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_SetClipRect) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::SetClipRect", "surface, rect"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0))); SDL_Rect * rect = INT2PTR(SDL_Rect *,SvIV(ST(1))); #line 2394 "SDL_perl.xs" SDL_SetClipRect(surface,rect); #line 6114 "SDL_perl.c" } XSRETURN_EMPTY; } XS(XS_SDL_GetClipRect); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_GetClipRect) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::GetClipRect", "surface"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0))); SDL_Rect * RETVAL; dXSTARG; #line 2400 "SDL_perl.xs" RETVAL = (SDL_Rect*) safemalloc(sizeof(SDL_Rect)); SDL_GetClipRect(surface,RETVAL); #line 6138 "SDL_perl.c" XSprePUSH; PUSHi(PTR2IV(RETVAL)); } XSRETURN(1); } #ifdef HAVE_SDL_NET #define XSubPPtmpAAAD 1 XS(XS_SDL_NetInit); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_NetInit) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 0) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::NetInit", ""); PERL_UNUSED_VAR(cv); /* -W */ { int RETVAL; dXSTARG; #line 2411 "SDL_perl.xs" RETVAL = SDLNet_Init(); #line 6164 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_NetQuit); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_NetQuit) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 0) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::NetQuit", ""); PERL_UNUSED_VAR(cv); /* -W */ { #line 2418 "SDL_perl.xs" SDLNet_Quit(); #line 6185 "SDL_perl.c" } XSRETURN_EMPTY; } XS(XS_SDL_NetNewIPaddress); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_NetNewIPaddress) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::NetNewIPaddress", "host, port"); PERL_UNUSED_VAR(cv); /* -W */ { Uint32 host = (Uint32)SvUV(ST(0)); Uint16 port = (Uint16)SvUV(ST(1)); IPaddress * RETVAL; dXSTARG; #line 2425 "SDL_perl.xs" RETVAL = (IPaddress*) safemalloc(sizeof(IPaddress)); RETVAL->host = host; RETVAL->port = port; #line 6211 "SDL_perl.c" XSprePUSH; PUSHi(PTR2IV(RETVAL)); } XSRETURN(1); } XS(XS_SDL_NetIPaddressHost); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_NetIPaddressHost) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::NetIPaddressHost", "ip"); PERL_UNUSED_VAR(cv); /* -W */ { IPaddress * ip = INT2PTR(IPaddress *,SvIV(ST(0))); Uint32 RETVAL; dXSTARG; #line 2435 "SDL_perl.xs" RETVAL = ip->host; #line 6235 "SDL_perl.c" XSprePUSH; PUSHu((UV)RETVAL); } XSRETURN(1); } XS(XS_SDL_NetIPaddressPort); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_NetIPaddressPort) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::NetIPaddressPort", "ip"); PERL_UNUSED_VAR(cv); /* -W */ { IPaddress * ip = INT2PTR(IPaddress *,SvIV(ST(0))); Uint16 RETVAL; dXSTARG; #line 2443 "SDL_perl.xs" RETVAL = ip->port; #line 6259 "SDL_perl.c" XSprePUSH; PUSHu((UV)RETVAL); } XSRETURN(1); } XS(XS_SDL_NetFreeIPaddress); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_NetFreeIPaddress) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::NetFreeIPaddress", "ip"); PERL_UNUSED_VAR(cv); /* -W */ { IPaddress * ip = INT2PTR(IPaddress *,SvIV(ST(0))); #line 2451 "SDL_perl.xs" safefree(ip); #line 6281 "SDL_perl.c" } XSRETURN_EMPTY; } XS(XS_SDL_NetResolveIP); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_NetResolveIP) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::NetResolveIP", "address"); PERL_UNUSED_VAR(cv); /* -W */ { IPaddress * address = INT2PTR(IPaddress *,SvIV(ST(0))); char * RETVAL; dXSTARG; #line 2457 "SDL_perl.xs" RETVAL = SDLNet_ResolveIP(address); #line 6304 "SDL_perl.c" sv_setpv(TARG, RETVAL); XSprePUSH; PUSHTARG; } XSRETURN(1); } XS(XS_SDL_NetResolveHost); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_NetResolveHost) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 3) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::NetResolveHost", "address, host, port"); PERL_UNUSED_VAR(cv); /* -W */ { IPaddress * address = INT2PTR(IPaddress *,SvIV(ST(0))); char * host = (char *)SvPV_nolen(ST(1)); Uint16 port = (Uint16)SvUV(ST(2)); int RETVAL; dXSTARG; #line 2467 "SDL_perl.xs" RETVAL = SDLNet_ResolveHost(address,host,port); #line 6330 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_NetTCPOpen); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_NetTCPOpen) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::NetTCPOpen", "ip"); PERL_UNUSED_VAR(cv); /* -W */ { IPaddress * ip = INT2PTR(IPaddress *,SvIV(ST(0))); TCPsocket RETVAL; dXSTARG; #line 2475 "SDL_perl.xs" RETVAL = SDLNet_TCP_Open(ip); #line 6354 "SDL_perl.c" XSprePUSH; PUSHi(PTR2IV(RETVAL)); } XSRETURN(1); } XS(XS_SDL_NetTCPAccept); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_NetTCPAccept) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::NetTCPAccept", "server"); PERL_UNUSED_VAR(cv); /* -W */ { TCPsocket server = INT2PTR(TCPsocket,SvIV(ST(0))); TCPsocket RETVAL; dXSTARG; #line 2483 "SDL_perl.xs" RETVAL = SDLNet_TCP_Accept(server); #line 6378 "SDL_perl.c" XSprePUSH; PUSHi(PTR2IV(RETVAL)); } XSRETURN(1); } XS(XS_SDL_NetTCPGetPeerAddress); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_NetTCPGetPeerAddress) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::NetTCPGetPeerAddress", "sock"); PERL_UNUSED_VAR(cv); /* -W */ { TCPsocket sock = INT2PTR(TCPsocket,SvIV(ST(0))); IPaddress * RETVAL; dXSTARG; #line 2491 "SDL_perl.xs" RETVAL = SDLNet_TCP_GetPeerAddress(sock); #line 6402 "SDL_perl.c" XSprePUSH; PUSHi(PTR2IV(RETVAL)); } XSRETURN(1); } XS(XS_SDL_NetTCPSend); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_NetTCPSend) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 3) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::NetTCPSend", "sock, data, len"); PERL_UNUSED_VAR(cv); /* -W */ { TCPsocket sock = INT2PTR(TCPsocket,SvIV(ST(0))); void * data = INT2PTR(void *,SvIV(ST(1))); int len = (int)SvIV(ST(2)); int RETVAL; dXSTARG; #line 2501 "SDL_perl.xs" RETVAL = SDLNet_TCP_Send(sock,data,len); #line 6428 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_NetTCPRecv); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_NetTCPRecv) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::NetTCPRecv", "sock, maxlen"); PERL_UNUSED_VAR(cv); /* -W */ { TCPsocket sock = INT2PTR(TCPsocket,SvIV(ST(0))); int maxlen = (int)SvIV(ST(1)); AV * RETVAL; #line 2510 "SDL_perl.xs" int status; void *buffer; buffer = safemalloc(maxlen); RETVAL = newAV(); status = SDLNet_TCP_Recv(sock,buffer,maxlen); av_push(RETVAL,newSViv(status)); av_push(RETVAL,newSVpvn((char*)buffer,maxlen)); #line 6458 "SDL_perl.c" ST(0) = newRV((SV*)RETVAL); sv_2mortal(ST(0)); } XSRETURN(1); } XS(XS_SDL_NetTCPClose); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_NetTCPClose) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::NetTCPClose", "sock"); PERL_UNUSED_VAR(cv); /* -W */ { TCPsocket sock = INT2PTR(TCPsocket,SvIV(ST(0))); #line 2524 "SDL_perl.xs" SDLNet_TCP_Close(sock); #line 6481 "SDL_perl.c" } XSRETURN_EMPTY; } XS(XS_SDL_NetAllocPacket); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_NetAllocPacket) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::NetAllocPacket", "size"); PERL_UNUSED_VAR(cv); /* -W */ { int size = (int)SvIV(ST(0)); UDPpacket * RETVAL; dXSTARG; #line 2530 "SDL_perl.xs" RETVAL = SDLNet_AllocPacket(size); #line 6504 "SDL_perl.c" XSprePUSH; PUSHi(PTR2IV(RETVAL)); } XSRETURN(1); } XS(XS_SDL_NetAllocPacketV); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_NetAllocPacketV) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::NetAllocPacketV", "howmany, size"); PERL_UNUSED_VAR(cv); /* -W */ { int howmany = (int)SvIV(ST(0)); int size = (int)SvIV(ST(1)); UDPpacket ** RETVAL; dXSTARG; #line 2539 "SDL_perl.xs" RETVAL = SDLNet_AllocPacketV(howmany,size); #line 6529 "SDL_perl.c" XSprePUSH; PUSHi(PTR2IV(RETVAL)); } XSRETURN(1); } XS(XS_SDL_NetResizePacket); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_NetResizePacket) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::NetResizePacket", "packet, newsize"); PERL_UNUSED_VAR(cv); /* -W */ { UDPpacket * packet = INT2PTR(UDPpacket *,SvIV(ST(0))); int newsize = (int)SvIV(ST(1)); int RETVAL; dXSTARG; #line 2548 "SDL_perl.xs" RETVAL = SDLNet_ResizePacket(packet,newsize); #line 6554 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_NetFreePacket); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_NetFreePacket) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::NetFreePacket", "packet"); PERL_UNUSED_VAR(cv); /* -W */ { UDPpacket * packet = INT2PTR(UDPpacket *,SvIV(ST(0))); #line 2556 "SDL_perl.xs" SDLNet_FreePacket(packet); #line 6576 "SDL_perl.c" } XSRETURN_EMPTY; } XS(XS_SDL_NetFreePacketV); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_NetFreePacketV) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::NetFreePacketV", "packet"); PERL_UNUSED_VAR(cv); /* -W */ { UDPpacket ** packet = INT2PTR(UDPpacket **,SvIV(ST(0))); #line 2562 "SDL_perl.xs" SDLNet_FreePacketV(packet); #line 6597 "SDL_perl.c" } XSRETURN_EMPTY; } XS(XS_SDL_NetUDPOpen); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_NetUDPOpen) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::NetUDPOpen", "port"); PERL_UNUSED_VAR(cv); /* -W */ { Uint16 port = (Uint16)SvUV(ST(0)); UDPsocket RETVAL; dXSTARG; #line 2568 "SDL_perl.xs" RETVAL = SDLNet_UDP_Open(port); #line 6620 "SDL_perl.c" XSprePUSH; PUSHi(PTR2IV(RETVAL)); } XSRETURN(1); } XS(XS_SDL_NetUDPBind); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_NetUDPBind) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 3) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::NetUDPBind", "sock, channel, address"); PERL_UNUSED_VAR(cv); /* -W */ { UDPsocket sock = INT2PTR(UDPsocket,SvIV(ST(0))); int channel = (int)SvIV(ST(1)); IPaddress * address = INT2PTR(IPaddress *,SvIV(ST(2))); int RETVAL; dXSTARG; #line 2578 "SDL_perl.xs" RETVAL = SDLNet_UDP_Bind(sock,channel,address); #line 6646 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_NetUDPUnbind); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_NetUDPUnbind) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::NetUDPUnbind", "sock, channel"); PERL_UNUSED_VAR(cv); /* -W */ { UDPsocket sock = INT2PTR(UDPsocket,SvIV(ST(0))); int channel = (int)SvIV(ST(1)); #line 2587 "SDL_perl.xs" SDLNet_UDP_Unbind(sock,channel); #line 6669 "SDL_perl.c" } XSRETURN_EMPTY; } XS(XS_SDL_NetUDPGetPeerAddress); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_NetUDPGetPeerAddress) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::NetUDPGetPeerAddress", "sock, channel"); PERL_UNUSED_VAR(cv); /* -W */ { UDPsocket sock = INT2PTR(UDPsocket,SvIV(ST(0))); int channel = (int)SvIV(ST(1)); IPaddress * RETVAL; dXSTARG; #line 2594 "SDL_perl.xs" RETVAL = SDLNet_UDP_GetPeerAddress(sock,channel); #line 6693 "SDL_perl.c" XSprePUSH; PUSHi(PTR2IV(RETVAL)); } XSRETURN(1); } XS(XS_SDL_NetUDPSendV); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_NetUDPSendV) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 3) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::NetUDPSendV", "sock, packets, npackets"); PERL_UNUSED_VAR(cv); /* -W */ { UDPsocket sock = INT2PTR(UDPsocket,SvIV(ST(0))); UDPpacket ** packets = INT2PTR(UDPpacket **,SvIV(ST(1))); int npackets = (int)SvIV(ST(2)); int RETVAL; dXSTARG; #line 2604 "SDL_perl.xs" RETVAL = SDLNet_UDP_SendV(sock,packets,npackets); #line 6719 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_NetUDPSend); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_NetUDPSend) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 3) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::NetUDPSend", "sock, channel, packet"); PERL_UNUSED_VAR(cv); /* -W */ { UDPsocket sock = INT2PTR(UDPsocket,SvIV(ST(0))); int channel = (int)SvIV(ST(1)); UDPpacket * packet = INT2PTR(UDPpacket *,SvIV(ST(2))); int RETVAL; dXSTARG; #line 2614 "SDL_perl.xs" RETVAL = SDLNet_UDP_Send(sock,channel,packet); #line 6745 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_NetUDPRecvV); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_NetUDPRecvV) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::NetUDPRecvV", "sock, packets"); PERL_UNUSED_VAR(cv); /* -W */ { UDPsocket sock = INT2PTR(UDPsocket,SvIV(ST(0))); UDPpacket ** packets = INT2PTR(UDPpacket **,SvIV(ST(1))); int RETVAL; dXSTARG; #line 2623 "SDL_perl.xs" RETVAL = SDLNet_UDP_RecvV(sock,packets); #line 6770 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_NetUDPRecv); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_NetUDPRecv) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::NetUDPRecv", "sock, packet"); PERL_UNUSED_VAR(cv); /* -W */ { UDPsocket sock = INT2PTR(UDPsocket,SvIV(ST(0))); UDPpacket * packet = INT2PTR(UDPpacket *,SvIV(ST(1))); int RETVAL; dXSTARG; #line 2632 "SDL_perl.xs" RETVAL = SDLNet_UDP_Recv(sock,packet); #line 6795 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_NetUDPClose); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_NetUDPClose) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::NetUDPClose", "sock"); PERL_UNUSED_VAR(cv); /* -W */ { UDPsocket sock = INT2PTR(UDPsocket,SvIV(ST(0))); #line 2640 "SDL_perl.xs" SDLNet_UDP_Close(sock); #line 6817 "SDL_perl.c" } XSRETURN_EMPTY; } XS(XS_SDL_NetAllocSocketSet); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_NetAllocSocketSet) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::NetAllocSocketSet", "maxsockets"); PERL_UNUSED_VAR(cv); /* -W */ { int maxsockets = (int)SvIV(ST(0)); SDLNet_SocketSet RETVAL; dXSTARG; #line 2646 "SDL_perl.xs" RETVAL = SDLNet_AllocSocketSet(maxsockets); #line 6840 "SDL_perl.c" XSprePUSH; PUSHi(PTR2IV(RETVAL)); } XSRETURN(1); } XS(XS_SDL_NetTCP_AddSocket); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_NetTCP_AddSocket) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::NetTCP_AddSocket", "set, sock"); PERL_UNUSED_VAR(cv); /* -W */ { SDLNet_SocketSet set = INT2PTR(SDLNet_SocketSet,SvIV(ST(0))); TCPsocket sock = INT2PTR(TCPsocket,SvIV(ST(1))); int RETVAL; dXSTARG; #line 2655 "SDL_perl.xs" RETVAL = SDLNet_TCP_AddSocket(set,sock); #line 6865 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_NetUDP_AddSocket); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_NetUDP_AddSocket) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::NetUDP_AddSocket", "set, sock"); PERL_UNUSED_VAR(cv); /* -W */ { SDLNet_SocketSet set = INT2PTR(SDLNet_SocketSet,SvIV(ST(0))); UDPsocket sock = INT2PTR(UDPsocket,SvIV(ST(1))); int RETVAL; dXSTARG; #line 2664 "SDL_perl.xs" RETVAL = SDLNet_UDP_AddSocket(set,sock); #line 6890 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_NetTCP_DelSocket); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_NetTCP_DelSocket) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::NetTCP_DelSocket", "set, sock"); PERL_UNUSED_VAR(cv); /* -W */ { SDLNet_SocketSet set = INT2PTR(SDLNet_SocketSet,SvIV(ST(0))); TCPsocket sock = INT2PTR(TCPsocket,SvIV(ST(1))); int RETVAL; dXSTARG; #line 2673 "SDL_perl.xs" RETVAL = SDLNet_TCP_DelSocket(set,sock); #line 6915 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_NetUDP_DelSocket); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_NetUDP_DelSocket) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::NetUDP_DelSocket", "set, sock"); PERL_UNUSED_VAR(cv); /* -W */ { SDLNet_SocketSet set = INT2PTR(SDLNet_SocketSet,SvIV(ST(0))); UDPsocket sock = INT2PTR(UDPsocket,SvIV(ST(1))); int RETVAL; dXSTARG; #line 2682 "SDL_perl.xs" RETVAL = SDLNet_UDP_DelSocket(set,sock); #line 6940 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_NetCheckSockets); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_NetCheckSockets) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::NetCheckSockets", "set, timeout"); PERL_UNUSED_VAR(cv); /* -W */ { SDLNet_SocketSet set = INT2PTR(SDLNet_SocketSet,SvIV(ST(0))); Uint32 timeout = (Uint32)SvUV(ST(1)); int RETVAL; dXSTARG; #line 2691 "SDL_perl.xs" RETVAL = SDLNet_CheckSockets(set,timeout); #line 6965 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_NetSocketReady); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_NetSocketReady) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::NetSocketReady", "sock"); PERL_UNUSED_VAR(cv); /* -W */ { SDLNet_GenericSocket sock = INT2PTR(SDLNet_GenericSocket,SvIV(ST(0))); int RETVAL; dXSTARG; #line 2699 "SDL_perl.xs" RETVAL = SDLNet_SocketReady(sock); #line 6989 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_NetFreeSocketSet); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_NetFreeSocketSet) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::NetFreeSocketSet", "set"); PERL_UNUSED_VAR(cv); /* -W */ { SDLNet_SocketSet set = INT2PTR(SDLNet_SocketSet,SvIV(ST(0))); #line 2707 "SDL_perl.xs" SDLNet_FreeSocketSet(set); #line 7011 "SDL_perl.c" } XSRETURN_EMPTY; } XS(XS_SDL_NetWrite16); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_NetWrite16) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::NetWrite16", "value, area"); PERL_UNUSED_VAR(cv); /* -W */ { Uint16 value = (Uint16)SvUV(ST(0)); void * area = INT2PTR(void *,SvIV(ST(1))); #line 2714 "SDL_perl.xs" SDLNet_Write16(value,area); #line 7033 "SDL_perl.c" } XSRETURN_EMPTY; } XS(XS_SDL_NetWrite32); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_NetWrite32) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::NetWrite32", "value, area"); PERL_UNUSED_VAR(cv); /* -W */ { Uint32 value = (Uint32)SvUV(ST(0)); void * area = INT2PTR(void *,SvIV(ST(1))); #line 2721 "SDL_perl.xs" SDLNet_Write32(value,area); #line 7055 "SDL_perl.c" } XSRETURN_EMPTY; } XS(XS_SDL_NetRead16); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_NetRead16) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::NetRead16", "area"); PERL_UNUSED_VAR(cv); /* -W */ { void * area = INT2PTR(void *,SvIV(ST(0))); Uint16 RETVAL; dXSTARG; #line 2727 "SDL_perl.xs" RETVAL = SDLNet_Read16(area); #line 7078 "SDL_perl.c" XSprePUSH; PUSHu((UV)RETVAL); } XSRETURN(1); } XS(XS_SDL_NetRead32); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_NetRead32) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::NetRead32", "area"); PERL_UNUSED_VAR(cv); /* -W */ { void * area = INT2PTR(void *,SvIV(ST(0))); Uint32 RETVAL; dXSTARG; #line 2735 "SDL_perl.xs" RETVAL = SDLNet_Read32(area); #line 7102 "SDL_perl.c" XSprePUSH; PUSHu((UV)RETVAL); } XSRETURN(1); } #endif #ifdef HAVE_SDL_TTF #define XSubPPtmpAAAE 1 XS(XS_SDL_TTFInit); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_TTFInit) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 0) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::TTFInit", ""); PERL_UNUSED_VAR(cv); /* -W */ { int RETVAL; dXSTARG; #line 2746 "SDL_perl.xs" RETVAL = TTF_Init(); #line 7129 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_TTFQuit); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_TTFQuit) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 0) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::TTFQuit", ""); PERL_UNUSED_VAR(cv); /* -W */ { #line 2753 "SDL_perl.xs" TTF_Quit(); #line 7150 "SDL_perl.c" } XSRETURN_EMPTY; } XS(XS_SDL_TTFOpenFont); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_TTFOpenFont) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::TTFOpenFont", "file, ptsize"); PERL_UNUSED_VAR(cv); /* -W */ { char * file = (char *)SvPV_nolen(ST(0)); int ptsize = (int)SvIV(ST(1)); TTF_Font * RETVAL; dXSTARG; #line 2760 "SDL_perl.xs" RETVAL = TTF_OpenFont(file,ptsize); #line 7174 "SDL_perl.c" XSprePUSH; PUSHi(PTR2IV(RETVAL)); } XSRETURN(1); } XS(XS_SDL_TTFGetFontStyle); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_TTFGetFontStyle) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::TTFGetFontStyle", "font"); PERL_UNUSED_VAR(cv); /* -W */ { TTF_Font * font = INT2PTR(TTF_Font *,SvIV(ST(0))); int RETVAL; dXSTARG; #line 2768 "SDL_perl.xs" RETVAL = TTF_GetFontStyle(font); #line 7198 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_TTFSetFontStyle); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_TTFSetFontStyle) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::TTFSetFontStyle", "font, style"); PERL_UNUSED_VAR(cv); /* -W */ { TTF_Font * font = INT2PTR(TTF_Font *,SvIV(ST(0))); int style = (int)SvIV(ST(1)); #line 2777 "SDL_perl.xs" TTF_SetFontStyle(font,style); #line 7221 "SDL_perl.c" } XSRETURN_EMPTY; } XS(XS_SDL_TTFFontHeight); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_TTFFontHeight) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::TTFFontHeight", "font"); PERL_UNUSED_VAR(cv); /* -W */ { TTF_Font * font = INT2PTR(TTF_Font *,SvIV(ST(0))); int RETVAL; dXSTARG; #line 2783 "SDL_perl.xs" RETVAL = TTF_FontHeight(font); #line 7244 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_TTFFontAscent); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_TTFFontAscent) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::TTFFontAscent", "font"); PERL_UNUSED_VAR(cv); /* -W */ { TTF_Font * font = INT2PTR(TTF_Font *,SvIV(ST(0))); int RETVAL; dXSTARG; #line 2791 "SDL_perl.xs" RETVAL = TTF_FontAscent(font); #line 7268 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_TTFFontDescent); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_TTFFontDescent) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::TTFFontDescent", "font"); PERL_UNUSED_VAR(cv); /* -W */ { TTF_Font * font = INT2PTR(TTF_Font *,SvIV(ST(0))); int RETVAL; dXSTARG; #line 2799 "SDL_perl.xs" RETVAL = TTF_FontDescent(font); #line 7292 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_TTFFontLineSkip); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_TTFFontLineSkip) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::TTFFontLineSkip", "font"); PERL_UNUSED_VAR(cv); /* -W */ { TTF_Font * font = INT2PTR(TTF_Font *,SvIV(ST(0))); int RETVAL; dXSTARG; #line 2807 "SDL_perl.xs" RETVAL = TTF_FontLineSkip(font); #line 7316 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_TTFGlyphMetrics); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_TTFGlyphMetrics) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::TTFGlyphMetrics", "font, ch"); PERL_UNUSED_VAR(cv); /* -W */ { TTF_Font * font = INT2PTR(TTF_Font *,SvIV(ST(0))); Uint16 ch = (Uint16)SvUV(ST(1)); AV * RETVAL; #line 2816 "SDL_perl.xs" int minx, miny, maxx, maxy, advance; RETVAL = newAV(); TTF_GlyphMetrics(font, ch, &minx, &miny, &maxx, &maxy, &advance); av_push(RETVAL,newSViv(minx)); av_push(RETVAL,newSViv(miny)); av_push(RETVAL,newSViv(maxx)); av_push(RETVAL,newSViv(maxy)); av_push(RETVAL,newSViv(advance)); #line 7347 "SDL_perl.c" ST(0) = newRV((SV*)RETVAL); sv_2mortal(ST(0)); } XSRETURN(1); } XS(XS_SDL_TTFSizeText); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_TTFSizeText) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::TTFSizeText", "font, text"); PERL_UNUSED_VAR(cv); /* -W */ { TTF_Font * font = INT2PTR(TTF_Font *,SvIV(ST(0))); char * text = (char *)SvPV_nolen(ST(1)); AV * RETVAL; #line 2832 "SDL_perl.xs" int w,h; RETVAL = newAV(); TTF_SizeText(font,text,&w,&h); av_push(RETVAL,newSViv(w)); av_push(RETVAL,newSViv(h)); #line 7376 "SDL_perl.c" ST(0) = newRV((SV*)RETVAL); sv_2mortal(ST(0)); } XSRETURN(1); } XS(XS_SDL_TTFSizeUTF8); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_TTFSizeUTF8) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::TTFSizeUTF8", "font, text"); PERL_UNUSED_VAR(cv); /* -W */ { TTF_Font * font = INT2PTR(TTF_Font *,SvIV(ST(0))); char * text = (char *)SvPV_nolen(ST(1)); AV * RETVAL; #line 2845 "SDL_perl.xs" int w,h; RETVAL = newAV(); TTF_SizeUTF8(font,text,&w,&h); av_push(RETVAL,newSViv(w)); av_push(RETVAL,newSViv(h)); #line 7405 "SDL_perl.c" ST(0) = newRV((SV*)RETVAL); sv_2mortal(ST(0)); } XSRETURN(1); } XS(XS_SDL_TTFSizeUNICODE); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_TTFSizeUNICODE) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::TTFSizeUNICODE", "font, text"); PERL_UNUSED_VAR(cv); /* -W */ { TTF_Font * font = INT2PTR(TTF_Font *,SvIV(ST(0))); const Uint16 * text = INT2PTR(const Uint16 *,SvIV(ST(1))); AV * RETVAL; #line 2858 "SDL_perl.xs" int w,h; RETVAL = newAV(); TTF_SizeUNICODE(font,text,&w,&h); av_push(RETVAL,newSViv(w)); av_push(RETVAL,newSViv(h)); #line 7434 "SDL_perl.c" ST(0) = newRV((SV*)RETVAL); sv_2mortal(ST(0)); } XSRETURN(1); } XS(XS_SDL_TTFRenderTextSolid); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_TTFRenderTextSolid) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 3) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::TTFRenderTextSolid", "font, text, fg"); PERL_UNUSED_VAR(cv); /* -W */ { TTF_Font * font = INT2PTR(TTF_Font *,SvIV(ST(0))); char * text = (char *)SvPV_nolen(ST(1)); SDL_Color * fg = INT2PTR(SDL_Color *,SvIV(ST(2))); SDL_Surface * RETVAL; dXSTARG; #line 2872 "SDL_perl.xs" RETVAL = TTF_RenderText_Solid(font,text,*fg); #line 7461 "SDL_perl.c" XSprePUSH; PUSHi(PTR2IV(RETVAL)); } XSRETURN(1); } XS(XS_SDL_TTFRenderUTF8Solid); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_TTFRenderUTF8Solid) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 3) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::TTFRenderUTF8Solid", "font, text, fg"); PERL_UNUSED_VAR(cv); /* -W */ { TTF_Font * font = INT2PTR(TTF_Font *,SvIV(ST(0))); char * text = (char *)SvPV_nolen(ST(1)); SDL_Color * fg = INT2PTR(SDL_Color *,SvIV(ST(2))); SDL_Surface * RETVAL; dXSTARG; #line 2882 "SDL_perl.xs" RETVAL = TTF_RenderUTF8_Solid(font,text,*fg); #line 7487 "SDL_perl.c" XSprePUSH; PUSHi(PTR2IV(RETVAL)); } XSRETURN(1); } XS(XS_SDL_TTFRenderUNICODESolid); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_TTFRenderUNICODESolid) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 3) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::TTFRenderUNICODESolid", "font, text, fg"); PERL_UNUSED_VAR(cv); /* -W */ { TTF_Font * font = INT2PTR(TTF_Font *,SvIV(ST(0))); const Uint16 * text = INT2PTR(const Uint16 *,SvIV(ST(1))); SDL_Color * fg = INT2PTR(SDL_Color *,SvIV(ST(2))); SDL_Surface * RETVAL; dXSTARG; #line 2892 "SDL_perl.xs" RETVAL = TTF_RenderUNICODE_Solid(font,text,*fg); #line 7513 "SDL_perl.c" XSprePUSH; PUSHi(PTR2IV(RETVAL)); } XSRETURN(1); } XS(XS_SDL_TTFRenderGlyphSolid); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_TTFRenderGlyphSolid) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 3) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::TTFRenderGlyphSolid", "font, ch, fg"); PERL_UNUSED_VAR(cv); /* -W */ { TTF_Font * font = INT2PTR(TTF_Font *,SvIV(ST(0))); Uint16 ch = (Uint16)SvUV(ST(1)); SDL_Color * fg = INT2PTR(SDL_Color *,SvIV(ST(2))); SDL_Surface * RETVAL; dXSTARG; #line 2902 "SDL_perl.xs" RETVAL = TTF_RenderGlyph_Solid(font,ch,*fg); #line 7539 "SDL_perl.c" XSprePUSH; PUSHi(PTR2IV(RETVAL)); } XSRETURN(1); } XS(XS_SDL_TTFRenderTextShaded); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_TTFRenderTextShaded) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 4) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::TTFRenderTextShaded", "font, text, fg, bg"); PERL_UNUSED_VAR(cv); /* -W */ { TTF_Font * font = INT2PTR(TTF_Font *,SvIV(ST(0))); char * text = (char *)SvPV_nolen(ST(1)); SDL_Color * fg = INT2PTR(SDL_Color *,SvIV(ST(2))); SDL_Color * bg = INT2PTR(SDL_Color *,SvIV(ST(3))); SDL_Surface * RETVAL; dXSTARG; #line 2913 "SDL_perl.xs" RETVAL = TTF_RenderText_Shaded(font,text,*fg,*bg); #line 7566 "SDL_perl.c" XSprePUSH; PUSHi(PTR2IV(RETVAL)); } XSRETURN(1); } XS(XS_SDL_TTFRenderUTF8Shaded); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_TTFRenderUTF8Shaded) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 4) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::TTFRenderUTF8Shaded", "font, text, fg, bg"); PERL_UNUSED_VAR(cv); /* -W */ { TTF_Font * font = INT2PTR(TTF_Font *,SvIV(ST(0))); char * text = (char *)SvPV_nolen(ST(1)); SDL_Color * fg = INT2PTR(SDL_Color *,SvIV(ST(2))); SDL_Color * bg = INT2PTR(SDL_Color *,SvIV(ST(3))); SDL_Surface * RETVAL; dXSTARG; #line 2924 "SDL_perl.xs" RETVAL = TTF_RenderUTF8_Shaded(font,text,*fg,*bg); #line 7593 "SDL_perl.c" XSprePUSH; PUSHi(PTR2IV(RETVAL)); } XSRETURN(1); } XS(XS_SDL_TTFRenderUNICODEShaded); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_TTFRenderUNICODEShaded) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 4) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::TTFRenderUNICODEShaded", "font, text, fg, bg"); PERL_UNUSED_VAR(cv); /* -W */ { TTF_Font * font = INT2PTR(TTF_Font *,SvIV(ST(0))); const Uint16 * text = INT2PTR(const Uint16 *,SvIV(ST(1))); SDL_Color * fg = INT2PTR(SDL_Color *,SvIV(ST(2))); SDL_Color * bg = INT2PTR(SDL_Color *,SvIV(ST(3))); SDL_Surface * RETVAL; dXSTARG; #line 2935 "SDL_perl.xs" RETVAL = TTF_RenderUNICODE_Shaded(font,text,*fg,*bg); #line 7620 "SDL_perl.c" XSprePUSH; PUSHi(PTR2IV(RETVAL)); } XSRETURN(1); } XS(XS_SDL_TTFRenderGlyphShaded); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_TTFRenderGlyphShaded) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 4) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::TTFRenderGlyphShaded", "font, ch, fg, bg"); PERL_UNUSED_VAR(cv); /* -W */ { TTF_Font * font = INT2PTR(TTF_Font *,SvIV(ST(0))); Uint16 ch = (Uint16)SvUV(ST(1)); SDL_Color * fg = INT2PTR(SDL_Color *,SvIV(ST(2))); SDL_Color * bg = INT2PTR(SDL_Color *,SvIV(ST(3))); SDL_Surface * RETVAL; dXSTARG; #line 2946 "SDL_perl.xs" RETVAL = TTF_RenderGlyph_Shaded(font,ch,*fg,*bg); #line 7647 "SDL_perl.c" XSprePUSH; PUSHi(PTR2IV(RETVAL)); } XSRETURN(1); } XS(XS_SDL_TTFRenderTextBlended); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_TTFRenderTextBlended) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 3) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::TTFRenderTextBlended", "font, text, fg"); PERL_UNUSED_VAR(cv); /* -W */ { TTF_Font * font = INT2PTR(TTF_Font *,SvIV(ST(0))); char * text = (char *)SvPV_nolen(ST(1)); SDL_Color * fg = INT2PTR(SDL_Color *,SvIV(ST(2))); SDL_Surface * RETVAL; dXSTARG; #line 2956 "SDL_perl.xs" RETVAL = TTF_RenderText_Blended(font,text,*fg); #line 7673 "SDL_perl.c" XSprePUSH; PUSHi(PTR2IV(RETVAL)); } XSRETURN(1); } XS(XS_SDL_TTFRenderUTF8Blended); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_TTFRenderUTF8Blended) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 3) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::TTFRenderUTF8Blended", "font, text, fg"); PERL_UNUSED_VAR(cv); /* -W */ { TTF_Font * font = INT2PTR(TTF_Font *,SvIV(ST(0))); char * text = (char *)SvPV_nolen(ST(1)); SDL_Color * fg = INT2PTR(SDL_Color *,SvIV(ST(2))); SDL_Surface * RETVAL; dXSTARG; #line 2966 "SDL_perl.xs" RETVAL = TTF_RenderUTF8_Blended(font,text,*fg); #line 7699 "SDL_perl.c" XSprePUSH; PUSHi(PTR2IV(RETVAL)); } XSRETURN(1); } XS(XS_SDL_TTFRenderUNICODEBlended); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_TTFRenderUNICODEBlended) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 3) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::TTFRenderUNICODEBlended", "font, text, fg"); PERL_UNUSED_VAR(cv); /* -W */ { TTF_Font * font = INT2PTR(TTF_Font *,SvIV(ST(0))); const Uint16 * text = INT2PTR(const Uint16 *,SvIV(ST(1))); SDL_Color * fg = INT2PTR(SDL_Color *,SvIV(ST(2))); SDL_Surface * RETVAL; dXSTARG; #line 2976 "SDL_perl.xs" RETVAL = TTF_RenderUNICODE_Blended(font,text,*fg); #line 7725 "SDL_perl.c" XSprePUSH; PUSHi(PTR2IV(RETVAL)); } XSRETURN(1); } XS(XS_SDL_TTFRenderGlyphBlended); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_TTFRenderGlyphBlended) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 3) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::TTFRenderGlyphBlended", "font, ch, fg"); PERL_UNUSED_VAR(cv); /* -W */ { TTF_Font * font = INT2PTR(TTF_Font *,SvIV(ST(0))); Uint16 ch = (Uint16)SvUV(ST(1)); SDL_Color * fg = INT2PTR(SDL_Color *,SvIV(ST(2))); SDL_Surface * RETVAL; dXSTARG; #line 2986 "SDL_perl.xs" RETVAL = TTF_RenderGlyph_Blended(font,ch,*fg); #line 7751 "SDL_perl.c" XSprePUSH; PUSHi(PTR2IV(RETVAL)); } XSRETURN(1); } XS(XS_SDL_TTFCloseFont); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_TTFCloseFont) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::TTFCloseFont", "font"); PERL_UNUSED_VAR(cv); /* -W */ { TTF_Font * font = INT2PTR(TTF_Font *,SvIV(ST(0))); #line 2994 "SDL_perl.xs" TTF_CloseFont(font); #line 7773 "SDL_perl.c" } XSRETURN_EMPTY; } XS(XS_SDL_TTFPutString); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_TTFPutString) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 8) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::TTFPutString", "font, mode, surface, x, y, fg, bg, text"); PERL_UNUSED_VAR(cv); /* -W */ { TTF_Font * font = INT2PTR(TTF_Font *,SvIV(ST(0))); int mode = (int)SvIV(ST(1)); SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(2))); int x = (int)SvIV(ST(3)); int y = (int)SvIV(ST(4)); SDL_Color * fg = INT2PTR(SDL_Color *,SvIV(ST(5))); SDL_Color * bg = INT2PTR(SDL_Color *,SvIV(ST(6))); char * text = (char *)SvPV_nolen(ST(7)); SDL_Surface * RETVAL; dXSTARG; #line 3007 "SDL_perl.xs" SDL_Surface *img; SDL_Rect dest; int w,h; dest.x = x; dest.y = y; RETVAL = NULL; switch (mode) { case TEXT_SOLID: img = TTF_RenderText_Solid(font,text,*fg); TTF_SizeText(font,text,&w,&h); dest.w = w; dest.h = h; break; case TEXT_SHADED: img = TTF_RenderText_Shaded(font,text,*fg,*bg); TTF_SizeText(font,text,&w,&h); dest.w = w; dest.h = h; break; case TEXT_BLENDED: img = TTF_RenderText_Blended(font,text,*fg); TTF_SizeText(font,text,&w,&h); dest.w = w; dest.h = h; break; case UTF8_SOLID: img = TTF_RenderUTF8_Solid(font,text,*fg); TTF_SizeUTF8(font,text,&w,&h); dest.w = w; dest.h = h; break; case UTF8_SHADED: img = TTF_RenderUTF8_Shaded(font,text,*fg,*bg); TTF_SizeUTF8(font,text,&w,&h); dest.w = w; dest.h = h; break; case UTF8_BLENDED: img = TTF_RenderUTF8_Blended(font,text,*fg); TTF_SizeUTF8(font,text,&w,&h); dest.w = w; dest.h = h; break; case UNICODE_SOLID: img = TTF_RenderUNICODE_Solid(font,(Uint16*)text,*fg); TTF_SizeUNICODE(font,(Uint16*)text,&w,&h); dest.w = w; dest.h = h; break; case UNICODE_SHADED: img = TTF_RenderUNICODE_Shaded(font,(Uint16*)text,*fg,*bg); TTF_SizeUNICODE(font,(Uint16*)text,&w,&h); dest.w = w; dest.h = h; break; case UNICODE_BLENDED: img = TTF_RenderUNICODE_Blended(font,(Uint16*)text,*fg); TTF_SizeUNICODE(font,(Uint16*)text,&w,&h); dest.w = w; dest.h = h; break; default: img = TTF_RenderText_Shaded(font,text,*fg,*bg); TTF_SizeText(font,text,&w,&h); dest.w = w; dest.h = h; } if ( img && img->format && img->format->palette ) { SDL_Color *c = &img->format->palette->colors[0]; Uint32 key = SDL_MapRGB( img->format, c->r, c->g, c->b ); SDL_SetColorKey(img,SDL_SRCCOLORKEY,key ); if (0 > SDL_BlitSurface(img,NULL,surface,&dest)) { SDL_FreeSurface(img); RETVAL = NULL; } else { RETVAL = img; } } #line 7880 "SDL_perl.c" XSprePUSH; PUSHi(PTR2IV(RETVAL)); } XSRETURN(1); } #endif XS(XS_SDL_CreateYUVOverlay); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_CreateYUVOverlay) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 4) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::CreateYUVOverlay", "width, height, format, display"); PERL_UNUSED_VAR(cv); /* -W */ { int width = (int)SvIV(ST(0)); int height = (int)SvIV(ST(1)); Uint32 format = (Uint32)SvUV(ST(2)); SDL_Surface * display = INT2PTR(SDL_Surface *,SvIV(ST(3))); SDL_Overlay * RETVAL; dXSTARG; #line 3097 "SDL_perl.xs" RETVAL = SDL_CreateYUVOverlay ( width, height, format, display ); #line 7908 "SDL_perl.c" XSprePUSH; PUSHi(PTR2IV(RETVAL)); } XSRETURN(1); } XS(XS_SDL_LockYUVOverlay); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_LockYUVOverlay) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::LockYUVOverlay", "overlay"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Overlay * overlay = INT2PTR(SDL_Overlay *,SvIV(ST(0))); int RETVAL; dXSTARG; #line 3105 "SDL_perl.xs" RETVAL = SDL_LockYUVOverlay(overlay); #line 7932 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_UnlockYUVOverlay); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_UnlockYUVOverlay) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::UnlockYUVOverlay", "overlay"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Overlay * overlay = INT2PTR(SDL_Overlay *,SvIV(ST(0))); #line 3113 "SDL_perl.xs" SDL_UnlockYUVOverlay(overlay); #line 7954 "SDL_perl.c" } XSRETURN_EMPTY; } XS(XS_SDL_DisplayYUVOverlay); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_DisplayYUVOverlay) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::DisplayYUVOverlay", "overlay, dstrect"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Overlay * overlay = INT2PTR(SDL_Overlay *,SvIV(ST(0))); SDL_Rect * dstrect = INT2PTR(SDL_Rect *,SvIV(ST(1))); int RETVAL; dXSTARG; #line 3120 "SDL_perl.xs" RETVAL = SDL_DisplayYUVOverlay ( overlay, dstrect ); #line 7978 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_FreeYUVOverlay); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_FreeYUVOverlay) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::FreeYUVOverlay", "overlay"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Overlay * overlay = INT2PTR(SDL_Overlay *,SvIV(ST(0))); #line 3128 "SDL_perl.xs" SDL_FreeYUVOverlay ( overlay ); #line 8000 "SDL_perl.c" } XSRETURN_EMPTY; } XS(XS_SDL_OverlayFormat); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_OverlayFormat) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items < 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OverlayFormat", "overlay, ..."); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Overlay * overlay = INT2PTR(SDL_Overlay *,SvIV(ST(0))); Uint32 RETVAL; dXSTARG; #line 3134 "SDL_perl.xs" if ( items > 1 ) overlay->format = SvIV(ST(1)); RETVAL = overlay->format; #line 8025 "SDL_perl.c" XSprePUSH; PUSHu((UV)RETVAL); } XSRETURN(1); } XS(XS_SDL_OverlayW); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_OverlayW) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items < 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OverlayW", "overlay, ..."); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Overlay * overlay = INT2PTR(SDL_Overlay *,SvIV(ST(0))); int RETVAL; dXSTARG; #line 3144 "SDL_perl.xs" if ( items > 1 ) overlay->w = SvIV(ST(1)); RETVAL = overlay->w; #line 8051 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_OverlayH); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_OverlayH) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items < 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OverlayH", "overlay, ..."); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Overlay * overlay = INT2PTR(SDL_Overlay *,SvIV(ST(0))); int RETVAL; dXSTARG; #line 3154 "SDL_perl.xs" if ( items > 1 ) overlay->h = SvIV(ST(1)); RETVAL = overlay->h; #line 8077 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_OverlayPlanes); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_OverlayPlanes) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items < 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OverlayPlanes", "overlay, ..."); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Overlay * overlay = INT2PTR(SDL_Overlay *,SvIV(ST(0))); int RETVAL; dXSTARG; #line 3164 "SDL_perl.xs" if ( items > 1 ) overlay->planes = SvIV(ST(1)); RETVAL = overlay->planes; #line 8103 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_OverlayHW); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_OverlayHW) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OverlayHW", "overlay"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Overlay * overlay = INT2PTR(SDL_Overlay *,SvIV(ST(0))); Uint32 RETVAL; dXSTARG; #line 3174 "SDL_perl.xs" RETVAL = overlay->hw_overlay; #line 8127 "SDL_perl.c" XSprePUSH; PUSHu((UV)RETVAL); } XSRETURN(1); } XS(XS_SDL_OverlayPitches); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_OverlayPitches) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OverlayPitches", "overlay"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Overlay * overlay = INT2PTR(SDL_Overlay *,SvIV(ST(0))); Uint16 * RETVAL; dXSTARG; #line 3182 "SDL_perl.xs" RETVAL = overlay->pitches; #line 8151 "SDL_perl.c" XSprePUSH; PUSHi(PTR2IV(RETVAL)); } XSRETURN(1); } XS(XS_SDL_OverlayPixels); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_OverlayPixels) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OverlayPixels", "overlay"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Overlay * overlay = INT2PTR(SDL_Overlay *,SvIV(ST(0))); Uint8 ** RETVAL; dXSTARG; #line 3190 "SDL_perl.xs" RETVAL = overlay->pixels; #line 8175 "SDL_perl.c" XSprePUSH; PUSHi(PTR2IV(RETVAL)); } XSRETURN(1); } XS(XS_SDL_WMToggleFullScreen); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_WMToggleFullScreen) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::WMToggleFullScreen", "surface"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface * surface = INT2PTR(SDL_Surface *,SvIV(ST(0))); int RETVAL; dXSTARG; #line 3198 "SDL_perl.xs" RETVAL = SDL_WM_ToggleFullScreen(surface); #line 8199 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_WMGrabInput); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_WMGrabInput) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::WMGrabInput", "mode"); PERL_UNUSED_VAR(cv); /* -W */ { Uint32 mode = (Uint32)SvUV(ST(0)); Uint32 RETVAL; dXSTARG; #line 3206 "SDL_perl.xs" RETVAL = SDL_WM_GrabInput(mode); #line 8223 "SDL_perl.c" XSprePUSH; PUSHu((UV)RETVAL); } XSRETURN(1); } XS(XS_SDL_WMIconifyWindow); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_WMIconifyWindow) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 0) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::WMIconifyWindow", ""); PERL_UNUSED_VAR(cv); /* -W */ { int RETVAL; dXSTARG; #line 3213 "SDL_perl.xs" RETVAL = SDL_WM_IconifyWindow(); #line 8246 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_ResizeEventW); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_ResizeEventW) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::ResizeEventW", "e"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Event * e = INT2PTR(SDL_Event *,SvIV(ST(0))); int RETVAL; dXSTARG; #line 3221 "SDL_perl.xs" RETVAL = e->resize.w; #line 8270 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_ResizeEventH); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_ResizeEventH) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::ResizeEventH", "e"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Event * e = INT2PTR(SDL_Event *,SvIV(ST(0))); int RETVAL; dXSTARG; #line 3229 "SDL_perl.xs" RETVAL = e->resize.h; #line 8294 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_AudioDriverName); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_AudioDriverName) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 0) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::AudioDriverName", ""); PERL_UNUSED_VAR(cv); /* -W */ { char * RETVAL; dXSTARG; #line 3236 "SDL_perl.xs" char name[32]; RETVAL = SDL_AudioDriverName(name,32); #line 8318 "SDL_perl.c" sv_setpv(TARG, RETVAL); XSprePUSH; PUSHTARG; } XSRETURN(1); } XS(XS_SDL_GetKeyState); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_GetKeyState) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::GetKeyState", "k"); PERL_UNUSED_VAR(cv); /* -W */ { SDLKey k = (SDLKey)SvUV(ST(0)); Uint32 RETVAL; dXSTARG; #line 3245 "SDL_perl.xs" if (k >= SDLK_LAST) Perl_croak (aTHX_ "Key out of range"); RETVAL = SDL_GetKeyState(NULL)[k]; #line 8343 "SDL_perl.c" XSprePUSH; PUSHu((UV)RETVAL); } XSRETURN(1); } #ifdef HAVE_SMPEG #define XSubPPtmpAAAF 1 XS(XS_SDL_NewSMPEGInfo); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_NewSMPEGInfo) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 0) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::NewSMPEGInfo", ""); PERL_UNUSED_VAR(cv); /* -W */ { SMPEG_Info * RETVAL; dXSTARG; #line 3255 "SDL_perl.xs" RETVAL = (SMPEG_Info *) safemalloc (sizeof(SMPEG_Info)); #line 8369 "SDL_perl.c" XSprePUSH; PUSHi(PTR2IV(RETVAL)); } XSRETURN(1); } XS(XS_SDL_FreeSMPEGInfo); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_FreeSMPEGInfo) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::FreeSMPEGInfo", "info"); PERL_UNUSED_VAR(cv); /* -W */ { SMPEG_Info * info = INT2PTR(SMPEG_Info *,SvIV(ST(0))); #line 3263 "SDL_perl.xs" safefree(info); #line 8391 "SDL_perl.c" } XSRETURN_EMPTY; } XS(XS_SDL_SMPEGError); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_SMPEGError) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::SMPEGError", "mpeg"); PERL_UNUSED_VAR(cv); /* -W */ { SMPEG* mpeg = INT2PTR(SMPEG *,SvIV(ST(0))); char * RETVAL; dXSTARG; #line 3269 "SDL_perl.xs" RETVAL = SMPEG_error(mpeg); #line 8414 "SDL_perl.c" sv_setpv(TARG, RETVAL); XSprePUSH; PUSHTARG; } XSRETURN(1); } XS(XS_SDL_NewSMPEG); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_NewSMPEG) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 3) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::NewSMPEG", "filename, info, use_audio"); PERL_UNUSED_VAR(cv); /* -W */ { char* filename = (char *)SvPV_nolen(ST(0)); SMPEG_Info* info = INT2PTR(SMPEG_Info *,SvIV(ST(1))); int use_audio = (int)SvIV(ST(2)); SMPEG * RETVAL; dXSTARG; #line 3279 "SDL_perl.xs" RETVAL = SMPEG_new(filename,info,use_audio); #line 8440 "SDL_perl.c" XSprePUSH; PUSHi(PTR2IV(RETVAL)); } XSRETURN(1); } XS(XS_SDL_FreeSMPEG); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_FreeSMPEG) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::FreeSMPEG", "mpeg"); PERL_UNUSED_VAR(cv); /* -W */ { SMPEG* mpeg = INT2PTR(SMPEG *,SvIV(ST(0))); #line 3287 "SDL_perl.xs" SMPEG_delete(mpeg); #line 8462 "SDL_perl.c" } XSRETURN_EMPTY; } XS(XS_SDL_SMPEGEnableAudio); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_SMPEGEnableAudio) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::SMPEGEnableAudio", "mpeg, flag"); PERL_UNUSED_VAR(cv); /* -W */ { SMPEG* mpeg = INT2PTR(SMPEG *,SvIV(ST(0))); int flag = (int)SvIV(ST(1)); #line 3294 "SDL_perl.xs" SMPEG_enableaudio(mpeg,flag); #line 8484 "SDL_perl.c" } XSRETURN_EMPTY; } XS(XS_SDL_SMPEGEnableVideo); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_SMPEGEnableVideo) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::SMPEGEnableVideo", "mpeg, flag"); PERL_UNUSED_VAR(cv); /* -W */ { SMPEG* mpeg = INT2PTR(SMPEG *,SvIV(ST(0))); int flag = (int)SvIV(ST(1)); #line 3301 "SDL_perl.xs" SMPEG_enablevideo(mpeg,flag); #line 8506 "SDL_perl.c" } XSRETURN_EMPTY; } XS(XS_SDL_SMPEGSetVolume); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_SMPEGSetVolume) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::SMPEGSetVolume", "mpeg, volume"); PERL_UNUSED_VAR(cv); /* -W */ { SMPEG* mpeg = INT2PTR(SMPEG *,SvIV(ST(0))); int volume = (int)SvIV(ST(1)); #line 3308 "SDL_perl.xs" SMPEG_setvolume(mpeg,volume); #line 8528 "SDL_perl.c" } XSRETURN_EMPTY; } XS(XS_SDL_SMPEGSetDisplay); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_SMPEGSetDisplay) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 3) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::SMPEGSetDisplay", "mpeg, dest, surfLock"); PERL_UNUSED_VAR(cv); /* -W */ { SMPEG* mpeg = INT2PTR(SMPEG *,SvIV(ST(0))); SDL_Surface* dest = INT2PTR(SDL_Surface *,SvIV(ST(1))); SDL_mutex* surfLock = INT2PTR(SDL_mutex *,SvIV(ST(2))); #line 3316 "SDL_perl.xs" SMPEG_setdisplay(mpeg,dest,surfLock,NULL); #line 8551 "SDL_perl.c" } XSRETURN_EMPTY; } XS(XS_SDL_SMPEGScaleXY); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_SMPEGScaleXY) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::SMPEGScaleXY", "mpeg, dest"); PERL_UNUSED_VAR(cv); /* -W */ { SMPEG* mpeg = INT2PTR(SMPEG *,SvIV(ST(0))); SDL_Surface* dest = INT2PTR(SDL_Surface *,SvIV(ST(1))); #line 3323 "SDL_perl.xs" SMPEG_scaleXY(mpeg,dest->w,dest->h); #line 8573 "SDL_perl.c" } XSRETURN_EMPTY; } XS(XS_SDL_SMPEGPlay); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_SMPEGPlay) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::SMPEGPlay", "mpeg"); PERL_UNUSED_VAR(cv); /* -W */ { SMPEG* mpeg = INT2PTR(SMPEG *,SvIV(ST(0))); #line 3329 "SDL_perl.xs" SMPEG_play(mpeg); #line 8594 "SDL_perl.c" } XSRETURN_EMPTY; } XS(XS_SDL_SMPEGStatus); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_SMPEGStatus) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::SMPEGStatus", "mpeg"); PERL_UNUSED_VAR(cv); /* -W */ { SMPEG* mpeg = INT2PTR(SMPEG *,SvIV(ST(0))); SMPEGstatus RETVAL; dXSTARG; #line 3335 "SDL_perl.xs" RETVAL = SMPEG_status(mpeg); #line 8617 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_SMPEGPause); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_SMPEGPause) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::SMPEGPause", "mpeg"); PERL_UNUSED_VAR(cv); /* -W */ { SMPEG* mpeg = INT2PTR(SMPEG *,SvIV(ST(0))); #line 3343 "SDL_perl.xs" SMPEG_pause(mpeg); #line 8639 "SDL_perl.c" } XSRETURN_EMPTY; } #endif #ifdef HAVE_SDL_GFX #define XSubPPtmpAAAG 1 XS(XS_SDL_GFXRotoZoom); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_GFXRotoZoom) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 4) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::GFXRotoZoom", "src, angle, zoom, smooth"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface * src = INT2PTR(SDL_Surface *,SvIV(ST(0))); double angle = (double)SvNV(ST(1)); double zoom = (double)SvNV(ST(2)); int smooth = (int)SvIV(ST(3)); SDL_Surface * RETVAL; dXSTARG; #line 3356 "SDL_perl.xs" RETVAL = rotozoomSurface( src, angle, zoom, smooth); #line 8669 "SDL_perl.c" XSprePUSH; PUSHi(PTR2IV(RETVAL)); } XSRETURN(1); } XS(XS_SDL_GFXZoom); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_GFXZoom) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 4) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::GFXZoom", "src, zoomx, zoomy, smooth"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface * src = INT2PTR(SDL_Surface *,SvIV(ST(0))); double zoomx = (double)SvNV(ST(1)); double zoomy = (double)SvNV(ST(2)); int smooth = (int)SvIV(ST(3)); SDL_Surface * RETVAL; dXSTARG; #line 3367 "SDL_perl.xs" RETVAL = zoomSurface( src, zoomx, zoomy, smooth); #line 8696 "SDL_perl.c" XSprePUSH; PUSHi(PTR2IV(RETVAL)); } XSRETURN(1); } XS(XS_SDL_GFXPixelColor); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_GFXPixelColor) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 4) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::GFXPixelColor", "dst, x, y, color"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface* dst = INT2PTR(SDL_Surface *,SvIV(ST(0))); Sint16 x = (Sint16)SvIV(ST(1)); Sint16 y = (Sint16)SvIV(ST(2)); Uint32 color = (Uint32)SvUV(ST(3)); int RETVAL; dXSTARG; #line 3379 "SDL_perl.xs" RETVAL = pixelColor( dst, x, y, color); #line 8723 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_GFXPixelRGBA); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_GFXPixelRGBA) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 7) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::GFXPixelRGBA", "dst, x, y, r, g, b, a"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface* dst = INT2PTR(SDL_Surface *,SvIV(ST(0))); Sint16 x = (Sint16)SvIV(ST(1)); Sint16 y = (Sint16)SvIV(ST(2)); Uint8 r = (unsigned char)SvUV(ST(3)); Uint8 g = (unsigned char)SvUV(ST(4)); Uint8 b = (unsigned char)SvUV(ST(5)); Uint8 a = (unsigned char)SvUV(ST(6)); int RETVAL; dXSTARG; #line 3393 "SDL_perl.xs" RETVAL = pixelRGBA( dst, x, y, r, g, b, a ); #line 8753 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_GFXHlineColor); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_GFXHlineColor) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 5) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::GFXHlineColor", "dst, x1, x2, y, color"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface* dst = INT2PTR(SDL_Surface *,SvIV(ST(0))); Sint16 x1 = (Sint16)SvIV(ST(1)); Sint16 x2 = (Sint16)SvIV(ST(2)); Sint16 y = (Sint16)SvIV(ST(3)); Uint32 color = (Uint32)SvUV(ST(4)); int RETVAL; dXSTARG; #line 3405 "SDL_perl.xs" RETVAL = hlineColor( dst, x1, x2, y, color ); #line 8781 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_GFXHlineRGBA); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_GFXHlineRGBA) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 8) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::GFXHlineRGBA", "dst, x1, x2, y, r, g, b, a"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface* dst = INT2PTR(SDL_Surface *,SvIV(ST(0))); Sint16 x1 = (Sint16)SvIV(ST(1)); Sint16 x2 = (Sint16)SvIV(ST(2)); Sint16 y = (Sint16)SvIV(ST(3)); Uint8 r = (unsigned char)SvUV(ST(4)); Uint8 g = (unsigned char)SvUV(ST(5)); Uint8 b = (unsigned char)SvUV(ST(6)); Uint8 a = (unsigned char)SvUV(ST(7)); int RETVAL; dXSTARG; #line 3420 "SDL_perl.xs" RETVAL = hlineRGBA( dst, x1, x2, y, r, g, b, a ); #line 8812 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_GFXVlineColor); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_GFXVlineColor) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 5) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::GFXVlineColor", "dst, x, y1, y2, color"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface* dst = INT2PTR(SDL_Surface *,SvIV(ST(0))); Sint16 x = (Sint16)SvIV(ST(1)); Sint16 y1 = (Sint16)SvIV(ST(2)); Sint16 y2 = (Sint16)SvIV(ST(3)); Uint32 color = (Uint32)SvUV(ST(4)); int RETVAL; dXSTARG; #line 3432 "SDL_perl.xs" RETVAL = vlineColor( dst, x, y1, y2, color ); #line 8840 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_GFXVlineRGBA); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_GFXVlineRGBA) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 8) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::GFXVlineRGBA", "dst, x, y1, y2, r, g, b, a"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface* dst = INT2PTR(SDL_Surface *,SvIV(ST(0))); Sint16 x = (Sint16)SvIV(ST(1)); Sint16 y1 = (Sint16)SvIV(ST(2)); Sint16 y2 = (Sint16)SvIV(ST(3)); Uint8 r = (unsigned char)SvUV(ST(4)); Uint8 g = (unsigned char)SvUV(ST(5)); Uint8 b = (unsigned char)SvUV(ST(6)); Uint8 a = (unsigned char)SvUV(ST(7)); int RETVAL; dXSTARG; #line 3447 "SDL_perl.xs" RETVAL = vlineRGBA( dst, x, y1, y2, r, g, b, a ); #line 8871 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_GFXRectangleColor); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_GFXRectangleColor) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 6) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::GFXRectangleColor", "dst, x1, y1, x2, y2, color"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface* dst = INT2PTR(SDL_Surface *,SvIV(ST(0))); Sint16 x1 = (Sint16)SvIV(ST(1)); Sint16 y1 = (Sint16)SvIV(ST(2)); Sint16 x2 = (Sint16)SvIV(ST(3)); Sint16 y2 = (Sint16)SvIV(ST(4)); Uint32 color = (Uint32)SvUV(ST(5)); int RETVAL; dXSTARG; #line 3460 "SDL_perl.xs" RETVAL = rectangleColor( dst, x1, y1, x2, y2, color ); #line 8900 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_GFXRectangleRGBA); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_GFXRectangleRGBA) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 9) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::GFXRectangleRGBA", "dst, x1, y1, x2, y2, r, g, b, a"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface* dst = INT2PTR(SDL_Surface *,SvIV(ST(0))); Sint16 x1 = (Sint16)SvIV(ST(1)); Sint16 y1 = (Sint16)SvIV(ST(2)); Sint16 x2 = (Sint16)SvIV(ST(3)); Sint16 y2 = (Sint16)SvIV(ST(4)); Uint8 r = (unsigned char)SvUV(ST(5)); Uint8 g = (unsigned char)SvUV(ST(6)); Uint8 b = (unsigned char)SvUV(ST(7)); Uint8 a = (unsigned char)SvUV(ST(8)); int RETVAL; dXSTARG; #line 3476 "SDL_perl.xs" RETVAL = rectangleRGBA( dst, x1, y1, x2, y2, r, g, b, a ); #line 8932 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_GFXBoxColor); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_GFXBoxColor) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 6) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::GFXBoxColor", "dst, x1, y1, x2, y2, color"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface* dst = INT2PTR(SDL_Surface *,SvIV(ST(0))); Sint16 x1 = (Sint16)SvIV(ST(1)); Sint16 y1 = (Sint16)SvIV(ST(2)); Sint16 x2 = (Sint16)SvIV(ST(3)); Sint16 y2 = (Sint16)SvIV(ST(4)); Uint32 color = (Uint32)SvUV(ST(5)); int RETVAL; dXSTARG; #line 3489 "SDL_perl.xs" RETVAL = boxColor( dst, x1, y1, x2, y2, color ); #line 8961 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_GFXBoxRGBA); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_GFXBoxRGBA) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 9) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::GFXBoxRGBA", "dst, x1, y1, x2, y2, r, g, b, a"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface* dst = INT2PTR(SDL_Surface *,SvIV(ST(0))); Sint16 x1 = (Sint16)SvIV(ST(1)); Sint16 y1 = (Sint16)SvIV(ST(2)); Sint16 x2 = (Sint16)SvIV(ST(3)); Sint16 y2 = (Sint16)SvIV(ST(4)); Uint8 r = (unsigned char)SvUV(ST(5)); Uint8 g = (unsigned char)SvUV(ST(6)); Uint8 b = (unsigned char)SvUV(ST(7)); Uint8 a = (unsigned char)SvUV(ST(8)); int RETVAL; dXSTARG; #line 3505 "SDL_perl.xs" RETVAL = boxRGBA( dst, x1, y1, x2, y2, r, g, b, a ); #line 8993 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_GFXLineColor); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_GFXLineColor) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 6) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::GFXLineColor", "dst, x1, y1, x2, y2, color"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface* dst = INT2PTR(SDL_Surface *,SvIV(ST(0))); Sint16 x1 = (Sint16)SvIV(ST(1)); Sint16 y1 = (Sint16)SvIV(ST(2)); Sint16 x2 = (Sint16)SvIV(ST(3)); Sint16 y2 = (Sint16)SvIV(ST(4)); Uint32 color = (Uint32)SvUV(ST(5)); int RETVAL; dXSTARG; #line 3518 "SDL_perl.xs" RETVAL = lineColor( dst, x1, y1, x2, y2, color ); #line 9022 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_GFXLineRGBA); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_GFXLineRGBA) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 9) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::GFXLineRGBA", "dst, x1, y1, x2, y2, r, g, b, a"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface* dst = INT2PTR(SDL_Surface *,SvIV(ST(0))); Sint16 x1 = (Sint16)SvIV(ST(1)); Sint16 y1 = (Sint16)SvIV(ST(2)); Sint16 x2 = (Sint16)SvIV(ST(3)); Sint16 y2 = (Sint16)SvIV(ST(4)); Uint8 r = (unsigned char)SvUV(ST(5)); Uint8 g = (unsigned char)SvUV(ST(6)); Uint8 b = (unsigned char)SvUV(ST(7)); Uint8 a = (unsigned char)SvUV(ST(8)); int RETVAL; dXSTARG; #line 3534 "SDL_perl.xs" RETVAL = lineRGBA( dst, x1, y1, x2, y2, r, g, b, a ); #line 9054 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_GFXAalineColor); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_GFXAalineColor) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 6) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::GFXAalineColor", "dst, x1, y1, x2, y2, color"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface* dst = INT2PTR(SDL_Surface *,SvIV(ST(0))); Sint16 x1 = (Sint16)SvIV(ST(1)); Sint16 y1 = (Sint16)SvIV(ST(2)); Sint16 x2 = (Sint16)SvIV(ST(3)); Sint16 y2 = (Sint16)SvIV(ST(4)); Uint32 color = (Uint32)SvUV(ST(5)); int RETVAL; dXSTARG; #line 3547 "SDL_perl.xs" RETVAL = aalineColor( dst, x1, y1, x2, y2, color ); #line 9083 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_GFXAalineRGBA); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_GFXAalineRGBA) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 9) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::GFXAalineRGBA", "dst, x1, y1, x2, y2, r, g, b, a"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface* dst = INT2PTR(SDL_Surface *,SvIV(ST(0))); Sint16 x1 = (Sint16)SvIV(ST(1)); Sint16 y1 = (Sint16)SvIV(ST(2)); Sint16 x2 = (Sint16)SvIV(ST(3)); Sint16 y2 = (Sint16)SvIV(ST(4)); Uint8 r = (unsigned char)SvUV(ST(5)); Uint8 g = (unsigned char)SvUV(ST(6)); Uint8 b = (unsigned char)SvUV(ST(7)); Uint8 a = (unsigned char)SvUV(ST(8)); int RETVAL; dXSTARG; #line 3563 "SDL_perl.xs" RETVAL = aalineRGBA( dst, x1, y1, x2, y2, r, g, b, a ); #line 9115 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_GFXCircleColor); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_GFXCircleColor) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 5) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::GFXCircleColor", "dst, x, y, r, color"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface* dst = INT2PTR(SDL_Surface *,SvIV(ST(0))); Sint16 x = (Sint16)SvIV(ST(1)); Sint16 y = (Sint16)SvIV(ST(2)); Sint16 r = (Sint16)SvIV(ST(3)); Uint32 color = (Uint32)SvUV(ST(4)); int RETVAL; dXSTARG; #line 3575 "SDL_perl.xs" RETVAL = circleColor( dst, x, y, r, color ); #line 9143 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_GFXCircleRGBA); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_GFXCircleRGBA) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 8) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::GFXCircleRGBA", "dst, x, y, rad, r, g, b, a"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface* dst = INT2PTR(SDL_Surface *,SvIV(ST(0))); Sint16 x = (Sint16)SvIV(ST(1)); Sint16 y = (Sint16)SvIV(ST(2)); Sint16 rad = (Sint16)SvIV(ST(3)); Uint8 r = (unsigned char)SvUV(ST(4)); Uint8 g = (unsigned char)SvUV(ST(5)); Uint8 b = (unsigned char)SvUV(ST(6)); Uint8 a = (unsigned char)SvUV(ST(7)); int RETVAL; dXSTARG; #line 3590 "SDL_perl.xs" RETVAL = circleRGBA( dst, x, y, rad, r, g, b, a ); #line 9174 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_GFXAacircleColor); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_GFXAacircleColor) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 5) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::GFXAacircleColor", "dst, x, y, r, color"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface* dst = INT2PTR(SDL_Surface *,SvIV(ST(0))); Sint16 x = (Sint16)SvIV(ST(1)); Sint16 y = (Sint16)SvIV(ST(2)); Sint16 r = (Sint16)SvIV(ST(3)); Uint32 color = (Uint32)SvUV(ST(4)); int RETVAL; dXSTARG; #line 3602 "SDL_perl.xs" RETVAL = aacircleColor( dst, x, y, r, color ); #line 9202 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_GFXAacircleRGBA); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_GFXAacircleRGBA) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 8) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::GFXAacircleRGBA", "dst, x, y, rad, r, g, b, a"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface* dst = INT2PTR(SDL_Surface *,SvIV(ST(0))); Sint16 x = (Sint16)SvIV(ST(1)); Sint16 y = (Sint16)SvIV(ST(2)); Sint16 rad = (Sint16)SvIV(ST(3)); Uint8 r = (unsigned char)SvUV(ST(4)); Uint8 g = (unsigned char)SvUV(ST(5)); Uint8 b = (unsigned char)SvUV(ST(6)); Uint8 a = (unsigned char)SvUV(ST(7)); int RETVAL; dXSTARG; #line 3617 "SDL_perl.xs" RETVAL = aacircleRGBA( dst, x, y, rad, r, g, b, a ); #line 9233 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_GFXFilledCircleColor); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_GFXFilledCircleColor) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 5) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::GFXFilledCircleColor", "dst, x, y, r, color"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface* dst = INT2PTR(SDL_Surface *,SvIV(ST(0))); Sint16 x = (Sint16)SvIV(ST(1)); Sint16 y = (Sint16)SvIV(ST(2)); Sint16 r = (Sint16)SvIV(ST(3)); Uint32 color = (Uint32)SvUV(ST(4)); int RETVAL; dXSTARG; #line 3629 "SDL_perl.xs" RETVAL = filledCircleColor( dst, x, y, r, color ); #line 9261 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_GFXFilledCircleRGBA); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_GFXFilledCircleRGBA) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 8) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::GFXFilledCircleRGBA", "dst, x, y, rad, r, g, b, a"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface* dst = INT2PTR(SDL_Surface *,SvIV(ST(0))); Sint16 x = (Sint16)SvIV(ST(1)); Sint16 y = (Sint16)SvIV(ST(2)); Sint16 rad = (Sint16)SvIV(ST(3)); Uint8 r = (unsigned char)SvUV(ST(4)); Uint8 g = (unsigned char)SvUV(ST(5)); Uint8 b = (unsigned char)SvUV(ST(6)); Uint8 a = (unsigned char)SvUV(ST(7)); int RETVAL; dXSTARG; #line 3644 "SDL_perl.xs" RETVAL = filledCircleRGBA( dst, x, y, rad, r, g, b, a ); #line 9292 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_GFXEllipseColor); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_GFXEllipseColor) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 6) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::GFXEllipseColor", "dst, x, y, rx, ry, color"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface* dst = INT2PTR(SDL_Surface *,SvIV(ST(0))); Sint16 x = (Sint16)SvIV(ST(1)); Sint16 y = (Sint16)SvIV(ST(2)); Sint16 rx = (Sint16)SvIV(ST(3)); Sint16 ry = (Sint16)SvIV(ST(4)); Uint32 color = (Uint32)SvUV(ST(5)); int RETVAL; dXSTARG; #line 3657 "SDL_perl.xs" RETVAL = ellipseColor( dst, x, y, rx, ry, color ); #line 9321 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_GFXEllipseRGBA); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_GFXEllipseRGBA) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 9) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::GFXEllipseRGBA", "dst, x, y, rx, ry, r, g, b, a"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface* dst = INT2PTR(SDL_Surface *,SvIV(ST(0))); Sint16 x = (Sint16)SvIV(ST(1)); Sint16 y = (Sint16)SvIV(ST(2)); Sint16 rx = (Sint16)SvIV(ST(3)); Sint16 ry = (Sint16)SvIV(ST(4)); Uint8 r = (unsigned char)SvUV(ST(5)); Uint8 g = (unsigned char)SvUV(ST(6)); Uint8 b = (unsigned char)SvUV(ST(7)); Uint8 a = (unsigned char)SvUV(ST(8)); int RETVAL; dXSTARG; #line 3673 "SDL_perl.xs" RETVAL = ellipseRGBA( dst, x, y, rx, ry, r, g, b, a ); #line 9353 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_GFXAaellipseColor); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_GFXAaellipseColor) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 6) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::GFXAaellipseColor", "dst, xc, yc, rx, ry, color"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface* dst = INT2PTR(SDL_Surface *,SvIV(ST(0))); Sint16 xc = (Sint16)SvIV(ST(1)); Sint16 yc = (Sint16)SvIV(ST(2)); Sint16 rx = (Sint16)SvIV(ST(3)); Sint16 ry = (Sint16)SvIV(ST(4)); Uint32 color = (Uint32)SvUV(ST(5)); int RETVAL; dXSTARG; #line 3686 "SDL_perl.xs" RETVAL = aaellipseColor( dst, xc, yc, rx, ry, color ); #line 9382 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_GFXAaellipseRGBA); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_GFXAaellipseRGBA) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 9) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::GFXAaellipseRGBA", "dst, x, y, rx, ry, r, g, b, a"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface* dst = INT2PTR(SDL_Surface *,SvIV(ST(0))); Sint16 x = (Sint16)SvIV(ST(1)); Sint16 y = (Sint16)SvIV(ST(2)); Sint16 rx = (Sint16)SvIV(ST(3)); Sint16 ry = (Sint16)SvIV(ST(4)); Uint8 r = (unsigned char)SvUV(ST(5)); Uint8 g = (unsigned char)SvUV(ST(6)); Uint8 b = (unsigned char)SvUV(ST(7)); Uint8 a = (unsigned char)SvUV(ST(8)); int RETVAL; dXSTARG; #line 3702 "SDL_perl.xs" RETVAL = aaellipseRGBA( dst, x, y, rx, ry, r, g, b, a ); #line 9414 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_GFXFilledEllipseColor); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_GFXFilledEllipseColor) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 6) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::GFXFilledEllipseColor", "dst, x, y, rx, ry, color"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface* dst = INT2PTR(SDL_Surface *,SvIV(ST(0))); Sint16 x = (Sint16)SvIV(ST(1)); Sint16 y = (Sint16)SvIV(ST(2)); Sint16 rx = (Sint16)SvIV(ST(3)); Sint16 ry = (Sint16)SvIV(ST(4)); Uint32 color = (Uint32)SvUV(ST(5)); int RETVAL; dXSTARG; #line 3715 "SDL_perl.xs" RETVAL = filledEllipseColor( dst, x, y, rx, ry, color ); #line 9443 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_GFXFilledEllipseRGBA); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_GFXFilledEllipseRGBA) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 9) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::GFXFilledEllipseRGBA", "dst, x, y, rx, ry, r, g, b, a"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface* dst = INT2PTR(SDL_Surface *,SvIV(ST(0))); Sint16 x = (Sint16)SvIV(ST(1)); Sint16 y = (Sint16)SvIV(ST(2)); Sint16 rx = (Sint16)SvIV(ST(3)); Sint16 ry = (Sint16)SvIV(ST(4)); Uint8 r = (unsigned char)SvUV(ST(5)); Uint8 g = (unsigned char)SvUV(ST(6)); Uint8 b = (unsigned char)SvUV(ST(7)); Uint8 a = (unsigned char)SvUV(ST(8)); int RETVAL; dXSTARG; #line 3731 "SDL_perl.xs" RETVAL = filledEllipseRGBA( dst, x, y, rx, ry, r, g, b, a ); #line 9475 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_GFXFilledpieColor); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_GFXFilledpieColor) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 7) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::GFXFilledpieColor", "dst, x, y, rad, start, end, color"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface* dst = INT2PTR(SDL_Surface *,SvIV(ST(0))); Sint16 x = (Sint16)SvIV(ST(1)); Sint16 y = (Sint16)SvIV(ST(2)); Sint16 rad = (Sint16)SvIV(ST(3)); Sint16 start = (Sint16)SvIV(ST(4)); Sint16 end = (Sint16)SvIV(ST(5)); Uint32 color = (Uint32)SvUV(ST(6)); int RETVAL; dXSTARG; #line 3745 "SDL_perl.xs" RETVAL = filledpieColor( dst, x, y, rad, start, end, color ); #line 9505 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_GFXFilledpieRGBA); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_GFXFilledpieRGBA) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 10) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::GFXFilledpieRGBA", "dst, x, y, rad, start, end, r, g, b, a"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface* dst = INT2PTR(SDL_Surface *,SvIV(ST(0))); Sint16 x = (Sint16)SvIV(ST(1)); Sint16 y = (Sint16)SvIV(ST(2)); Sint16 rad = (Sint16)SvIV(ST(3)); Sint16 start = (Sint16)SvIV(ST(4)); Sint16 end = (Sint16)SvIV(ST(5)); Uint8 r = (unsigned char)SvUV(ST(6)); Uint8 g = (unsigned char)SvUV(ST(7)); Uint8 b = (unsigned char)SvUV(ST(8)); Uint8 a = (unsigned char)SvUV(ST(9)); int RETVAL; dXSTARG; #line 3762 "SDL_perl.xs" RETVAL = filledpieRGBA( dst, x, y, rad, start, end, r, g, b, a ); #line 9538 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_GFXPolygonColor); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_GFXPolygonColor) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 5) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::GFXPolygonColor", "dst, vx, vy, n, color"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface* dst = INT2PTR(SDL_Surface *,SvIV(ST(0))); Sint16* vx = INT2PTR(Sint16 *,SvIV(ST(1))); Sint16* vy = INT2PTR(Sint16 *,SvIV(ST(2))); int n = (int)SvIV(ST(3)); Uint32 color = (Uint32)SvUV(ST(4)); int RETVAL; dXSTARG; #line 3774 "SDL_perl.xs" RETVAL = polygonColor( dst, vx, vy, n, color ); #line 9566 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_GFXPolygonRGBA); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_GFXPolygonRGBA) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 8) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::GFXPolygonRGBA", "dst, vx, vy, n, r, g, b, a"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface* dst = INT2PTR(SDL_Surface *,SvIV(ST(0))); Sint16* vx = INT2PTR(Sint16 *,SvIV(ST(1))); Sint16* vy = INT2PTR(Sint16 *,SvIV(ST(2))); int n = (int)SvIV(ST(3)); Uint8 r = (unsigned char)SvUV(ST(4)); Uint8 g = (unsigned char)SvUV(ST(5)); Uint8 b = (unsigned char)SvUV(ST(6)); Uint8 a = (unsigned char)SvUV(ST(7)); int RETVAL; dXSTARG; #line 3789 "SDL_perl.xs" RETVAL = polygonRGBA( dst, vx, vy, n, r, g, b, a ); #line 9597 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_GFXAapolygonColor); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_GFXAapolygonColor) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 5) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::GFXAapolygonColor", "dst, vx, vy, n, color"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface* dst = INT2PTR(SDL_Surface *,SvIV(ST(0))); Sint16* vx = INT2PTR(Sint16 *,SvIV(ST(1))); Sint16* vy = INT2PTR(Sint16 *,SvIV(ST(2))); int n = (int)SvIV(ST(3)); Uint32 color = (Uint32)SvUV(ST(4)); int RETVAL; dXSTARG; #line 3801 "SDL_perl.xs" RETVAL = aapolygonColor( dst, vx, vy, n, color ); #line 9625 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_GFXAapolygonRGBA); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_GFXAapolygonRGBA) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 8) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::GFXAapolygonRGBA", "dst, vx, vy, n, r, g, b, a"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface* dst = INT2PTR(SDL_Surface *,SvIV(ST(0))); Sint16* vx = INT2PTR(Sint16 *,SvIV(ST(1))); Sint16* vy = INT2PTR(Sint16 *,SvIV(ST(2))); int n = (int)SvIV(ST(3)); Uint8 r = (unsigned char)SvUV(ST(4)); Uint8 g = (unsigned char)SvUV(ST(5)); Uint8 b = (unsigned char)SvUV(ST(6)); Uint8 a = (unsigned char)SvUV(ST(7)); int RETVAL; dXSTARG; #line 3816 "SDL_perl.xs" RETVAL = aapolygonRGBA( dst, vx, vy, n, r, g, b, a ); #line 9656 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_GFXFilledPolygonColor); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_GFXFilledPolygonColor) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 5) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::GFXFilledPolygonColor", "dst, vx, vy, n, color"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface* dst = INT2PTR(SDL_Surface *,SvIV(ST(0))); Sint16* vx = INT2PTR(Sint16 *,SvIV(ST(1))); Sint16* vy = INT2PTR(Sint16 *,SvIV(ST(2))); int n = (int)SvIV(ST(3)); int color = (int)SvIV(ST(4)); int RETVAL; dXSTARG; #line 3828 "SDL_perl.xs" RETVAL = filledPolygonColor( dst, vx, vy, n, color ); #line 9684 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_GFXFilledPolygonRGBA); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_GFXFilledPolygonRGBA) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 8) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::GFXFilledPolygonRGBA", "dst, vx, vy, n, r, g, b, a"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface* dst = INT2PTR(SDL_Surface *,SvIV(ST(0))); Sint16* vx = INT2PTR(Sint16 *,SvIV(ST(1))); Sint16* vy = INT2PTR(Sint16 *,SvIV(ST(2))); int n = (int)SvIV(ST(3)); Uint8 r = (unsigned char)SvUV(ST(4)); Uint8 g = (unsigned char)SvUV(ST(5)); Uint8 b = (unsigned char)SvUV(ST(6)); Uint8 a = (unsigned char)SvUV(ST(7)); int RETVAL; dXSTARG; #line 3843 "SDL_perl.xs" RETVAL = filledPolygonRGBA( dst, vx, vy, n, r, g, b, a ); #line 9715 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_GFXCharacterColor); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_GFXCharacterColor) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 5) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::GFXCharacterColor", "dst, x, y, c, color"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface* dst = INT2PTR(SDL_Surface *,SvIV(ST(0))); Sint16 x = (Sint16)SvIV(ST(1)); Sint16 y = (Sint16)SvIV(ST(2)); char c = (char)*SvPV_nolen(ST(3)); Uint32 color = (Uint32)SvUV(ST(4)); int RETVAL; dXSTARG; #line 3855 "SDL_perl.xs" RETVAL = characterColor( dst, x, y, c, color ); #line 9743 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_GFXCharacterRGBA); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_GFXCharacterRGBA) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 8) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::GFXCharacterRGBA", "dst, x, y, c, r, g, b, a"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface* dst = INT2PTR(SDL_Surface *,SvIV(ST(0))); Sint16 x = (Sint16)SvIV(ST(1)); Sint16 y = (Sint16)SvIV(ST(2)); char c = (char)*SvPV_nolen(ST(3)); Uint8 r = (unsigned char)SvUV(ST(4)); Uint8 g = (unsigned char)SvUV(ST(5)); Uint8 b = (unsigned char)SvUV(ST(6)); Uint8 a = (unsigned char)SvUV(ST(7)); int RETVAL; dXSTARG; #line 3870 "SDL_perl.xs" RETVAL = characterRGBA( dst, x, y, c, r, g, b, a ); #line 9774 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_GFXStringColor); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_GFXStringColor) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 5) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::GFXStringColor", "dst, x, y, c, color"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface* dst = INT2PTR(SDL_Surface *,SvIV(ST(0))); Sint16 x = (Sint16)SvIV(ST(1)); Sint16 y = (Sint16)SvIV(ST(2)); char* c = (char *)SvPV_nolen(ST(3)); Uint32 color = (Uint32)SvUV(ST(4)); int RETVAL; dXSTARG; #line 3882 "SDL_perl.xs" RETVAL = stringColor( dst, x, y, c, color ); #line 9802 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_GFXStringRGBA); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_GFXStringRGBA) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 8) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::GFXStringRGBA", "dst, x, y, c, r, g, b, a"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Surface* dst = INT2PTR(SDL_Surface *,SvIV(ST(0))); Sint16 x = (Sint16)SvIV(ST(1)); Sint16 y = (Sint16)SvIV(ST(2)); char* c = (char *)SvPV_nolen(ST(3)); Uint8 r = (unsigned char)SvUV(ST(4)); Uint8 g = (unsigned char)SvUV(ST(5)); Uint8 b = (unsigned char)SvUV(ST(6)); Uint8 a = (unsigned char)SvUV(ST(7)); int RETVAL; dXSTARG; #line 3897 "SDL_perl.xs" RETVAL = stringRGBA( dst, x, y, c, r, g, b, a ); #line 9833 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } #endif #ifdef HAVE_SDL_CONSOLE #define XSubPPtmpAAAH 1 XS(XS_SDL_ConsoleEvents); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_ConsoleEvents) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::ConsoleEvents", "event"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Event* event = INT2PTR(SDL_Event *,SvIV(ST(0))); #line 3909 "SDL_perl.xs" CON_Events(event); #line 9859 "SDL_perl.c" } XSRETURN_EMPTY; } XS(XS_SDL_ConsoleDrawConsole); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_ConsoleDrawConsole) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::ConsoleDrawConsole", "console"); PERL_UNUSED_VAR(cv); /* -W */ { ConsoleInformation* console = INT2PTR(ConsoleInformation *,SvIV(ST(0))); #line 3915 "SDL_perl.xs" CON_DrawConsole(console); #line 9880 "SDL_perl.c" } XSRETURN_EMPTY; } XS(XS_SDL_ConsoleInit); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_ConsoleInit) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 4) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::ConsoleInit", "FontName, DisplayScreen, lines, rect"); PERL_UNUSED_VAR(cv); /* -W */ { char * FontName = (char *)SvPV_nolen(ST(0)); SDL_Surface * DisplayScreen = INT2PTR(SDL_Surface *,SvIV(ST(1))); int lines = (int)SvIV(ST(2)); SDL_Rect* rect = INT2PTR(SDL_Rect *,SvIV(ST(3))); ConsoleInformation * RETVAL; dXSTARG; #line 3925 "SDL_perl.xs" RETVAL=CON_Init(FontName,DisplayScreen,lines,*rect); #line 9906 "SDL_perl.c" XSprePUSH; PUSHi(PTR2IV(RETVAL)); } XSRETURN(1); } XS(XS_SDL_ConsoleDestroy); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_ConsoleDestroy) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::ConsoleDestroy", "console"); PERL_UNUSED_VAR(cv); /* -W */ { ConsoleInformation* console = INT2PTR(ConsoleInformation *,SvIV(ST(0))); #line 3933 "SDL_perl.xs" CON_Destroy(console); #line 9928 "SDL_perl.c" } XSRETURN_EMPTY; } XS(XS_SDL_ConsoleOut); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_ConsoleOut) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items < 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::ConsoleOut", "console, str, ..."); PERL_UNUSED_VAR(cv); /* -W */ { ConsoleInformation* console = INT2PTR(ConsoleInformation *,SvIV(ST(0))); char* str = (char *)SvPV_nolen(ST(1)); #line 3940 "SDL_perl.xs" CON_Out(console,str); #line 9950 "SDL_perl.c" } XSRETURN_EMPTY; } XS(XS_SDL_ConsoleAlpha); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_ConsoleAlpha) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::ConsoleAlpha", "console, alpha"); PERL_UNUSED_VAR(cv); /* -W */ { ConsoleInformation* console = INT2PTR(ConsoleInformation *,SvIV(ST(0))); unsigned char alpha = (unsigned char)SvUV(ST(1)); #line 3947 "SDL_perl.xs" CON_Alpha(console,alpha); #line 9972 "SDL_perl.c" } XSRETURN_EMPTY; } XS(XS_SDL_ConsoleBackground); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_ConsoleBackground) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 4) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::ConsoleBackground", "console, image, x, y"); PERL_UNUSED_VAR(cv); /* -W */ { ConsoleInformation* console = INT2PTR(ConsoleInformation *,SvIV(ST(0))); char* image = (char *)SvPV_nolen(ST(1)); int x = (int)SvIV(ST(2)); int y = (int)SvIV(ST(3)); int RETVAL; dXSTARG; #line 3956 "SDL_perl.xs" RETVAL=CON_Background(console,image,x,y); #line 9998 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_ConsolePosition); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_ConsolePosition) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 3) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::ConsolePosition", "console, x, y"); PERL_UNUSED_VAR(cv); /* -W */ { ConsoleInformation* console = INT2PTR(ConsoleInformation *,SvIV(ST(0))); int x = (int)SvIV(ST(1)); int y = (int)SvIV(ST(2)); #line 3966 "SDL_perl.xs" CON_Position(console, x, y ); #line 10022 "SDL_perl.c" } XSRETURN_EMPTY; } XS(XS_SDL_ConsoleResize); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_ConsoleResize) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::ConsoleResize", "console, rect"); PERL_UNUSED_VAR(cv); /* -W */ { ConsoleInformation* console = INT2PTR(ConsoleInformation *,SvIV(ST(0))); SDL_Rect* rect = INT2PTR(SDL_Rect *,SvIV(ST(1))); int RETVAL; dXSTARG; #line 3973 "SDL_perl.xs" RETVAL=CON_Resize(console,*rect); #line 10046 "SDL_perl.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL_ConsoleNewLineConsole); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_ConsoleNewLineConsole) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::ConsoleNewLineConsole", "console"); PERL_UNUSED_VAR(cv); /* -W */ { ConsoleInformation* console = INT2PTR(ConsoleInformation *,SvIV(ST(0))); #line 3981 "SDL_perl.xs" CON_NewLineConsole(console); #line 10068 "SDL_perl.c" } XSRETURN_EMPTY; } XS(XS_SDL_ConsoleNewLineCommand); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_ConsoleNewLineCommand) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::ConsoleNewLineCommand", "console"); PERL_UNUSED_VAR(cv); /* -W */ { ConsoleInformation* console = INT2PTR(ConsoleInformation *,SvIV(ST(0))); #line 3987 "SDL_perl.xs" CON_NewLineCommand(console); #line 10089 "SDL_perl.c" } XSRETURN_EMPTY; } XS(XS_SDL_ConsoleUpdateConsole); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_ConsoleUpdateConsole) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::ConsoleUpdateConsole", "console"); PERL_UNUSED_VAR(cv); /* -W */ { ConsoleInformation* console = INT2PTR(ConsoleInformation *,SvIV(ST(0))); #line 3993 "SDL_perl.xs" CON_UpdateConsole(console); #line 10110 "SDL_perl.c" } XSRETURN_EMPTY; } XS(XS_SDL_ConsoleTopmost); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_ConsoleTopmost) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::ConsoleTopmost", "console"); PERL_UNUSED_VAR(cv); /* -W */ { ConsoleInformation* console = INT2PTR(ConsoleInformation *,SvIV(ST(0))); #line 3999 "SDL_perl.xs" CON_Topmost(console); #line 10131 "SDL_perl.c" } XSRETURN_EMPTY; } XS(XS_SDL_ConsoleSendFullCommand); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_ConsoleSendFullCommand) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::ConsoleSendFullCommand", "sendOn"); PERL_UNUSED_VAR(cv); /* -W */ { int sendOn = (int)SvIV(ST(0)); #line 4006 "SDL_perl.xs" CON_SendFullCommand(sendOn); #line 10152 "SDL_perl.c" } XSRETURN_EMPTY; } XS(XS_SDL_ConsoleCommandExecute); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_ConsoleCommandExecute) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::ConsoleCommandExecute", "console"); PERL_UNUSED_VAR(cv); /* -W */ { ConsoleInformation* console = INT2PTR(ConsoleInformation *,SvIV(ST(0))); #line 4012 "SDL_perl.xs" CON_CommandExecute(console); #line 10173 "SDL_perl.c" } XSRETURN_EMPTY; } XS(XS_SDL_ConsoleAddCommand); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_ConsoleAddCommand) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::ConsoleAddCommand", "cmd"); PERL_UNUSED_VAR(cv); /* -W */ { char* cmd = (char *)SvPV_nolen(ST(0)); #line 4018 "SDL_perl.xs" CON_AddCommand(sdl_perl_console_callback,cmd); #line 10194 "SDL_perl.c" } XSRETURN_EMPTY; } XS(XS_SDL_ConsoleTabCompletion); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_ConsoleTabCompletion) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::ConsoleTabCompletion", "console"); PERL_UNUSED_VAR(cv); /* -W */ { ConsoleInformation* console = INT2PTR(ConsoleInformation *,SvIV(ST(0))); #line 4024 "SDL_perl.xs" CON_TabCompletion(console); #line 10215 "SDL_perl.c" } XSRETURN_EMPTY; } XS(XS_SDL_ConsoleListCommands); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_ConsoleListCommands) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::ConsoleListCommands", "console"); PERL_UNUSED_VAR(cv); /* -W */ { ConsoleInformation* console = INT2PTR(ConsoleInformation *,SvIV(ST(0))); #line 4030 "SDL_perl.xs" CON_ListCommands(console); #line 10236 "SDL_perl.c" } XSRETURN_EMPTY; } #endif #ifdef HAVE_SDL_SOUND #define XSubPPtmpAAAI 1 XS(XS_SDL_SoundAudioInfoFormat); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_SoundAudioInfoFormat) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::SoundAudioInfoFormat", "audioinfo"); PERL_UNUSED_VAR(cv); /* -W */ { Sound_AudioInfo* audioinfo = INT2PTR(Sound_AudioInfo *,SvIV(ST(0))); Uint16 RETVAL; dXSTARG; #line 4040 "SDL_perl.xs" RETVAL = audioinfo->format; #line 10263 "SDL_perl.c" XSprePUSH; PUSHu((UV)RETVAL); } XSRETURN(1); } XS(XS_SDL_SoundAudioInfoChannels); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_SoundAudioInfoChannels) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::SoundAudioInfoChannels", "audioinfo"); PERL_UNUSED_VAR(cv); /* -W */ { Sound_AudioInfo* audioinfo = INT2PTR(Sound_AudioInfo *,SvIV(ST(0))); Uint8 RETVAL; dXSTARG; #line 4048 "SDL_perl.xs" RETVAL = audioinfo->channels; #line 10287 "SDL_perl.c" XSprePUSH; PUSHu((UV)RETVAL); } XSRETURN(1); } XS(XS_SDL_SoundAudioInforate); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_SoundAudioInforate) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::SoundAudioInforate", "audioinfo"); PERL_UNUSED_VAR(cv); /* -W */ { Sound_AudioInfo* audioinfo = INT2PTR(Sound_AudioInfo *,SvIV(ST(0))); Uint32 RETVAL; dXSTARG; #line 4056 "SDL_perl.xs" RETVAL = audioinfo->rate; #line 10311 "SDL_perl.c" XSprePUSH; PUSHu((UV)RETVAL); } XSRETURN(1); } XS(XS_SDL_SoundDecoderInfoExtensions); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_SoundDecoderInfoExtensions) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::SoundDecoderInfoExtensions", "decoderinfo"); PERL_UNUSED_VAR(cv); /* -W */ { Sound_DecoderInfo* decoderinfo = INT2PTR(Sound_DecoderInfo *,SvIV(ST(0))); AV * RETVAL; #line 4064 "SDL_perl.xs" char **ext; for ( ext = decoderinfo->extensions; *ext != NULL; ext++ ){ av_push(RETVAL,sv_2mortal(newSVpv(*ext,0))); } #line 10337 "SDL_perl.c" ST(0) = newRV((SV*)RETVAL); sv_2mortal(ST(0)); } XSRETURN(1); } XS(XS_SDL_SoundDecoderInfoDescription); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_SoundDecoderInfoDescription) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::SoundDecoderInfoDescription", "decoderinfo"); PERL_UNUSED_VAR(cv); /* -W */ { Sound_DecoderInfo* decoderinfo = INT2PTR(Sound_DecoderInfo *,SvIV(ST(0))); char * RETVAL; dXSTARG; #line 4075 "SDL_perl.xs" RETVAL = decoderinfo->description; #line 10362 "SDL_perl.c" sv_setpv(TARG, RETVAL); XSprePUSH; PUSHTARG; } XSRETURN(1); } XS(XS_SDL_SoundDecoderInfoAuthor); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_SoundDecoderInfoAuthor) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::SoundDecoderInfoAuthor", "decoderinfo"); PERL_UNUSED_VAR(cv); /* -W */ { Sound_DecoderInfo* decoderinfo = INT2PTR(Sound_DecoderInfo *,SvIV(ST(0))); char * RETVAL; dXSTARG; #line 4083 "SDL_perl.xs" RETVAL = decoderinfo->author; #line 10386 "SDL_perl.c" sv_setpv(TARG, RETVAL); XSprePUSH; PUSHTARG; } XSRETURN(1); } XS(XS_SDL_SoundDecoderInfoUrl); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_SoundDecoderInfoUrl) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::SoundDecoderInfoUrl", "decoderinfo"); PERL_UNUSED_VAR(cv); /* -W */ { Sound_DecoderInfo* decoderinfo = INT2PTR(Sound_DecoderInfo *,SvIV(ST(0))); char * RETVAL; dXSTARG; #line 4091 "SDL_perl.xs" RETVAL = decoderinfo->url; #line 10410 "SDL_perl.c" sv_setpv(TARG, RETVAL); XSprePUSH; PUSHTARG; } XSRETURN(1); } XS(XS_SDL_SoundSampleDecoder); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_SoundSampleDecoder) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::SoundSampleDecoder", "sample"); PERL_UNUSED_VAR(cv); /* -W */ { Sound_Sample* sample = INT2PTR(Sound_Sample *,SvIV(ST(0))); const Sound_DecoderInfo * RETVAL; dXSTARG; #line 4099 "SDL_perl.xs" RETVAL = sample->decoder; #line 10434 "SDL_perl.c" XSprePUSH; PUSHi(PTR2IV(RETVAL)); } XSRETURN(1); } XS(XS_SDL_SoundSampleDesired); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_SoundSampleDesired) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::SoundSampleDesired", "sample"); PERL_UNUSED_VAR(cv); /* -W */ { Sound_Sample* sample = INT2PTR(Sound_Sample *,SvIV(ST(0))); Sound_AudioInfo * RETVAL; dXSTARG; #line 4107 "SDL_perl.xs" RETVAL = &sample->desired; #line 10458 "SDL_perl.c" XSprePUSH; PUSHi(PTR2IV(RETVAL)); } XSRETURN(1); } XS(XS_SDL_SoundSampleAcutal); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_SoundSampleAcutal) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::SoundSampleAcutal", "sample"); PERL_UNUSED_VAR(cv); /* -W */ { Sound_Sample* sample = INT2PTR(Sound_Sample *,SvIV(ST(0))); Sound_AudioInfo * RETVAL; dXSTARG; #line 4115 "SDL_perl.xs" RETVAL = &sample->actual; #line 10482 "SDL_perl.c" XSprePUSH; PUSHi(PTR2IV(RETVAL)); } XSRETURN(1); } XS(XS_SDL_SoundSampleBuffer); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_SoundSampleBuffer) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::SoundSampleBuffer", "sample"); PERL_UNUSED_VAR(cv); /* -W */ { Sound_Sample* sample = INT2PTR(Sound_Sample *,SvIV(ST(0))); char * RETVAL; dXSTARG; #line 4123 "SDL_perl.xs" RETVAL = sample->buffer; #line 10506 "SDL_perl.c" sv_setpv(TARG, RETVAL); XSprePUSH; PUSHTARG; } XSRETURN(1); } XS(XS_SDL_SoundSampleBufferSize); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_SoundSampleBufferSize) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::SoundSampleBufferSize", "sample"); PERL_UNUSED_VAR(cv); /* -W */ { Sound_Sample* sample = INT2PTR(Sound_Sample *,SvIV(ST(0))); Uint32 RETVAL; dXSTARG; #line 4131 "SDL_perl.xs" RETVAL = sample->buffer; #line 10530 "SDL_perl.c" XSprePUSH; PUSHu((UV)RETVAL); } XSRETURN(1); } XS(XS_SDL_SoundSampleFlags); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL_SoundSampleFlags) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::SoundSampleFlags", "sample"); PERL_UNUSED_VAR(cv); /* -W */ { Sound_Sample* sample = INT2PTR(Sound_Sample *,SvIV(ST(0))); Uint32 RETVAL; dXSTARG; #line 4139 "SDL_perl.xs" RETVAL = (Uint32)sample->flags; #line 10554 "SDL_perl.c" XSprePUSH; PUSHu((UV)RETVAL); } XSRETURN(1); } #endif #ifdef __cplusplus extern "C" #endif XS(boot_SDL); /* prototype to pass -Wmissing-prototypes */ XS(boot_SDL) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif char* file = __FILE__; PERL_UNUSED_VAR(cv); /* -W */ PERL_UNUSED_VAR(items); /* -W */ XS_VERSION_BOOTCHECK ; newXS("SDL::GetError", XS_SDL_GetError, file); newXS("SDL::Init", XS_SDL_Init, file); newXS("SDL::InitSubSystem", XS_SDL_InitSubSystem, file); newXS("SDL::QuitSubSystem", XS_SDL_QuitSubSystem, file); newXS("SDL::Quit", XS_SDL_Quit, file); newXS("SDL::WasInit", XS_SDL_WasInit, file); newXS("SDL::Delay", XS_SDL_Delay, file); newXS("SDL::GetTicks", XS_SDL_GetTicks, file); newXS("SDL::SetTimer", XS_SDL_SetTimer, file); newXS("SDL::AddTimer", XS_SDL_AddTimer, file); newXS("SDL::PerlTimerCallback", XS_SDL_PerlTimerCallback, file); newXS("SDL::NewTimer", XS_SDL_NewTimer, file); newXS("SDL::RemoveTimer", XS_SDL_RemoveTimer, file); newXS("SDL::CDNumDrives", XS_SDL_CDNumDrives, file); newXS("SDL::CDName", XS_SDL_CDName, file); newXS("SDL::CDOpen", XS_SDL_CDOpen, file); newXS("SDL::CDTrackId", XS_SDL_CDTrackId, file); newXS("SDL::CDTrackType", XS_SDL_CDTrackType, file); newXS("SDL::CDTrackLength", XS_SDL_CDTrackLength, file); newXS("SDL::CDTrackOffset", XS_SDL_CDTrackOffset, file); newXS("SDL::CDStatus", XS_SDL_CDStatus, file); newXS("SDL::CDPlayTracks", XS_SDL_CDPlayTracks, file); newXS("SDL::CDPlay", XS_SDL_CDPlay, file); newXS("SDL::CDPause", XS_SDL_CDPause, file); newXS("SDL::CDResume", XS_SDL_CDResume, file); newXS("SDL::CDStop", XS_SDL_CDStop, file); newXS("SDL::CDEject", XS_SDL_CDEject, file); newXS("SDL::CDClose", XS_SDL_CDClose, file); newXS("SDL::CDId", XS_SDL_CDId, file); newXS("SDL::CDNumTracks", XS_SDL_CDNumTracks, file); newXS("SDL::CDCurTrack", XS_SDL_CDCurTrack, file); newXS("SDL::CDCurFrame", XS_SDL_CDCurFrame, file); newXS("SDL::CDTrack", XS_SDL_CDTrack, file); newXS("SDL::PumpEvents", XS_SDL_PumpEvents, file); newXS("SDL::NewEvent", XS_SDL_NewEvent, file); newXS("SDL::FreeEvent", XS_SDL_FreeEvent, file); newXS("SDL::PollEvent", XS_SDL_PollEvent, file); newXS("SDL::WaitEvent", XS_SDL_WaitEvent, file); newXS("SDL::EventState", XS_SDL_EventState, file); newXS("SDL::EventType", XS_SDL_EventType, file); newXS("SDL::ActiveEventGain", XS_SDL_ActiveEventGain, file); newXS("SDL::ActiveEventState", XS_SDL_ActiveEventState, file); newXS("SDL::KeyEventState", XS_SDL_KeyEventState, file); newXS("SDL::KeyEventSym", XS_SDL_KeyEventSym, file); newXS("SDL::KeyEventMod", XS_SDL_KeyEventMod, file); newXS("SDL::KeyEventUnicode", XS_SDL_KeyEventUnicode, file); newXS("SDL::KeyEventScanCode", XS_SDL_KeyEventScanCode, file); newXS("SDL::MouseMotionState", XS_SDL_MouseMotionState, file); newXS("SDL::MouseMotionX", XS_SDL_MouseMotionX, file); newXS("SDL::MouseMotionY", XS_SDL_MouseMotionY, file); newXS("SDL::MouseMotionXrel", XS_SDL_MouseMotionXrel, file); newXS("SDL::MouseMotionYrel", XS_SDL_MouseMotionYrel, file); newXS("SDL::MouseButtonState", XS_SDL_MouseButtonState, file); newXS("SDL::MouseButton", XS_SDL_MouseButton, file); newXS("SDL::MouseButtonX", XS_SDL_MouseButtonX, file); newXS("SDL::MouseButtonY", XS_SDL_MouseButtonY, file); newXS("SDL::SysWMEventMsg", XS_SDL_SysWMEventMsg, file); newXS("SDL::EnableUnicode", XS_SDL_EnableUnicode, file); newXS("SDL::EnableKeyRepeat", XS_SDL_EnableKeyRepeat, file); newXS("SDL::GetModState", XS_SDL_GetModState, file); newXS("SDL::SetModState", XS_SDL_SetModState, file); newXS("SDL::GetKeyName", XS_SDL_GetKeyName, file); newXS("SDL::CreateRGBSurface", XS_SDL_CreateRGBSurface, file); newXS("SDL::CreateRGBSurfaceFrom", XS_SDL_CreateRGBSurfaceFrom, file); #if XSubPPtmpAAAA newXS("SDL::IMGLoad", XS_SDL_IMGLoad, file); #endif newXS("SDL::SurfaceCopy", XS_SDL_SurfaceCopy, file); newXS("SDL::FreeSurface", XS_SDL_FreeSurface, file); newXS("SDL::SurfaceFlags", XS_SDL_SurfaceFlags, file); newXS("SDL::SurfacePalette", XS_SDL_SurfacePalette, file); newXS("SDL::SurfaceBitsPerPixel", XS_SDL_SurfaceBitsPerPixel, file); newXS("SDL::SurfaceBytesPerPixel", XS_SDL_SurfaceBytesPerPixel, file); newXS("SDL::SurfaceRshift", XS_SDL_SurfaceRshift, file); newXS("SDL::SurfaceGshift", XS_SDL_SurfaceGshift, file); newXS("SDL::SurfaceBshift", XS_SDL_SurfaceBshift, file); newXS("SDL::SurfaceAshift", XS_SDL_SurfaceAshift, file); newXS("SDL::SurfaceRmask", XS_SDL_SurfaceRmask, file); newXS("SDL::SurfaceGmask", XS_SDL_SurfaceGmask, file); newXS("SDL::SurfaceBmask", XS_SDL_SurfaceBmask, file); newXS("SDL::SurfaceAmask", XS_SDL_SurfaceAmask, file); newXS("SDL::SurfaceColorKey", XS_SDL_SurfaceColorKey, file); newXS("SDL::SurfaceAlpha", XS_SDL_SurfaceAlpha, file); newXS("SDL::SurfaceW", XS_SDL_SurfaceW, file); newXS("SDL::SurfaceH", XS_SDL_SurfaceH, file); newXS("SDL::SurfacePitch", XS_SDL_SurfacePitch, file); newXS("SDL::SurfacePixels", XS_SDL_SurfacePixels, file); newXS("SDL::SurfacePixel", XS_SDL_SurfacePixel, file); newXS("SDL::MUSTLOCK", XS_SDL_MUSTLOCK, file); newXS("SDL::SurfaceLock", XS_SDL_SurfaceLock, file); newXS("SDL::SurfaceUnlock", XS_SDL_SurfaceUnlock, file); newXS("SDL::GetVideoSurface", XS_SDL_GetVideoSurface, file); newXS("SDL::VideoInfo", XS_SDL_VideoInfo, file); newXS("SDL::NewRect", XS_SDL_NewRect, file); newXS("SDL::FreeRect", XS_SDL_FreeRect, file); newXS("SDL::RectX", XS_SDL_RectX, file); newXS("SDL::RectY", XS_SDL_RectY, file); newXS("SDL::RectW", XS_SDL_RectW, file); newXS("SDL::RectH", XS_SDL_RectH, file); newXS("SDL::ListModes", XS_SDL_ListModes, file); newXS("SDL::NewColor", XS_SDL_NewColor, file); newXS("SDL::ColorR", XS_SDL_ColorR, file); newXS("SDL::ColorG", XS_SDL_ColorG, file); newXS("SDL::ColorB", XS_SDL_ColorB, file); newXS("SDL::FreeColor", XS_SDL_FreeColor, file); newXS("SDL::NewPalette", XS_SDL_NewPalette, file); newXS("SDL::PaletteNColors", XS_SDL_PaletteNColors, file); newXS("SDL::PaletteColors", XS_SDL_PaletteColors, file); newXS("SDL::VideoModeOK", XS_SDL_VideoModeOK, file); newXS("SDL::SetVideoMode", XS_SDL_SetVideoMode, file); newXS("SDL::UpdateRect", XS_SDL_UpdateRect, file); newXS("SDL::UpdateRects", XS_SDL_UpdateRects, file); newXS("SDL::Flip", XS_SDL_Flip, file); newXS("SDL::SetColors", XS_SDL_SetColors, file); newXS("SDL::MapRGB", XS_SDL_MapRGB, file); newXS("SDL::MapRGBA", XS_SDL_MapRGBA, file); newXS("SDL::GetRGB", XS_SDL_GetRGB, file); newXS("SDL::GetRGBA", XS_SDL_GetRGBA, file); newXS("SDL::SaveBMP", XS_SDL_SaveBMP, file); newXS("SDL::SetColorKey", XS_SDL_SetColorKey, file); newXS("SDL::SetAlpha", XS_SDL_SetAlpha, file); newXS("SDL::DisplayFormat", XS_SDL_DisplayFormat, file); newXS("SDL::DisplayFormatAlpha", XS_SDL_DisplayFormatAlpha, file); newXS("SDL::ConvertRGB", XS_SDL_ConvertRGB, file); newXS("SDL::ConvertRGBA", XS_SDL_ConvertRGBA, file); newXS("SDL::BlitSurface", XS_SDL_BlitSurface, file); newXS("SDL::FillRect", XS_SDL_FillRect, file); newXS("SDL::WMSetCaption", XS_SDL_WMSetCaption, file); newXS("SDL::WMGetCaption", XS_SDL_WMGetCaption, file); newXS("SDL::WMSetIcon", XS_SDL_WMSetIcon, file); newXS("SDL::WarpMouse", XS_SDL_WarpMouse, file); newXS("SDL::NewCursor", XS_SDL_NewCursor, file); newXS("SDL::FreeCursor", XS_SDL_FreeCursor, file); newXS("SDL::SetCursor", XS_SDL_SetCursor, file); newXS("SDL::GetCursor", XS_SDL_GetCursor, file); newXS("SDL::ShowCursor", XS_SDL_ShowCursor, file); newXS("SDL::NewAudioSpec", XS_SDL_NewAudioSpec, file); newXS("SDL::FreeAudioSpec", XS_SDL_FreeAudioSpec, file); newXS("SDL::NewAudioCVT", XS_SDL_NewAudioCVT, file); newXS("SDL::FreeAudioCVT", XS_SDL_FreeAudioCVT, file); newXS("SDL::ConvertAudioData", XS_SDL_ConvertAudioData, file); newXS("SDL::OpenAudio", XS_SDL_OpenAudio, file); newXS("SDL::GetAudioStatus", XS_SDL_GetAudioStatus, file); newXS("SDL::PauseAudio", XS_SDL_PauseAudio, file); newXS("SDL::LockAudio", XS_SDL_LockAudio, file); newXS("SDL::UnlockAudio", XS_SDL_UnlockAudio, file); newXS("SDL::CloseAudio", XS_SDL_CloseAudio, file); newXS("SDL::FreeWAV", XS_SDL_FreeWAV, file); newXS("SDL::LoadWAV", XS_SDL_LoadWAV, file); #if XSubPPtmpAAAB newXS("SDL::MixAudio", XS_SDL_MixAudio, file); newXS("SDL::MixOpenAudio", XS_SDL_MixOpenAudio, file); newXS("SDL::MixAllocateChannels", XS_SDL_MixAllocateChannels, file); newXS("SDL::MixQuerySpec", XS_SDL_MixQuerySpec, file); newXS("SDL::MixLoadWAV", XS_SDL_MixLoadWAV, file); newXS("SDL::MixLoadMusic", XS_SDL_MixLoadMusic, file); newXS("SDL::MixQuickLoadWAV", XS_SDL_MixQuickLoadWAV, file); newXS("SDL::MixFreeChunk", XS_SDL_MixFreeChunk, file); newXS("SDL::MixFreeMusic", XS_SDL_MixFreeMusic, file); newXS("SDL::MixSetPostMixCallback", XS_SDL_MixSetPostMixCallback, file); newXS("SDL::PerlMixMusicHook", XS_SDL_PerlMixMusicHook, file); newXS("SDL::MixSetMusicHook", XS_SDL_MixSetMusicHook, file); newXS("SDL::MixSetMusicFinishedHook", XS_SDL_MixSetMusicFinishedHook, file); newXS("SDL::MixGetMusicHookData", XS_SDL_MixGetMusicHookData, file); newXS("SDL::MixReverseChannels", XS_SDL_MixReverseChannels, file); newXS("SDL::MixGroupChannel", XS_SDL_MixGroupChannel, file); newXS("SDL::MixGroupChannels", XS_SDL_MixGroupChannels, file); newXS("SDL::MixGroupAvailable", XS_SDL_MixGroupAvailable, file); newXS("SDL::MixGroupCount", XS_SDL_MixGroupCount, file); newXS("SDL::MixGroupOldest", XS_SDL_MixGroupOldest, file); newXS("SDL::MixGroupNewer", XS_SDL_MixGroupNewer, file); newXS("SDL::MixPlayChannel", XS_SDL_MixPlayChannel, file); newXS("SDL::MixPlayChannelTimed", XS_SDL_MixPlayChannelTimed, file); newXS("SDL::MixPlayMusic", XS_SDL_MixPlayMusic, file); newXS("SDL::MixFadeInChannel", XS_SDL_MixFadeInChannel, file); newXS("SDL::MixFadeInChannelTimed", XS_SDL_MixFadeInChannelTimed, file); newXS("SDL::MixFadeInMusic", XS_SDL_MixFadeInMusic, file); newXS("SDL::MixVolume", XS_SDL_MixVolume, file); newXS("SDL::MixVolumeChunk", XS_SDL_MixVolumeChunk, file); newXS("SDL::MixVolumeMusic", XS_SDL_MixVolumeMusic, file); newXS("SDL::MixHaltChannel", XS_SDL_MixHaltChannel, file); newXS("SDL::MixHaltGroup", XS_SDL_MixHaltGroup, file); newXS("SDL::MixHaltMusic", XS_SDL_MixHaltMusic, file); newXS("SDL::MixExpireChannel", XS_SDL_MixExpireChannel, file); newXS("SDL::MixFadeOutChannel", XS_SDL_MixFadeOutChannel, file); newXS("SDL::MixFadeOutGroup", XS_SDL_MixFadeOutGroup, file); newXS("SDL::MixFadeOutMusic", XS_SDL_MixFadeOutMusic, file); newXS("SDL::MixFadingMusic", XS_SDL_MixFadingMusic, file); newXS("SDL::MixFadingChannel", XS_SDL_MixFadingChannel, file); newXS("SDL::MixPause", XS_SDL_MixPause, file); newXS("SDL::MixResume", XS_SDL_MixResume, file); newXS("SDL::MixPaused", XS_SDL_MixPaused, file); newXS("SDL::MixPauseMusic", XS_SDL_MixPauseMusic, file); newXS("SDL::MixResumeMusic", XS_SDL_MixResumeMusic, file); newXS("SDL::MixRewindMusic", XS_SDL_MixRewindMusic, file); newXS("SDL::MixPausedMusic", XS_SDL_MixPausedMusic, file); newXS("SDL::MixPlaying", XS_SDL_MixPlaying, file); newXS("SDL::MixPlayingMusic", XS_SDL_MixPlayingMusic, file); newXS("SDL::MixCloseAudio", XS_SDL_MixCloseAudio, file); #endif #if XSubPPtmpAAAC newXS("SDL::NewFont", XS_SDL_NewFont, file); newXS("SDL::UseFont", XS_SDL_UseFont, file); newXS("SDL::PutString", XS_SDL_PutString, file); newXS("SDL::TextWidth", XS_SDL_TextWidth, file); #endif newXS("SDL::GLLoadLibrary", XS_SDL_GLLoadLibrary, file); newXS("SDL::GLGetProcAddress", XS_SDL_GLGetProcAddress, file); newXS("SDL::GLSetAttribute", XS_SDL_GLSetAttribute, file); newXS("SDL::GLGetAttribute", XS_SDL_GLGetAttribute, file); newXS("SDL::GLSwapBuffers", XS_SDL_GLSwapBuffers, file); newXS("SDL::BigEndian", XS_SDL_BigEndian, file); newXS("SDL::NumJoysticks", XS_SDL_NumJoysticks, file); newXS("SDL::JoystickName", XS_SDL_JoystickName, file); newXS("SDL::JoystickOpen", XS_SDL_JoystickOpen, file); newXS("SDL::JoystickOpened", XS_SDL_JoystickOpened, file); newXS("SDL::JoystickIndex", XS_SDL_JoystickIndex, file); newXS("SDL::JoystickNumAxes", XS_SDL_JoystickNumAxes, file); newXS("SDL::JoystickNumBalls", XS_SDL_JoystickNumBalls, file); newXS("SDL::JoystickNumHats", XS_SDL_JoystickNumHats, file); newXS("SDL::JoystickNumButtons", XS_SDL_JoystickNumButtons, file); newXS("SDL::JoystickUpdate", XS_SDL_JoystickUpdate, file); newXS("SDL::JoystickGetAxis", XS_SDL_JoystickGetAxis, file); newXS("SDL::JoystickGetHat", XS_SDL_JoystickGetHat, file); newXS("SDL::JoystickGetButton", XS_SDL_JoystickGetButton, file); newXS("SDL::JoystickGetBall", XS_SDL_JoystickGetBall, file); newXS("SDL::JoystickClose", XS_SDL_JoystickClose, file); newXS("SDL::JoyAxisEventWhich", XS_SDL_JoyAxisEventWhich, file); newXS("SDL::JoyAxisEventAxis", XS_SDL_JoyAxisEventAxis, file); newXS("SDL::JoyAxisEventValue", XS_SDL_JoyAxisEventValue, file); newXS("SDL::JoyButtonEventWhich", XS_SDL_JoyButtonEventWhich, file); newXS("SDL::JoyButtonEventButton", XS_SDL_JoyButtonEventButton, file); newXS("SDL::JoyButtonEventState", XS_SDL_JoyButtonEventState, file); newXS("SDL::JoyHatEventWhich", XS_SDL_JoyHatEventWhich, file); newXS("SDL::JoyHatEventHat", XS_SDL_JoyHatEventHat, file); newXS("SDL::JoyHatEventValue", XS_SDL_JoyHatEventValue, file); newXS("SDL::JoyBallEventWhich", XS_SDL_JoyBallEventWhich, file); newXS("SDL::JoyBallEventBall", XS_SDL_JoyBallEventBall, file); newXS("SDL::JoyBallEventXrel", XS_SDL_JoyBallEventXrel, file); newXS("SDL::JoyBallEventYrel", XS_SDL_JoyBallEventYrel, file); newXS("SDL::SetClipRect", XS_SDL_SetClipRect, file); newXS("SDL::GetClipRect", XS_SDL_GetClipRect, file); #if XSubPPtmpAAAD newXS("SDL::NetInit", XS_SDL_NetInit, file); newXS("SDL::NetQuit", XS_SDL_NetQuit, file); newXS("SDL::NetNewIPaddress", XS_SDL_NetNewIPaddress, file); newXS("SDL::NetIPaddressHost", XS_SDL_NetIPaddressHost, file); newXS("SDL::NetIPaddressPort", XS_SDL_NetIPaddressPort, file); newXS("SDL::NetFreeIPaddress", XS_SDL_NetFreeIPaddress, file); newXS("SDL::NetResolveIP", XS_SDL_NetResolveIP, file); newXS("SDL::NetResolveHost", XS_SDL_NetResolveHost, file); newXS("SDL::NetTCPOpen", XS_SDL_NetTCPOpen, file); newXS("SDL::NetTCPAccept", XS_SDL_NetTCPAccept, file); newXS("SDL::NetTCPGetPeerAddress", XS_SDL_NetTCPGetPeerAddress, file); newXS("SDL::NetTCPSend", XS_SDL_NetTCPSend, file); newXS("SDL::NetTCPRecv", XS_SDL_NetTCPRecv, file); newXS("SDL::NetTCPClose", XS_SDL_NetTCPClose, file); newXS("SDL::NetAllocPacket", XS_SDL_NetAllocPacket, file); newXS("SDL::NetAllocPacketV", XS_SDL_NetAllocPacketV, file); newXS("SDL::NetResizePacket", XS_SDL_NetResizePacket, file); newXS("SDL::NetFreePacket", XS_SDL_NetFreePacket, file); newXS("SDL::NetFreePacketV", XS_SDL_NetFreePacketV, file); newXS("SDL::NetUDPOpen", XS_SDL_NetUDPOpen, file); newXS("SDL::NetUDPBind", XS_SDL_NetUDPBind, file); newXS("SDL::NetUDPUnbind", XS_SDL_NetUDPUnbind, file); newXS("SDL::NetUDPGetPeerAddress", XS_SDL_NetUDPGetPeerAddress, file); newXS("SDL::NetUDPSendV", XS_SDL_NetUDPSendV, file); newXS("SDL::NetUDPSend", XS_SDL_NetUDPSend, file); newXS("SDL::NetUDPRecvV", XS_SDL_NetUDPRecvV, file); newXS("SDL::NetUDPRecv", XS_SDL_NetUDPRecv, file); newXS("SDL::NetUDPClose", XS_SDL_NetUDPClose, file); newXS("SDL::NetAllocSocketSet", XS_SDL_NetAllocSocketSet, file); newXS("SDL::NetTCP_AddSocket", XS_SDL_NetTCP_AddSocket, file); newXS("SDL::NetUDP_AddSocket", XS_SDL_NetUDP_AddSocket, file); newXS("SDL::NetTCP_DelSocket", XS_SDL_NetTCP_DelSocket, file); newXS("SDL::NetUDP_DelSocket", XS_SDL_NetUDP_DelSocket, file); newXS("SDL::NetCheckSockets", XS_SDL_NetCheckSockets, file); newXS("SDL::NetSocketReady", XS_SDL_NetSocketReady, file); newXS("SDL::NetFreeSocketSet", XS_SDL_NetFreeSocketSet, file); newXS("SDL::NetWrite16", XS_SDL_NetWrite16, file); newXS("SDL::NetWrite32", XS_SDL_NetWrite32, file); newXS("SDL::NetRead16", XS_SDL_NetRead16, file); newXS("SDL::NetRead32", XS_SDL_NetRead32, file); #endif #if XSubPPtmpAAAE newXS("SDL::TTFInit", XS_SDL_TTFInit, file); newXS("SDL::TTFQuit", XS_SDL_TTFQuit, file); newXS("SDL::TTFOpenFont", XS_SDL_TTFOpenFont, file); newXS("SDL::TTFGetFontStyle", XS_SDL_TTFGetFontStyle, file); newXS("SDL::TTFSetFontStyle", XS_SDL_TTFSetFontStyle, file); newXS("SDL::TTFFontHeight", XS_SDL_TTFFontHeight, file); newXS("SDL::TTFFontAscent", XS_SDL_TTFFontAscent, file); newXS("SDL::TTFFontDescent", XS_SDL_TTFFontDescent, file); newXS("SDL::TTFFontLineSkip", XS_SDL_TTFFontLineSkip, file); newXS("SDL::TTFGlyphMetrics", XS_SDL_TTFGlyphMetrics, file); newXS("SDL::TTFSizeText", XS_SDL_TTFSizeText, file); newXS("SDL::TTFSizeUTF8", XS_SDL_TTFSizeUTF8, file); newXS("SDL::TTFSizeUNICODE", XS_SDL_TTFSizeUNICODE, file); newXS("SDL::TTFRenderTextSolid", XS_SDL_TTFRenderTextSolid, file); newXS("SDL::TTFRenderUTF8Solid", XS_SDL_TTFRenderUTF8Solid, file); newXS("SDL::TTFRenderUNICODESolid", XS_SDL_TTFRenderUNICODESolid, file); newXS("SDL::TTFRenderGlyphSolid", XS_SDL_TTFRenderGlyphSolid, file); newXS("SDL::TTFRenderTextShaded", XS_SDL_TTFRenderTextShaded, file); newXS("SDL::TTFRenderUTF8Shaded", XS_SDL_TTFRenderUTF8Shaded, file); newXS("SDL::TTFRenderUNICODEShaded", XS_SDL_TTFRenderUNICODEShaded, file); newXS("SDL::TTFRenderGlyphShaded", XS_SDL_TTFRenderGlyphShaded, file); newXS("SDL::TTFRenderTextBlended", XS_SDL_TTFRenderTextBlended, file); newXS("SDL::TTFRenderUTF8Blended", XS_SDL_TTFRenderUTF8Blended, file); newXS("SDL::TTFRenderUNICODEBlended", XS_SDL_TTFRenderUNICODEBlended, file); newXS("SDL::TTFRenderGlyphBlended", XS_SDL_TTFRenderGlyphBlended, file); newXS("SDL::TTFCloseFont", XS_SDL_TTFCloseFont, file); newXS("SDL::TTFPutString", XS_SDL_TTFPutString, file); #endif newXS("SDL::CreateYUVOverlay", XS_SDL_CreateYUVOverlay, file); newXS("SDL::LockYUVOverlay", XS_SDL_LockYUVOverlay, file); newXS("SDL::UnlockYUVOverlay", XS_SDL_UnlockYUVOverlay, file); newXS("SDL::DisplayYUVOverlay", XS_SDL_DisplayYUVOverlay, file); newXS("SDL::FreeYUVOverlay", XS_SDL_FreeYUVOverlay, file); newXS("SDL::OverlayFormat", XS_SDL_OverlayFormat, file); newXS("SDL::OverlayW", XS_SDL_OverlayW, file); newXS("SDL::OverlayH", XS_SDL_OverlayH, file); newXS("SDL::OverlayPlanes", XS_SDL_OverlayPlanes, file); newXS("SDL::OverlayHW", XS_SDL_OverlayHW, file); newXS("SDL::OverlayPitches", XS_SDL_OverlayPitches, file); newXS("SDL::OverlayPixels", XS_SDL_OverlayPixels, file); newXS("SDL::WMToggleFullScreen", XS_SDL_WMToggleFullScreen, file); newXS("SDL::WMGrabInput", XS_SDL_WMGrabInput, file); newXS("SDL::WMIconifyWindow", XS_SDL_WMIconifyWindow, file); newXS("SDL::ResizeEventW", XS_SDL_ResizeEventW, file); newXS("SDL::ResizeEventH", XS_SDL_ResizeEventH, file); newXS("SDL::AudioDriverName", XS_SDL_AudioDriverName, file); newXS("SDL::GetKeyState", XS_SDL_GetKeyState, file); #if XSubPPtmpAAAF newXS("SDL::NewSMPEGInfo", XS_SDL_NewSMPEGInfo, file); newXS("SDL::FreeSMPEGInfo", XS_SDL_FreeSMPEGInfo, file); newXS("SDL::SMPEGError", XS_SDL_SMPEGError, file); newXS("SDL::NewSMPEG", XS_SDL_NewSMPEG, file); newXS("SDL::FreeSMPEG", XS_SDL_FreeSMPEG, file); newXS("SDL::SMPEGEnableAudio", XS_SDL_SMPEGEnableAudio, file); newXS("SDL::SMPEGEnableVideo", XS_SDL_SMPEGEnableVideo, file); newXS("SDL::SMPEGSetVolume", XS_SDL_SMPEGSetVolume, file); newXS("SDL::SMPEGSetDisplay", XS_SDL_SMPEGSetDisplay, file); newXS("SDL::SMPEGScaleXY", XS_SDL_SMPEGScaleXY, file); newXS("SDL::SMPEGPlay", XS_SDL_SMPEGPlay, file); newXS("SDL::SMPEGStatus", XS_SDL_SMPEGStatus, file); newXS("SDL::SMPEGPause", XS_SDL_SMPEGPause, file); #endif #if XSubPPtmpAAAG newXS("SDL::GFXRotoZoom", XS_SDL_GFXRotoZoom, file); newXS("SDL::GFXZoom", XS_SDL_GFXZoom, file); newXS("SDL::GFXPixelColor", XS_SDL_GFXPixelColor, file); newXS("SDL::GFXPixelRGBA", XS_SDL_GFXPixelRGBA, file); newXS("SDL::GFXHlineColor", XS_SDL_GFXHlineColor, file); newXS("SDL::GFXHlineRGBA", XS_SDL_GFXHlineRGBA, file); newXS("SDL::GFXVlineColor", XS_SDL_GFXVlineColor, file); newXS("SDL::GFXVlineRGBA", XS_SDL_GFXVlineRGBA, file); newXS("SDL::GFXRectangleColor", XS_SDL_GFXRectangleColor, file); newXS("SDL::GFXRectangleRGBA", XS_SDL_GFXRectangleRGBA, file); newXS("SDL::GFXBoxColor", XS_SDL_GFXBoxColor, file); newXS("SDL::GFXBoxRGBA", XS_SDL_GFXBoxRGBA, file); newXS("SDL::GFXLineColor", XS_SDL_GFXLineColor, file); newXS("SDL::GFXLineRGBA", XS_SDL_GFXLineRGBA, file); newXS("SDL::GFXAalineColor", XS_SDL_GFXAalineColor, file); newXS("SDL::GFXAalineRGBA", XS_SDL_GFXAalineRGBA, file); newXS("SDL::GFXCircleColor", XS_SDL_GFXCircleColor, file); newXS("SDL::GFXCircleRGBA", XS_SDL_GFXCircleRGBA, file); newXS("SDL::GFXAacircleColor", XS_SDL_GFXAacircleColor, file); newXS("SDL::GFXAacircleRGBA", XS_SDL_GFXAacircleRGBA, file); newXS("SDL::GFXFilledCircleColor", XS_SDL_GFXFilledCircleColor, file); newXS("SDL::GFXFilledCircleRGBA", XS_SDL_GFXFilledCircleRGBA, file); newXS("SDL::GFXEllipseColor", XS_SDL_GFXEllipseColor, file); newXS("SDL::GFXEllipseRGBA", XS_SDL_GFXEllipseRGBA, file); newXS("SDL::GFXAaellipseColor", XS_SDL_GFXAaellipseColor, file); newXS("SDL::GFXAaellipseRGBA", XS_SDL_GFXAaellipseRGBA, file); newXS("SDL::GFXFilledEllipseColor", XS_SDL_GFXFilledEllipseColor, file); newXS("SDL::GFXFilledEllipseRGBA", XS_SDL_GFXFilledEllipseRGBA, file); newXS("SDL::GFXFilledpieColor", XS_SDL_GFXFilledpieColor, file); newXS("SDL::GFXFilledpieRGBA", XS_SDL_GFXFilledpieRGBA, file); newXS("SDL::GFXPolygonColor", XS_SDL_GFXPolygonColor, file); newXS("SDL::GFXPolygonRGBA", XS_SDL_GFXPolygonRGBA, file); newXS("SDL::GFXAapolygonColor", XS_SDL_GFXAapolygonColor, file); newXS("SDL::GFXAapolygonRGBA", XS_SDL_GFXAapolygonRGBA, file); newXS("SDL::GFXFilledPolygonColor", XS_SDL_GFXFilledPolygonColor, file); newXS("SDL::GFXFilledPolygonRGBA", XS_SDL_GFXFilledPolygonRGBA, file); newXS("SDL::GFXCharacterColor", XS_SDL_GFXCharacterColor, file); newXS("SDL::GFXCharacterRGBA", XS_SDL_GFXCharacterRGBA, file); newXS("SDL::GFXStringColor", XS_SDL_GFXStringColor, file); newXS("SDL::GFXStringRGBA", XS_SDL_GFXStringRGBA, file); #endif #if XSubPPtmpAAAH newXS("SDL::ConsoleEvents", XS_SDL_ConsoleEvents, file); newXS("SDL::ConsoleDrawConsole", XS_SDL_ConsoleDrawConsole, file); newXS("SDL::ConsoleInit", XS_SDL_ConsoleInit, file); newXS("SDL::ConsoleDestroy", XS_SDL_ConsoleDestroy, file); newXS("SDL::ConsoleOut", XS_SDL_ConsoleOut, file); newXS("SDL::ConsoleAlpha", XS_SDL_ConsoleAlpha, file); newXS("SDL::ConsoleBackground", XS_SDL_ConsoleBackground, file); newXS("SDL::ConsolePosition", XS_SDL_ConsolePosition, file); newXS("SDL::ConsoleResize", XS_SDL_ConsoleResize, file); newXS("SDL::ConsoleNewLineConsole", XS_SDL_ConsoleNewLineConsole, file); newXS("SDL::ConsoleNewLineCommand", XS_SDL_ConsoleNewLineCommand, file); newXS("SDL::ConsoleUpdateConsole", XS_SDL_ConsoleUpdateConsole, file); newXS("SDL::ConsoleTopmost", XS_SDL_ConsoleTopmost, file); newXS("SDL::ConsoleSendFullCommand", XS_SDL_ConsoleSendFullCommand, file); newXS("SDL::ConsoleCommandExecute", XS_SDL_ConsoleCommandExecute, file); newXS("SDL::ConsoleAddCommand", XS_SDL_ConsoleAddCommand, file); newXS("SDL::ConsoleTabCompletion", XS_SDL_ConsoleTabCompletion, file); newXS("SDL::ConsoleListCommands", XS_SDL_ConsoleListCommands, file); #endif #if XSubPPtmpAAAI newXS("SDL::SoundAudioInfoFormat", XS_SDL_SoundAudioInfoFormat, file); newXS("SDL::SoundAudioInfoChannels", XS_SDL_SoundAudioInfoChannels, file); newXS("SDL::SoundAudioInforate", XS_SDL_SoundAudioInforate, file); newXS("SDL::SoundDecoderInfoExtensions", XS_SDL_SoundDecoderInfoExtensions, file); newXS("SDL::SoundDecoderInfoDescription", XS_SDL_SoundDecoderInfoDescription, file); newXS("SDL::SoundDecoderInfoAuthor", XS_SDL_SoundDecoderInfoAuthor, file); newXS("SDL::SoundDecoderInfoUrl", XS_SDL_SoundDecoderInfoUrl, file); newXS("SDL::SoundSampleDecoder", XS_SDL_SoundSampleDecoder, file); newXS("SDL::SoundSampleDesired", XS_SDL_SoundSampleDesired, file); newXS("SDL::SoundSampleAcutal", XS_SDL_SoundSampleAcutal, file); newXS("SDL::SoundSampleBuffer", XS_SDL_SoundSampleBuffer, file); newXS("SDL::SoundSampleBufferSize", XS_SDL_SoundSampleBufferSize, file); newXS("SDL::SoundSampleFlags", XS_SDL_SoundSampleFlags, file); #endif /* Initialisation Section */ #if XSubPPtmpAAAA #endif #if XSubPPtmpAAAB #endif #if XSubPPtmpAAAC #endif #if XSubPPtmpAAAD #endif #if XSubPPtmpAAAE #endif #if XSubPPtmpAAAF #endif #if XSubPPtmpAAAG #endif #if XSubPPtmpAAAH #endif #if XSubPPtmpAAAI #endif #line 11023 "SDL_perl.c" /* End of Initialisation Section */ XSRETURN_YES; }