blob: 93b8d08c41ecfb942c48e63365307ea5b0ba227f (
plain) (
tree)
|
|
# Experimental Mu shell
# A Lisp with indent-sensitivity and infix.
fn main screen: (addr screen), keyboard: (addr keyboard), data-disk: (addr disk) {
var env-storage: environment
var env/esi: (addr environment) <- address env-storage
initialize-environment env
load-state env, data-disk
$main:loop: {
render-environment screen, env
# no way to quit right now; just reboot
{
var key/eax: byte <- read-key keyboard
compare key, 0
loop-if-=
var key/eax: grapheme <- copy key
edit-environment env, key, data-disk
}
loop
}
}
|