/* * This file was generated automatically by ExtUtils::ParseXS version 2.18 from the * contents of OpenGL.xs. Do not edit this file, edit OpenGL.xs instead. * * ANY CHANGES MADE HERE WILL BE LOST! * */ #line 1 "OpenGL.xs" // SDL::OpenGL // // #include "EXTERN.h" #include "perl.h" #include "XSUB.h" #ifndef aTHX_ #define aTHX_ #endif #include #ifdef WIN32 #ifdef HAVE_GL #include #endif #ifdef HAVE_GLU #include #endif #else #ifdef HAVE_GL #include #endif #ifdef HAVE_GLU #include #endif #endif #ifdef WIN32 #define HAVE_TLS_CONTEXT #endif #ifndef GL_ALL_CLIENT_ATTRIB_BITS #define GL_ALL_CLIENT_ATTRIB_BITS 0xFFFFFFF #endif /* GL_ALL_CLIENT_BITS */ #include "defines.h" SV* sdl_perl_nurbs_error_hook; void sdl_perl_nurbs_error_callback ( GLenum errorCode ) { ENTER_TLS_CONTEXT dSP; ENTER; SAVETMPS; PUSHMARK(SP); XPUSHs(sv_2mortal(newSViv(errorCode))); PUTBACK; call_sv(sdl_perl_nurbs_error_hook,G_VOID); FREETMPS; LEAVE; LEAVE_TLS_CONTEXT } void sdl_perl_nurbs_being_callback ( GLenum type, void *cb ) { SV *cmd; ENTER_TLS_CONTEXT dSP; cmd = (SV*)cb; ENTER; SAVETMPS; PUSHMARK(SP); XPUSHs(sv_2mortal(newSViv(type))); PUTBACK; call_sv(cmd,G_VOID); FREETMPS; LEAVE; LEAVE_TLS_CONTEXT } void sdl_perl_nurbs_multi_callback ( GLfloat *vec, void *cb ) { SV *cmd; ENTER_TLS_CONTEXT dSP; cmd = (SV*)cb; ENTER; SAVETMPS; PUSHMARK(SP); XPUSHs(sv_2mortal(newSViv(PTR2IV(vec)))); PUTBACK; call_sv(cmd,G_VOID); FREETMPS; LEAVE; LEAVE_TLS_CONTEXT } void sdl_perl_nurbs_end_callback ( void *cb ) { SV *cmd; ENTER_TLS_CONTEXT cmd = (SV*)cb; ENTER; SAVETMPS; call_sv(cmd,G_VOID); FREETMPS; LEAVE; LEAVE_TLS_CONTEXT } void sdl_perl_tess_end_callback ( void *cb ) { SV *cmd; ENTER_TLS_CONTEXT dSP; cmd = (SV*)cb; ENTER; SAVETMPS; PUSHMARK(SP); XPUSHs(sv_2mortal(newSViv(GLU_TESS_BEGIN))); PUTBACK; call_sv(cmd,G_VOID); FREETMPS; LEAVE; LEAVE_TLS_CONTEXT } void sdl_perl_tess_begin_callback ( GLenum type, void *cb ) { SV *cmd; ENTER_TLS_CONTEXT dSP; cmd = (SV*)cb; ENTER; SAVETMPS; PUSHMARK(SP); XPUSHs(sv_2mortal(newSViv(GLU_TESS_BEGIN))); XPUSHs(sv_2mortal(newSViv(type))); PUTBACK; call_sv(cmd,G_VOID); FREETMPS; LEAVE; LEAVE_TLS_CONTEXT } void sdl_perl_tess_error_callback ( GLenum type, void *cb ) { SV *cmd; ENTER_TLS_CONTEXT dSP; cmd = (SV*)cb; ENTER; SAVETMPS; PUSHMARK(SP); XPUSHs(sv_2mortal(newSViv(GLU_TESS_ERROR))); XPUSHs(sv_2mortal(newSViv(type))); PUTBACK; call_sv(cmd,G_VOID); FREETMPS; LEAVE; LEAVE_TLS_CONTEXT } void sdl_perl_tess_edge_flag_callback ( GLenum flag, void *cb ) { SV *cmd; ENTER_TLS_CONTEXT dSP; cmd = (SV*)cb; ENTER; SAVETMPS; PUSHMARK(SP); XPUSHs(sv_2mortal(newSViv(GLU_TESS_EDGE_FLAG))); XPUSHs(sv_2mortal(newSViv(flag))); PUTBACK; call_sv(cmd,G_VOID); FREETMPS; LEAVE; LEAVE_TLS_CONTEXT } void sdl_perl_tess_vertex_callback ( double *vd, void *cb ) { SV *cmd; ENTER_TLS_CONTEXT dSP; cmd = (SV*)cb; ENTER; SAVETMPS; PUSHMARK(SP); XPUSHs(sv_2mortal(newSViv(GLU_TESS_VERTEX))); XPUSHs(sv_2mortal(newSVnv(vd[0]))); XPUSHs(sv_2mortal(newSVnv(vd[1]))); XPUSHs(sv_2mortal(newSVnv(vd[2]))); XPUSHs(sv_2mortal(newSVnv(vd[3]))); XPUSHs(sv_2mortal(newSVnv(vd[4]))); XPUSHs(sv_2mortal(newSVnv(vd[5]))); PUTBACK; call_sv(cmd,G_VOID); FREETMPS; LEAVE; LEAVE_TLS_CONTEXT } void sdl_perl_tess_combine_callback ( GLdouble coords[3], double *vd[4], GLfloat weight[4], GLdouble **out, void *cb ) { SV *cmd; double *data; int width; ENTER_TLS_CONTEXT dSP; cmd = (SV*)cb; ENTER; SAVETMPS; PUSHMARK(SP); XPUSHs(sv_2mortal(newSViv(GLU_TESS_COMBINE))); XPUSHs(sv_2mortal(newSVpvn((char*)coords,sizeof(GLdouble)*3))); XPUSHs(sv_2mortal(newSVpvn((char*)vd,sizeof(GLdouble*)*4))); XPUSHs(sv_2mortal(newSVpvn((char*)weight,sizeof(GLfloat)*4))); PUTBACK; if ( 1 != call_sv(cmd,G_SCALAR) ) { Perl_croak(aTHX_ "sdl_perl_tess_combine_callback failed"); } data = (double*)POPp; width = (int)POPi; *out = (double*)malloc(sizeof(double)*width); memcpy(*out,data,sizeof(double)*width); FREETMPS; LEAVE; LEAVE_TLS_CONTEXT } #ifndef PERL_UNUSED_VAR # define PERL_UNUSED_VAR(var) if (0) var = var #endif #line 293 "OpenGL.c" #ifdef HAVE_GL #define XSubPPtmpAAAA 1 XS(XS_SDL__OpenGL_ClearColor); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_ClearColor) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 4) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::ClearColor", "r, g, b, a"); PERL_UNUSED_VAR(cv); /* -W */ { double r = (double)SvNV(ST(0)); double g = (double)SvNV(ST(1)); double b = (double)SvNV(ST(2)); double a = (double)SvNV(ST(3)); #line 291 "OpenGL.xs" glClearColor((GLfloat)r,(GLfloat)g,(GLfloat)b,(GLfloat)a); #line 316 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_ClearIndex); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_ClearIndex) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::ClearIndex", "index"); PERL_UNUSED_VAR(cv); /* -W */ { double index = (double)SvNV(ST(0)); #line 297 "OpenGL.xs" glClearIndex(index); #line 337 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_ClearDepth); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_ClearDepth) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::ClearDepth", "depth"); PERL_UNUSED_VAR(cv); /* -W */ { double depth = (double)SvNV(ST(0)); #line 303 "OpenGL.xs" glClearDepth(depth); #line 358 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_ClearStencil); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_ClearStencil) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::ClearStencil", "s"); PERL_UNUSED_VAR(cv); /* -W */ { int s = (int)SvIV(ST(0)); #line 309 "OpenGL.xs" glClearStencil(s); #line 379 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_ClearAccum); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_ClearAccum) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 4) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::ClearAccum", "r, g, b, a"); PERL_UNUSED_VAR(cv); /* -W */ { double r = (double)SvNV(ST(0)); double g = (double)SvNV(ST(1)); double b = (double)SvNV(ST(2)); double a = (double)SvNV(ST(3)); #line 318 "OpenGL.xs" glClearAccum((GLfloat)r,(GLfloat)g,(GLfloat)b,(GLfloat)a); #line 403 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_Clear); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_Clear) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::Clear", "m"); PERL_UNUSED_VAR(cv); /* -W */ { GLbitfield m = (GLbitfield)SvIV(ST(0)); #line 324 "OpenGL.xs" glClear(m); #line 424 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_Flush); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_Flush) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 0) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::Flush", ""); PERL_UNUSED_VAR(cv); /* -W */ { #line 329 "OpenGL.xs" glFlush(); #line 444 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_Finish); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_Finish) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 0) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::Finish", ""); PERL_UNUSED_VAR(cv); /* -W */ { #line 334 "OpenGL.xs" glFinish(); #line 464 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_Rect); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_Rect) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::Rect", "r"); PERL_UNUSED_VAR(cv); /* -W */ { SDL_Rect* r = INT2PTR(SDL_Rect *,SvIV(ST(0))); #line 340 "OpenGL.xs" glRecti(r->x,r->y,r->x+r->w,r->y+r->h); #line 485 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_Vertex); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_Vertex) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items < 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::Vertex", "x, y, ..."); PERL_UNUSED_VAR(cv); /* -W */ { double x = (double)SvNV(ST(0)); double y = (double)SvNV(ST(1)); #line 347 "OpenGL.xs" double z,w; if ( items == 4 ) { w = SvNV(ST(3)); z = SvNV(ST(2)); glVertex4d(x,y,z,w); } else if ( items == 3 ) { z = SvNV(ST(2)); glVertex3d(x,y,z); } else { glVertex2d(x,y); } #line 517 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_Begin); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_Begin) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::Begin", "mode"); PERL_UNUSED_VAR(cv); /* -W */ { GLenum mode = (GLenum)SvIV(ST(0)); #line 363 "OpenGL.xs" glBegin(mode); #line 538 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_End); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_End) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 0) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::End", ""); PERL_UNUSED_VAR(cv); /* -W */ { #line 368 "OpenGL.xs" glEnd(); #line 558 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_Enable); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_Enable) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::Enable", "cap"); PERL_UNUSED_VAR(cv); /* -W */ { GLenum cap = (GLenum)SvIV(ST(0)); #line 374 "OpenGL.xs" glEnable(cap); #line 579 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_Disable); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_Disable) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::Disable", "cap"); PERL_UNUSED_VAR(cv); /* -W */ { GLenum cap = (GLenum)SvIV(ST(0)); #line 380 "OpenGL.xs" glDisable(cap); #line 600 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_IsEnabled); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_IsEnabled) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::IsEnabled", "cap"); PERL_UNUSED_VAR(cv); /* -W */ { Uint32 cap = (Uint32)SvUV(ST(0)); Uint32 RETVAL; dXSTARG; #line 386 "OpenGL.xs" RETVAL = glIsEnabled(cap); #line 623 "OpenGL.c" XSprePUSH; PUSHu((UV)RETVAL); } XSRETURN(1); } XS(XS_SDL__OpenGL_PointSize); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_PointSize) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::PointSize", "size"); PERL_UNUSED_VAR(cv); /* -W */ { double size = (double)SvNV(ST(0)); #line 394 "OpenGL.xs" glPointSize((GLfloat)size); #line 645 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_LineWidth); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_LineWidth) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::LineWidth", "size"); PERL_UNUSED_VAR(cv); /* -W */ { double size = (double)SvNV(ST(0)); #line 400 "OpenGL.xs" glLineWidth((GLfloat)size); #line 666 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_LineStipple); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_LineStipple) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::LineStipple", "factor, pattern"); PERL_UNUSED_VAR(cv); /* -W */ { Sint32 factor = (Sint32)SvIV(ST(0)); Uint16 pattern = (Uint16)SvUV(ST(1)); #line 407 "OpenGL.xs" glLineStipple(factor,pattern); #line 688 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_PolygonMode); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_PolygonMode) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::PolygonMode", "face, mode"); PERL_UNUSED_VAR(cv); /* -W */ { GLenum face = (GLenum)SvIV(ST(0)); GLenum mode = (GLenum)SvIV(ST(1)); #line 414 "OpenGL.xs" glPolygonMode(face,mode); #line 710 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_FrontFace); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_FrontFace) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::FrontFace", "mode"); PERL_UNUSED_VAR(cv); /* -W */ { GLenum mode = (GLenum)SvIV(ST(0)); #line 420 "OpenGL.xs" glFrontFace(mode); #line 731 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_CullFace); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_CullFace) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::CullFace", "mode"); PERL_UNUSED_VAR(cv); /* -W */ { GLenum mode = (GLenum)SvIV(ST(0)); #line 426 "OpenGL.xs" glCullFace(mode); #line 752 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_PolygonStipple); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_PolygonStipple) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::PolygonStipple", "mask"); PERL_UNUSED_VAR(cv); /* -W */ { char * mask = (char *)SvPV_nolen(ST(0)); #line 432 "OpenGL.xs" glPolygonStipple(mask); #line 773 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_EdgeFlag); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_EdgeFlag) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::EdgeFlag", "flag"); PERL_UNUSED_VAR(cv); /* -W */ { GLenum flag = (GLenum)SvIV(ST(0)); #line 438 "OpenGL.xs" glEdgeFlag(flag); #line 794 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_Normal); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_Normal) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 3) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::Normal", "x, y, z"); PERL_UNUSED_VAR(cv); /* -W */ { double x = (double)SvNV(ST(0)); double y = (double)SvNV(ST(1)); double z = (double)SvNV(ST(2)); #line 446 "OpenGL.xs" glNormal3d(x,y,z); #line 817 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_EnableClientState); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_EnableClientState) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::EnableClientState", "array"); PERL_UNUSED_VAR(cv); /* -W */ { GLenum array = (GLenum)SvIV(ST(0)); #line 452 "OpenGL.xs" glEnableClientState(array); #line 838 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_DisableClientState); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_DisableClientState) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::DisableClientState", "array"); PERL_UNUSED_VAR(cv); /* -W */ { GLenum array = (GLenum)SvIV(ST(0)); #line 458 "OpenGL.xs" glDisableClientState(array); #line 859 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_VertexPointer); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_VertexPointer) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 4) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::VertexPointer", "size, type, stride, pointer"); PERL_UNUSED_VAR(cv); /* -W */ { int size = (int)SvIV(ST(0)); GLenum type = (GLenum)SvIV(ST(1)); Uint32 stride = (Uint32)SvUV(ST(2)); char * pointer = (char *)SvPV_nolen(ST(3)); #line 467 "OpenGL.xs" glVertexPointer(size,type,stride,pointer); #line 883 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_ColorPointer); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_ColorPointer) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 4) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::ColorPointer", "size, type, stride, pointer"); PERL_UNUSED_VAR(cv); /* -W */ { Sint32 size = (Sint32)SvIV(ST(0)); GLenum type = (GLenum)SvIV(ST(1)); Uint32 stride = (Uint32)SvUV(ST(2)); char * pointer = (char *)SvPV_nolen(ST(3)); #line 476 "OpenGL.xs" glColorPointer(size,type,stride,pointer); #line 907 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_NormalPointer); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_NormalPointer) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 3) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::NormalPointer", "type, stride, pointer"); PERL_UNUSED_VAR(cv); /* -W */ { GLenum type = (GLenum)SvIV(ST(0)); Uint32 stride = (Uint32)SvUV(ST(1)); char * pointer = (char *)SvPV_nolen(ST(2)); #line 484 "OpenGL.xs" glNormalPointer(type,stride,pointer); #line 930 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_TexCoordPointer); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_TexCoordPointer) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 4) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::TexCoordPointer", "size, type, stride, pointer"); PERL_UNUSED_VAR(cv); /* -W */ { Sint32 size = (Sint32)SvIV(ST(0)); GLenum type = (GLenum)SvIV(ST(1)); Uint32 stride = (Uint32)SvUV(ST(2)); char * pointer = (char *)SvPV_nolen(ST(3)); #line 493 "OpenGL.xs" glTexCoordPointer(size,type,stride,pointer); #line 954 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_EdgeFlagPointer); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_EdgeFlagPointer) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::EdgeFlagPointer", "stride, pointer"); PERL_UNUSED_VAR(cv); /* -W */ { Uint32 stride = (Uint32)SvUV(ST(0)); char * pointer = (char *)SvPV_nolen(ST(1)); #line 500 "OpenGL.xs" glEdgeFlagPointer(stride,pointer); #line 976 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_ArrayElement); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_ArrayElement) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::ArrayElement", "ith"); PERL_UNUSED_VAR(cv); /* -W */ { Uint32 ith = (Uint32)SvUV(ST(0)); #line 506 "OpenGL.xs" glArrayElement(ith); #line 997 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_DrawElements); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_DrawElements) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 4) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::DrawElements", "mode, count, type, indices"); PERL_UNUSED_VAR(cv); /* -W */ { GLenum mode = (GLenum)SvIV(ST(0)); Uint32 count = (Uint32)SvUV(ST(1)); GLenum type = (GLenum)SvIV(ST(2)); char * indices = (char *)SvPV_nolen(ST(3)); #line 515 "OpenGL.xs" glDrawElements( mode, count, type, indices); #line 1021 "OpenGL.c" } XSRETURN_EMPTY; } #ifdef GL_VERSION_1_3 #define XSubPPtmpAAAB 1 XS(XS_SDL__OpenGL_DrawRangeElements); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_DrawRangeElements) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 6) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::DrawRangeElements", "mode, start, end, count, type, indices"); PERL_UNUSED_VAR(cv); /* -W */ { GLenum mode = (GLenum)SvIV(ST(0)); Uint32 start = (Uint32)SvUV(ST(1)); Uint32 end = (Uint32)SvUV(ST(2)); Uint32 count = (Uint32)SvUV(ST(3)); GLenum type = (GLenum)SvIV(ST(4)); char * indices = (char *)SvPV_nolen(ST(5)); #line 528 "OpenGL.xs" glDrawRangeElements(mode,start,end,count,type,indices); #line 1050 "OpenGL.c" } XSRETURN_EMPTY; } #endif XS(XS_SDL__OpenGL_DrawArrays); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_DrawArrays) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 3) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::DrawArrays", "mode, first, count"); PERL_UNUSED_VAR(cv); /* -W */ { GLenum mode = (GLenum)SvIV(ST(0)); Uint32 first = (Uint32)SvUV(ST(1)); Uint32 count = (Uint32)SvUV(ST(2)); #line 539 "OpenGL.xs" glDrawArrays(mode,first,count); #line 1074 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_InterleavedArrays); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_InterleavedArrays) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 3) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::InterleavedArrays", "format, stride, pointer"); PERL_UNUSED_VAR(cv); /* -W */ { GLenum format = (GLenum)SvIV(ST(0)); Uint32 stride = (Uint32)SvUV(ST(1)); char * pointer = (char *)SvPV_nolen(ST(2)); #line 547 "OpenGL.xs" glInterleavedArrays(format,stride,pointer); #line 1097 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_PushAttrib); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_PushAttrib) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::PushAttrib", "mask"); PERL_UNUSED_VAR(cv); /* -W */ { GLbitfield mask = (GLbitfield)SvIV(ST(0)); #line 553 "OpenGL.xs" glPushAttrib(mask); #line 1118 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_PopAttrib); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_PopAttrib) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 0) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::PopAttrib", ""); PERL_UNUSED_VAR(cv); /* -W */ { #line 558 "OpenGL.xs" glPopAttrib(); #line 1138 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_PushClientAttrib); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_PushClientAttrib) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::PushClientAttrib", "mask"); PERL_UNUSED_VAR(cv); /* -W */ { GLbitfield mask = (GLbitfield)SvIV(ST(0)); #line 564 "OpenGL.xs" glPushClientAttrib(mask); #line 1159 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_PopClientAttrib); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_PopClientAttrib) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 0) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::PopClientAttrib", ""); PERL_UNUSED_VAR(cv); /* -W */ { #line 569 "OpenGL.xs" glPopClientAttrib(); #line 1179 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_MatrixMode); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_MatrixMode) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::MatrixMode", "mode"); PERL_UNUSED_VAR(cv); /* -W */ { GLenum mode = (GLenum)SvIV(ST(0)); #line 575 "OpenGL.xs" glMatrixMode(mode); #line 1200 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_LoadIdentity); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_LoadIdentity) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 0) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::LoadIdentity", ""); PERL_UNUSED_VAR(cv); /* -W */ { #line 580 "OpenGL.xs" glLoadIdentity(); #line 1220 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_LoadMatrix); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_LoadMatrix) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif PERL_UNUSED_VAR(cv); /* -W */ { #line 585 "OpenGL.xs" int i; double mat[16]; for ( i = 0; i < 16; i++ ) { mat[i] = (i < items && SvNOK(ST(i)) ? SvNV(ST(i)) : 0.0 ); } glLoadMatrixd(mat); #line 1243 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_MultMatrix); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_MultMatrix) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif PERL_UNUSED_VAR(cv); /* -W */ { #line 595 "OpenGL.xs" int i; double mat[16]; for ( i = 0; i < 16; i++ ) { mat[i] = (i < items && SvNOK(ST(i)) ? SvNV(ST(i)) : 0.0 ); } glMultMatrixd(mat); #line 1266 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_Translate); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_Translate) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 3) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::Translate", "x, y, z"); PERL_UNUSED_VAR(cv); /* -W */ { double x = (double)SvNV(ST(0)); double y = (double)SvNV(ST(1)); double z = (double)SvNV(ST(2)); #line 608 "OpenGL.xs" glTranslated(x,y,z); #line 1289 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_Rotate); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_Rotate) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 4) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::Rotate", "angle, x, y, z"); PERL_UNUSED_VAR(cv); /* -W */ { double angle = (double)SvNV(ST(0)); double x = (double)SvNV(ST(1)); double y = (double)SvNV(ST(2)); double z = (double)SvNV(ST(3)); #line 617 "OpenGL.xs" glRotated(angle,x,y,z); #line 1313 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_Scale); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_Scale) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 3) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::Scale", "x, y, z"); PERL_UNUSED_VAR(cv); /* -W */ { double x = (double)SvNV(ST(0)); double y = (double)SvNV(ST(1)); double z = (double)SvNV(ST(2)); #line 625 "OpenGL.xs" glScaled(x,y,z); #line 1336 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_Frustum); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_Frustum) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 6) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::Frustum", "left, right, bottom, top, myNear, myFar"); PERL_UNUSED_VAR(cv); /* -W */ { double left = (double)SvNV(ST(0)); double right = (double)SvNV(ST(1)); double bottom = (double)SvNV(ST(2)); double top = (double)SvNV(ST(3)); double myNear = (double)SvNV(ST(4)); double myFar = (double)SvNV(ST(5)); #line 636 "OpenGL.xs" glFrustum(left,right,bottom,top,myNear,myFar); #line 1362 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_Ortho); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_Ortho) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 6) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::Ortho", "left, right, bottom, top, myNear, myFar"); PERL_UNUSED_VAR(cv); /* -W */ { double left = (double)SvNV(ST(0)); double right = (double)SvNV(ST(1)); double bottom = (double)SvNV(ST(2)); double top = (double)SvNV(ST(3)); double myNear = (double)SvNV(ST(4)); double myFar = (double)SvNV(ST(5)); #line 647 "OpenGL.xs" glOrtho(left,right,bottom,top,myNear,myFar); #line 1388 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_Viewport); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_Viewport) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 4) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::Viewport", "x, y, width, height"); PERL_UNUSED_VAR(cv); /* -W */ { Sint32 x = (Sint32)SvIV(ST(0)); Sint32 y = (Sint32)SvIV(ST(1)); Uint32 width = (Uint32)SvUV(ST(2)); Uint32 height = (Uint32)SvUV(ST(3)); #line 656 "OpenGL.xs" glViewport(x,y,width,height); #line 1412 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_DepthRange); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_DepthRange) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::DepthRange", "myNear, myFar"); PERL_UNUSED_VAR(cv); /* -W */ { double myNear = (double)SvNV(ST(0)); double myFar = (double)SvNV(ST(1)); #line 663 "OpenGL.xs" glDepthRange(myNear,myFar); #line 1434 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_PushMatrix); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_PushMatrix) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 0) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::PushMatrix", ""); PERL_UNUSED_VAR(cv); /* -W */ { #line 668 "OpenGL.xs" glPushMatrix(); #line 1454 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_PopMatrix); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_PopMatrix) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 0) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::PopMatrix", ""); PERL_UNUSED_VAR(cv); /* -W */ { #line 673 "OpenGL.xs" glPopMatrix(); #line 1474 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_ClipPlane); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_ClipPlane) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items < 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::ClipPlane", "plane, ..."); PERL_UNUSED_VAR(cv); /* -W */ { GLenum plane = (GLenum)SvIV(ST(0)); #line 679 "OpenGL.xs" double v[4]; int i; for (i = 0; i < 4; i++ ) { v[i] = (i+1 < items && SvNOK(ST(i+1))) ? SvNV(ST(i+1)) : 0.0; } glClipPlane(plane,v); #line 1500 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_Color); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_Color) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items < 3) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::Color", "r, g, b, ..."); PERL_UNUSED_VAR(cv); /* -W */ { double r = (double)SvNV(ST(0)); double g = (double)SvNV(ST(1)); double b = (double)SvNV(ST(2)); #line 692 "OpenGL.xs" if ( items == 4 ) { double a; a = SvNV(ST(3)); glColor4d(r,g,b,a); } else { glColor3d(r,g,b); } #line 1529 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_Index); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_Index) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::Index", "c"); PERL_UNUSED_VAR(cv); /* -W */ { Uint32 c = (Uint32)SvUV(ST(0)); #line 704 "OpenGL.xs" glIndexi(c); #line 1550 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_ShadeModel); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_ShadeModel) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::ShadeModel", "mode"); PERL_UNUSED_VAR(cv); /* -W */ { GLenum mode = (GLenum)SvIV(ST(0)); #line 710 "OpenGL.xs" glShadeModel(mode); #line 1571 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_Light); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_Light) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items < 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::Light", "light, name, ..."); PERL_UNUSED_VAR(cv); /* -W */ { GLenum light = (GLenum)SvIV(ST(0)); GLenum name = (GLenum)SvIV(ST(1)); #line 717 "OpenGL.xs" int i; if ( items == 6 ) { float v[4]; for ( i = 0; i < 4; i++ ) { v[i] = (SvNOK(ST(i+2))) ? SvNV(ST(i+2)) : 0.0; } glLightfv(light,name,v); } else if ( items == 5 ) { float v[3]; for ( i = 0; i < 3; i++ ) { v[i] = (SvNOK(ST(i+2))) ? SvNV(ST(i+2)) : 0.0; } glLightfv(light,name,v); } else if ( items == 3 ) { float v; v = SvNV(ST(2)); glLightf(light,name,v); } else { Perl_croak(aTHX_ "SDL::OpenGL::Light invalid arguments"); } #line 1612 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_LightModel); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_LightModel) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items < 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::LightModel", "name, ..."); PERL_UNUSED_VAR(cv); /* -W */ { GLenum name = (GLenum)SvIV(ST(0)); #line 742 "OpenGL.xs" float v[4]; int i; if ( name == GL_LIGHT_MODEL_AMBIENT) { if ( items != 5) { Perl_croak(aTHX_ "usage: glLightMaterial (GL_LIGHT_MODEL_AMBIENT, r,g,b,a )"); } for ( i = 0; i < 4; i++ ) { v[i] = (SvNOK(ST(i+1))) ? SvNV(ST(i+1)) : 0.0; } glLightModelfv (name, v); } else { if ( (items != 2) || (name != GL_LIGHT_MODEL_LOCAL_VIEWER && name != GL_LIGHT_MODEL_TWO_SIDE && name != GL_LIGHT_MODEL_COLOR_CONTROL) ) { Perl_croak(aTHX_ "usage: glLightMaterial ( pname, flag )"); } glLightModeli (name, SvIV(ST(1))); } #line 1658 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_Material); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_Material) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items < 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::Material", "face, name, ..."); PERL_UNUSED_VAR(cv); /* -W */ { GLenum face = (GLenum)SvIV(ST(0)); GLenum name = (GLenum)SvIV(ST(1)); #line 774 "OpenGL.xs" int i; if ( items == 6 ) { float v[4]; for ( i = 0; i < 4; i++ ) { v[i] = (SvNOK(ST(i+2))) ? SvNV(ST(i+2)) : 0.0; } glMaterialfv(face,name,v); } else if ( items == 5 ) { float v[3]; for ( i = 0; i < 4; i++ ) { v[i] = (SvNOK(ST(i+2))) ? SvNV(ST(i+2)) : 0.0; } glMaterialfv(face,name,v); } else if ( items == 3 ) { float v; v = SvNV(ST(2)); glMaterialf(face,name,v); } else { Perl_croak(aTHX_ "SDL::OpenGL::Material invalid arguments"); } #line 1699 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_ColorMaterial); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_ColorMaterial) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::ColorMaterial", "face, mode"); PERL_UNUSED_VAR(cv); /* -W */ { GLenum face = (GLenum)SvIV(ST(0)); GLenum mode = (GLenum)SvIV(ST(1)); #line 800 "OpenGL.xs" glColorMaterial(face,mode); #line 1721 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_BlendFunc); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_BlendFunc) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::BlendFunc", "sfactor, dfactor"); PERL_UNUSED_VAR(cv); /* -W */ { GLenum sfactor = (GLenum)SvIV(ST(0)); GLenum dfactor = (GLenum)SvIV(ST(1)); #line 807 "OpenGL.xs" glBlendFunc(sfactor,dfactor); #line 1743 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_Hint); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_Hint) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::Hint", "target, hint"); PERL_UNUSED_VAR(cv); /* -W */ { GLenum target = (GLenum)SvIV(ST(0)); GLenum hint = (GLenum)SvIV(ST(1)); #line 815 "OpenGL.xs" glHint(target,hint); #line 1765 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_Fog); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_Fog) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items < 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::Fog", "name, ..."); PERL_UNUSED_VAR(cv); /* -W */ { GLenum name = (GLenum)SvIV(ST(0)); #line 821 "OpenGL.xs" if ( items == 5 ) { float v[4]; v[0] = SvNV(ST(1)); v[1] = SvNV(ST(2)); v[2] = SvNV(ST(3)); v[3] = SvNV(ST(4)); glFogfv(name,v); } else if ( items == 2 ) { float v; v = SvNV(ST(1)); glFogf(name,v); } else { Perl_croak(aTHX_ "SDL::OpenGL::Material invalid arguments"); } #line 1799 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_PolygonOffset); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_PolygonOffset) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::PolygonOffset", "factor, units"); PERL_UNUSED_VAR(cv); /* -W */ { double factor = (double)SvNV(ST(0)); double units = (double)SvNV(ST(1)); #line 841 "OpenGL.xs" glPolygonOffset(factor,units); #line 1821 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_GenLists); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_GenLists) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::GenLists", "range"); PERL_UNUSED_VAR(cv); /* -W */ { Uint32 range = (Uint32)SvUV(ST(0)); Uint32 RETVAL; dXSTARG; #line 847 "OpenGL.xs" RETVAL = glGenLists(range); #line 1844 "OpenGL.c" XSprePUSH; PUSHu((UV)RETVAL); } XSRETURN(1); } XS(XS_SDL__OpenGL_DeleteLists); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_DeleteLists) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::DeleteLists", "base, count"); PERL_UNUSED_VAR(cv); /* -W */ { Uint32 base = (Uint32)SvUV(ST(0)); Uint32 count = (Uint32)SvUV(ST(1)); #line 856 "OpenGL.xs" glDeleteLists(base, count); #line 1867 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_NewList); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_NewList) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::NewList", "list, mode"); PERL_UNUSED_VAR(cv); /* -W */ { Uint32 list = (Uint32)SvUV(ST(0)); GLenum mode = (GLenum)SvIV(ST(1)); #line 863 "OpenGL.xs" glNewList(list,mode); #line 1889 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_EndList); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_EndList) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 0) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::EndList", ""); PERL_UNUSED_VAR(cv); /* -W */ { #line 868 "OpenGL.xs" glEndList(); #line 1909 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_CallList); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_CallList) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::CallList", "list"); PERL_UNUSED_VAR(cv); /* -W */ { Uint32 list = (Uint32)SvUV(ST(0)); #line 874 "OpenGL.xs" glCallList(list); #line 1930 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_IsList); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_IsList) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::IsList", "list"); PERL_UNUSED_VAR(cv); /* -W */ { Uint32 list = (Uint32)SvUV(ST(0)); Uint32 RETVAL; dXSTARG; #line 880 "OpenGL.xs" RETVAL = glIsList(list); #line 1953 "OpenGL.c" XSprePUSH; PUSHu((UV)RETVAL); } XSRETURN(1); } XS(XS_SDL__OpenGL_ListBase); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_ListBase) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::ListBase", "base"); PERL_UNUSED_VAR(cv); /* -W */ { Uint32 base = (Uint32)SvUV(ST(0)); #line 888 "OpenGL.xs" glListBase(base); #line 1975 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_CallLists); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_CallLists) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif PERL_UNUSED_VAR(cv); /* -W */ { #line 893 "OpenGL.xs" int *i, j; if ( items > 0 ) { i = (int*)safemalloc(sizeof(int)* (items)); for ( j = 0; j < items; j++ ) { i[j] = SvIV(ST(j)); } } else { Perl_croak(aTHX_ "usage: SDL::OpenGL::CallLists(...)"); } glCallLists(items, GL_INT, i); safefree(i); #line 2003 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_CallListsScalar); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_CallListsScalar) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::CallListsScalar", "string"); PERL_UNUSED_VAR(cv); /* -W */ { SV* string = ST(0); #line 909 "OpenGL.xs" char * str; STRLEN len; str = SvPV(string,len); glCallLists(len, GL_UNSIGNED_BYTE, str); #line 2028 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_RasterPos); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_RasterPos) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items < 3) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::RasterPos", "x, y, z, ..."); PERL_UNUSED_VAR(cv); /* -W */ { double x = (double)SvNV(ST(0)); double y = (double)SvNV(ST(1)); double z = (double)SvNV(ST(2)); #line 921 "OpenGL.xs" if ( items == 4 ) { double w = SvNV(ST(3)); glRasterPos4d(x,y,z,w); } else { glRasterPos3d(x,y,z); } #line 2056 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_Bitmap); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_Bitmap) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 7) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::Bitmap", "width, height, x1, y1, x2, y2, data"); PERL_UNUSED_VAR(cv); /* -W */ { Uint32 width = (Uint32)SvUV(ST(0)); Uint32 height = (Uint32)SvUV(ST(1)); double x1 = (double)SvNV(ST(2)); double y1 = (double)SvNV(ST(3)); double x2 = (double)SvNV(ST(4)); double y2 = (double)SvNV(ST(5)); char * data = (char *)SvPV_nolen(ST(6)); #line 938 "OpenGL.xs" glBitmap(width,height,x1,y1,x2,y2,data); #line 2083 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_DrawPixels); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_DrawPixels) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 5) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::DrawPixels", "width, height, format, type, pixels"); PERL_UNUSED_VAR(cv); /* -W */ { Uint32 width = (Uint32)SvUV(ST(0)); Uint32 height = (Uint32)SvUV(ST(1)); GLenum format = (GLenum)SvIV(ST(2)); GLenum type = (GLenum)SvIV(ST(3)); char * pixels = (char *)SvPV_nolen(ST(4)); #line 948 "OpenGL.xs" glDrawPixels(width,height,format,type,pixels); #line 2108 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_ReadPixels); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_ReadPixels) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 6) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::ReadPixels", "x, y, width, height, format, type"); PERL_UNUSED_VAR(cv); /* -W */ { Uint32 x = (Uint32)SvUV(ST(0)); Uint32 y = (Uint32)SvUV(ST(1)); Uint32 height = (Uint32)SvUV(ST(3)); Uint32 width = (Uint32)SvUV(ST(2)); GLenum format = (GLenum)SvIV(ST(4)); GLenum type = (GLenum)SvIV(ST(5)); SV * RETVAL; #line 959 "OpenGL.xs" int len, size; char *buf; size = 1; /* ALPHA, BLUE, GREEN or RED */ if (format == GL_BGR || format == GL_RGB) { size = 3; } if (format == GL_BGRA || format == GL_RGBA) { size = 4; } len = height * width * size; /* in bytes */ RETVAL = newSV(len); /* alloc len+1 bytes */ SvPOK_on(RETVAL); /* make an PV */ buf = SvPVX(RETVAL); /* get ptr to buffer */ glReadPixels(x,y,width,height,format,type,buf); SvCUR_set(RETVAL, len); /* set real length */ #line 2151 "OpenGL.c" ST(0) = RETVAL; sv_2mortal(ST(0)); } XSRETURN(1); } XS(XS_SDL__OpenGL_ReadPixel); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_ReadPixel) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::ReadPixel", "x, y"); PERL_UNUSED_VAR(cv); /* -W */ { Uint32 x = (Uint32)SvUV(ST(0)); Uint32 y = (Uint32)SvUV(ST(1)); AV * RETVAL; #line 984 "OpenGL.xs" int rgba[4]; /* r,g,b,a */ int i; glReadPixels(x,y,1,1,GL_RGBA,GL_UNSIGNED_INT,rgba); RETVAL = newAV(); for ( i = 0; i < 4; i++ ) { av_push(RETVAL,newSViv(rgba[i])); } #line 2183 "OpenGL.c" ST(0) = newRV((SV*)RETVAL); sv_2mortal(ST(0)); } XSRETURN(1); } XS(XS_SDL__OpenGL_CopyPixels); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_CopyPixels) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 5) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::CopyPixels", "x, y, width, height, buffer"); PERL_UNUSED_VAR(cv); /* -W */ { Sint32 x = (Sint32)SvIV(ST(0)); Sint32 y = (Sint32)SvIV(ST(1)); Uint32 width = (Uint32)SvUV(ST(2)); Uint32 height = (Uint32)SvUV(ST(3)); GLenum buffer = (GLenum)SvIV(ST(4)); #line 1004 "OpenGL.xs" glCopyPixels(x,y,width,height,buffer); #line 2210 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_PixelStore); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_PixelStore) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::PixelStore", "name, param"); PERL_UNUSED_VAR(cv); /* -W */ { Sint32 name = (Sint32)SvIV(ST(0)); double param = (double)SvNV(ST(1)); #line 1011 "OpenGL.xs" glPixelStorei(name,param); #line 2232 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_PixelTransfer); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_PixelTransfer) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items < 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::PixelTransfer", "name, ..."); PERL_UNUSED_VAR(cv); /* -W */ { GLenum name = (GLenum)SvIV(ST(0)); #line 1017 "OpenGL.xs" switch ( name ) { case GL_MAP_COLOR: case GL_MAP_STENCIL: case GL_INDEX_SHIFT: case GL_INDEX_OFFSET: glPixelTransferi(name,SvIV(ST(1))); break; default: glPixelTransferf(name,SvNV(ST(1))); break; } #line 2263 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_PixelMap); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_PixelMap) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 4) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::PixelMap", "type, map, mapsize, values"); PERL_UNUSED_VAR(cv); /* -W */ { GLenum type = (GLenum)SvIV(ST(0)); GLenum map = (GLenum)SvIV(ST(1)); Sint32 mapsize = (Sint32)SvIV(ST(2)); char * values = (char *)SvPV_nolen(ST(3)); #line 1036 "OpenGL.xs" switch (type) { case GL_UNSIGNED_INT: glPixelMapuiv(map,mapsize,(GLint*)values); break; case GL_UNSIGNED_SHORT: glPixelMapusv(map,mapsize,(GLushort*)values); break; case GL_FLOAT: glPixelMapfv(map,mapsize,(GLfloat*)values); break; } #line 2297 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_PixelZoom); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_PixelZoom) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::PixelZoom", "zoomx, zoomy"); PERL_UNUSED_VAR(cv); /* -W */ { double zoomx = (double)SvNV(ST(0)); double zoomy = (double)SvNV(ST(1)); #line 1053 "OpenGL.xs" glPixelZoom(zoomx,zoomy); #line 2319 "OpenGL.c" } XSRETURN_EMPTY; } #ifdef GL_VERSION_1_3 #define XSubPPtmpAAAC 1 XS(XS_SDL__OpenGL_ColorTable); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_ColorTable) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 6) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::ColorTable", "target, internalFormat, width, format, type, data"); PERL_UNUSED_VAR(cv); /* -W */ { GLenum target = (GLenum)SvIV(ST(0)); GLenum internalFormat = (GLenum)SvIV(ST(1)); Uint32 width = (Uint32)SvUV(ST(2)); GLenum format = (GLenum)SvIV(ST(3)); GLenum type = (GLenum)SvIV(ST(4)); char * data = (char *)SvPV_nolen(ST(5)); #line 1066 "OpenGL.xs" glColorTable(target,internalFormat,width,format,type,data); #line 2348 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_ColorTableParameter); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_ColorTableParameter) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 6) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::ColorTableParameter", "target, name, r, g, b, a"); PERL_UNUSED_VAR(cv); /* -W */ { GLenum target = (GLenum)SvIV(ST(0)); GLenum name = (GLenum)SvIV(ST(1)); double r = (double)SvNV(ST(2)); double g = (double)SvNV(ST(3)); double b = (double)SvNV(ST(4)); double a = (double)SvNV(ST(5)); #line 1077 "OpenGL.xs" GLfloat vec[4]; vec[0] = r; vec[1] = g; vec[2] = b; vec[3] = a; glColorTableParameterfv(target,name,vec); #line 2379 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_CopyColorTable); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_CopyColorTable) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 5) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::CopyColorTable", "target, internalFormat, x, y, width"); PERL_UNUSED_VAR(cv); /* -W */ { GLenum target = (GLenum)SvIV(ST(0)); GLenum internalFormat = (GLenum)SvIV(ST(1)); Sint32 x = (Sint32)SvIV(ST(2)); Sint32 y = (Sint32)SvIV(ST(3)); Uint32 width = (Uint32)SvUV(ST(4)); #line 1092 "OpenGL.xs" glCopyColorTable(target,internalFormat,x,y,width); #line 2404 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_ColorSubTable); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_ColorSubTable) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 6) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::ColorSubTable", "target, start, count, format, type, data"); PERL_UNUSED_VAR(cv); /* -W */ { Uint32 target = (Uint32)SvUV(ST(0)); Uint32 start = (Uint32)SvUV(ST(1)); Uint32 count = (Uint32)SvUV(ST(2)); Uint32 format = (Uint32)SvUV(ST(3)); Uint32 type = (Uint32)SvUV(ST(4)); char * data = (char *)SvPV_nolen(ST(5)); #line 1103 "OpenGL.xs" glColorSubTable(target,start,count,format,type,data); #line 2430 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_CopyColorSubTable); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_CopyColorSubTable) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 5) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::CopyColorSubTable", "target, start, x, y, count"); PERL_UNUSED_VAR(cv); /* -W */ { Uint32 target = (Uint32)SvUV(ST(0)); Uint32 start = (Uint32)SvUV(ST(1)); Sint32 x = (Sint32)SvIV(ST(2)); Sint32 y = (Sint32)SvIV(ST(3)); Uint32 count = (Uint32)SvUV(ST(4)); #line 1113 "OpenGL.xs" glCopyColorSubTable(target,start,x,y,count); #line 2455 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_ConvolutionFilter2D); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_ConvolutionFilter2D) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 7) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::ConvolutionFilter2D", "target, internalFormat, width, height, format, type, image"); PERL_UNUSED_VAR(cv); /* -W */ { Uint32 target = (Uint32)SvUV(ST(0)); Uint32 internalFormat = (Uint32)SvUV(ST(1)); Uint32 width = (Uint32)SvUV(ST(2)); Uint32 height = (Uint32)SvUV(ST(3)); Uint32 format = (Uint32)SvUV(ST(4)); Uint32 type = (Uint32)SvUV(ST(5)); char * image = (char *)SvPV_nolen(ST(6)); #line 1125 "OpenGL.xs" glConvolutionFilter2D(target,internalFormat,width,height,format,type,image); #line 2482 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_CopyConvolutionFilter2D); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_CopyConvolutionFilter2D) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 6) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::CopyConvolutionFilter2D", "target, internalFormat, x, y, width, height"); PERL_UNUSED_VAR(cv); /* -W */ { Uint32 target = (Uint32)SvUV(ST(0)); Uint32 internalFormat = (Uint32)SvUV(ST(1)); Sint32 x = (Sint32)SvIV(ST(2)); Sint32 y = (Sint32)SvIV(ST(3)); Uint32 width = (Uint32)SvUV(ST(4)); Uint32 height = (Uint32)SvUV(ST(5)); #line 1136 "OpenGL.xs" glCopyConvolutionFilter2D(target,internalFormat,x,y,width,height); #line 2508 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_SeparableFilter2D); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_SeparableFilter2D) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 8) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::SeparableFilter2D", "target, internalFormat, width, height, format, type, row, column"); PERL_UNUSED_VAR(cv); /* -W */ { Uint32 target = (Uint32)SvUV(ST(0)); Uint32 internalFormat = (Uint32)SvUV(ST(1)); Uint32 width = (Uint32)SvUV(ST(2)); Uint32 height = (Uint32)SvUV(ST(3)); Uint32 format = (Uint32)SvUV(ST(4)); Uint32 type = (Uint32)SvUV(ST(5)); char * row = (char *)SvPV_nolen(ST(6)); char * column = (char *)SvPV_nolen(ST(7)); #line 1149 "OpenGL.xs" glSeparableFilter2D(target,internalFormat,width,height,format,type,row,column); #line 2536 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_ConvolutionFilter1D); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_ConvolutionFilter1D) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 6) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::ConvolutionFilter1D", "target, internalFormat, width, format, type, image"); PERL_UNUSED_VAR(cv); /* -W */ { Uint32 target = (Uint32)SvUV(ST(0)); Uint32 internalFormat = (Uint32)SvUV(ST(1)); Uint32 width = (Uint32)SvUV(ST(2)); Uint32 format = (Uint32)SvUV(ST(3)); Uint32 type = (Uint32)SvUV(ST(4)); char * image = (char *)SvPV_nolen(ST(5)); #line 1160 "OpenGL.xs" glConvolutionFilter1D(target,internalFormat,width,format,type,image); #line 2562 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_CopyConvolutionFilter1D); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_CopyConvolutionFilter1D) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 5) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::CopyConvolutionFilter1D", "target, internalFormat, x, y, width"); PERL_UNUSED_VAR(cv); /* -W */ { Uint32 target = (Uint32)SvUV(ST(0)); Uint32 internalFormat = (Uint32)SvUV(ST(1)); Sint32 x = (Sint32)SvIV(ST(2)); Sint32 y = (Sint32)SvIV(ST(3)); Uint32 width = (Uint32)SvUV(ST(4)); #line 1170 "OpenGL.xs" glCopyConvolutionFilter1D(target,internalFormat,x,y,width); #line 2587 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_ConvolutionParameter); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_ConvolutionParameter) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items < 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::ConvolutionParameter", "target, pname, ..."); PERL_UNUSED_VAR(cv); /* -W */ { Uint32 target = (Uint32)SvUV(ST(0)); Uint32 pname = (Uint32)SvUV(ST(1)); #line 1177 "OpenGL.xs" Uint32 pi; GLfloat pv[4]; switch(pname) { case GL_CONVOLUTION_BORDER_MODE: if ( items != 3 ) Perl_croak(aTHX_ "Usage: ConvolutionParameter(target,pname,...)"); pi = SvIV(ST(2)); glConvolutionParameteri(target,pname,pi); break; case GL_CONVOLUTION_FILTER_SCALE: case GL_CONVOLUTION_FILTER_BIAS: if ( items != 6 ) Perl_croak(aTHX_ "Usage: ConvolutionParameter(target,pname,...)"); pv[0] = (GLfloat)SvNV(ST(2)); pv[1] = (GLfloat)SvNV(ST(3)); pv[2] = (GLfloat)SvNV(ST(4)); pv[3] = (GLfloat)SvNV(ST(5)); glConvolutionParameterfv(target,pname,pv); break; default: Perl_croak(aTHX_ "ConvolutionParameter invalid parameter"); break; } #line 2631 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_Histogram); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_Histogram) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 4) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::Histogram", "target, width, internalFormat, sink"); PERL_UNUSED_VAR(cv); /* -W */ { Uint32 target = (Uint32)SvUV(ST(0)); Uint32 width = (Uint32)SvUV(ST(1)); Uint32 internalFormat = (Uint32)SvUV(ST(2)); GLboolean sink = (unsigned char)SvUV(ST(3)); #line 1208 "OpenGL.xs" glHistogram(target,width,internalFormat,sink); #line 2655 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_GetHistogram); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_GetHistogram) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 5) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::GetHistogram", "target, reset, format, type, values"); PERL_UNUSED_VAR(cv); /* -W */ { Uint32 target = (Uint32)SvUV(ST(0)); GLboolean reset = (unsigned char)SvUV(ST(1)); Uint32 format = (Uint32)SvUV(ST(2)); Uint32 type = (Uint32)SvUV(ST(3)); char * values = (char *)SvPV_nolen(ST(4)); #line 1218 "OpenGL.xs" glGetHistogram(target,reset,format,type,values); #line 2680 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_ResetHistogram); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_ResetHistogram) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::ResetHistogram", "target"); PERL_UNUSED_VAR(cv); /* -W */ { Uint32 target = (Uint32)SvUV(ST(0)); #line 1224 "OpenGL.xs" glResetHistogram(target); #line 2701 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_Minmax); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_Minmax) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 3) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::Minmax", "target, internalFormat, sink"); PERL_UNUSED_VAR(cv); /* -W */ { Uint32 target = (Uint32)SvUV(ST(0)); Uint32 internalFormat = (Uint32)SvUV(ST(1)); GLboolean sink = (unsigned char)SvUV(ST(2)); #line 1232 "OpenGL.xs" glMinmax(target,internalFormat,sink); #line 2724 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_GetMinmax); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_GetMinmax) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 5) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::GetMinmax", "target, reset, format, type, values"); PERL_UNUSED_VAR(cv); /* -W */ { Uint32 target = (Uint32)SvUV(ST(0)); GLboolean reset = (unsigned char)SvUV(ST(1)); Uint32 format = (Uint32)SvUV(ST(2)); Uint32 type = (Uint32)SvUV(ST(3)); char * values = (char *)SvPV_nolen(ST(4)); #line 1242 "OpenGL.xs" glGetMinmax(target,reset,format,type,values); #line 2749 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_ResetMinmax); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_ResetMinmax) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::ResetMinmax", "target"); PERL_UNUSED_VAR(cv); /* -W */ { Uint32 target = (Uint32)SvUV(ST(0)); #line 1248 "OpenGL.xs" glResetMinmax(target); #line 2770 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_BlendEquation); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_BlendEquation) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::BlendEquation", "mode"); PERL_UNUSED_VAR(cv); /* -W */ { Uint32 mode = (Uint32)SvUV(ST(0)); #line 1256 "OpenGL.xs" glBlendEquation(mode); #line 2791 "OpenGL.c" } XSRETURN_EMPTY; } #endif // GL_VERSION_1_3 XS(XS_SDL__OpenGL_TexImage2D); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_TexImage2D) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 9) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::TexImage2D", "target, level, internalFormat, width, height, border, format, type, data"); PERL_UNUSED_VAR(cv); /* -W */ { GLenum target = (GLenum)SvIV(ST(0)); Sint32 level = (Sint32)SvIV(ST(1)); Sint32 internalFormat = (Sint32)SvIV(ST(2)); Uint32 width = (Uint32)SvUV(ST(3)); Uint32 height = (Uint32)SvUV(ST(4)); Sint32 border = (Sint32)SvIV(ST(5)); GLenum format = (GLenum)SvIV(ST(6)); GLenum type = (GLenum)SvIV(ST(7)); char * data = (char *)SvPV_nolen(ST(8)); #line 1272 "OpenGL.xs" glTexImage2D(target,level,internalFormat,width,height,border,format,type,data); #line 2821 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_CopyTexImage2D); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_CopyTexImage2D) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 8) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::CopyTexImage2D", "target, level, internalFormat, x, y, width, height, border"); PERL_UNUSED_VAR(cv); /* -W */ { GLenum target = (GLenum)SvIV(ST(0)); Sint32 level = (Sint32)SvIV(ST(1)); Sint32 internalFormat = (Sint32)SvIV(ST(2)); Sint32 x = (Sint32)SvIV(ST(3)); Sint32 y = (Sint32)SvIV(ST(4)); Uint32 width = (Uint32)SvUV(ST(5)); Uint32 height = (Uint32)SvUV(ST(6)); Sint32 border = (Sint32)SvIV(ST(7)); #line 1285 "OpenGL.xs" glCopyTexImage2D(target,level,internalFormat,x,y,width,height,border); #line 2849 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_TexSubImage2D); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_TexSubImage2D) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 9) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::TexSubImage2D", "target, level, xoffset, yoffset, width, height, format, type, data"); PERL_UNUSED_VAR(cv); /* -W */ { GLenum target = (GLenum)SvIV(ST(0)); Sint32 level = (Sint32)SvIV(ST(1)); Sint32 xoffset = (Sint32)SvIV(ST(2)); Sint32 yoffset = (Sint32)SvIV(ST(3)); Uint32 width = (Uint32)SvUV(ST(4)); Uint32 height = (Uint32)SvUV(ST(5)); GLenum format = (GLenum)SvIV(ST(6)); GLenum type = (GLenum)SvIV(ST(7)); char * data = (char *)SvPV_nolen(ST(8)); #line 1299 "OpenGL.xs" glTexSubImage2D(target,level,xoffset,yoffset,width,height,format,type,data); #line 2878 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_CopyTexSubImage2D); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_CopyTexSubImage2D) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 8) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::CopyTexSubImage2D", "target, level, xoffset, yoffset, x, y, width, height"); PERL_UNUSED_VAR(cv); /* -W */ { GLenum target = (GLenum)SvIV(ST(0)); Sint32 level = (Sint32)SvIV(ST(1)); Sint32 xoffset = (Sint32)SvIV(ST(2)); Sint32 yoffset = (Sint32)SvIV(ST(3)); Sint32 x = (Sint32)SvIV(ST(4)); Sint32 y = (Sint32)SvIV(ST(5)); Uint32 width = (Uint32)SvUV(ST(6)); Uint32 height = (Uint32)SvUV(ST(7)); #line 1312 "OpenGL.xs" glCopyTexSubImage2D(target,level,xoffset,yoffset,x,y,width,height); #line 2906 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_TexImage1D); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_TexImage1D) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 8) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::TexImage1D", "target, level, internalFormat, width, border, format, type, data"); PERL_UNUSED_VAR(cv); /* -W */ { GLenum target = (GLenum)SvIV(ST(0)); Sint32 level = (Sint32)SvIV(ST(1)); Sint32 internalFormat = (Sint32)SvIV(ST(2)); Uint32 width = (Uint32)SvUV(ST(3)); Sint32 border = (Sint32)SvIV(ST(4)); GLenum format = (GLenum)SvIV(ST(5)); GLenum type = (GLenum)SvIV(ST(6)); char * data = (char *)SvPV_nolen(ST(7)); #line 1325 "OpenGL.xs" glTexImage1D(target,level,internalFormat,width,border,format,type,data); #line 2934 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_TexSubImage1D); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_TexSubImage1D) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 7) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::TexSubImage1D", "target, level, xoffset, width, format, type, data"); PERL_UNUSED_VAR(cv); /* -W */ { GLenum target = (GLenum)SvIV(ST(0)); Sint32 level = (Sint32)SvIV(ST(1)); Sint32 xoffset = (Sint32)SvIV(ST(2)); Uint32 width = (Uint32)SvUV(ST(3)); GLenum format = (GLenum)SvIV(ST(4)); GLenum type = (GLenum)SvIV(ST(5)); char * data = (char *)SvPV_nolen(ST(6)); #line 1337 "OpenGL.xs" glTexSubImage1D(target,level,xoffset,width,format,type,data); #line 2961 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_CopyTexImage1D); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_CopyTexImage1D) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 7) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::CopyTexImage1D", "target, level, internalFormat, x, y, width, border"); PERL_UNUSED_VAR(cv); /* -W */ { GLenum target = (GLenum)SvIV(ST(0)); Sint32 level = (Sint32)SvIV(ST(1)); Sint32 internalFormat = (Sint32)SvIV(ST(2)); Sint32 x = (Sint32)SvIV(ST(3)); Sint32 y = (Sint32)SvIV(ST(4)); Uint32 width = (Uint32)SvUV(ST(5)); Sint32 border = (Sint32)SvIV(ST(6)); #line 1349 "OpenGL.xs" glCopyTexImage1D(target,level,internalFormat,x,y,width,border); #line 2988 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_CopyTexSubImage1D); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_CopyTexSubImage1D) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 6) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::CopyTexSubImage1D", "target, level, xoffset, x, y, width"); PERL_UNUSED_VAR(cv); /* -W */ { GLenum target = (GLenum)SvIV(ST(0)); Sint32 level = (Sint32)SvIV(ST(1)); Sint32 xoffset = (Sint32)SvIV(ST(2)); Sint32 x = (Sint32)SvIV(ST(3)); Sint32 y = (Sint32)SvIV(ST(4)); Uint32 width = (Uint32)SvUV(ST(5)); #line 1360 "OpenGL.xs" glCopyTexSubImage1D(target,level,xoffset,x,y,width); #line 3014 "OpenGL.c" } XSRETURN_EMPTY; } #ifdef GL_VERSION_1_3 #define XSubPPtmpAAAD 1 XS(XS_SDL__OpenGL_TexImage3D); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_TexImage3D) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 10) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::TexImage3D", "target, level, internalFormat, width, height, depth, border, format, type, data"); PERL_UNUSED_VAR(cv); /* -W */ { GLenum target = (GLenum)SvIV(ST(0)); Sint32 level = (Sint32)SvIV(ST(1)); Sint32 internalFormat = (Sint32)SvIV(ST(2)); Uint32 width = (Uint32)SvUV(ST(3)); Uint32 height = (Uint32)SvUV(ST(4)); Uint32 depth = (Uint32)SvUV(ST(5)); Sint32 border = (Sint32)SvIV(ST(6)); GLenum format = (GLenum)SvIV(ST(7)); GLenum type = (GLenum)SvIV(ST(8)); char * data = (char *)SvPV_nolen(ST(9)); #line 1377 "OpenGL.xs" glTexImage3D(target,level,internalFormat,width,height,depth,border,format,type,data); #line 3047 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_TexSubImage3D); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_TexSubImage3D) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 11) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::TexSubImage3D", "target, level, xoffset, yoffset, zoffset, width, height, depth, format, type, data"); PERL_UNUSED_VAR(cv); /* -W */ { GLenum target = (GLenum)SvIV(ST(0)); Sint32 level = (Sint32)SvIV(ST(1)); Sint32 xoffset = (Sint32)SvIV(ST(2)); Sint32 yoffset = (Sint32)SvIV(ST(3)); Sint32 zoffset = (Sint32)SvIV(ST(4)); Uint32 width = (Uint32)SvUV(ST(5)); Uint32 height = (Uint32)SvUV(ST(6)); Uint32 depth = (Uint32)SvUV(ST(7)); GLenum format = (GLenum)SvIV(ST(8)); GLenum type = (GLenum)SvIV(ST(9)); char * data = (char *)SvPV_nolen(ST(10)); #line 1395 "OpenGL.xs" glTexSubImage3D(target,level,xoffset,yoffset,zoffset, width,height,depth,format,type,data); #line 3079 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_CopyTexSubImage3D); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_CopyTexSubImage3D) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 9) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::CopyTexSubImage3D", "target, level, xoffset, yoffset, zoffset, x, y, width, height"); PERL_UNUSED_VAR(cv); /* -W */ { GLenum target = (GLenum)SvIV(ST(0)); Sint32 level = (Sint32)SvIV(ST(1)); Sint32 xoffset = (Sint32)SvIV(ST(2)); Sint32 yoffset = (Sint32)SvIV(ST(3)); Sint32 zoffset = (Sint32)SvIV(ST(4)); Sint32 x = (Sint32)SvIV(ST(5)); Sint32 y = (Sint32)SvIV(ST(6)); Uint32 width = (Uint32)SvUV(ST(7)); Uint32 height = (Uint32)SvUV(ST(8)); #line 1413 "OpenGL.xs" glCopyTexSubImage3D(target,level,xoffset,yoffset,zoffset,x,y,width,height); #line 3108 "OpenGL.c" } XSRETURN_EMPTY; } #endif // GL_VERSION_1_3 XS(XS_SDL__OpenGL_GenTextures); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_GenTextures) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::GenTextures", "n"); PERL_UNUSED_VAR(cv); /* -W */ { Uint32 n = (Uint32)SvUV(ST(0)); AV * RETVAL; #line 1422 "OpenGL.xs" Uint32 i; Uint32 *names; names = (Uint32*)safemalloc(sizeof(Uint32)*n); RETVAL = newAV(); glGenTextures(n,names); for ( i = 0; i < n; i++ ) { av_push(RETVAL,newSViv(names[i])); } safefree(names); #line 3139 "OpenGL.c" ST(0) = newRV((SV*)RETVAL); sv_2mortal(ST(0)); } XSRETURN(1); } XS(XS_SDL__OpenGL_IsTexture); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_IsTexture) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::IsTexture", "texture"); PERL_UNUSED_VAR(cv); /* -W */ { Uint32 texture = (Uint32)SvUV(ST(0)); GLboolean RETVAL; dXSTARG; #line 1438 "OpenGL.xs" RETVAL = glIsTexture(texture); #line 3164 "OpenGL.c" XSprePUSH; PUSHu((UV)RETVAL); } XSRETURN(1); } XS(XS_SDL__OpenGL_BindTexture); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_BindTexture) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::BindTexture", "target, texture"); PERL_UNUSED_VAR(cv); /* -W */ { GLenum target = (GLenum)SvIV(ST(0)); Uint32 texture = (Uint32)SvUV(ST(1)); #line 1447 "OpenGL.xs" glBindTexture(target,texture); #line 3187 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_DeleteTextures); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_DeleteTextures) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif PERL_UNUSED_VAR(cv); /* -W */ { #line 1452 "OpenGL.xs" Uint32 *textures; int i; textures = (Uint32*)safemalloc(sizeof(Uint32) * items); if ( textures ) { for ( i = 0; i < items; i++ ) { textures[i] = SvIV(ST(i)); } } glDeleteTextures(items,textures); safefree(textures); #line 3214 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_AreTexturesResident); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_AreTexturesResident) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif PERL_UNUSED_VAR(cv); /* -W */ { AV * RETVAL; #line 1466 "OpenGL.xs" Uint32 *textures; GLboolean *homes; int i; RETVAL = newAV(); textures = (Uint32*)safemalloc(sizeof(Uint32) * items); homes = (GLboolean*)safemalloc(sizeof(GLboolean) * items); if ( textures ) { for ( i = 0; i < items; i++ ) { textures[i] = SvIV(ST(i)); } } if ( GL_FALSE != glAreTexturesResident(items,textures,homes)) { for (i = 0; i < items; i++ ) { av_push(RETVAL,newSViv(homes[i])); } } safefree(homes); safefree(textures); #line 3250 "OpenGL.c" ST(0) = newRV((SV*)RETVAL); sv_2mortal(ST(0)); } XSRETURN(1); } XS(XS_SDL__OpenGL_PrioritizeTextures); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_PrioritizeTextures) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 3) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::PrioritizeTextures", "n, names, priorities"); PERL_UNUSED_VAR(cv); /* -W */ { Uint32 n = (Uint32)SvUV(ST(0)); char * names = (char *)SvPV_nolen(ST(1)); char * priorities = (char *)SvPV_nolen(ST(2)); #line 1493 "OpenGL.xs" glPrioritizeTextures(n,(GLuint*)names,(const GLclampf *)priorities); #line 3275 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_TexEnv); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_TexEnv) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items < 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::TexEnv", "target, name, ..."); PERL_UNUSED_VAR(cv); /* -W */ { GLenum target = (GLenum)SvIV(ST(0)); GLenum name = (GLenum)SvIV(ST(1)); #line 1500 "OpenGL.xs" float pv[4]; GLint p; switch(name) { case GL_TEXTURE_ENV_MODE: p = SvIV(ST(2)); glTexEnvi(target,name,p); break; case GL_TEXTURE_ENV_COLOR: pv[0] = SvNV(ST(2)); pv[1] = SvNV(ST(3)); pv[2] = SvNV(ST(4)); pv[3] = SvNV(ST(5)); glTexEnvfv(target,name,pv); break; } #line 3311 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_TexCoord); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_TexCoord) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif PERL_UNUSED_VAR(cv); /* -W */ { #line 1519 "OpenGL.xs" double s,t,r,q; if ( items < 1 || items > 4 ) Perl_croak (aTHX_ "usage: SDL::OpenGL::TexCoord(s,[t,[r,[q]]])"); s = t = r = 0.0; q = 1.0; switch(items) { case 4: q = SvNV(ST(3)); case 3: r = SvNV(ST(2)); case 2: t = SvNV(ST(1)); case 1: s = SvNV(ST(0)); } glTexCoord4d(s,t,r,q); #line 3344 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_TexParameter); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_TexParameter) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items < 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::TexParameter", "target, name, ..."); PERL_UNUSED_VAR(cv); /* -W */ { GLenum target = (GLenum)SvIV(ST(0)); GLenum name = (GLenum)SvIV(ST(1)); #line 1541 "OpenGL.xs" GLfloat pv[4]; GLint p; switch (name) { case GL_TEXTURE_BORDER_COLOR: pv[0] = SvNV(ST(2)); pv[1] = SvNV(ST(3)); pv[2] = SvNV(ST(4)); pv[3] = SvNV(ST(5)); glTexParameterfv(target,name,pv); break; case GL_TEXTURE_PRIORITY: case GL_TEXTURE_MIN_LOD: case GL_TEXTURE_MAX_LOD: pv[0] = SvNV(ST(2)); glTexParameterf(target,name,pv[0]); break; case GL_TEXTURE_BASE_LEVEL: case GL_TEXTURE_MAX_LEVEL: default: p = SvIV(ST(2)); glTexParameteri(target,name,p); break; } #line 3388 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_TexGen); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_TexGen) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items < 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::TexGen", "coord, name, ..."); PERL_UNUSED_VAR(cv); /* -W */ { GLenum coord = (GLenum)SvIV(ST(0)); GLenum name = (GLenum)SvIV(ST(1)); #line 1570 "OpenGL.xs" GLdouble *pv; GLint p; int i; switch (name) { case GL_TEXTURE_GEN_MODE: p = SvIV(ST(2)); glTexGeni(coord,name,p); break; default: if ( items == 2 ) Perl_croak(aTHX_ "usage: glTexGen(coord,name,...)"); pv = (GLdouble*)safemalloc(sizeof(GLdouble)*(items-2)); for ( i = 0; i < items - 2; i++ ) { pv[i] = SvNV(ST(i+2)); } glTexGendv(coord,name,pv); safefree(pv); break; } #line 3428 "OpenGL.c" } XSRETURN_EMPTY; } #ifdef GL_VERSION_1_3 #define XSubPPtmpAAAE 1 XS(XS_SDL__OpenGL_ActiveTextureARB); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_ActiveTextureARB) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::ActiveTextureARB", "texUnit"); PERL_UNUSED_VAR(cv); /* -W */ { GLenum texUnit = (GLenum)SvIV(ST(0)); #line 1596 "OpenGL.xs" glActiveTextureARB(texUnit); #line 3452 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_MultiTexCoord); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_MultiTexCoord) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items < 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::MultiTexCoord", "texUnit, ..."); PERL_UNUSED_VAR(cv); /* -W */ { Uint32 texUnit = (Uint32)SvUV(ST(0)); #line 1603 "OpenGL.xs" double s,t,r,q; if ( items < 2 || items > 5 ) Perl_croak (aTHX_ "usage: SDL::OpenGL::MultiTexCoord(tex,s,[t,[r,[q]]])"); s = t = r = 0.0; q = 1.0; switch(items) { case 5: q = SvNV(ST(3)); case 4: r = SvNV(ST(2)); case 3: t = SvNV(ST(1)); case 2: s = SvNV(ST(0)); } glMultiTexCoord4dARB(texUnit,s,t,r,q); #line 3488 "OpenGL.c" } XSRETURN_EMPTY; } #endif XS(XS_SDL__OpenGL_DrawBuffer); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_DrawBuffer) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::DrawBuffer", "mode"); PERL_UNUSED_VAR(cv); /* -W */ { GLenum mode = (GLenum)SvIV(ST(0)); #line 1627 "OpenGL.xs" glDrawBuffer(mode); #line 3510 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_ReadBuffer); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_ReadBuffer) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::ReadBuffer", "mode"); PERL_UNUSED_VAR(cv); /* -W */ { GLenum mode = (GLenum)SvIV(ST(0)); #line 1633 "OpenGL.xs" glReadBuffer(mode); #line 3531 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_IndexMask); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_IndexMask) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::IndexMask", "mask"); PERL_UNUSED_VAR(cv); /* -W */ { Uint32 mask = (Uint32)SvUV(ST(0)); #line 1639 "OpenGL.xs" glIndexMask(mask); #line 3552 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_ColorMask); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_ColorMask) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 4) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::ColorMask", "red, green, blue, alpha"); PERL_UNUSED_VAR(cv); /* -W */ { GLboolean red = (unsigned char)SvUV(ST(0)); GLboolean green = (unsigned char)SvUV(ST(1)); GLboolean blue = (unsigned char)SvUV(ST(2)); GLboolean alpha = (unsigned char)SvUV(ST(3)); #line 1648 "OpenGL.xs" glColorMask(red,green,blue,alpha); #line 3576 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_DepthMask); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_DepthMask) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::DepthMask", "flag"); PERL_UNUSED_VAR(cv); /* -W */ { GLboolean flag = (unsigned char)SvUV(ST(0)); #line 1654 "OpenGL.xs" glDepthMask(flag); #line 3597 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_StencilMask); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_StencilMask) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::StencilMask", "mask"); PERL_UNUSED_VAR(cv); /* -W */ { Uint32 mask = (Uint32)SvUV(ST(0)); #line 1660 "OpenGL.xs" glStencilMask(mask); #line 3618 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_Scissor); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_Scissor) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 4) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::Scissor", "x, y, width, height"); PERL_UNUSED_VAR(cv); /* -W */ { Sint32 x = (Sint32)SvIV(ST(0)); Sint32 y = (Sint32)SvIV(ST(1)); Uint32 width = (Uint32)SvUV(ST(2)); Uint32 height = (Uint32)SvUV(ST(3)); #line 1669 "OpenGL.xs" glScissor(x,y,width,height); #line 3642 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_AlphaFunc); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_AlphaFunc) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::AlphaFunc", "func, ref"); PERL_UNUSED_VAR(cv); /* -W */ { GLenum func = (GLenum)SvIV(ST(0)); double ref = (double)SvNV(ST(1)); #line 1676 "OpenGL.xs" glAlphaFunc(func,ref); #line 3664 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_StencilFunc); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_StencilFunc) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 3) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::StencilFunc", "func, ref, mask"); PERL_UNUSED_VAR(cv); /* -W */ { GLenum func = (GLenum)SvIV(ST(0)); Sint32 ref = (Sint32)SvIV(ST(1)); Uint32 mask = (Uint32)SvUV(ST(2)); #line 1684 "OpenGL.xs" glStencilFunc(func,ref,mask); #line 3687 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_StencilOp); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_StencilOp) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 3) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::StencilOp", "fail, zfail, zpass"); PERL_UNUSED_VAR(cv); /* -W */ { GLenum fail = (GLenum)SvIV(ST(0)); GLenum zfail = (GLenum)SvIV(ST(1)); GLenum zpass = (GLenum)SvIV(ST(2)); #line 1692 "OpenGL.xs" glStencilOp(fail,zfail,zpass); #line 3710 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_DepthFunc); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_DepthFunc) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::DepthFunc", "func"); PERL_UNUSED_VAR(cv); /* -W */ { GLenum func = (GLenum)SvIV(ST(0)); #line 1698 "OpenGL.xs" glDepthFunc(func); #line 3731 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_LogicOp); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_LogicOp) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::LogicOp", "opcode"); PERL_UNUSED_VAR(cv); /* -W */ { GLenum opcode = (GLenum)SvIV(ST(0)); #line 1704 "OpenGL.xs" glLogicOp(opcode); #line 3752 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_Accum); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_Accum) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::Accum", "op, value"); PERL_UNUSED_VAR(cv); /* -W */ { GLenum op = (GLenum)SvIV(ST(0)); double value = (double)SvNV(ST(1)); #line 1711 "OpenGL.xs" glAccum(op,value); #line 3774 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_Map1); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_Map1) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 6) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::Map1", "target, u1, u2, stride, order, points"); PERL_UNUSED_VAR(cv); /* -W */ { GLenum target = (GLenum)SvIV(ST(0)); double u1 = (double)SvNV(ST(1)); double u2 = (double)SvNV(ST(2)); Sint32 stride = (Sint32)SvIV(ST(3)); Sint32 order = (Sint32)SvIV(ST(4)); char * points = (char *)SvPV_nolen(ST(5)); #line 1722 "OpenGL.xs" glMap1d(target,u1,u2,stride,order,(double*)points); #line 3800 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_EvalCoord1); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_EvalCoord1) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::EvalCoord1", "u"); PERL_UNUSED_VAR(cv); /* -W */ { double u = (double)SvNV(ST(0)); #line 1728 "OpenGL.xs" glEvalCoord1d(u); #line 3821 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_MapGrid1); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_MapGrid1) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 3) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::MapGrid1", "n, u1, u2"); PERL_UNUSED_VAR(cv); /* -W */ { Sint32 n = (Sint32)SvIV(ST(0)); double u1 = (double)SvNV(ST(1)); double u2 = (double)SvNV(ST(2)); #line 1736 "OpenGL.xs" glMapGrid1d(n,u1,u2); #line 3844 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_EvalMesh1); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_EvalMesh1) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 3) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::EvalMesh1", "mode, p1, p2"); PERL_UNUSED_VAR(cv); /* -W */ { GLenum mode = (GLenum)SvIV(ST(0)); Sint32 p1 = (Sint32)SvIV(ST(1)); Sint32 p2 = (Sint32)SvIV(ST(2)); #line 1744 "OpenGL.xs" glEvalMesh1(mode,p1,p2); #line 3867 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_Map2); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_Map2) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 10) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::Map2", "target, u1, u2, ustride, uorder, v1, v2, vstride, vorder, points"); PERL_UNUSED_VAR(cv); /* -W */ { GLenum target = (GLenum)SvIV(ST(0)); double u1 = (double)SvNV(ST(1)); double u2 = (double)SvNV(ST(2)); Sint32 ustride = (Sint32)SvIV(ST(3)); Sint32 uorder = (Sint32)SvIV(ST(4)); double v1 = (double)SvNV(ST(5)); double v2 = (double)SvNV(ST(6)); Sint32 vstride = (Sint32)SvIV(ST(7)); Sint32 vorder = (Sint32)SvIV(ST(8)); char * points = (char *)SvPV_nolen(ST(9)); #line 1759 "OpenGL.xs" glMap2d(target,u1,u2,ustride,uorder,v1,v2,vstride,vorder,(double*)points); #line 3897 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_EvalCoord2); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_EvalCoord2) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::EvalCoord2", "u, v"); PERL_UNUSED_VAR(cv); /* -W */ { double u = (double)SvNV(ST(0)); double v = (double)SvNV(ST(1)); #line 1766 "OpenGL.xs" glEvalCoord2d(u,v); #line 3919 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_MapGrid2); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_MapGrid2) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 6) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::MapGrid2", "nu, u1, u2, nv, v1, v2"); PERL_UNUSED_VAR(cv); /* -W */ { Sint32 nu = (Sint32)SvIV(ST(0)); double u1 = (double)SvNV(ST(1)); double u2 = (double)SvNV(ST(2)); Sint32 nv = (Sint32)SvIV(ST(3)); double v1 = (double)SvNV(ST(4)); double v2 = (double)SvNV(ST(5)); #line 1777 "OpenGL.xs" glMapGrid2d(nu,u1,u2,nv,v1,v2); #line 3945 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_EvalMesh2); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_EvalMesh2) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 5) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::EvalMesh2", "mode, i1, i2, j1, j2"); PERL_UNUSED_VAR(cv); /* -W */ { GLenum mode = (GLenum)SvIV(ST(0)); Sint32 i1 = (Sint32)SvIV(ST(1)); Sint32 i2 = (Sint32)SvIV(ST(2)); Sint32 j1 = (Sint32)SvIV(ST(3)); Sint32 j2 = (Sint32)SvIV(ST(4)); #line 1787 "OpenGL.xs" glEvalMesh2(mode,i1,i2,j1,j2); #line 3970 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_GetError); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_GetError) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 0) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::GetError", ""); PERL_UNUSED_VAR(cv); /* -W */ { GLenum RETVAL; dXSTARG; #line 1792 "OpenGL.xs" RETVAL = glGetError(); #line 3992 "OpenGL.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } #endif #ifdef HAVE_GLU #define XSubPPtmpAAAF 1 XS(XS_SDL__OpenGL_LookAt); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_LookAt) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 9) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::LookAt", "eyex, eyey, eyez, centerx, centery, centerz, upx, upy, upz"); PERL_UNUSED_VAR(cv); /* -W */ { double eyex = (double)SvNV(ST(0)); double eyey = (double)SvNV(ST(1)); double eyez = (double)SvNV(ST(2)); double centerx = (double)SvNV(ST(3)); double centery = (double)SvNV(ST(4)); double centerz = (double)SvNV(ST(5)); double upx = (double)SvNV(ST(6)); double upy = (double)SvNV(ST(7)); double upz = (double)SvNV(ST(8)); #line 1813 "OpenGL.xs" gluLookAt(eyex,eyey,eyez,centerx,centery,centerz,upx,upy,upz); #line 4026 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_Perspective); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_Perspective) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 4) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::Perspective", "fovy, aspect, myNear, myFar"); PERL_UNUSED_VAR(cv); /* -W */ { double fovy = (double)SvNV(ST(0)); double aspect = (double)SvNV(ST(1)); double myNear = (double)SvNV(ST(2)); double myFar = (double)SvNV(ST(3)); #line 1822 "OpenGL.xs" gluPerspective(fovy,aspect,myNear,myFar); #line 4050 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_Ortho2D); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_Ortho2D) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 4) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::Ortho2D", "left, right, bottom, top"); PERL_UNUSED_VAR(cv); /* -W */ { double left = (double)SvNV(ST(0)); double right = (double)SvNV(ST(1)); double bottom = (double)SvNV(ST(2)); double top = (double)SvNV(ST(3)); #line 1831 "OpenGL.xs" gluOrtho2D(left,right,bottom,top); #line 4074 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_ScaleImage); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_ScaleImage) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 9) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::ScaleImage", "format, widthin, heightin, typein, datain, widthout, heightout, typeout, dataout"); PERL_UNUSED_VAR(cv); /* -W */ { GLenum format = (GLenum)SvIV(ST(0)); Uint32 widthin = (Uint32)SvUV(ST(1)); Uint32 heightin = (Uint32)SvUV(ST(2)); GLenum typein = (GLenum)SvIV(ST(3)); char * datain = (char *)SvPV_nolen(ST(4)); Uint32 widthout = (Uint32)SvUV(ST(5)); Uint32 heightout = (Uint32)SvUV(ST(6)); GLenum typeout = (GLenum)SvIV(ST(7)); char * dataout = (char *)SvPV_nolen(ST(8)); int RETVAL; dXSTARG; #line 1845 "OpenGL.xs" RETVAL = gluScaleImage(format,widthin,heightin,typein,datain, widthout,heightout,typeout,dataout); #line 4106 "OpenGL.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL__OpenGL_Build1DMipmaps); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_Build1DMipmaps) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 6) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::Build1DMipmaps", "target, internalFormat, width, format, type, data"); PERL_UNUSED_VAR(cv); /* -W */ { GLenum target = (GLenum)SvIV(ST(0)); Sint32 internalFormat = (Sint32)SvIV(ST(1)); Uint32 width = (Uint32)SvUV(ST(2)); GLenum format = (GLenum)SvIV(ST(3)); GLenum type = (GLenum)SvIV(ST(4)); char * data = (char *)SvPV_nolen(ST(5)); int RETVAL; dXSTARG; #line 1859 "OpenGL.xs" RETVAL = gluBuild1DMipmaps(target,internalFormat,width,format,type,data); #line 4135 "OpenGL.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_SDL__OpenGL_Build2DMipmaps); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_Build2DMipmaps) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 7) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::Build2DMipmaps", "target, internalFormat, width, height, format, type, data"); PERL_UNUSED_VAR(cv); /* -W */ { GLenum target = (GLenum)SvIV(ST(0)); Sint32 internalFormat = (Sint32)SvIV(ST(1)); Uint32 width = (Uint32)SvUV(ST(2)); Uint32 height = (Uint32)SvUV(ST(3)); GLenum format = (GLenum)SvIV(ST(4)); GLenum type = (GLenum)SvIV(ST(5)); char * data = (char *)SvPV_nolen(ST(6)); int RETVAL; dXSTARG; #line 1873 "OpenGL.xs" RETVAL = gluBuild2DMipmaps(target,internalFormat,width,height,format,type,data); #line 4165 "OpenGL.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } #if HAVE_GLU_VERSION >= 12 #define XSubPPtmpAAAG 1 XS(XS_SDL__OpenGL_Build3DMipmaps); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_Build3DMipmaps) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 8) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::Build3DMipmaps", "target, internalFormat, width, height, depth, format, type, data"); PERL_UNUSED_VAR(cv); /* -W */ { GLenum target = (GLenum)SvIV(ST(0)); Sint32 internalFormat = (Sint32)SvIV(ST(1)); Uint32 width = (Uint32)SvUV(ST(2)); Uint32 height = (Uint32)SvUV(ST(3)); Uint32 depth = (Uint32)SvUV(ST(4)); GLenum format = (GLenum)SvIV(ST(5)); GLenum type = (GLenum)SvIV(ST(6)); char * data = (char *)SvPV_nolen(ST(7)); int RETVAL; dXSTARG; #line 1890 "OpenGL.xs" RETVAL = gluBuild3DMipmaps(target,internalFormat,width,height,depth, format,type,data); #line 4200 "OpenGL.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } #else #define XSubPPtmpAAAH 1 XS(XS_SDL__OpenGL_Build3DMipmaps); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_Build3DMipmaps) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 0) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::Build3DMipmaps", ""); PERL_UNUSED_VAR(cv); /* -W */ { #line 1899 "OpenGL.xs" Perl_croak (aTHX_ "SDL::OpenGL::Build3DMipmaps requires GLU 1.2"); #line 4224 "OpenGL.c" } XSRETURN_EMPTY; } #endif #if HAVE_GLU_VERSION >= 12 #define XSubPPtmpAAAI 1 XS(XS_SDL__OpenGL_Build1DMipmapLevels); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_Build1DMipmapLevels) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 9) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::Build1DMipmapLevels", "target, internalFormat, width, format, type, level, base, max, data"); PERL_UNUSED_VAR(cv); /* -W */ { GLenum target = (GLenum)SvIV(ST(0)); Sint32 internalFormat = (Sint32)SvIV(ST(1)); Uint32 width = (Uint32)SvUV(ST(2)); GLenum format = (GLenum)SvIV(ST(3)); GLenum type = (GLenum)SvIV(ST(4)); Sint32 level = (Sint32)SvIV(ST(5)); Sint32 base = (Sint32)SvIV(ST(6)); Sint32 max = (Sint32)SvIV(ST(7)); char * data = (char *)SvPV_nolen(ST(8)); int RETVAL; dXSTARG; #line 1916 "OpenGL.xs" RETVAL = gluBuild1DMipmapLevels(target,internalFormat,width, format,type,level,base,max,data); #line 4260 "OpenGL.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } #else #define XSubPPtmpAAAJ 1 XS(XS_SDL__OpenGL_Build1DMipmapLevels); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_Build1DMipmapLevels) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 0) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::Build1DMipmapLevels", ""); PERL_UNUSED_VAR(cv); /* -W */ { #line 1925 "OpenGL.xs" Perl_croak(aTHX_ "SDL::OpenGL::Build1DMipmapLevels requires GLU 1.2"); #line 4284 "OpenGL.c" } XSRETURN_EMPTY; } #endif #if HAVE_GLU_VERSION >= 12 #define XSubPPtmpAAAK 1 XS(XS_SDL__OpenGL_Build2DMipmapLevels); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_Build2DMipmapLevels) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 10) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::Build2DMipmapLevels", "target, internalFormat, width, height, format, type, level, base, max, data"); PERL_UNUSED_VAR(cv); /* -W */ { GLenum target = (GLenum)SvIV(ST(0)); Sint32 internalFormat = (Sint32)SvIV(ST(1)); Uint32 width = (Uint32)SvUV(ST(2)); Uint32 height = (Uint32)SvUV(ST(3)); GLenum format = (GLenum)SvIV(ST(4)); GLenum type = (GLenum)SvIV(ST(5)); Sint32 level = (Sint32)SvIV(ST(6)); Sint32 base = (Sint32)SvIV(ST(7)); Sint32 max = (Sint32)SvIV(ST(8)); char * data = (char *)SvPV_nolen(ST(9)); int RETVAL; dXSTARG; #line 1943 "OpenGL.xs" RETVAL = gluBuild2DMipmapLevels(target,internalFormat,width,height, format,type,level,base,max,data); #line 4321 "OpenGL.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } #else #define XSubPPtmpAAAL 1 XS(XS_SDL__OpenGL_Build2DMipmapLevels); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_Build2DMipmapLevels) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 0) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::Build2DMipmapLevels", ""); PERL_UNUSED_VAR(cv); /* -W */ { #line 1952 "OpenGL.xs" Perl_croak(aTHX_ "SDL::OpenGL::Build2DMipmapLevels requires GLU 1.2"); #line 4345 "OpenGL.c" } XSRETURN_EMPTY; } #endif #if HAVE_GLU_VERSION >= 12 #define XSubPPtmpAAAM 1 XS(XS_SDL__OpenGL_Build3DMipmapLevels); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_Build3DMipmapLevels) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 11) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::Build3DMipmapLevels", "target, internalFormat, width, height, depth, format, type, level, base, max, data"); PERL_UNUSED_VAR(cv); /* -W */ { GLenum target = (GLenum)SvIV(ST(0)); Sint32 internalFormat = (Sint32)SvIV(ST(1)); Uint32 width = (Uint32)SvUV(ST(2)); Uint32 height = (Uint32)SvUV(ST(3)); Uint32 depth = (Uint32)SvUV(ST(4)); GLenum format = (GLenum)SvIV(ST(5)); GLenum type = (GLenum)SvIV(ST(6)); Sint32 level = (Sint32)SvIV(ST(7)); Sint32 base = (Sint32)SvIV(ST(8)); Sint32 max = (Sint32)SvIV(ST(9)); char * data = (char *)SvPV_nolen(ST(10)); int RETVAL; dXSTARG; #line 1971 "OpenGL.xs" RETVAL = gluBuild3DMipmapLevels(target,internalFormat,width,height,depth, format,type,level,base,max,data); #line 4383 "OpenGL.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } #else #define XSubPPtmpAAAN 1 XS(XS_SDL__OpenGL_Build3DMipmapLevels); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_Build3DMipmapLevels) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 0) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::Build3DMipmapLevels", ""); PERL_UNUSED_VAR(cv); /* -W */ { #line 1980 "OpenGL.xs" Perl_croak(aTHX_ "SDL::OpenGL::Build3DMipmapLevels requires GLU 1.2"); #line 4407 "OpenGL.c" } XSRETURN_EMPTY; } #endif XS(XS_SDL__OpenGL_ErrorString); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_ErrorString) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::ErrorString", "code"); PERL_UNUSED_VAR(cv); /* -W */ { GLenum code = (GLenum)SvIV(ST(0)); char * RETVAL; dXSTARG; #line 1988 "OpenGL.xs" RETVAL = (char*)gluErrorString(code); #line 4431 "OpenGL.c" sv_setpv(TARG, RETVAL); XSprePUSH; PUSHTARG; } XSRETURN(1); } XS(XS_SDL__OpenGL_NewNurbsRenderer); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_NewNurbsRenderer) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 0) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::NewNurbsRenderer", ""); PERL_UNUSED_VAR(cv); /* -W */ { GLUnurbsObj * RETVAL; dXSTARG; #line 1995 "OpenGL.xs" RETVAL = gluNewNurbsRenderer(); #line 4454 "OpenGL.c" XSprePUSH; PUSHi(PTR2IV(RETVAL)); } XSRETURN(1); } XS(XS_SDL__OpenGL_DeleteNurbsRenderer); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_DeleteNurbsRenderer) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::DeleteNurbsRenderer", "obj"); PERL_UNUSED_VAR(cv); /* -W */ { GLUnurbsObj * obj = INT2PTR(GLUnurbsObj *,SvIV(ST(0))); #line 2003 "OpenGL.xs" gluDeleteNurbsRenderer(obj); #line 4476 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_NurbsProperty); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_NurbsProperty) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 3) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::NurbsProperty", "obj, property, value"); PERL_UNUSED_VAR(cv); /* -W */ { GLUnurbsObj * obj = INT2PTR(GLUnurbsObj *,SvIV(ST(0))); GLenum property = (GLenum)SvIV(ST(1)); double value = (double)SvNV(ST(2)); #line 2011 "OpenGL.xs" gluNurbsProperty(obj,property,(float)value); #line 4499 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_LoadSamplingMatrices); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_LoadSamplingMatrices) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 4) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::LoadSamplingMatrices", "obj, mm, pm, vp"); PERL_UNUSED_VAR(cv); /* -W */ { GLUnurbsObj * obj = INT2PTR(GLUnurbsObj *,SvIV(ST(0))); char * mm = (char *)SvPV_nolen(ST(1)); char * pm = (char *)SvPV_nolen(ST(2)); char * vp = (char *)SvPV_nolen(ST(3)); #line 2020 "OpenGL.xs" gluLoadSamplingMatrices(obj,(GLfloat*)mm,(GLfloat*)pm,(GLint*)vp); #line 4523 "OpenGL.c" } XSRETURN_EMPTY; } #ifdef GL_HAS_NURBS #define XSubPPtmpAAAO 1 XS(XS_SDL__OpenGL_GetNurbsProperty); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_GetNurbsProperty) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::GetNurbsProperty", "obj, property"); PERL_UNUSED_VAR(cv); /* -W */ { GLUnurbsObj * obj = INT2PTR(GLUnurbsObj *,SvIV(ST(0))); GLenum property = (GLenum)SvIV(ST(1)); double RETVAL; dXSTARG; #line 2029 "OpenGL.xs" float f; gluGetNurbsProperty(obj,property,&f); RETVAL = (double)f; #line 4552 "OpenGL.c" XSprePUSH; PUSHn((double)RETVAL); } XSRETURN(1); } XS(XS_SDL__OpenGL_NurbsCallback); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_NurbsCallback) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 3) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::NurbsCallback", "obj, which, cb"); PERL_UNUSED_VAR(cv); /* -W */ { GLUnurbsObj * obj = INT2PTR(GLUnurbsObj *,SvIV(ST(0))); GLenum which = (GLenum)SvIV(ST(1)); SV * cb = ST(2); #line 2041 "OpenGL.xs" switch(which) { case GLU_ERROR: sdl_perl_nurbs_error_hook = cb; gluNurbsCallback(obj,GLU_ERROR,(GLvoid*)sdl_perl_nurbs_error_callback); break; case GLU_NURBS_BEGIN: case GLU_NURBS_BEGIN_DATA: gluNurbsCallbackData(obj,(void*)cb); gluNurbsCallback(obj,GLU_NURBS_BEGIN_DATA, (GLvoid*)sdl_perl_nurbs_being_callback); break; case GLU_NURBS_TEXTURE_COORD: case GLU_NURBS_TEXTURE_COORD_DATA: gluNurbsCallbackData(obj,(void*)cb); gluNurbsCallback(obj,GLU_NURBS_TEXTURE_COORD_DATA, (GLvoid*)sdl_perl_nurbs_multi_callback); break; case GLU_NURBS_COLOR: case GLU_NURBS_COLOR_DATA: gluNurbsCallbackData(obj,(void*)cb); gluNurbsCallback(obj,GLU_NURBS_COLOR_DATA, (GLvoid*)sdl_perl_nurbs_multi_callback); break; case GLU_NURBS_NORMAL: case GLU_NURBS_NORMAL_DATA: gluNurbsCallbackData(obj,(void*)cb); gluNurbsCallback(obj,GLU_NURBS_NORMAL_DATA, (GLvoid*)sdl_perl_nurbs_multi_callback); break; case GLU_NURBS_VERTEX: case GLU_NURBS_VERTEX_DATA: gluNurbsCallbackData(obj,(void*)cb); gluNurbsCallback(obj,GLU_NURBS_VERTEX_DATA, (GLvoid*)sdl_perl_nurbs_multi_callback); break; case GLU_NURBS_END: case GLU_NURBS_END_DATA: gluNurbsCallbackData(obj,(void*)cb); gluNurbsCallback(obj,GLU_NURBS_END_DATA, (GLvoid*)sdl_perl_nurbs_end_callback); break; default: Perl_croak(aTHX_ "SDL::OpenGL::NurbsCallback - invalid type"); } #line 4619 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_NurbsCallbackData); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_NurbsCallbackData) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::NurbsCallbackData", "obj, cb"); PERL_UNUSED_VAR(cv); /* -W */ { GLUnurbsObj * obj = INT2PTR(GLUnurbsObj *,SvIV(ST(0))); SV * cb = ST(1); #line 2091 "OpenGL.xs" gluNurbsCallbackData(obj,(void*)cb); #line 4641 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_BeginSurface); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_BeginSurface) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::BeginSurface", "obj"); PERL_UNUSED_VAR(cv); /* -W */ { GLUnurbsObj * obj = INT2PTR(GLUnurbsObj *,SvIV(ST(0))); #line 2097 "OpenGL.xs" gluBeginSurface(obj); #line 4662 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_EndSurface); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_EndSurface) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::EndSurface", "obj"); PERL_UNUSED_VAR(cv); /* -W */ { GLUnurbsObj * obj = INT2PTR(GLUnurbsObj *,SvIV(ST(0))); #line 2103 "OpenGL.xs" gluEndSurface(obj); #line 4683 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_NurbsSurface); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_NurbsSurface) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 11) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::NurbsSurface", "obj, uknot_count, uknot, vknot_count, vknot, u_stride, v_stride, ctlarray, uorder, vorder, type"); PERL_UNUSED_VAR(cv); /* -W */ { GLUnurbsObj * obj = INT2PTR(GLUnurbsObj *,SvIV(ST(0))); Sint32 uknot_count = (Sint32)SvIV(ST(1)); char * uknot = (char *)SvPV_nolen(ST(2)); Sint32 vknot_count = (Sint32)SvIV(ST(3)); char * vknot = (char *)SvPV_nolen(ST(4)); Sint32 u_stride = (Sint32)SvIV(ST(5)); Sint32 v_stride = (Sint32)SvIV(ST(6)); char * ctlarray = (char *)SvPV_nolen(ST(7)); Sint32 uorder = (Sint32)SvIV(ST(8)); Sint32 vorder = (Sint32)SvIV(ST(9)); GLenum type = (GLenum)SvIV(ST(10)); #line 2119 "OpenGL.xs" gluNurbsSurface(obj,uknot_count,(GLfloat*)uknot,vknot_count,(GLfloat*)vknot, u_stride,v_stride,(GLfloat*)ctlarray,uorder,vorder,type); #line 4715 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_BeginCurve); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_BeginCurve) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::BeginCurve", "obj"); PERL_UNUSED_VAR(cv); /* -W */ { GLUnurbsObj * obj = INT2PTR(GLUnurbsObj *,SvIV(ST(0))); #line 2126 "OpenGL.xs" gluBeginCurve(obj); #line 4736 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_EndCurve); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_EndCurve) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::EndCurve", "obj"); PERL_UNUSED_VAR(cv); /* -W */ { GLUnurbsObj * obj = INT2PTR(GLUnurbsObj *,SvIV(ST(0))); #line 2132 "OpenGL.xs" gluEndCurve(obj); #line 4757 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_NurbsCurve); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_NurbsCurve) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 7) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::NurbsCurve", "obj, uknot_count, uknot, u_stride, ctlarray, uorder, type"); PERL_UNUSED_VAR(cv); /* -W */ { GLUnurbsObj * obj = INT2PTR(GLUnurbsObj *,SvIV(ST(0))); Sint32 uknot_count = (Sint32)SvIV(ST(1)); char * uknot = (char *)SvPV_nolen(ST(2)); Sint32 u_stride = (Sint32)SvIV(ST(3)); char * ctlarray = (char *)SvPV_nolen(ST(4)); Sint32 uorder = (Sint32)SvIV(ST(5)); GLenum type = (GLenum)SvIV(ST(6)); #line 2144 "OpenGL.xs" gluNurbsCurve(obj,uknot_count,(GLfloat*)uknot,u_stride,(GLfloat*)ctlarray, uorder,type); #line 4785 "OpenGL.c" } XSRETURN_EMPTY; } #endif XS(XS_SDL__OpenGL_BeginTrim); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_BeginTrim) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::BeginTrim", "obj"); PERL_UNUSED_VAR(cv); /* -W */ { GLUnurbsObj * obj = INT2PTR(GLUnurbsObj *,SvIV(ST(0))); #line 2154 "OpenGL.xs" gluBeginTrim(obj); #line 4807 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_EndTrim); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_EndTrim) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::EndTrim", "obj"); PERL_UNUSED_VAR(cv); /* -W */ { GLUnurbsObj * obj = INT2PTR(GLUnurbsObj *,SvIV(ST(0))); #line 2160 "OpenGL.xs" gluEndTrim(obj); #line 4828 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_PwlCurve); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_PwlCurve) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 5) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::PwlCurve", "obj, count, array, stride, type"); PERL_UNUSED_VAR(cv); /* -W */ { GLUnurbsObj * obj = INT2PTR(GLUnurbsObj *,SvIV(ST(0))); Sint32 count = (Sint32)SvIV(ST(1)); char * array = (char *)SvPV_nolen(ST(2)); Sint32 stride = (Sint32)SvIV(ST(3)); GLenum type = (GLenum)SvIV(ST(4)); #line 2170 "OpenGL.xs" gluPwlCurve(obj,count,(GLfloat*)array,stride,type); #line 4853 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_UnProject); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_UnProject) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 6) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::UnProject", "winx, winy, winz, mm, pm, vp"); PERL_UNUSED_VAR(cv); /* -W */ { double winx = (double)SvNV(ST(0)); double winy = (double)SvNV(ST(1)); double winz = (double)SvNV(ST(2)); char * mm = (char *)SvPV_nolen(ST(3)); char * pm = (char *)SvPV_nolen(ST(4)); char * vp = (char *)SvPV_nolen(ST(5)); AV * RETVAL; #line 2181 "OpenGL.xs" GLdouble objx, objy, objz; RETVAL = newAV(); av_push(RETVAL,newSViv(gluUnProject(winx,winy,winz,(GLdouble*)mm, (GLdouble*)pm,(GLint*)vp,&objx,&objy,&objz))); av_push(RETVAL,newSVnv((double)objx)); av_push(RETVAL,newSVnv((double)objy)); av_push(RETVAL,newSVnv((double)objz)); #line 4886 "OpenGL.c" ST(0) = newRV((SV*)RETVAL); sv_2mortal(ST(0)); } XSRETURN(1); } #ifdef GL_VERSION_1_3 #define XSubPPtmpAAAP 1 XS(XS_SDL__OpenGL_UnProject4); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_UnProject4) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 9) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::UnProject4", "winx, winy, winz, clipw, mm, pm, vp, myNear, myFar"); PERL_UNUSED_VAR(cv); /* -W */ { double winx = (double)SvNV(ST(0)); double winy = (double)SvNV(ST(1)); double winz = (double)SvNV(ST(2)); double clipw = (double)SvNV(ST(3)); char * mm = (char *)SvPV_nolen(ST(4)); char * pm = (char *)SvPV_nolen(ST(5)); char * vp = (char *)SvPV_nolen(ST(6)); double myNear = (double)SvNV(ST(7)); double myFar = (double)SvNV(ST(8)); AV * RETVAL; #line 2205 "OpenGL.xs" GLdouble objx, objy, objz, objw; RETVAL = newAV(); av_push(RETVAL,newSViv(gluUnProject4(winx,winy,winz,clipw,(GLdouble*)mm, (GLdouble*)pm,(GLint*)vp,(GLclampd)myNear,(GLclampd)myFar, &objx,&objy,&objz,&objw))); av_push(RETVAL,newSVnv((double)objx)); av_push(RETVAL,newSVnv((double)objy)); av_push(RETVAL,newSVnv((double)objz)); av_push(RETVAL,newSVnv((double)objw)); #line 4929 "OpenGL.c" ST(0) = newRV((SV*)RETVAL); sv_2mortal(ST(0)); } XSRETURN(1); } #endif XS(XS_SDL__OpenGL_Project); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_Project) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 6) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::Project", "objx, objy, objz, mm, pm, vp"); PERL_UNUSED_VAR(cv); /* -W */ { double objx = (double)SvNV(ST(0)); double objy = (double)SvNV(ST(1)); double objz = (double)SvNV(ST(2)); char * mm = (char *)SvPV_nolen(ST(3)); char * pm = (char *)SvPV_nolen(ST(4)); char * vp = (char *)SvPV_nolen(ST(5)); AV * RETVAL; #line 2229 "OpenGL.xs" GLdouble winx, winy, winz; RETVAL = newAV(); av_push(RETVAL,newSViv(gluUnProject(objx,objy,objz,(GLdouble*)mm, (GLdouble*)pm,(GLint*)vp,&winx,&winy,&winz))); av_push(RETVAL,newSVnv((double)winx)); av_push(RETVAL,newSVnv((double)winy)); av_push(RETVAL,newSVnv((double)winz)); #line 4965 "OpenGL.c" ST(0) = newRV((SV*)RETVAL); sv_2mortal(ST(0)); } XSRETURN(1); } XS(XS_SDL__OpenGL_NewTess); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_NewTess) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 0) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::NewTess", ""); PERL_UNUSED_VAR(cv); /* -W */ { GLUtesselator * RETVAL; dXSTARG; #line 2242 "OpenGL.xs" RETVAL = gluNewTess(); #line 4989 "OpenGL.c" XSprePUSH; PUSHi(PTR2IV(RETVAL)); } XSRETURN(1); } XS(XS_SDL__OpenGL_TessCallback); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_TessCallback) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::TessCallback", "tess, type"); PERL_UNUSED_VAR(cv); /* -W */ { GLUtesselator * tess = INT2PTR(GLUtesselator *,SvIV(ST(0))); GLenum type = (GLenum)SvIV(ST(1)); #line 2251 "OpenGL.xs" switch(type) { case GLU_TESS_BEGIN: case GLU_TESS_BEGIN_DATA: gluTessCallback(tess,GLU_TESS_BEGIN_DATA, (GLvoid*)sdl_perl_tess_begin_callback); break; case GLU_TESS_EDGE_FLAG: case GLU_TESS_EDGE_FLAG_DATA: gluTessCallback(tess,GLU_TESS_EDGE_FLAG_DATA, (GLvoid*)sdl_perl_tess_edge_flag_callback); break; case GLU_TESS_VERTEX: case GLU_TESS_VERTEX_DATA: gluTessCallback(tess,GLU_TESS_VERTEX_DATA, (GLvoid*)sdl_perl_tess_vertex_callback); break; case GLU_TESS_END: case GLU_TESS_END_DATA: gluTessCallback(tess,GLU_TESS_END_DATA, (GLvoid*)sdl_perl_tess_end_callback); break; case GLU_TESS_COMBINE: case GLU_TESS_COMBINE_DATA: gluTessCallback(tess,GLU_TESS_COMBINE_DATA, (GLvoid*)sdl_perl_tess_combine_callback); break; case GLU_TESS_ERROR: case GLU_TESS_ERROR_DATA: gluTessCallback(tess,GLU_TESS_ERROR_DATA, (GLvoid*)sdl_perl_tess_error_callback); break; } #line 5048 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_TessProperty); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_TessProperty) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 3) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::TessProperty", "tessobj, property, value"); PERL_UNUSED_VAR(cv); /* -W */ { GLUtesselator * tessobj = INT2PTR(GLUtesselator *,SvIV(ST(0))); Uint32 property = (Uint32)SvUV(ST(1)); double value = (double)SvNV(ST(2)); #line 2295 "OpenGL.xs" gluTessProperty(tessobj,property,value); #line 5071 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_GetTessProperty); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_GetTessProperty) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::GetTessProperty", "tessobj, property"); PERL_UNUSED_VAR(cv); /* -W */ { GLUtesselator * tessobj = INT2PTR(GLUtesselator *,SvIV(ST(0))); Uint32 property = (Uint32)SvUV(ST(1)); double RETVAL; dXSTARG; #line 2302 "OpenGL.xs" gluGetTessProperty(tessobj,property,&RETVAL); #line 5095 "OpenGL.c" XSprePUSH; PUSHn((double)RETVAL); } XSRETURN(1); } XS(XS_SDL__OpenGL_TessNormal); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_TessNormal) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 4) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::TessNormal", "tessobj, x, y, z"); PERL_UNUSED_VAR(cv); /* -W */ { GLUtesselator * tessobj = INT2PTR(GLUtesselator *,SvIV(ST(0))); double x = (double)SvNV(ST(1)); double y = (double)SvNV(ST(2)); double z = (double)SvNV(ST(3)); #line 2313 "OpenGL.xs" gluTessNormal(tessobj,x,y,z); #line 5120 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_TessBeginPolygon); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_TessBeginPolygon) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 2) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::TessBeginPolygon", "tessobj, cb"); PERL_UNUSED_VAR(cv); /* -W */ { GLUtesselator * tessobj = INT2PTR(GLUtesselator *,SvIV(ST(0))); SV * cb = ST(1); #line 2320 "OpenGL.xs" gluTessBeginPolygon(tessobj,cb); #line 5142 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_TessEndPolygon); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_TessEndPolygon) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::TessEndPolygon", "tessobj"); PERL_UNUSED_VAR(cv); /* -W */ { GLUtesselator * tessobj = INT2PTR(GLUtesselator *,SvIV(ST(0))); #line 2326 "OpenGL.xs" gluTessEndPolygon(tessobj); #line 5163 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_TessBeginContour); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_TessBeginContour) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::TessBeginContour", "tessobj"); PERL_UNUSED_VAR(cv); /* -W */ { GLUtesselator * tessobj = INT2PTR(GLUtesselator *,SvIV(ST(0))); #line 2332 "OpenGL.xs" gluTessBeginContour(tessobj); #line 5184 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_TessEndContour); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_TessEndContour) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::TessEndContour", "tessobj"); PERL_UNUSED_VAR(cv); /* -W */ { GLUtesselator * tessobj = INT2PTR(GLUtesselator *,SvIV(ST(0))); #line 2338 "OpenGL.xs" gluTessEndContour(tessobj); #line 5205 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_DeleteTess); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_DeleteTess) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::DeleteTess", "tessobj"); PERL_UNUSED_VAR(cv); /* -W */ { GLUtesselator * tessobj = INT2PTR(GLUtesselator *,SvIV(ST(0))); #line 2344 "OpenGL.xs" gluDeleteTess(tessobj); #line 5226 "OpenGL.c" } XSRETURN_EMPTY; } XS(XS_SDL__OpenGL_TessVertex); /* prototype to pass -Wmissing-prototypes */ XS(XS_SDL__OpenGL_TessVertex) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 3) Perl_croak(aTHX_ "Usage: %s(%s)", "SDL::OpenGL::TessVertex", "tessobj, coords, vd"); PERL_UNUSED_VAR(cv); /* -W */ { GLUtesselator * tessobj = INT2PTR(GLUtesselator *,SvIV(ST(0))); char * coords = (char *)SvPV_nolen(ST(1)); char * vd = (char *)SvPV_nolen(ST(2)); #line 2352 "OpenGL.xs" gluTessVertex(tessobj,(GLdouble*)coords,vd); #line 5249 "OpenGL.c" } XSRETURN_EMPTY; } #endif #ifdef __cplusplus extern "C" #endif XS(boot_SDL__OpenGL); /* prototype to pass -Wmissing-prototypes */ XS(boot_SDL__OpenGL) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif char* file = __FILE__; PERL_UNUSED_VAR(cv); /* -W */ PERL_UNUSED_VAR(items); /* -W */ XS_VERSION_BOOTCHECK ; #if XSubPPtmpAAAA newXS("SDL::OpenGL::ClearColor", XS_SDL__OpenGL_ClearColor, file); newXS("SDL::OpenGL::ClearIndex", XS_SDL__OpenGL_ClearIndex, file); newXS("SDL::OpenGL::ClearDepth", XS_SDL__OpenGL_ClearDepth, file); newXS("SDL::OpenGL::ClearStencil", XS_SDL__OpenGL_ClearStencil, file); newXS("SDL::OpenGL::ClearAccum", XS_SDL__OpenGL_ClearAccum, file); newXS("SDL::OpenGL::Clear", XS_SDL__OpenGL_Clear, file); newXS("SDL::OpenGL::Flush", XS_SDL__OpenGL_Flush, file); newXS("SDL::OpenGL::Finish", XS_SDL__OpenGL_Finish, file); newXS("SDL::OpenGL::Rect", XS_SDL__OpenGL_Rect, file); newXS("SDL::OpenGL::Vertex", XS_SDL__OpenGL_Vertex, file); newXS("SDL::OpenGL::Begin", XS_SDL__OpenGL_Begin, file); newXS("SDL::OpenGL::End", XS_SDL__OpenGL_End, file); newXS("SDL::OpenGL::Enable", XS_SDL__OpenGL_Enable, file); newXS("SDL::OpenGL::Disable", XS_SDL__OpenGL_Disable, file); newXS("SDL::OpenGL::IsEnabled", XS_SDL__OpenGL_IsEnabled, file); newXS("SDL::OpenGL::PointSize", XS_SDL__OpenGL_PointSize, file); newXS("SDL::OpenGL::LineWidth", XS_SDL__OpenGL_LineWidth, file); newXS("SDL::OpenGL::LineStipple", XS_SDL__OpenGL_LineStipple, file); newXS("SDL::OpenGL::PolygonMode", XS_SDL__OpenGL_PolygonMode, file); newXS("SDL::OpenGL::FrontFace", XS_SDL__OpenGL_FrontFace, file); newXS("SDL::OpenGL::CullFace", XS_SDL__OpenGL_CullFace, file); newXS("SDL::OpenGL::PolygonStipple", XS_SDL__OpenGL_PolygonStipple, file); newXS("SDL::OpenGL::EdgeFlag", XS_SDL__OpenGL_EdgeFlag, file); newXS("SDL::OpenGL::Normal", XS_SDL__OpenGL_Normal, file); newXS("SDL::OpenGL::EnableClientState", XS_SDL__OpenGL_EnableClientState, file); newXS("SDL::OpenGL::DisableClientState", XS_SDL__OpenGL_DisableClientState, file); newXS("SDL::OpenGL::VertexPointer", XS_SDL__OpenGL_VertexPointer, file); newXS("SDL::OpenGL::ColorPointer", XS_SDL__OpenGL_ColorPointer, file); newXS("SDL::OpenGL::NormalPointer", XS_SDL__OpenGL_NormalPointer, file); newXS("SDL::OpenGL::TexCoordPointer", XS_SDL__OpenGL_TexCoordPointer, file); newXS("SDL::OpenGL::EdgeFlagPointer", XS_SDL__OpenGL_EdgeFlagPointer, file); newXS("SDL::OpenGL::ArrayElement", XS_SDL__OpenGL_ArrayElement, file); newXS("SDL::OpenGL::DrawElements", XS_SDL__OpenGL_DrawElements, file); #if XSubPPtmpAAAB newXS("SDL::OpenGL::DrawRangeElements", XS_SDL__OpenGL_DrawRangeElements, file); #endif newXS("SDL::OpenGL::DrawArrays", XS_SDL__OpenGL_DrawArrays, file); newXS("SDL::OpenGL::InterleavedArrays", XS_SDL__OpenGL_InterleavedArrays, file); newXS("SDL::OpenGL::PushAttrib", XS_SDL__OpenGL_PushAttrib, file); newXS("SDL::OpenGL::PopAttrib", XS_SDL__OpenGL_PopAttrib, file); newXS("SDL::OpenGL::PushClientAttrib", XS_SDL__OpenGL_PushClientAttrib, file); newXS("SDL::OpenGL::PopClientAttrib", XS_SDL__OpenGL_PopClientAttrib, file); newXS("SDL::OpenGL::MatrixMode", XS_SDL__OpenGL_MatrixMode, file); newXS("SDL::OpenGL::LoadIdentity", XS_SDL__OpenGL_LoadIdentity, file); newXS("SDL::OpenGL::LoadMatrix", XS_SDL__OpenGL_LoadMatrix, file); newXS("SDL::OpenGL::MultMatrix", XS_SDL__OpenGL_MultMatrix, file); newXS("SDL::OpenGL::Translate", XS_SDL__OpenGL_Translate, file); newXS("SDL::OpenGL::Rotate", XS_SDL__OpenGL_Rotate, file); newXS("SDL::OpenGL::Scale", XS_SDL__OpenGL_Scale, file); newXS("SDL::OpenGL::Frustum", XS_SDL__OpenGL_Frustum, file); newXS("SDL::OpenGL::Ortho", XS_SDL__OpenGL_Ortho, file); newXS("SDL::OpenGL::Viewport", XS_SDL__OpenGL_Viewport, file); newXS("SDL::OpenGL::DepthRange", XS_SDL__OpenGL_DepthRange, file); newXS("SDL::OpenGL::PushMatrix", XS_SDL__OpenGL_PushMatrix, file); newXS("SDL::OpenGL::PopMatrix", XS_SDL__OpenGL_PopMatrix, file); newXS("SDL::OpenGL::ClipPlane", XS_SDL__OpenGL_ClipPlane, file); newXS("SDL::OpenGL::Color", XS_SDL__OpenGL_Color, file); newXS("SDL::OpenGL::Index", XS_SDL__OpenGL_Index, file); newXS("SDL::OpenGL::ShadeModel", XS_SDL__OpenGL_ShadeModel, file); newXS("SDL::OpenGL::Light", XS_SDL__OpenGL_Light, file); newXS("SDL::OpenGL::LightModel", XS_SDL__OpenGL_LightModel, file); newXS("SDL::OpenGL::Material", XS_SDL__OpenGL_Material, file); newXS("SDL::OpenGL::ColorMaterial", XS_SDL__OpenGL_ColorMaterial, file); newXS("SDL::OpenGL::BlendFunc", XS_SDL__OpenGL_BlendFunc, file); newXS("SDL::OpenGL::Hint", XS_SDL__OpenGL_Hint, file); newXS("SDL::OpenGL::Fog", XS_SDL__OpenGL_Fog, file); newXS("SDL::OpenGL::PolygonOffset", XS_SDL__OpenGL_PolygonOffset, file); newXS("SDL::OpenGL::GenLists", XS_SDL__OpenGL_GenLists, file); newXS("SDL::OpenGL::DeleteLists", XS_SDL__OpenGL_DeleteLists, file); newXS("SDL::OpenGL::NewList", XS_SDL__OpenGL_NewList, file); newXS("SDL::OpenGL::EndList", XS_SDL__OpenGL_EndList, file); newXS("SDL::OpenGL::CallList", XS_SDL__OpenGL_CallList, file); newXS("SDL::OpenGL::IsList", XS_SDL__OpenGL_IsList, file); newXS("SDL::OpenGL::ListBase", XS_SDL__OpenGL_ListBase, file); newXS("SDL::OpenGL::CallLists", XS_SDL__OpenGL_CallLists, file); newXS("SDL::OpenGL::CallListsScalar", XS_SDL__OpenGL_CallListsScalar, file); newXS("SDL::OpenGL::RasterPos", XS_SDL__OpenGL_RasterPos, file); newXS("SDL::OpenGL::Bitmap", XS_SDL__OpenGL_Bitmap, file); newXS("SDL::OpenGL::DrawPixels", XS_SDL__OpenGL_DrawPixels, file); newXS("SDL::OpenGL::ReadPixels", XS_SDL__OpenGL_ReadPixels, file); newXS("SDL::OpenGL::ReadPixel", XS_SDL__OpenGL_ReadPixel, file); newXS("SDL::OpenGL::CopyPixels", XS_SDL__OpenGL_CopyPixels, file); newXS("SDL::OpenGL::PixelStore", XS_SDL__OpenGL_PixelStore, file); newXS("SDL::OpenGL::PixelTransfer", XS_SDL__OpenGL_PixelTransfer, file); newXS("SDL::OpenGL::PixelMap", XS_SDL__OpenGL_PixelMap, file); newXS("SDL::OpenGL::PixelZoom", XS_SDL__OpenGL_PixelZoom, file); #if XSubPPtmpAAAC newXS("SDL::OpenGL::ColorTable", XS_SDL__OpenGL_ColorTable, file); newXS("SDL::OpenGL::ColorTableParameter", XS_SDL__OpenGL_ColorTableParameter, file); newXS("SDL::OpenGL::CopyColorTable", XS_SDL__OpenGL_CopyColorTable, file); newXS("SDL::OpenGL::ColorSubTable", XS_SDL__OpenGL_ColorSubTable, file); newXS("SDL::OpenGL::CopyColorSubTable", XS_SDL__OpenGL_CopyColorSubTable, file); newXS("SDL::OpenGL::ConvolutionFilter2D", XS_SDL__OpenGL_ConvolutionFilter2D, file); newXS("SDL::OpenGL::CopyConvolutionFilter2D", XS_SDL__OpenGL_CopyConvolutionFilter2D, file); newXS("SDL::OpenGL::SeparableFilter2D", XS_SDL__OpenGL_SeparableFilter2D, file); newXS("SDL::OpenGL::ConvolutionFilter1D", XS_SDL__OpenGL_ConvolutionFilter1D, file); newXS("SDL::OpenGL::CopyConvolutionFilter1D", XS_SDL__OpenGL_CopyConvolutionFilter1D, file); newXS("SDL::OpenGL::ConvolutionParameter", XS_SDL__OpenGL_ConvolutionParameter, file); newXS("SDL::OpenGL::Histogram", XS_SDL__OpenGL_Histogram, file); newXS("SDL::OpenGL::GetHistogram", XS_SDL__OpenGL_GetHistogram, file); newXS("SDL::OpenGL::ResetHistogram", XS_SDL__OpenGL_ResetHistogram, file); newXS("SDL::OpenGL::Minmax", XS_SDL__OpenGL_Minmax, file); newXS("SDL::OpenGL::GetMinmax", XS_SDL__OpenGL_GetMinmax, file); newXS("SDL::OpenGL::ResetMinmax", XS_SDL__OpenGL_ResetMinmax, file); newXS("SDL::OpenGL::BlendEquation", XS_SDL__OpenGL_BlendEquation, file); #endif newXS("SDL::OpenGL::TexImage2D", XS_SDL__OpenGL_TexImage2D, file); newXS("SDL::OpenGL::CopyTexImage2D", XS_SDL__OpenGL_CopyTexImage2D, file); newXS("SDL::OpenGL::TexSubImage2D", XS_SDL__OpenGL_TexSubImage2D, file); newXS("SDL::OpenGL::CopyTexSubImage2D", XS_SDL__OpenGL_CopyTexSubImage2D, file); newXS("SDL::OpenGL::TexImage1D", XS_SDL__OpenGL_TexImage1D, file); newXS("SDL::OpenGL::TexSubImage1D", XS_SDL__OpenGL_TexSubImage1D, file); newXS("SDL::OpenGL::CopyTexImage1D", XS_SDL__OpenGL_CopyTexImage1D, file); newXS("SDL::OpenGL::CopyTexSubImage1D", XS_SDL__OpenGL_CopyTexSubImage1D, file); #if XSubPPtmpAAAD newXS("SDL::OpenGL::TexImage3D", XS_SDL__OpenGL_TexImage3D, file); newXS("SDL::OpenGL::TexSubImage3D", XS_SDL__OpenGL_TexSubImage3D, file); newXS("SDL::OpenGL::CopyTexSubImage3D", XS_SDL__OpenGL_CopyTexSubImage3D, file); #endif newXS("SDL::OpenGL::GenTextures", XS_SDL__OpenGL_GenTextures, file); newXS("SDL::OpenGL::IsTexture", XS_SDL__OpenGL_IsTexture, file); newXS("SDL::OpenGL::BindTexture", XS_SDL__OpenGL_BindTexture, file); newXS("SDL::OpenGL::DeleteTextures", XS_SDL__OpenGL_DeleteTextures, file); newXS("SDL::OpenGL::AreTexturesResident", XS_SDL__OpenGL_AreTexturesResident, file); newXS("SDL::OpenGL::PrioritizeTextures", XS_SDL__OpenGL_PrioritizeTextures, file); newXS("SDL::OpenGL::TexEnv", XS_SDL__OpenGL_TexEnv, file); newXS("SDL::OpenGL::TexCoord", XS_SDL__OpenGL_TexCoord, file); newXS("SDL::OpenGL::TexParameter", XS_SDL__OpenGL_TexParameter, file); newXS("SDL::OpenGL::TexGen", XS_SDL__OpenGL_TexGen, file); #if XSubPPtmpAAAE newXS("SDL::OpenGL::ActiveTextureARB", XS_SDL__OpenGL_ActiveTextureARB, file); newXS("SDL::OpenGL::MultiTexCoord", XS_SDL__OpenGL_MultiTexCoord, file); #endif newXS("SDL::OpenGL::DrawBuffer", XS_SDL__OpenGL_DrawBuffer, file); newXS("SDL::OpenGL::ReadBuffer", XS_SDL__OpenGL_ReadBuffer, file); newXS("SDL::OpenGL::IndexMask", XS_SDL__OpenGL_IndexMask, file); newXS("SDL::OpenGL::ColorMask", XS_SDL__OpenGL_ColorMask, file); newXS("SDL::OpenGL::DepthMask", XS_SDL__OpenGL_DepthMask, file); newXS("SDL::OpenGL::StencilMask", XS_SDL__OpenGL_StencilMask, file); newXS("SDL::OpenGL::Scissor", XS_SDL__OpenGL_Scissor, file); newXS("SDL::OpenGL::AlphaFunc", XS_SDL__OpenGL_AlphaFunc, file); newXS("SDL::OpenGL::StencilFunc", XS_SDL__OpenGL_StencilFunc, file); newXS("SDL::OpenGL::StencilOp", XS_SDL__OpenGL_StencilOp, file); newXS("SDL::OpenGL::DepthFunc", XS_SDL__OpenGL_DepthFunc, file); newXS("SDL::OpenGL::LogicOp", XS_SDL__OpenGL_LogicOp, file); newXS("SDL::OpenGL::Accum", XS_SDL__OpenGL_Accum, file); newXS("SDL::OpenGL::Map1", XS_SDL__OpenGL_Map1, file); newXS("SDL::OpenGL::EvalCoord1", XS_SDL__OpenGL_EvalCoord1, file); newXS("SDL::OpenGL::MapGrid1", XS_SDL__OpenGL_MapGrid1, file); newXS("SDL::OpenGL::EvalMesh1", XS_SDL__OpenGL_EvalMesh1, file); newXS("SDL::OpenGL::Map2", XS_SDL__OpenGL_Map2, file); newXS("SDL::OpenGL::EvalCoord2", XS_SDL__OpenGL_EvalCoord2, file); newXS("SDL::OpenGL::MapGrid2", XS_SDL__OpenGL_MapGrid2, file); newXS("SDL::OpenGL::EvalMesh2", XS_SDL__OpenGL_EvalMesh2, file); newXS("SDL::OpenGL::GetError", XS_SDL__OpenGL_GetError, file); #endif #if XSubPPtmpAAAF newXS("SDL::OpenGL::LookAt", XS_SDL__OpenGL_LookAt, file); newXS("SDL::OpenGL::Perspective", XS_SDL__OpenGL_Perspective, file); newXS("SDL::OpenGL::Ortho2D", XS_SDL__OpenGL_Ortho2D, file); newXS("SDL::OpenGL::ScaleImage", XS_SDL__OpenGL_ScaleImage, file); newXS("SDL::OpenGL::Build1DMipmaps", XS_SDL__OpenGL_Build1DMipmaps, file); newXS("SDL::OpenGL::Build2DMipmaps", XS_SDL__OpenGL_Build2DMipmaps, file); #if XSubPPtmpAAAG newXS("SDL::OpenGL::Build3DMipmaps", XS_SDL__OpenGL_Build3DMipmaps, file); #endif #if XSubPPtmpAAAH newXS("SDL::OpenGL::Build3DMipmaps", XS_SDL__OpenGL_Build3DMipmaps, file); #endif #if XSubPPtmpAAAI newXS("SDL::OpenGL::Build1DMipmapLevels", XS_SDL__OpenGL_Build1DMipmapLevels, file); #endif #if XSubPPtmpAAAJ newXS("SDL::OpenGL::Build1DMipmapLevels", XS_SDL__OpenGL_Build1DMipmapLevels, file); #endif #if XSubPPtmpAAAK newXS("SDL::OpenGL::Build2DMipmapLevels", XS_SDL__OpenGL_Build2DMipmapLevels, file); #endif #if XSubPPtmpAAAL newXS("SDL::OpenGL::Build2DMipmapLevels", XS_SDL__OpenGL_Build2DMipmapLevels, file); #endif #if XSubPPtmpAAAM newXS("SDL::OpenGL::Build3DMipmapLevels", XS_SDL__OpenGL_Build3DMipmapLevels, file); #endif #if XSubPPtmpAAAN newXS("SDL::OpenGL::Build3DMipmapLevels", XS_SDL__OpenGL_Build3DMipmapLevels, file); #endif newXS("SDL::OpenGL::ErrorString", XS_SDL__OpenGL_ErrorString, file); newXS("SDL::OpenGL::NewNurbsRenderer", XS_SDL__OpenGL_NewNurbsRenderer, file); newXS("SDL::OpenGL::DeleteNurbsRenderer", XS_SDL__OpenGL_DeleteNurbsRenderer, file); newXS("SDL::OpenGL::NurbsProperty", XS_SDL__OpenGL_NurbsProperty, file); newXS("SDL::OpenGL::LoadSamplingMatrices", XS_SDL__OpenGL_LoadSamplingMatrices, file); #if XSubPPtmpAAAO newXS("SDL::OpenGL::GetNurbsProperty", XS_SDL__OpenGL_GetNurbsProperty, file); newXS("SDL::OpenGL::NurbsCallback", XS_SDL__OpenGL_NurbsCallback, file); newXS("SDL::OpenGL::NurbsCallbackData", XS_SDL__OpenGL_NurbsCallbackData, file); newXS("SDL::OpenGL::BeginSurface", XS_SDL__OpenGL_BeginSurface, file); newXS("SDL::OpenGL::EndSurface", XS_SDL__OpenGL_EndSurface, file); newXS("SDL::OpenGL::NurbsSurface", XS_SDL__OpenGL_NurbsSurface, file); newXS("SDL::OpenGL::BeginCurve", XS_SDL__OpenGL_BeginCurve, file); newXS("SDL::OpenGL::EndCurve", XS_SDL__OpenGL_EndCurve, file); newXS("SDL::OpenGL::NurbsCurve", XS_SDL__OpenGL_NurbsCurve, file); #endif newXS("SDL::OpenGL::BeginTrim", XS_SDL__OpenGL_BeginTrim, file); newXS("SDL::OpenGL::EndTrim", XS_SDL__OpenGL_EndTrim, file); newXS("SDL::OpenGL::PwlCurve", XS_SDL__OpenGL_PwlCurve, file); newXS("SDL::OpenGL::UnProject", XS_SDL__OpenGL_UnProject, file); #if XSubPPtmpAAAP newXS("SDL::OpenGL::UnProject4", XS_SDL__OpenGL_UnProject4, file); #endif newXS("SDL::OpenGL::Project", XS_SDL__OpenGL_Project, file); newXS("SDL::OpenGL::NewTess", XS_SDL__OpenGL_NewTess, file); newXS("SDL::OpenGL::TessCallback", XS_SDL__OpenGL_TessCallback, file); newXS("SDL::OpenGL::TessProperty", XS_SDL__OpenGL_TessProperty, file); newXS("SDL::OpenGL::GetTessProperty", XS_SDL__OpenGL_GetTessProperty, file); newXS("SDL::OpenGL::TessNormal", XS_SDL__OpenGL_TessNormal, file); newXS("SDL::OpenGL::TessBeginPolygon", XS_SDL__OpenGL_TessBeginPolygon, file); newXS("SDL::OpenGL::TessEndPolygon", XS_SDL__OpenGL_TessEndPolygon, file); newXS("SDL::OpenGL::TessBeginContour", XS_SDL__OpenGL_TessBeginContour, file); newXS("SDL::OpenGL::TessEndContour", XS_SDL__OpenGL_TessEndContour, file); newXS("SDL::OpenGL::DeleteTess", XS_SDL__OpenGL_DeleteTess, file); newXS("SDL::OpenGL::TessVertex", XS_SDL__OpenGL_TessVertex, file); #endif /* Initialisation Section */ #if XSubPPtmpAAAA #if XSubPPtmpAAAB #endif #if XSubPPtmpAAAC #endif #if XSubPPtmpAAAD #endif #if XSubPPtmpAAAE #endif #endif #if XSubPPtmpAAAF #if XSubPPtmpAAAG #endif #if XSubPPtmpAAAH #endif #if XSubPPtmpAAAI #endif #if XSubPPtmpAAAJ #endif #if XSubPPtmpAAAK #endif #if XSubPPtmpAAAL #endif #if XSubPPtmpAAAM #endif #if XSubPPtmpAAAN #endif #if XSubPPtmpAAAO #endif #if XSubPPtmpAAAP #endif #endif #line 5531 "OpenGL.c" /* End of Initialisation Section */ XSRETURN_YES; }