add basic imperative shell

2024-12-10 19:48:07 +00:00
parent fb2be7be73
commit 9d42e14b2f
17 changed files with 5083 additions and 1 deletions
--- a/shell/shell.sml
+++ b/shell/shell.sml
@@ -0,0 +1,21 @@
+structure Shell =
+struct
+  open CML
+
+  fun main () =
+    let
+      (* Set up GLFW. *)
+      val _ = Glfw.init ()
+      val _ = Glfw.windowHint (Glfw.CONTEXT_VERSION_MAJOR (), 3)
+      val _ = Glfw.windowHint (Glfw.DEPRECATED (), Glfw.FALSE ())
+      val _ = Glfw.windowHint (Glfw.WINDOW_MAX (), Glfw.TRUE ())
+
+      val window = Glfw.createWindow (1920, 1080, "shf")
+      val _ = Glfw.makeContextCurrent window
+      val _ = Gles3.loadGlad ()
+    in
+      GlDraw.loop window
+    end
+end
+
+val _ = Shell.main ()