50 lines
981 B
Plaintext
50 lines
981 B
Plaintext
|
stn := @use("../../../libraries/stn/src/lib.hb");
|
||
|
|
.{string, log} := stn;
|
||
|
|
.{Vec2} := stn.math
|
||
|
|
|
||
|
|
render := @use("../../../libraries/render/src/lib.hb");
|
||
|
|
.{Surface} := render;
|
||
|
|
.{Font} := render.text
|
||
|
|
|
||
|
|
UI := struct {
|
||
|
|
raw: ^u8,
|
||
|
|
raw_length: uint,
|
||
|
|
is_dirty: bool,
|
||
|
|
surface: Surface,
|
||
|
|
}
|
||
|
|
|
||
|
|
render_ui := fn(surface: Surface, ui: UI): void {
|
||
|
|
if ui.is_dirty {
|
||
|
|
render.clear(ui.surface, render.black)
|
||
|
|
ui.is_dirty = false
|
||
|
|
}
|
||
|
|
pos := Vec2(uint).(0, 0)
|
||
|
|
render.put_surface(surface, ui.surface, pos, false)
|
||
|
|
}
|
||
|
|
|
||
|
|
sexpr_parser := fn(sexpr: ^u8): UI {
|
||
|
|
cursor := sexpr
|
||
|
|
paren_balance := 0
|
||
|
|
loop {
|
||
|
|
if *cursor == 0 {
|
||
|
|
if paren_balance != 0 {
|
||
|
|
log.error("Unbalanced Parens\0")
|
||
|
|
}
|
||
|
|
break
|
||
|
|
} else if *cursor == 40 {
|
||
|
|
log.info("Open paren\0")
|
||
|
|
paren_balance += 1
|
||
|
|
} else if *cursor == 41 {
|
||
|
|
log.info("Closed paren\0")
|
||
|
|
paren_balance -= 1
|
||
|
|
}
|
||
|
|
|
||
|
|
cursor += 1
|
||
|
|
}
|
||
|
|
|
||
|
|
length := string.length(sexpr)
|
||
|
|
|
||
|
|
ui_surface := render.new_surface(100, 100)
|
||
|
|
|
||
|
|
return UI.(sexpr, length, true, ui_surface)
|
||
|
|
}
|