;;; guile-sdl3 -- Scheme bindings for SDL3
;;; Copyright © 2024 David Thompson <dthompson2@worcester.edu>
;;;
;;; Licensed under the Apache License, Version 2.0 (the "License");
;;; you may not use this file except in compliance with the License.
;;; You may obtain a copy of the License at
;;;
;;;    http://www.apache.org/licenses/LICENSE-2.0
;;;
;;; Unless required by applicable law or agreed to in writing, software
;;; distributed under the License is distributed on an "AS IS" BASIS,
;;; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
;;; See the License for the specific language governing permissions and
;;; limitations under the License.

;;; Commentary:
;;
;; Low-level bindings for SDL_video.h.
;;
;;; Code:

(define-module (sdl3 bindings video)
  #:use-module (sdl3 bindings utils)
  #:use-module (system foreign)
  #:export (SDL_WindowFlags
            SDL_WINDOW_FULLSCREEN
            SDL_WINDOW_OPENGL
            SDL_WINDOW_OCCLUDED
            SDL_WINDOW_HIDDEN
            SDL_WINDOW_BORDERLESS
            SDL_WINDOW_RESIZABLE
            SDL_WINDOW_MINIMIZED
            SDL_WINDOW_MAXIMIZED
            SDL_WINDOW_MOUSE_GRABBED
            SDL_WINDOW_INPUT_FOCUS
            SDL_WINDOW_MOUSE_FOCUS
            SDL_WINDOW_EXTERNAL
            SDL_WINDOW_MODAL
            SDL_WINDOW_HIGH_PIXEL_DENSITY
            SDL_WINDOW_MOUSE_CAPTURE
            SDL_WINDOW_MOUSE_RELATIVE_MODE
            SDL_WINDOW_ALWAYS_ON_TOP
            SDL_WINDOW_UTILITY
            SDL_WINDOW_TOOLTIP
            SDL_WINDOW_POPUP_MENU
            SDL_WINDOW_KEYBOARD_GRABBED
            SDL_WINDOW_VULKAN
            SDL_WINDOW_METAL
            SDL_WINDOW_TRANSPARENT
            SDL_WINDOW_NOT_FOCUSABLE

            window?
            wrap-window
            unwrap-window
            window-destroyed?
            set-window-destroyed!

            SDL_CreateWindow
            SDL_DestroyWindow))

(define SDL_WindowFlags uint64)
(define SDL_WINDOW_FULLSCREEN          #x0000000000000001)
(define SDL_WINDOW_OPENGL              #x0000000000000002)
(define SDL_WINDOW_OCCLUDED            #x0000000000000004)
(define SDL_WINDOW_HIDDEN              #x0000000000000008)
(define SDL_WINDOW_BORDERLESS          #x0000000000000010)
(define SDL_WINDOW_RESIZABLE           #x0000000000000020)
(define SDL_WINDOW_MINIMIZED           #x0000000000000040)
(define SDL_WINDOW_MAXIMIZED           #x0000000000000080)
(define SDL_WINDOW_MOUSE_GRABBED       #x0000000000000100)
(define SDL_WINDOW_INPUT_FOCUS         #x0000000000000200)
(define SDL_WINDOW_MOUSE_FOCUS         #x0000000000000400)
(define SDL_WINDOW_EXTERNAL            #x0000000000000800)
(define SDL_WINDOW_MODAL               #x0000000000001000)
(define SDL_WINDOW_HIGH_PIXEL_DENSITY  #x0000000000002000)
(define SDL_WINDOW_MOUSE_CAPTURE       #x0000000000004000)
(define SDL_WINDOW_MOUSE_RELATIVE_MODE #x0000000000008000)
(define SDL_WINDOW_ALWAYS_ON_TOP       #x0000000000010000)
(define SDL_WINDOW_UTILITY             #x0000000000020000)
(define SDL_WINDOW_TOOLTIP             #x0000000000040000)
(define SDL_WINDOW_POPUP_MENU          #x0000000000080000)
(define SDL_WINDOW_KEYBOARD_GRABBED    #x0000000000100000)
(define SDL_WINDOW_VULKAN              #x0000000010000000)
(define SDL_WINDOW_METAL               #x0000000020000000)
(define SDL_WINDOW_TRANSPARENT         #x0000000040000000)
(define SDL_WINDOW_NOT_FOCUSABLE       #x0000000080000000)

(define-sdl-pointer-type <window>
  window? wrap-window unwrap-window
  window-destroyed? set-window-destroyed!
  (lambda (window port)
    (display "#<window>" port)))

(define-sdl SDL_CreateWindow '* int int SDL_WindowFlags -> '*)
(define-sdl SDL_DestroyWindow '*)