The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
#include "ppport.h"

#ifndef aTHX_
#define aTHX_
#endif

#include <SDL.h>
#include <SDL_version.h>

MODULE = SDL::Version 	PACKAGE = SDL::Version    PREFIX = version_

=for documentation

SDL_Version -- Version structure

  typedef struct SDL_version {
          Uint8 major;
          Uint8 minor;
          Uint8 patch;
  } SDL_version;

=cut

SDL_version *
version_new( CLASS )
	char* CLASS
	CODE:
		RETVAL = safemalloc( sizeof( SDL_version) );
	OUTPUT:
		RETVAL
		

Uint8
version_major ( version, ... )
	SDL_version *version
	CODE:
		RETVAL = version->major;
	OUTPUT:
		RETVAL

Uint8
version_minor ( version, ... )
	SDL_version *version
	CODE:
		RETVAL = version->minor;
	OUTPUT:
		RETVAL

Uint8
version_patch ( version, ... )
	SDL_version *version
	CODE:
		RETVAL = version->patch;
	OUTPUT:
		RETVAL

void
version_DESTROY ( version, ... )
	SDL_version *version
	CODE:
		if( version != NULL)
			safefree(version);