src/Core/Video.xs

   1 #include "EXTERN.h"
   2 #include "perl.h"
   3 #include "XSUB.h"
   4
   5 #ifndef aTHX_
   6 #define aTHX_
   7 #endif
   8
   9 #include <SDL.h>
  10
  11 MODULE = SDL::Video     PACKAGE = SDL::Video    PREFIX = video_
  12
  13 =for documentation
  14
  15 The Following are XS bindings to the Video category in the SDL API v2.1.13
  16
  17 Describe on the SDL API site.
  18
  19 See: L<http://www.libsdl.org/cgi/docwiki.cgi/SDL_API#head-813f033ec44914f267f32195aba7d9aff8c410c0>
  20
  21 =cut
  22
  23 SDL_Surface *
  24 video_get_video_surface()
  25         PREINIT:
  26                 char* CLASS = "SDL::Surface";
  27         CODE:
  28                 RETVAL = SDL_GetVideoSurface();
  29         OUTPUT:
  30                 RETVAL
  31
  32
  33 SDL_VideoInfo*
  34 video_get_video_info()
  35         PREINIT:
  36                 char* CLASS = "SDL::VideoInfo";
  37         CODE:
  38                 RETVAL = (SDL_VideoInfo *) SDL_GetVideoInfo();
  39
  40         OUTPUT:
  41                 RETVAL
  42
  43 SV *
  44 video_video_driver_name( )
  45
  46         CODE:
  47                 char buffer[1024];
  48                 if ( SDL_VideoDriverName(buffer, 1024) != NULL )
  49                 {
  50                         RETVAL =  newSVpv(buffer, 0);
  51                 }
  52                 else
  53                          XSRETURN_UNDEF;
  54         OUTPUT:
  55                 RETVAL
  56
  57 AV*
  58 list_modes ( format, flags )
  59         Uint32 flags
  60         SDL_PixelFormat *format
  61
  62         CODE:
  63                 SDL_Rect **mode;
  64                 RETVAL = newAV();
  65                 mode = SDL_ListModes(format,flags);
  66                 if (mode == (SDL_Rect**)-1 ) {
  67                         av_push(RETVAL,newSVpv("all",0));
  68                 } else if (! mode ) {
  69                         av_push(RETVAL,newSVpv("none",0));
  70                 } else {
  71                         for (;*mode;mode++) {
  72                                 av_push(RETVAL,newSViv(PTR2IV(*mode)));
  73                         }
  74                 }
  75         OUTPUT:
  76                 RETVAL
  77
  78
  79
  80