/src/Core/CDROM.xs

http://github.com/PerlGameDev/SDL · Unknown · 29 lines · 22 code · 7 blank · 0 comment · 0 complexity · b4c530dfc8534cccc5ff6936bf1c9f24 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::CDROM 	PACKAGE = SDL::CDROM    PREFIX = cd_
    13. 

  13. 

  14. int
    15. 

  15. cd_num_drives()
    16. 

  16. 	CODE:
    17. 

  17. 		RETVAL = SDL_CDNumDrives();
    18. 

  18. 	OUTPUT:
    19. 

  19. 		RETVAL
    20. 

  20. 

  21. char *
    22. 

  22. cd_name( drive )
    23. 

  23. 	int drive
    24. 

  24. 	CODE:
    25. 

  25. 		RETVAL = strdup(SDL_CDName(drive));
    26. 

  26. 	OUTPUT:
    27. 

  27. 		RETVAL
    28.