(--sdl-flags
 "FPS_UPPER_LIMIT"
 "FPS_LOWER_LIMIT"
 "FPS_DEFAULT")

(define-record fps-manager pointer)

(define-foreign-type FPSmanager (c-pointer "FPSmanager")
  fps-manager-pointer
  (pointer-to-record-lambda fps-manager))

(define sdl-init-Framerate
  (foreign-lambda void "SDL_initFramerate" FPSmanager))
(define sdl-set-framerate
  (foreign-lambda int "SDL_setFramerate" FPSmanager unsigned-integer32))
(define sdl-get-framerate
  (foreign-lambda int "SDL_getFramerate" FPSmanager))
(define sdl-get-framerate-count
  (foreign-lambda int "SDL_getFramecount" FPSmanager))
;; XXX This is a bug in my sdl lib, 2.0.24 actually has return type
;; unsigned-int32 instead of void
(define sdl-get-framerate-delay
  (foreign-lambda void "SDL_framerateDelay" FPSmanager))