/src/Core/Time.xs

http://github.com/PerlGameDev/SDL · Unknown · 57 lines · 44 code · 13 blank · 0 comment · 0 complexity · 57a12194615c6f5034a375f2807b0544 MD5 · raw file 

    

  1. #include "EXTERN.h"
    2. 

  2. #include "perl.h"
    3. 

  3. #include "XSUB.h"
    4. 

  4. #include "ppport.h"
    5. 

  5. #include "defines.h"
    6. 

  6. 

  7. #include <SDL.h>
    8. 

  8. 

  9. Uint32 add_timer_cb (Uint32 interval, void* param )
    10. 

  10. {
    11. 

  11. 	Uint32 ret_interval;
    12. 

  12. 	ENTER_TLS_CONTEXT;
    13. 

  13. 	dSP;
    14. 

  14. 

  15. 	int count;
    16. 

  16. 

  17. 	ENTER;
    18. 

  18. 	SAVETMPS;
    19. 

  19. 	PUSHMARK(SP);
    20. 

  20. 	XPUSHs(sv_2mortal(newSViv(interval)));
    21. 

  21. 	PUTBACK;
    22. 

  22. 

  23. 	count = call_pv(param,G_SCALAR);
    24. 

  24. 

  25. 	SPAGAIN;
    26. 

  26. 

  27. 	if (count != 1 ) croak("callback returned more than 1 value\n");	
    28. 

  28. 		ret_interval = POPi;
    29. 

  29. 

  30. 	PUTBACK;
    31. 

  31. 	FREETMPS;
    32. 

  32. 	LEAVE;
    33. 

  33. 	LEAVE_TLS_CONTEXT;
    34. 

  34. 

  35. 	return ret_interval;
    36. 

  36. }
    37. 

  37. 

  38. MODULE = SDL::Time 	PACKAGE = SDL::Time    PREFIX = time_
    39. 

  39. 

  40. SDL_TimerID
    41. 

  41. time_add_timer ( interval, cmd )
    42. 

  42. 	Uint32 interval
    43. 

  43. 	char *cmd
    44. 

  44. 	CODE:
    45. 

  45. 		GET_TLS_CONTEXT;
    46. 

  46. 		RETVAL = SDL_AddTimer(interval, add_timer_cb, (void *)cmd);
    47. 

  47. 	OUTPUT:
    48. 

  48. 		RETVAL
    49. 

  49. 

  50. int
    51. 

  51. time_remove_timer ( id)
    52. 

  52. 	SDL_TimerID id
    53. 

  53. 	CODE:
    54. 

  54. 		RETVAL = SDL_RemoveTimer((SDL_TimerID) id);
    55. 

  55. 	OUTPUT:
    56. 

  56. 		RETVAL
    57.