Removed insane XS for SDL::get_video_info. Added tests for it in core_video.t
[sdlgit/SDL_perl.git] / 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_GetVideoInfo;
39                 OUTPUT:
40         RETVAL