/src/Core/objects/CDTrack.xs

http://github.com/PerlGameDev/SDL · Unknown · 44 lines · 37 code · 7 blank · 0 comment · 0 complexity · a48d77d73221b74524b123fb715645b4 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. MODULE = SDL::CDTrack 	PACKAGE = SDL::CDTrack    PREFIX = cdt_
    13. 

  13. 

  14. Uint8
    15. 

  15. cdt_id( track )
    16. 

  16. 	SDL_CDtrack *track
    17. 

  17. 	CODE:
    18. 

  18. 		RETVAL = track->id;
    19. 

  19. 	OUTPUT:
    20. 

  20. 		RETVAL
    21. 

  21. 

  22. Uint8
    23. 

  23. cdt_type( track )
    24. 

  24. 	SDL_CDtrack *track
    25. 

  25. 	CODE:
    26. 

  26. 		RETVAL = track->type;
    27. 

  27. 	OUTPUT:
    28. 

  28. 		RETVAL
    29. 

  29. 

  30. Uint16
    31. 

  31. cdt_length( track )
    32. 

  32. 	SDL_CDtrack *track
    33. 

  33. 	CODE:
    34. 

  34. 		RETVAL = track->length;
    35. 

  35. 	OUTPUT:
    36. 

  36. 		RETVAL
    37. 

  37. 

  38. Uint32
    39. 

  39. cdt_offset( track )
    40. 

  40. 	SDL_CDtrack *track
    41. 

  41. 	CODE:
    42. 

  42. 		RETVAL = track->offset;
    43. 

  43. 	OUTPUT: 
    44. 

  44. 		RETVAL
    45.