/src/Mixer/objects/MixMusic.xs

http://github.com/PerlGameDev/SDL · Unknown · 34 lines · 23 code · 11 blank · 0 comment · 0 complexity · cd7c3c7f45110da857138ad315ba906c MD5 · raw file 

    

  1. #include "EXTERN.h"
    2. 

  2. #include "perl.h"
    3. 

  3. #include "XSUB.h"
    4. 

  4. #include "ppport.h"
    5. 

  5. 

  6. #ifndef aTHX_
    7. 

  7. #define aTHX_
    8. 

  8. #endif
    9. 

  9. 

  10. #include <SDL.h>
    11. 

  11. 

  12. #ifdef HAVE_SDL_MIXER
    13. 

  13. #include <SDL_mixer.h>
    14. 

  14. #endif
    15. 

  15. 

  16. MODULE = SDL::Mixer::MixMusic 	PACKAGE = SDL::Mixer::MixMusic    PREFIX = mixmusic_
    17. 

  17. 

  18. =for documentation
    19. 

  19. 

  20. SDL_mixmusic - This is an opaque data type used for Music data
    21. 

  21. 

  22.   typedef struct _Mix_Music Mix_Music;
    23. 

  23. 

  24. =cut
    25. 

  25. 

  26. #ifdef HAVE_SDL_MIXER
    27. 

  27. 

  28. void
    29. 

  29. mixmusic_DESTROY(mixmusic)
    30. 

  30. 	Mix_Music *mixmusic
    31. 

  31. 	CODE:
    32. 

  32. 		Mix_FreeMusic(mixmusic);
    33. 

  33. 

  34. #endif
    35.