[sdlgit/SDL_perl.git] / src / Core / Video.xs

#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"

#ifndef aTHX_
#define aTHX_
#endif

#include <SDL.h>

MODULE = SDL::Video 	PACKAGE = SDL::Video    PREFIX = video_

=for documentation

The Following are XS bindings to the Video category in the SDL API v2.1.13

Describe on the SDL API site.

See: L<http://www.libsdl.org/cgi/docwiki.cgi/SDL_API#head-813f033ec44914f267f32195aba7d9aff8c410c0>

=cut

SDL_Surface *
video_get_video_surface()
	PREINIT:
		char* CLASS = "SDL::Surface";
	CODE:
		RETVAL = SDL_GetVideoSurface();
	OUTPUT:
		RETVAL


SDL_VideoInfo*
video_get_video_info()
	PREINIT:
		char* CLASS = "SDL::VideoInfo";
	CODE:
		RETVAL = SDL_GetVideoInfo;

	OUTPUT:
	RETVAL

char *
video_video_driver_name( maxlen )
	int maxlen
	CODE:
		char* buffer = safemalloc( sizeof(char) * maxlen); 
		char* str = SvPV( newSVpvn( buffer , maxlen), maxlen );

		RETVAL = SDL_VideoDriverName( str , maxlen);

		sv_2mortal(buffer); 		
		
	OUTPUT:
		RETVAL
Commit	Line	Data
70fd0f8d	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 *
95f5be30	24	video_get_video_surface()
	25	PREINIT:
	26	char* CLASS = "SDL::Surface";
70fd0f8d	27	CODE:
	28	RETVAL = SDL_GetVideoSurface();
	29	OUTPUT:
	30	RETVAL
	31
	32
20f544ea	33	SDL_VideoInfo*
95f5be30	34	video_get_video_info()
20f544ea	35	PREINIT:
20f544ea	36	char* CLASS = "SDL::VideoInfo";
95f5be30	37	CODE:
20f544ea	38	RETVAL = SDL_GetVideoInfo;
8a2411d0	39
8a2411d0	40	OUTPUT:
20f544ea	41	RETVAL
8a2411d0	42
	43	char *
	44	video_video_driver_name( maxlen )
	45	int maxlen
	46	CODE:
	47	char* buffer = safemalloc( sizeof(char) * maxlen);
	48	char* str = SvPV( newSVpvn( buffer , maxlen), maxlen );
	49
	50	RETVAL = SDL_VideoDriverName( str , maxlen);
	51
	52	sv_2mortal(buffer);
	53
	54	OUTPUT:
	55	RETVAL