;;;
;;; Input-related functions: keyboard
;;;

;; Check if a key has been pressed once
;; bool IsKeyPressed(int key);
(define key-pressed?
  (c-lambda (int) bool "IsKeyPressed"))

;; Check if a key has been pressed again (Only PLATFORM_DESKTOP)
;; bool IsKeyPressedRepeat(int key);
(define key-pressed-repeat?
  (c-lambda (int) bool "IsKeyPressedRepeat"))

;; Check if a key is being pressed
;; bool IsKeyDown(int key);
(define key-down?
  (c-lambda (int) bool "IsKeyDown"))

;; Check if a key has been released once
;; bool IsKeyReleased(int key);
(define key-released?
  (c-lambda (int) bool "IsKeyReleased"))

;; Check if a key is NOT being pressed
;; bool IsKeyUp(int key);
(define key-up?
  (c-lambda (int) bool "IsKeyUp"))

;; Get key pressed (keycode), call it multiple times for keys queued, returns 0 when the queue is empty
;; int GetKeyPressed(void);
(define get-pressed-key
  (c-lambda () int "GetKeyPressed"))

;; Get char pressed (unicode), call it multiple times for chars queued, returns 0 when the queue is empty
;; int GetCharPressed(void);
(define get-pressed-char
  (c-lambda () int "GetCharPressed"))

;; Set a custom key to exit program (default is ESC)
;; void SetExitKey(int key);
(define set-exit-key
  (c-lambda (int) void "SetExitKey"))


;;;
;;; Input-related functions: mouse
;;;

;; Check if a mouse button has been pressed once
;; bool IsMouseButtonPressed(int button);
(define mouse-btn-pressed?
  (c-lambda (int) bool "IsMouseButtonPressed"))

;; Check if a mouse button is being pressed
;; bool IsMouseButtonDown(int button);
(define mouse-btn-down?
  (c-lambda (int) bool "IsMouseButtonDown"))

;; Check if a mouse button has been released once
;; bool IsMouseButtonReleased(int button);
(define mouse-btn-released?
  (c-lambda (int) bool "IsMouseButtonReleased"))

;; Check if a mouse button is NOT being pressed
;; bool IsMouseButtonUp(int button);
(define mouse-btn-up?
  (c-lambda (int) bool "IsMouseButtonUp"))

;; Get mouse position X
;; int GetMouseX(void);
(define get-mouse-x
  (c-lambda () int "GetMouseX"))

;; Get mouse position Y
;; int GetMouseY(void);
(define get-mouse-y
  (c-lambda () int "GetMouseY"))

;; Get mouse position XY
;; Vector2 GetMousePosition(void);
;; replaced by this:
(define get-mouse-pos
  (lambda ()
	(cons (get-mouse-x)
		  (get-mouse-y))))

;; Get mouse delta between frames
;; Vector2 GetMouseDelta(void);

;; Set mouse position XY
;; void SetMousePosition(int x, int y);
(define set-mouse-pos
  (c-lambda (int int) void "SetMousePosition"))

;; Set mouse offset
;; void SetMouseOffset(int offsetX, int offsetY);
(define set-mouse-offset
  (c-lambda (int int) void "SetMouseOffset"))

;; Set mouse scaling
;; void SetMouseScale(float scaleX, float scaleY);

;; Get mouse wheel movement for X or Y, whichever is larger
;; float GetMouseWheelMove(void);

;; Get mouse wheel movement for both X and Y
;; Vector2 GetMouseWheelMoveV(void);

;; Set mouse cursor
;; void SetMouseCursor(int cursor);