From 4d42144c4dc35a8e7e7ce544e90b34eb440ed1c5 Mon Sep 17 00:00:00 2001
From: "Jakob L. Kreuze" <zerodaysfordays@sdf.lonestar.org>
Date: Wed, 1 Jan 2020 12:38:35 -0500
Subject: Add initial SDL bindings.

---
 sdl.myr | 36 ++++++++++++++++++++++++++++++++++++
 1 file changed, 36 insertions(+)
 create mode 100644 sdl.myr

(limited to 'sdl.myr')

diff --git a/sdl.myr b/sdl.myr
new file mode 100644
index 0000000..31026c0
--- /dev/null
+++ b/sdl.myr
@@ -0,0 +1,36 @@
+use std
+
+pkg sdl =
+    const INIT_VIDEO : uint32 = 32
+    
+    extern const init : (flags : uint32 -> int)
+    extern const quit : (-> void)
+
+    type win = void#
+
+    const WIN_POS_UNSPEC : int = 536805376
+    const WIN_OPENGL : uint32 = 2
+
+    extern const mkwin : (title : byte#, x : int, y : int, w : int, h : int, flags : uint32 -> win)
+    extern const freewin : (win : win -> void)
+
+    type renderer = void#
+
+    const RENDERER_ACCEL : uint32 = 2
+
+    extern const mkrenderer : (win : win, index : int, flags: uint32 -> renderer)
+    extern const copy : (r : renderer, tex : texture -> int)
+    extern const present : (r : renderer -> void)
+    extern const freerenderer : (r : renderer -> void)
+
+    type texture = void#
+
+    const PIXFMT_RGB332 : uint32 = 336660481
+    const TEXACCESS_STREAM : int = 1
+
+    extern const mktexture : (r : renderer, fmt : uint32, access : int, w : int, h : int -> texture)
+    extern const update : (tex : texture, pixels : void#, pitch : int -> int)
+    extern const freetexture : (tex : texture -> void)
+
+    extern const delay : (ms : uint32 -> void)
+;;
-- 
cgit v1.3