Add 'shf/' from commit 'b6c5a95b664aeb861d7b33ffc9eefe447ba99dd7'

git-subtree-dir: shf
git-subtree-mainline: 401408448f
git-subtree-split: b6c5a95b66

shf/shell/rgfw-loop.sml

@@ -0,0 +1,118 @@
+structure RgfwLoop =
+struct
+  fun yank string =
+    Rgfw.writeClipboard (string, String.size string)
+
+  fun consumeEvent (drawState, msg) =
+    let
+      open DrawMsg
+
+      val {textVertexBuffer, textProgram, textDrawLength = _, ...} = drawState
+    in
+      case msg of
+        DRAW_TEXT textVec => GlDraw.uploadText (drawState, textVec)
+      | YANK str => (yank str; drawState)
+    end
+
+  fun consumeEventsLoop (pos, msgVec, drawState) =
+    if pos = Vector.length msgVec then
+      drawState
+    else
+      let
+        val msg = Vector.sub (msgVec, pos)
+        val drawState = consumeEvent (drawState, msg)
+      in
+        consumeEventsLoop (pos + 1, msgVec, drawState)
+      end
+
+  fun consumeEvents drawState =
+    consumeEventsLoop (0, DrawMailbox.getMessagesAndClear (), drawState)
+
+  fun loop (window, app, drawState) =
+    if Rgfw.shouldCloseWindow window then
+      Rgfw.closeWindow window
+    else
+      let
+        val () = Gles3.clearColor (0.89, 0.89, 0.89, 1.0)
+        val () = Gles3.clear ()
+
+        val () = Rgfw.pollEvents ()
+
+        val app = Updater.update app
+
+        val drawState = consumeEvents drawState
+        val () = GlDraw.draw drawState
+        val () = Rgfw.swapBuffers window
+      in
+        loop (window, app, drawState)
+      end
+
+  local
+    fun loop (io, acc, lastCharWasNewline) =
+      case TextIO.inputLine io of
+        SOME str =>
+          let
+            val endsWithNewline =
+              String.size str > 0
+              andalso String.sub (str, String.size str - 1) = #"\n"
+          in
+            loop (io, LineGap.append (str, acc), endsWithNewline)
+          end
+      | NONE =>
+          if lastCharWasNewline then
+            LineGap.goToStart acc
+          else
+            let val acc = LineGap.append ("\n", acc)
+            in LineGap.goToStart acc
+            end
+  in
+    fun ioToLineGap (io, acc) = loop (io, acc, false)
+  end
+
+  fun escapeCallback () = InputMailbox.append InputMsg.KEY_ESC
+
+  fun backspaceCallback () = InputMailbox.append InputMsg.KEY_BACKSPACE
+
+  fun enterCallback () = InputMailbox.append InputMsg.KEY_ENTER
+
+  fun charCallback chr =
+    InputMailbox.append (InputMsg.CHAR_EVENT chr)
+
+  fun resizeCallback (width, height) =
+    InputMailbox.append (InputMsg.RESIZE_EVENT (width, height))
+
+  fun registerCallbacks () =
+    let
+      val () = Rgfw.exportEscapeCallback escapeCallback
+      val () = Rgfw.exportBackspaceCallback backspaceCallback
+      val () = Rgfw.exportEnterCallback enterCallback
+      val () = Rgfw.exportCharCallback charCallback
+      val () = Rgfw.setKeyCallback ()
+
+      val () = Rgfw.exportResizeCallback resizeCallback
+      val () = Rgfw.setResizeCallback ()
+    in
+      ()
+    end
+
+  fun main () =
+    let
+      val window = Rgfw.createWindow ("shf", 0, 0, 1920, 1080)
+      val () = Rgfw.enableVsync window
+      val () = Gles3.enableDepthTest ()
+
+      (* load file intol gap buffer and create initial app *)
+      val io = TextIO.openIn "temp.txt"
+      val lineGap = ioToLineGap (io, LineGap.empty)
+      val () = TextIO.closeIn io
+
+      val () = registerCallbacks ()
+
+      val app = AppType.init (lineGap, 1920, 1080, Time.now ())
+      val drawState = GlDraw.create ()
+    in
+      loop (window, app, drawState)
+    end
+end
+
+val _ = RgfwLoop.main ()