/src/Core/Joystick.xs

http://github.com/PerlGameDev/SDL · Unknown · 138 lines · 118 code · 20 blank · 0 comment · 0 complexity · 90437afc14b6864926bad02fcdcef73b 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::Joystick 	PACKAGE = SDL::Joystick    PREFIX = joystick_
    13. 

  13. 

  14. SDL_Joystick *
    15. 

  15. joystick_new (CLASS, index ) 
    16. 

  16. 	char* CLASS
    17. 

  17. 	int index
    18. 

  18. 	CODE:
    19. 

  19. 		RETVAL = SDL_JoystickOpen(index);
    20. 

  20. 	OUTPUT:
    21. 

  21. 		RETVAL
    22. 

  22. 

  23. 

  24. int
    25. 

  25. joystick_num_joysticks ()
    26. 

  26. 	CODE:
    27. 

  27. 		RETVAL = SDL_NumJoysticks();
    28. 

  28. 	OUTPUT:
    29. 

  29. 		RETVAL
    30. 

  30. 

  31. char *
    32. 

  32. joystick_name ( index )
    33. 

  33. 	int index
    34. 

  34. 	CODE:
    35. 

  35. 		RETVAL = (char*)SDL_JoystickName(index);
    36. 

  36. 	OUTPUT:
    37. 

  37. 		RETVAL
    38. 

  38. 

  39. int
    40. 

  40. joystick_opened ( index )
    41. 

  41. 	int index
    42. 

  42. 	CODE:
    43. 

  43. 		RETVAL = SDL_JoystickOpened(index);
    44. 

  44. 	OUTPUT:
    45. 

  45. 		RETVAL
    46. 

  46. 

  47. int
    48. 

  48. joystick_index ( joystick )
    49. 

  49. 	SDL_Joystick *joystick
    50. 

  50. 	CODE:
    51. 

  51. 		RETVAL = SDL_JoystickIndex(joystick);
    52. 

  52. 	OUTPUT:
    53. 

  53. 		RETVAL
    54. 

  54. 

  55. int
    56. 

  56. joystick_num_axes ( joystick )
    57. 

  57. 	SDL_Joystick *joystick
    58. 

  58. 	CODE:
    59. 

  59. 		RETVAL = SDL_JoystickNumAxes(joystick);
    60. 

  60. 	OUTPUT:
    61. 

  61. 		RETVAL
    62. 

  62. 

  63. int
    64. 

  64. joystick_num_balls ( joystick )
    65. 

  65. 	SDL_Joystick *joystick
    66. 

  66. 	CODE:
    67. 

  67. 		RETVAL = SDL_JoystickNumBalls(joystick);
    68. 

  68. 	OUTPUT:
    69. 

  69. 		RETVAL
    70. 

  70. 

  71. int
    72. 

  72. joystick_num_hats ( joystick )
    73. 

  73. 	SDL_Joystick *joystick
    74. 

  74. 	CODE:
    75. 

  75. 		RETVAL = SDL_JoystickNumHats(joystick);
    76. 

  76. 	OUTPUT:
    77. 

  77. 		RETVAL
    78. 

  78. 

  79. int
    80. 

  80. joystick_num_buttons ( joystick )
    81. 

  81. 	SDL_Joystick *joystick
    82. 

  82. 	CODE:
    83. 

  83. 		RETVAL = SDL_JoystickNumButtons(joystick);
    84. 

  84. 	OUTPUT:
    85. 

  85. 		RETVAL
    86. 

  86. 

  87. void
    88. 

  88. joystick_update ()
    89. 

  89. 	CODE:
    90. 

  90. 		SDL_JoystickUpdate();
    91. 

  91. 

  92. Sint16
    93. 

  93. joystick_get_axis ( joystick, axis )
    94. 

  94. 	SDL_Joystick *joystick
    95. 

  95. 	int axis
    96. 

  96. 	CODE:
    97. 

  97. 		RETVAL = SDL_JoystickGetAxis(joystick,axis);
    98. 

  98. 	OUTPUT:
    99. 

  99. 		RETVAL
    100. 

  100. 

  101. Uint8
    102. 

  102. joystick_get_hat ( joystick, hat )
    103. 

  103. 	SDL_Joystick *joystick
    104. 

  104. 	int hat 
    105. 

  105. 	CODE:
    106. 

  106. 		RETVAL = SDL_JoystickGetHat(joystick,hat);
    107. 

  107. 	OUTPUT:
    108. 

  108. 		RETVAL
    109. 

  109. 

  110. Uint8
    111. 

  111. joystick_get_button ( joystick, button)
    112. 

  112. 	SDL_Joystick *joystick
    113. 

  113. 	int button 
    114. 

  114. 	CODE:
    115. 

  115. 		RETVAL = SDL_JoystickGetButton(joystick,button);
    116. 

  116. 	OUTPUT:
    117. 

  117. 		RETVAL
    118. 

  118. 

  119. AV *
    120. 

  120. joystick_get_ball ( joystick, ball )
    121. 

  121. 	SDL_Joystick *joystick
    122. 

  122. 	int ball 
    123. 

  123. 	CODE:
    124. 

  124. 		int success,dx,dy;
    125. 

  125. 		success = SDL_JoystickGetBall(joystick,ball,&dx,&dy);
    126. 

  126. 		RETVAL = (AV*)sv_2mortal((SV*)newAV());
    127. 

  127. 		av_push(RETVAL,newSViv(success));
    128. 

  128. 		av_push(RETVAL,newSViv(dx));
    129. 

  129. 		av_push(RETVAL,newSViv(dy));
    130. 

  130. 	OUTPUT:
    131. 

  131. 		RETVAL	
    132. 

  132. 

  133. void
    134. 

  134. joystick_DESTROY ( joystick )
    135. 

  135. 	SDL_Joystick *joystick
    136. 

  136. 	CODE:
    137. 

  137. 		SDL_JoystickClose(joystick);
    138.