134 lines
3.5 KiB
Forth
134 lines
3.5 KiB
Forth
fn main args-on-stack: (addr array addr array byte) -> _/ebx: int {
|
|
var args/eax: (addr array addr array byte) <- copy args-on-stack
|
|
var len/ecx: int <- length args
|
|
compare len, 2
|
|
{
|
|
break-if-!=
|
|
# if single arg is 'test', run tests
|
|
var tmp/ecx: (addr addr array byte) <- index args, 1
|
|
var tmp2/eax: boolean <- string-equal? *tmp, "test"
|
|
compare tmp2, 0/false
|
|
{
|
|
break-if-=
|
|
run-tests
|
|
return 0 # TODO: get at Num-test-failures somehow
|
|
}
|
|
# if single arg is 'screen', run in full-screen mode
|
|
tmp2 <- string-equal? *tmp, "screen"
|
|
compare tmp2, 0/false
|
|
{
|
|
break-if-=
|
|
interactive
|
|
return 0
|
|
}
|
|
# if single arg is 'type', run in typewriter mode
|
|
tmp2 <- string-equal? *tmp, "type"
|
|
compare tmp2, 0/false
|
|
{
|
|
break-if-=
|
|
repl
|
|
return 0
|
|
}
|
|
# if single arg is 'test' ...
|
|
tmp2 <- string-equal? *tmp, "test2"
|
|
compare tmp2, 0/false
|
|
{
|
|
break-if-=
|
|
test
|
|
return 0
|
|
}
|
|
}
|
|
# otherwise error message
|
|
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"
|
|
return 1
|
|
}
|
|
|
|
fn interactive {
|
|
enable-screen-grid-mode
|
|
enable-keyboard-immediate-mode
|
|
var env-storage: environment
|
|
var env/esi: (addr environment) <- address env-storage
|
|
initialize-environment env
|
|
{
|
|
render env
|
|
var key/eax: code-point-utf8 <- read-key-from-real-keyboard
|
|
compare key, 0x11/ctrl-q
|
|
break-if-=
|
|
process env, key
|
|
loop
|
|
}
|
|
enable-keyboard-type-mode
|
|
enable-screen-type-mode
|
|
}
|
|
|
|
fn test {
|
|
var env-storage: environment
|
|
var env/esi: (addr environment) <- address env-storage
|
|
initialize-environment-with-fake-screen env, 0x20, 0xa0
|
|
render env
|
|
}
|
|
|
|
fn process-all env: (addr environment), cmds: (addr array byte) {
|
|
var cmds-stream: (stream byte 0x100)
|
|
var cmds-stream-a/esi: (addr stream byte) <- address cmds-stream
|
|
write cmds-stream-a, cmds
|
|
{
|
|
var done?/eax: boolean <- stream-empty? cmds-stream-a
|
|
compare done?, 0/false
|
|
break-if-!=
|
|
var g/eax: code-point-utf8 <- read-code-point-utf8 cmds-stream-a
|
|
process env, g
|
|
loop
|
|
}
|
|
}
|
|
|
|
fn repl {
|
|
{
|
|
# prompt
|
|
print-string-to-real-screen "> "
|
|
# read
|
|
var line-storage: (stream byte 0x100)
|
|
var line/ecx: (addr stream byte) <- address line-storage
|
|
clear-stream line
|
|
read-line-from-real-keyboard line
|
|
var done?/eax: boolean <- stream-empty? line
|
|
compare done?, 0/false
|
|
break-if-!=
|
|
# parse
|
|
var env-storage: environment
|
|
var env/esi: (addr environment) <- address env-storage
|
|
initialize-environment env
|
|
{
|
|
var done?/eax: boolean <- stream-empty? line
|
|
compare done?, 0/false
|
|
break-if-!=
|
|
var g/eax: code-point-utf8 <- read-code-point-utf8 line
|
|
process env, g
|
|
loop
|
|
}
|
|
# eval
|
|
var stack-storage: value-stack
|
|
var stack/edi: (addr value-stack) <- address stack-storage
|
|
initialize-value-stack stack, 0x10
|
|
evaluate-environment env, stack
|
|
# print
|
|
var empty?/eax: boolean <- value-stack-empty? stack
|
|
{
|
|
compare empty?, 0/false
|
|
break-if-!=
|
|
var result/xmm0: float <- pop-number-from-value-stack stack
|
|
print-float-decimal-approximate 0, result, 3
|
|
print-string 0, "\n"
|
|
print-string 0, "width: "
|
|
var width/eax: int <- float-size result, 3
|
|
print-int32-decimal 0, width
|
|
print-string 0, "\n"
|
|
}
|
|
#
|
|
loop
|
|
}
|
|
}
|