/src/Mixer/objects/MixChunk.xs

http://github.com/PerlGameDev/SDL · Unknown · 66 lines · 51 code · 15 blank · 0 comment · 0 complexity · f374c94f87a0a23f5fa6c51bb882ce84 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. #include "defines.h"
    7. 

  7. 

  8. #ifndef aTHX_
    9. 

  9. #define aTHX_
    10. 

  10. #endif
    11. 

  11. 

  12. #include <SDL.h>
    13. 

  13. 

  14. #ifdef HAVE_SDL_MIXER
    15. 

  15. #include <SDL_mixer.h>
    16. 

  16. 

  17. void _free_mixchunk(void *object)
    18. 

  18. {
    19. 

  19. 	/* int allocated: if 1 struct has its own allocated buffer, if 0 abuf should not be freed */
    20. 

  20. 	if(((Mix_Chunk *)object)->allocated)
    21. 

  21. 		Mix_FreeChunk((Mix_Chunk *)object);
    22. 

  22. }
    23. 

  23. 

  24. #endif
    25. 

  25. 

  26. MODULE = SDL::Mixer::MixChunk 	PACKAGE = SDL::Mixer::MixChunk    PREFIX = mixchunk_
    27. 

  27. 

  28. =for documentation
    29. 

  29. 

  30. SDL_MixChunk - Stores audio data in memory
    31. 

  31. 

  32.   typedef struct {
    33. 

  33.           int allocated;
    34. 

  34.           Uint8 *abuf;
    35. 

  35.           Uint32 alen;
    36. 

  36.           Uint8 volume;
    37. 

  37.   } Mix_Chunk;
    38. 

  38. 

  39. =cut
    40. 

  40. 

  41. #ifdef HAVE_SDL_MIXER
    42. 

  42. 

  43. Uint32
    44. 

  44. mixchunk_alen ( mixchunk )
    45. 

  45. 	Mix_Chunk *mixchunk
    46. 

  46. 	CODE:
    47. 

  47. 		RETVAL = mixchunk->alen;
    48. 

  48. 	OUTPUT:
    49. 

  49. 		RETVAL
    50. 

  50. 

  51. Uint8
    52. 

  52. mixchunk_volume ( mixchunk, ... )
    53. 

  53. 	Mix_Chunk *mixchunk
    54. 

  54. 	CODE:
    55. 

  55. 		if (items > 1 ) mixchunk->volume = SvIV(ST(1)); 
    56. 

  56. 		RETVAL = mixchunk->volume;
    57. 

  57. 	OUTPUT:
    58. 

  58. 		RETVAL
    59. 

  59. 

  60. void
    61. 

  61. mixchunk_DESTROY(bag)
    62. 

  62. 	SV *bag
    63. 

  63. 	CODE:
    64. 

  64. 		objDESTROY(bag, _free_mixchunk);
    65. 

  65. 

  66. #endif
    67.