/src/GFX/GFX.xs
http://github.com/PerlGameDev/SDL · Unknown · 60 lines · 44 code · 16 blank · 0 comment · 0 complexity · afb6ad92147464b743f66eccd79b1d35 MD5 · raw file
- #include "EXTERN.h"
- #include "perl.h"
- #include "XSUB.h"
- #include <SDL.h>
- #ifdef HAVE_SDL_GFX_PRIMITIVES
- #include <SDL_gfxPrimitives.h>
- #endif
- SDL_version *linked_version = NULL;
- #ifndef SDL_GFXPRIMITIVES_MAJOR
- #define SDL_GFXPRIMITIVES_MAJOR 0
- #endif
- #ifndef SDL_GFXPRIMITIVES_MINOR
- #define SDL_GFXPRIMITIVES_MINOR 0
- #endif
- #ifndef SDL_GFXPRIMITIVES_MICRO
- #define SDL_GFXPRIMITIVES_MICRO 0
- #endif
- #ifndef SDL_GFXPRIMITIVES_VERSION
- #define SDL_GFXPRIMITIVES_VERSION(X) \
- { \
- (X)->major = SDL_GFXPRIMITIVES_MAJOR; \
- (X)->minor = SDL_GFXPRIMITIVES_MINOR; \
- (X)->patch = SDL_GFXPRIMITIVES_MICRO; \
- }
- #endif
- MODULE = SDL::GFX PACKAGE = SDL::GFX PREFIX = gfx_
- =for documentation
- The Following are XS bindings to the SDL_gfx Library
- Described here:
- See: L<http:/*www.ferzkopp.net/joomla/content/view/19/14/> */
- =cut
- const SDL_version *
- gfx_linked_version()
- PREINIT:
- char* CLASS = "SDL::Version";
- CODE:
- if(linked_version == NULL)
- {
- linked_version = safemalloc(sizeof(SDL_version));
- }
- SDL_GFXPRIMITIVES_VERSION(linked_version);
-
- RETVAL = linked_version;
- OUTPUT:
- RETVAL