PageRenderTime 29ms CodeModel.GetById 25ms RepoModel.GetById 0ms app.codeStats 0ms

/src/Core/objects/keysym.xs

http://github.com/PerlGameDev/SDL
Unknown | 98 lines | 80 code | 18 blank | 0 comment | 0 complexity | 68cb621fc19ce1956ab9a1e43cc718da MD5 | raw file
Possible License(s): AGPL-1.0, GPL-2.0 
    

  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::keysym 	PACKAGE = SDL::keysym    PREFIX = keysym_
    13. 

  13. 

  14. =for documentation
    15. 

  15. 

  16. SDL_keysym -- keysym structure
    17. 

  17. 

  18.  typedef struct{
    19. 

  19.   Uint8 scancode;
    20. 

  20.   SDLKey sym;
    21. 

  21.   SDLMod mod;
    22. 

  22.   Uint16 unicode;
    23. 

  23.  } SDL_keysym;
    24. 

  24. 

  25. 

  26. =cut
    27. 

  27. 

  28. SDL_keysym *
    29. 

  29. keysym_new ( CLASS )
    30. 

  30. 	char* CLASS
    31. 

  31. 	CODE:
    32. 

  32. 		RETVAL = safemalloc(sizeof(SDL_keysym));
    33. 

  33. 	OUTPUT:
    34. 

  34. 		RETVAL
    35. 

  35. 

  36. Uint8
    37. 

  37. keysym_scancode ( keysym, ... )
    38. 

  38. 	SDL_keysym *keysym
    39. 

  39. 	CODE: 
    40. 

  40. 		if( items > 1 )
    41. 

  41. 		{
    42. 

  42. 			keysym->scancode = SvIV( ST(1) );
    43. 

  43. 		}
    44. 

  44. 

  45. 		RETVAL = keysym->scancode;
    46. 

  46. 	OUTPUT:
    47. 

  47. 		RETVAL
    48. 

  48. 

  49. SDLKey *
    50. 

  50. keysym_sym ( keysym, ... )
    51. 

  51. 	SDL_keysym *keysym
    52. 

  52. 	PREINIT:
    53. 

  53. 		char* CLASS = "SDL::Key";
    54. 

  54. 	CODE: 
    55. 

  55. 		if( items > 1 )
    56. 

  56. 		{
    57. 

  57. 			SDLKey *kp  = (SDLKey * )SvPV( ST(1), PL_na) ;
    58. 

  58. 			keysym->sym = *kp;
    59. 

  59. 		}
    60. 

  60. 

  61. 		RETVAL = &(keysym->sym);
    62. 

  62. 	OUTPUT:
    63. 

  63. 		RETVAL
    64. 

  64. 

  65. SDLMod *
    66. 

  66. keysym_mod ( keysym, ... )
    67. 

  67. 	SDL_keysym *keysym
    68. 

  68. 	PREINIT:
    69. 

  69. 		char* CLASS = "SDL::Mod";
    70. 

  70. 	CODE: 
    71. 

  71. 		if( items > 1 )
    72. 

  72. 		{
    73. 

  73. 			SDLMod *mp  = (SDLMod * )SvPV( ST(1), PL_na) ;
    74. 

  74. 			keysym->mod = *mp;
    75. 

  75. 		}
    76. 

  76. 

  77. 		RETVAL = &(keysym->mod);
    78. 

  78. 	OUTPUT:
    79. 

  79. 		RETVAL
    80. 

  80. 

  81. Uint16
    82. 

  82. keysym_unicode ( keysym, ... )
    83. 

  83. 	SDL_keysym *keysym
    84. 

  84. 	CODE: 
    85. 

  85. 		if( items > 1 )
    86. 

  86. 		{
    87. 

  87. 			keysym->unicode = SvIV( ST(1) );
    88. 

  88. 		}
    89. 

  89. 

  90. 		RETVAL = keysym->unicode;
    91. 

  91. 	OUTPUT:
    92. 

  92. 		RETVAL
    93. 

  93. 

  94. void
    95. 

  95. keysym_DESTROY(self)
    96. 

  96. 	SDL_keysym *self
    97. 

  97. 	CODE:
    98. 

  98. 		safefree( (char *)self );
    99. 

  99.