From 567863b2398b6832f686b258709396572af0e980 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Wed, 2 Oct 2024 21:22:19 -0400
Subject: First commit!

---
 sdl3/bindings/video.scm | 95 +++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 95 insertions(+)
 create mode 100644 sdl3/bindings/video.scm

(limited to 'sdl3/bindings/video.scm')

diff --git a/sdl3/bindings/video.scm b/sdl3/bindings/video.scm
new file mode 100644
index 0000000..a9c55ac
--- /dev/null
+++ b/sdl3/bindings/video.scm
@@ -0,0 +1,95 @@
+;;; 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 '*)
-- 
cgit v1.2.3