118 lines
3.2 KiB
Standard ML
118 lines
3.2 KiB
Standard ML
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 () = 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 ()
|