2020-09-16 16:26:38 +00:00
|
|
|
fn main args-on-stack: (addr array addr array byte) -> exit-status/ebx: int {
|
|
|
|
var args/eax: (addr array addr array byte) <- copy args-on-stack
|
|
|
|
var len/ecx: int <- length args
|
|
|
|
$main-body: {
|
|
|
|
compare len, 2
|
|
|
|
{
|
|
|
|
break-if-!=
|
2020-09-27 02:15:04 +00:00
|
|
|
# if single arg is 'test', run tests
|
2020-09-16 16:26:38 +00:00
|
|
|
var tmp/ecx: (addr addr array byte) <- index args, 1
|
|
|
|
var tmp2/eax: boolean <- string-equal? *tmp, "test"
|
2020-09-17 06:46:25 +00:00
|
|
|
compare tmp2, 0 # false
|
2020-09-16 16:26:38 +00:00
|
|
|
{
|
|
|
|
break-if-=
|
|
|
|
run-tests
|
|
|
|
exit-status <- copy 0 # TODO: get at Num-test-failures somehow
|
|
|
|
break $main-body
|
|
|
|
}
|
2020-09-27 02:15:04 +00:00
|
|
|
# if single arg is 'screen', run in full-screen mode
|
|
|
|
tmp2 <- string-equal? *tmp, "screen"
|
|
|
|
compare tmp2, 0 # false
|
|
|
|
{
|
|
|
|
break-if-=
|
|
|
|
interactive
|
|
|
|
exit-status <- copy 0
|
|
|
|
break $main-body
|
|
|
|
}
|
|
|
|
# if single arg is 'type', run in typewriter mode
|
|
|
|
tmp2 <- string-equal? *tmp, "type"
|
|
|
|
compare tmp2, 0 # false
|
|
|
|
{
|
|
|
|
break-if-=
|
|
|
|
repl
|
|
|
|
exit-status <- copy 0
|
|
|
|
break $main-body
|
|
|
|
}
|
2020-09-16 16:26:38 +00:00
|
|
|
}
|
|
|
|
# otherwise error message
|
2020-09-27 02:15:04 +00:00
|
|
|
print-string-to-real-screen "usage:\n"
|
|
|
|
print-string-to-real-screen " to run tests: tile test\n"
|
|
|
|
print-string-to-real-screen " full-screen mode: tile screen\n"
|
|
|
|
print-string-to-real-screen " regular REPL: tile type\n"
|
2020-09-16 16:26:38 +00:00
|
|
|
exit-status <- copy 1
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2020-09-27 02:15:04 +00:00
|
|
|
fn interactive {
|
2020-09-16 22:37:35 +00:00
|
|
|
enable-screen-grid-mode
|
|
|
|
enable-keyboard-immediate-mode
|
2020-09-17 06:46:25 +00:00
|
|
|
var env-storage: environment
|
|
|
|
var env/esi: (addr environment) <- address env-storage
|
|
|
|
initialize-environment env
|
2020-09-27 02:15:04 +00:00
|
|
|
draw-screen env
|
|
|
|
{
|
|
|
|
var key/eax: grapheme <- read-key-from-real-keyboard
|
|
|
|
compare key, 0x71 # 'q'
|
|
|
|
break-if-=
|
|
|
|
process env, key
|
|
|
|
render env
|
|
|
|
loop
|
|
|
|
}
|
2020-09-16 22:37:35 +00:00
|
|
|
enable-keyboard-type-mode
|
|
|
|
enable-screen-type-mode
|
|
|
|
}
|
|
|
|
|
2020-09-27 02:15:04 +00:00
|
|
|
fn repl {
|
|
|
|
enable-keyboard-immediate-mode
|
|
|
|
var env-storage: environment
|
|
|
|
var env/esi: (addr environment) <- address env-storage
|
|
|
|
initialize-environment env
|
2020-09-27 04:58:47 +00:00
|
|
|
var stack-storage: value-stack
|
|
|
|
var stack/edi: (addr value-stack) <- address stack-storage
|
|
|
|
initialize-value-stack stack, 0x10
|
2020-09-27 02:15:04 +00:00
|
|
|
print-string-to-real-screen "> "
|
|
|
|
$repl:loop: {
|
|
|
|
var key/eax: grapheme <- read-key-from-real-keyboard
|
|
|
|
print-grapheme-to-real-screen key
|
|
|
|
compare key, 4 # ctrl-d
|
|
|
|
break-if-=
|
2020-09-27 04:58:47 +00:00
|
|
|
compare key, 0xa # newline
|
2020-09-27 02:15:04 +00:00
|
|
|
{
|
|
|
|
break-if-!=
|
|
|
|
evaluate-environment env, stack
|
2020-09-27 04:58:47 +00:00
|
|
|
var empty?/eax: boolean <- value-stack-empty? stack
|
2020-09-27 02:15:04 +00:00
|
|
|
{
|
|
|
|
compare empty?, 0 # false
|
|
|
|
break-if-!=
|
2020-09-27 04:58:47 +00:00
|
|
|
var result/eax: int <- pop-int-from-value-stack stack
|
2020-09-27 02:15:04 +00:00
|
|
|
print-int32-decimal-to-real-screen result
|
|
|
|
print-string-to-real-screen "\n"
|
|
|
|
}
|
|
|
|
# clear line
|
|
|
|
var program-ah/eax: (addr handle program) <- get env, program
|
2020-10-06 03:44:50 +00:00
|
|
|
var program/eax: (addr program) <- lookup *program-ah
|
|
|
|
var sandbox-ah/eax: (addr handle sandbox) <- get program, sandboxes
|
|
|
|
var _sandbox/eax: (addr sandbox) <- lookup *sandbox-ah
|
|
|
|
var sandbox/esi: (addr sandbox) <- copy _sandbox
|
2020-09-27 02:15:04 +00:00
|
|
|
var line-ah/eax: (addr handle line) <- get sandbox, data
|
2020-10-06 03:44:50 +00:00
|
|
|
var line/eax: (addr line) <- lookup *line-ah
|
|
|
|
var cursor-word-ah/esi: (addr handle word) <- get sandbox, cursor-word
|
2020-09-27 02:15:04 +00:00
|
|
|
initialize-line line, cursor-word-ah
|
|
|
|
print-string-to-real-screen "> "
|
|
|
|
loop $repl:loop
|
|
|
|
}
|
|
|
|
process env, key
|
|
|
|
loop
|
|
|
|
}
|
|
|
|
enable-keyboard-type-mode
|
2020-09-13 07:41:09 +00:00
|
|
|
}
|