/src/Core/objects/CD.xs

http://github.com/PerlGameDev/SDL · Unknown · 133 lines · 115 code · 18 blank · 0 comment · 0 complexity · e267a959c54eee027939f73b114d5ef0 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::CD 	PACKAGE = SDL::CD    PREFIX = cdr_
    13. 

  13. 

  14. SDL_CD *
    15. 

  15. cdr_new ( CLASS, drive )
    16. 

  16. 	char* CLASS
    17. 

  17. 	int drive
    18. 

  18. 	CODE:
    19. 

  19. 		RETVAL = SDL_CDOpen(drive);
    20. 

  20. 	OUTPUT:
    21. 

  21. 		RETVAL
    22. 

  22. 

  23. 

  24. Uint32
    25. 

  25. cdr_status ( cd )
    26. 

  26. 	SDL_CD *cd 
    27. 

  27. 	CODE:
    28. 

  28. 		RETVAL = SDL_CDStatus(cd);
    29. 

  29. 	OUTPUT:
    30. 

  30. 		RETVAL
    31. 

  31. 

  32. int
    33. 

  33. cdr_play_tracks ( cd, start_track, ntracks, start_frame, nframes )
    34. 

  34. 	SDL_CD *cd
    35. 

  35. 	int start_track
    36. 

  36. 	int ntracks
    37. 

  37. 	int start_frame
    38. 

  38. 	int nframes
    39. 

  39. 	CODE:
    40. 

  40. 		RETVAL = SDL_CDPlayTracks(cd,start_track,start_frame,ntracks,nframes);
    41. 

  41. 	OUTPUT:
    42. 

  42. 		RETVAL
    43. 

  43. 

  44. int
    45. 

  45. cdr_play ( cd, start, length )
    46. 

  46. 	SDL_CD *cd
    47. 

  47. 	int start
    48. 

  48. 	int length
    49. 

  49. 	CODE:
    50. 

  50. 		RETVAL = SDL_CDPlay(cd,start,length);
    51. 

  51. 	OUTPUT:
    52. 

  52. 		RETVAL
    53. 

  53. 

  54. int
    55. 

  55. cdr_pause ( cd )
    56. 

  56. 	SDL_CD *cd
    57. 

  57. 	CODE:
    58. 

  58. 		RETVAL = SDL_CDPause(cd);
    59. 

  59. 	OUTPUT:
    60. 

  60. 		RETVAL
    61. 

  61. 

  62. int
    63. 

  63. cdr_resume ( cd )
    64. 

  64. 	SDL_CD *cd
    65. 

  65. 	CODE:
    66. 

  66. 		RETVAL = SDL_CDResume(cd);
    67. 

  67. 	OUTPUT:
    68. 

  68. 		RETVAL
    69. 

  69. 

  70. int
    71. 

  71. cdr_stop ( cd )
    72. 

  72. 	SDL_CD *cd
    73. 

  73. 	CODE:
    74. 

  74. 		RETVAL = SDL_CDStop(cd);
    75. 

  75. 	OUTPUT:
    76. 

  76. 		RETVAL
    77. 

  77. 

  78. int
    79. 

  79. cdr_eject ( cd )
    80. 

  80. 	SDL_CD *cd
    81. 

  81. 	CODE:
    82. 

  82. 		RETVAL = SDL_CDEject(cd);
    83. 

  83. 	OUTPUT:
    84. 

  84. 		RETVAL
    85. 

  85. 

  86. int
    87. 

  87. cdr_id ( cd )
    88. 

  88. 	SDL_CD *cd
    89. 

  89. 	CODE:
    90. 

  90. 		RETVAL = cd->id;
    91. 

  91. 	OUTPUT: 
    92. 

  92. 		RETVAL
    93. 

  93. 

  94. int
    95. 

  95. cdr_num_tracks ( cd )
    96. 

  96. 	SDL_CD *cd
    97. 

  97. 	CODE:
    98. 

  98. 		RETVAL = cd->numtracks;
    99. 

  99. 	OUTPUT:
    100. 

  100. 		RETVAL
    101. 

  101. 

  102. int
    103. 

  103. cdr_cur_track ( cd )
    104. 

  104. 	SDL_CD *cd
    105. 

  105. 	CODE:
    106. 

  106. 		RETVAL = cd->cur_track;
    107. 

  107. 	OUTPUT:
    108. 

  108. 		RETVAL
    109. 

  109. 

  110. int
    111. 

  111. cdr_cur_frame ( cd )
    112. 

  112. 	SDL_CD *cd
    113. 

  113. 	CODE:
    114. 

  114. 		RETVAL = cd->cur_frame;
    115. 

  115. 	OUTPUT:
    116. 

  116. 		RETVAL
    117. 

  117. 

  118. SDL_CDtrack *
    119. 

  119. cdr_track ( cd, number )
    120. 

  120. 	SDL_CD *cd
    121. 

  121. 	int number
    122. 

  122. 	PREINIT:
    123. 

  123. 		char* CLASS = "SDL::CDTrack";
    124. 

  124. 	CODE:
    125. 

  125. 		RETVAL = (SDL_CDtrack *)(cd->track + number);
    126. 

  126. 	OUTPUT:
    127. 

  127. 		RETVAL
    128. 

  128. 

  129. void
    130. 

  130. cdr_DESTROY ( cd )
    131. 

  131. 	SDL_CD *cd
    132. 

  132. 	CODE:
    133. 

  133. 		SDL_CDClose(cd);
    134.