/src/Core/objects/Version.xs

http://github.com/PerlGameDev/SDL · Unknown · 65 lines · 52 code · 13 blank · 0 comment · 0 complexity · 8237d76979fca70b2cf2c389a10358e0 MD5 · raw file 

    

  1. #include "EXTERN.h"
    2. 

  2. #include "perl.h"
    3. 

  3. #include "XSUB.h"
    4. 

  4. #include "ppport.h"
    5. 

  5. #include "helper.h"
    6. 

  6. 

  7. #ifndef aTHX_
    8. 

  8. #define aTHX_
    9. 

  9. #endif
    10. 

  10. 

  11. #include <SDL.h>
    12. 

  12. #include <SDL_version.h>
    13. 

  13. 

  14. MODULE = SDL::Version 	PACKAGE = SDL::Version    PREFIX = version_
    15. 

  15. 

  16. =for documentation
    17. 

  17. 

  18. SDL_Version -- Version structure
    19. 

  19. 

  20.   typedef struct SDL_version {
    21. 

  21.           Uint8 major;
    22. 

  22.           Uint8 minor;
    23. 

  23.           Uint8 patch;
    24. 

  24.   } SDL_version;
    25. 

  25. 

  26. =cut
    27. 

  27. 

  28. SDL_version *
    29. 

  29. version_new( CLASS )
    30. 

  30. 	char* CLASS
    31. 

  31. 	CODE:
    32. 

  32. 		RETVAL = safemalloc( sizeof( SDL_version) );
    33. 

  33. 	OUTPUT:
    34. 

  34. 		RETVAL
    35. 

  35. 		
    36. 

  36. 

  37. Uint8
    38. 

  38. version_major ( version, ... )
    39. 

  39. 	SDL_version *version
    40. 

  40. 	CODE:
    41. 

  41. 		RETVAL = version->major;
    42. 

  42. 	OUTPUT:
    43. 

  43. 		RETVAL
    44. 

  44. 

  45. Uint8
    46. 

  46. version_minor ( version, ... )
    47. 

  47. 	SDL_version *version
    48. 

  48. 	CODE:
    49. 

  49. 		RETVAL = version->minor;
    50. 

  50. 	OUTPUT:
    51. 

  51. 		RETVAL
    52. 

  52. 

  53. Uint8
    54. 

  54. version_patch ( version, ... )
    55. 

  55. 	SDL_version *version
    56. 

  56. 	CODE:
    57. 

  57. 		RETVAL = version->patch;
    58. 

  58. 	OUTPUT:
    59. 

  59. 		RETVAL
    60. 

  60. 

  61. void
    62. 

  62. version_DESTROY ( bag )
    63. 

  63. 	SV *bag
    64. 

  64. 	CODE:
    65. 

  65. 		objDESTROY(bag, safefree);
    66.