#include <SDL_net.h>
#endif
-#ifdef HAVE_SDL_TTF
-#include <SDL_ttf.h>
-#define TEXT_SOLID 1
-#define TEXT_SHADED 2
-#define TEXT_BLENDED 4
-#define UTF8_SOLID 8
-#define UTF8_SHADED 16
-#define UTF8_BLENDED 32
-#define UNICODE_SOLID 64
-#define UNICODE_SHADED 128
-#define UNICODE_BLENDED 256
-#endif
-
#ifdef HAVE_SMPEG
#include <smpeg/smpeg.h>
#ifdef HAVE_SDL_MIXER
#include <SDL_svg.h>
#endif
+#ifdef HAVE_SDL_TTF
+#include <SDL_ttf.h>
+#endif
+
#ifdef USE_THREADS
#define HAVE_TLS_CONTEXT
#endif
#endif
+void
+windows_force_driver ()
+{
+ const SDL_version *version = SDL_Linked_Version();
+ if(version->patch == 14)
+ {
+ putenv("SDL_VIDEODRIVER=directx");
+ }
+ else
+ {
+ putenv("SDL_VIDEODRIVER=windib");
+ }
+}
+
Uint32
sdl_perl_timer_callback ( Uint32 interval, void* param )
{
PROTOTYPES : DISABLE
char *
-GetError ()
+get_error ()
CODE:
RETVAL = SDL_GetError();
OUTPUT:
RETVAL
int
-Init ( flags )
+init ( flags )
Uint32 flags
CODE:
INIT_NS_APPLICATION
+#if defined WINDOWS || WIN32
+ windows_force_driver();
+#endif
RETVAL = SDL_Init(flags);
#ifdef HAVE_TLS_CONTEXT
Perl_call_atexit(PERL_GET_CONTEXT, (void*)sdl_perl_atexit,0);
RETVAL
int
-InitSubSystem ( flags )
+init_subsystem ( flags )
Uint32 flags
CODE:
RETVAL = SDL_InitSubSystem(flags);
RETVAL
void
-QuitSubSystem ( flags )
+quit_subsystem ( flags )
Uint32 flags
CODE:
SDL_QuitSubSystem(flags);
void
-Quit ()
+quit ()
CODE:
QUIT_NS_APPLICATION
SDL_Quit();
int
-WasInit ( flags )
+was_init ( flags )
Uint32 flags
CODE:
RETVAL = SDL_WasInit(flags);
RETVAL
void
-Delay ( ms )
+delay ( ms )
int ms
CODE:
SDL_Delay(ms);
RETVAL
Uint8
-KeyEventScanCode ( e )
+key_scancode ( e )
SDL_Event *e
CODE:
RETVAL = e->key.keysym.scancode;
RETVAL
Uint8
-MouseButtonState ( e )
+button_state ( e )
SDL_Event *e
CODE:
RETVAL = e->button.state;
RETVAL
Uint8
-MouseButton ( e )
+button ( e )
SDL_Event *e
CODE:
RETVAL = e->button.button;
RETVAL
Uint16
-MouseButtonX ( e )
+button_x ( e )
SDL_Event *e
CODE:
RETVAL = e->button.x;
RETVAL
Uint16
-MouseButtonY ( e )
+button_y ( e )
SDL_Event *e
CODE:
RETVAL = e->button.y;
SDL_SetModState(state);
char *
-GetKeyName ( sym )
+get_key_name ( sym )
int sym
CODE:
RETVAL = SDL_GetKeyName(sym);
OUTPUT:
RETVAL
+#ifdef HAVE_SDL_IMAGE
+
+SDL_Surface *
+IMG_Load ( filename )
+ char *filename
+ CODE:
+ char* CLASS = "SDL::Surface";
+ RETVAL = IMG_Load(filename);
+ OUTPUT:
+ RETVAL
+
+#endif
+
=for comment
Comment out for now as it does not compile
OUTPUT:
RETVAL
-#ifdef HAVE_SDL_IMAGE
-
-SDL_Surface *
-IMGLoad ( fname )
- char *fname
- CODE:
- RETVAL = IMG_Load(fname);
- OUTPUT:
- RETVAL
-
-#endif
-
SDL_Surface*
SurfaceCopy ( surface )
SDL_Surface *surface
}
OUTPUT:
RETVAL
+=skip
SDL_Palette *
NewPalette ( number )
RETVAL->ncolors = number;
OUTPUT:
RETVAL
+=cut
int
PaletteNColors ( palette, ... )
OUTPUT:
RETVAL
-
-=for comment
-
-Comment out for now as it does not compile
-
-SDL_Color *
-PaletteColors ( palette, index, ... )
- SDL_Palette *palette
- int index
- CODE:
- if ( items > 2 ) {
- palette->colors[index].r = SvUV(ST(2));
- palette->colors[index].g = SvUV(ST(3));
- palette->colors[index].b = SvUV(ST(4));
- }
- RETVAL = (SDL_Color *)(palette->colors + index);
- OUTPUT:
- RETVAL
-
-
-
int
-VideoModeOK ( width, height, bpp, flags )
- int width
- int height
- int bpp
- Uint32 flags
+BlitSurface ( src, src_rect, dest, dest_rect )
+ SDL_Surface *src
+ SDL_Surface *dest
+ SDL_Rect *src_rect
+ SDL_Rect *dest_rect
CODE:
- RETVAL = SDL_VideoModeOK(width,height,bpp,flags);
+ RETVAL = SDL_BlitSurface(src,src_rect,dest,dest_rect);
OUTPUT:
RETVAL
-SDL_Surface *
-SetVideoMode ( width, height, bpp, flags )
- int width
- int height
- int bpp
- Uint32 flags
+Uint32
+MapRGB ( pixel_format, r, g, b )
+ SDL_PixelFormat *pixel_format
+ Uint8 r
+ Uint8 g
+ Uint8 b
CODE:
- RETVAL = SDL_SetVideoMode(width,height,bpp,flags);
+ RETVAL = SDL_MapRGB(pixel_format,r,g,b);
OUTPUT:
RETVAL
CODE:
SDL_UpdateRect(surface,x,y,w,h);
+SDL_Surface *
+DisplayFormat ( surface )
+ SDL_Surface *surface
+ CODE:
+ char* CLASS = "SDL::Surface";
+ RETVAL = SDL_DisplayFormat(surface);
+ OUTPUT:
+ RETVAL
+
+SDL_Surface *
+DisplayFormatAlpha ( surface )
+ SDL_Surface *surface
+ CODE:
+ char* CLASS = "SDL::Surface";
+ RETVAL = SDL_DisplayFormatAlpha(surface);
+ OUTPUT:
+ RETVAL
+
void
UpdateRects ( surface, ... )
SDL_Surface *surface
CODE:
- SDL_Rect *rects, *temp;
+ SDL_Rect *rects;
int num_rects,i;
if ( items < 2 ) return;
num_rects = items - 1;
- SDL_UpdateRects(surface,num_rects,rects);
rects = (SDL_Rect *)safemalloc(sizeof(SDL_Rect)*items);
for(i=0;i<num_rects;i++) {
- temp = (SDL_Rect *)SvIV(ST(i+1));
- rects[i].x = temp->x;
- rects[i].y = temp->y;
- rects[i].w = temp->w;
- rects[i].h = temp->h;
- }
+ rects[i] = *(SDL_Rect *)SvIV((SV*)SvRV( ST(i + 1) ));
+ }
SDL_UpdateRects(surface,num_rects,rects);
safefree(rects);
+=for comment
+
+Comment out for now as it does not compile
+
+int
+VideoModeOK ( width, height, bpp, flags )
+ int width
+ int height
+ int bpp
+ Uint32 flags
+ CODE:
+ RETVAL = SDL_VideoModeOK(width,height,bpp,flags);
+ OUTPUT:
+ RETVAL
+
+SDL_Surface *
+SetVideoMode ( width, height, bpp, flags )
+ int width
+ int height
+ int bpp
+ Uint32 flags
+ CODE:
+ RETVAL = SDL_SetVideoMode(width,height,bpp,flags);
+ OUTPUT:
+ RETVAL
+
int
Flip ( surface )
SDL_Surface *surface
RETVAL
Uint32
-MapRGB ( surface, r, g, b )
- SDL_Surface *surface
- Uint8 r
- Uint8 g
- Uint8 b
- CODE:
- RETVAL = SDL_MapRGB(surface->format,r,g,b);
- OUTPUT:
- RETVAL
-
-Uint32
MapRGBA ( surface, r, g, b, a )
SDL_Surface *surface
Uint8 r
OUTPUT:
RETVAL
-SDL_Surface *
-DisplayFormat ( surface )
- SDL_Surface *surface
- CODE:
- RETVAL = SDL_DisplayFormat(surface);
- OUTPUT:
- RETVAL
-
-SDL_Surface*
-DisplayFormatAlpha ( surface )
- SDL_Surface *surface
- CODE:
- RETVAL = SDL_DisplayFormatAlpha(surface);
- OUTPUT:
- RETVAL
-
SDL_Surface*
ConvertRGB ( surface )
SDL_Surface * surface
OUTPUT:
RETVAL
-int
-BlitSurface ( src, src_rect, dest, dest_rect )
- SDL_Surface *src
-
- SDL_Surface *dest
-
- SDL_Rect *src_rect
-
- SDL_Rect *dest_rect
- CODE:
- RETVAL = SDL_BlitSurface(src,src_rect,dest,dest_rect);
- OUTPUT:
- RETVAL
-
=cut
int
-FillRect ( dest, dest_rect, color )
+FillRect ( dest, dest_rect, pixel )
SDL_Surface *dest
-
- SDL_Color *color
-
SDL_Rect *dest_rect
-
+ Uint32 pixel
CODE:
- Uint32 pixel = SDL_MapRGB(dest->format,color->r,color->g,color->b);
RETVAL = SDL_FillRect(dest,dest_rect,pixel);
OUTPUT:
RETVAL
#endif
-#ifdef HAVE_SDL_TTF
-
-int
-TTFInit ()
- CODE:
- RETVAL = TTF_Init();
- OUTPUT:
- RETVAL
-
-void
-TTFQuit ()
- CODE:
- TTF_Quit();
-
-TTF_Font*
-TTFOpenFont ( file, ptsize )
- char *file
- int ptsize
- CODE:
- RETVAL = TTF_OpenFont(file,ptsize);
- OUTPUT:
- RETVAL
-
-int
-TTFGetFontStyle ( font )
- TTF_Font *font
- CODE:
- RETVAL = TTF_GetFontStyle(font);
- OUTPUT:
- RETVAL
-
-void
-TTFSetFontStyle ( font, style )
- TTF_Font *font
- int style
- CODE:
- TTF_SetFontStyle(font,style);
-
-int
-TTFFontHeight ( font )
- TTF_Font *font
- CODE:
- RETVAL = TTF_FontHeight(font);
- OUTPUT:
- RETVAL
-
-int
-TTFFontAscent ( font )
- TTF_Font *font
- CODE:
- RETVAL = TTF_FontAscent(font);
- OUTPUT:
- RETVAL
-
-int
-TTFFontDescent ( font )
- TTF_Font *font
- CODE:
- RETVAL = TTF_FontDescent(font);
- OUTPUT:
- RETVAL
-
-int
-TTFFontLineSkip ( font )
- TTF_Font *font
- CODE:
- RETVAL = TTF_FontLineSkip(font);
- OUTPUT:
- RETVAL
-
-AV*
-TTFGlyphMetrics ( font, ch )
- TTF_Font *font
- Uint16 ch
- CODE:
- int minx, miny, maxx, maxy, advance;
- RETVAL = newAV();
- TTF_GlyphMetrics(font, ch, &minx, &miny, &maxx, &maxy, &advance);
- av_push(RETVAL,newSViv(minx));
- av_push(RETVAL,newSViv(miny));
- av_push(RETVAL,newSViv(maxx));
- av_push(RETVAL,newSViv(maxy));
- av_push(RETVAL,newSViv(advance));
- OUTPUT:
- RETVAL
-
-AV*
-TTFSizeText ( font, text )
- TTF_Font *font
- char *text
- CODE:
- int w,h;
- RETVAL = newAV();
- if(TTF_SizeText(font,text,&w,&h))
- {
- printf("TTF error at TTFSizeText: %s \n", TTF_GetError());
- Perl_croak (aTHX_ "TTF error \n");
- }
- else
- {
- av_push(RETVAL,newSViv(w));
- av_push(RETVAL,newSViv(h));
- sv_2mortal((SV*)RETVAL);
- }
-
-
- OUTPUT:
- RETVAL
-
-AV*
-TTFSizeUTF8 ( font, text )
- TTF_Font *font
- char *text
- CODE:
- int w,h;
- RETVAL = newAV();
- if(TTF_SizeUTF8(font,text,&w,&h))
- {
- av_push(RETVAL,newSViv(w));
- av_push(RETVAL,newSViv(h));
- sv_2mortal((SV*)RETVAL);
-
- }
- else
- {
- printf("TTF error at TTFSizeUTF8 with : %s \n", TTF_GetError());
- Perl_croak (aTHX_ "TTF error \n");
- }
-
- OUTPUT:
- RETVAL
-
-AV*
-TTFSizeUNICODE ( font, text )
- TTF_Font *font
- const Uint16 *text
- CODE:
- int w,h;
- RETVAL = newAV();
- if(TTF_SizeUNICODE(font,text,&w,&h))
- {
- av_push(RETVAL,newSViv(w));
- av_push(RETVAL,newSViv(h));
- sv_2mortal((SV*)RETVAL);
-
- }
- else
- {
- printf("TTF error at TTFSizeUNICODE : %s \n", TTF_GetError());
- Perl_croak (aTHX_ "TTF error \n");
- }
-
- OUTPUT:
- RETVAL
-
-=for comment
-
-SDL_Surface*
-TTFRenderTextSolid ( font, text, fg )
- TTF_Font *font
- char *text
- SDL_Color *fg
- CODE:
- RETVAL = TTF_RenderText_Solid(font,text,*fg);
- OUTPUT:
- RETVAL
-
-SDL_Surface*
-TTFRenderUTF8Solid ( font, text, fg )
- TTF_Font *font
- char *text
- SDL_Color *fg
- CODE:
- RETVAL = TTF_RenderUTF8_Solid(font,text,*fg);
- OUTPUT:
- RETVAL
-
-SDL_Surface*
-TTFRenderUNICODESolid ( font, text, fg )
- TTF_Font *font
- const Uint16 *text
- SDL_Color *fg
- CODE:
- RETVAL = TTF_RenderUNICODE_Solid(font,text,*fg);
- OUTPUT:
- RETVAL
-
-SDL_Surface*
-TTFRenderGlyphSolid ( font, ch, fg )
- TTF_Font *font
- Uint16 ch
- SDL_Color *fg
- CODE:
- RETVAL = TTF_RenderGlyph_Solid(font,ch,*fg);
- OUTPUT:
- RETVAL
-
-SDL_Surface*
-TTFRenderTextShaded ( font, text, fg, bg )
- TTF_Font *font
- char *text
- SDL_Color *fg
- SDL_Color *bg
- CODE:
- RETVAL = TTF_RenderText_Shaded(font,text,*fg,*bg);
- OUTPUT:
- RETVAL
-
-SDL_Surface*
-TTFRenderUTF8Shaded( font, text, fg, bg )
- TTF_Font *font
- char *text
- SDL_Color *fg
- SDL_Color *bg
- CODE:
- RETVAL = TTF_RenderUTF8_Shaded(font,text,*fg,*bg);
- OUTPUT:
- RETVAL
-
-SDL_Surface*
-TTFRenderUNICODEShaded( font, text, fg, bg )
- TTF_Font *font
- const Uint16 *text
- SDL_Color *fg
- SDL_Color *bg
- CODE:
- RETVAL = TTF_RenderUNICODE_Shaded(font,text,*fg,*bg);
- OUTPUT:
- RETVAL
-
-SDL_Surface*
-TTFRenderGlyphShaded ( font, ch, fg, bg )
- TTF_Font *font
- Uint16 ch
- SDL_Color *fg
- SDL_Color *bg
- CODE:
- RETVAL = TTF_RenderGlyph_Shaded(font,ch,*fg,*bg);
- OUTPUT:
- RETVAL
-
-SDL_Surface*
-TTFRenderTextBlended( font, text, fg )
- TTF_Font *font
- char *text
- SDL_Color *fg
- CODE:
- RETVAL = TTF_RenderText_Blended(font,text,*fg);
- OUTPUT:
- RETVAL
-
-SDL_Surface*
-TTFRenderUTF8Blended( font, text, fg )
- TTF_Font *font
- char *text
- SDL_Color *fg
- CODE:
- RETVAL = TTF_RenderUTF8_Blended(font,text,*fg);
- OUTPUT:
- RETVAL
-
-SDL_Surface*
-TTFRenderUNICODEBlended( font, text, fg )
- TTF_Font *font
- const Uint16 *text
- SDL_Color *fg
- CODE:
- RETVAL = TTF_RenderUNICODE_Blended(font,text,*fg);
- OUTPUT:
- RETVAL
-
-SDL_Surface*
-TTFRenderGlyphBlended( font, ch, fg )
- TTF_Font *font
- Uint16 ch
- SDL_Color *fg
- CODE:
- RETVAL = TTF_RenderGlyph_Blended(font,ch,*fg);
- OUTPUT:
- RETVAL
-
-void
-TTFCloseFont ( font )
- TTF_Font *font
- CODE:
- TTF_CloseFont(font);
- font=NULL; //to be safe http://sdl.beuc.net/sdl.wiki/SDL_ttf_copy_Functions_Management_TTF_CloseFont
-
-SDL_Surface*
-TTFPutString ( font, mode, surface, x, y, fg, bg, text )
- TTF_Font *font
- int mode
- SDL_Surface *surface
- int x
- int y
- SDL_Color *fg
- SDL_Color *bg
- char *text
- CODE:
- SDL_Surface *img;
- SDL_Rect dest;
- int w,h;
- dest.x = x;
- dest.y = y;
- RETVAL = NULL;
- switch (mode) {
- case TEXT_SOLID:
- img = TTF_RenderText_Solid(font,text,*fg);
- TTF_SizeText(font,text,&w,&h);
- dest.w = w;
- dest.h = h;
- break;
- case TEXT_SHADED:
- img = TTF_RenderText_Shaded(font,text,*fg,*bg);
- TTF_SizeText(font,text,&w,&h);
- dest.w = w;
- dest.h = h;
- break;
- case TEXT_BLENDED:
- img = TTF_RenderText_Blended(font,text,*fg);
- TTF_SizeText(font,text,&w,&h);
- dest.w = w;
- dest.h = h;
- break;
- case UTF8_SOLID:
- img = TTF_RenderUTF8_Solid(font,text,*fg);
- TTF_SizeUTF8(font,text,&w,&h);
- dest.w = w;
- dest.h = h;
- break;
- case UTF8_SHADED:
- img = TTF_RenderUTF8_Shaded(font,text,*fg,*bg);
- TTF_SizeUTF8(font,text,&w,&h);
- dest.w = w;
- dest.h = h;
- break;
- case UTF8_BLENDED:
- img = TTF_RenderUTF8_Blended(font,text,*fg);
- TTF_SizeUTF8(font,text,&w,&h);
- dest.w = w;
- dest.h = h;
- break;
- case UNICODE_SOLID:
- img = TTF_RenderUNICODE_Solid(font,(Uint16*)text,*fg);
- TTF_SizeUNICODE(font,(Uint16*)text,&w,&h);
- dest.w = w;
- dest.h = h;
- break;
- case UNICODE_SHADED:
- img = TTF_RenderUNICODE_Shaded(font,(Uint16*)text,*fg,*bg);
- TTF_SizeUNICODE(font,(Uint16*)text,&w,&h);
- dest.w = w;
- dest.h = h;
- break;
- case UNICODE_BLENDED:
- img = TTF_RenderUNICODE_Blended(font,(Uint16*)text,*fg);
- TTF_SizeUNICODE(font,(Uint16*)text,&w,&h);
- dest.w = w;
- dest.h = h;
- break;
- default:
- img = TTF_RenderText_Shaded(font,text,*fg,*bg);
- TTF_SizeText(font,text,&w,&h);
- dest.w = w;
- dest.h = h;
- }
- if ( img && img->format && img->format->palette ) {
- SDL_Color *c = &img->format->palette->colors[0];
- Uint32 key = SDL_MapRGB( img->format, c->r, c->g, c->b );
- SDL_SetColorKey(img,SDL_SRCCOLORKEY,key );
- if (0 > SDL_BlitSurface(img,NULL,surface,&dest)) {
- SDL_FreeSurface(img);
- RETVAL = NULL;
- } else {
- RETVAL = img;
- }
- }
- OUTPUT:
- RETVAL
-
-=cut
-
-#endif
-
-SDL_Overlay*
-CreateYUVOverlay ( width, height, format, display )
- int width
- int height
- Uint32 format
- SDL_Surface *display
- CODE:
- RETVAL = SDL_CreateYUVOverlay ( width, height, format, display );
- OUTPUT:
- RETVAL
-
int
LockYUVOverlay ( overlay )
SDL_Overlay *overlay
OUTPUT:
RETVAL
-void
-FreeYUVOverlay ( overlay )
- SDL_Overlay *overlay
- CODE:
- SDL_FreeYUVOverlay ( overlay );
-
Uint32
OverlayFormat ( overlay, ... )
SDL_Overlay *overlay
#endif
+#ifdef HAVE_SDL_TTF
+
+int
+TTF_Init ()
+ CODE:
+ RETVAL = TTF_Init();
+ OUTPUT:
+ RETVAL
+
+void
+TTF_Quit ()
+ CODE:
+ TTF_Quit();
+
+TTF_Font*
+TTF_OpenFont ( file, ptsize )
+ char *file
+ int ptsize
+ CODE:
+ char* CLASS = "SDL::TTF_Font";
+ RETVAL = TTF_OpenFont(file,ptsize);
+ OUTPUT:
+ RETVAL
+
+AV*
+TTF_SizeText ( font, text )
+ TTF_Font *font
+ char *text
+ CODE:
+ int w,h;
+ RETVAL = newAV();
+ if(TTF_SizeText(font,text,&w,&h))
+ {
+ printf("TTF error at TTFSizeText: %s \n", TTF_GetError());
+ Perl_croak (aTHX_ "TTF error \n");
+ }
+ else
+ {
+ av_push(RETVAL,newSViv(w));
+ av_push(RETVAL,newSViv(h));
+ sv_2mortal((SV*)RETVAL);
+ }
+ OUTPUT:
+ RETVAL
+
+SDL_Surface*
+TTF_RenderText_Blended ( font, text, fg )
+ TTF_Font *font
+ char *text
+ SDL_Color *fg
+ CODE:
+ char* CLASS = "SDL::Surface";
+ RETVAL = TTF_RenderText_Blended(font,text,*fg);
+ OUTPUT:
+ RETVAL
+
+#endif
+
MODULE = SDL PACKAGE = SDL
PROTOTYPES : DISABLE
projects / sdlgit/SDL_perl.git / blobdiff