2020-02-02 23:33:07 +00:00
|
|
|
: blah ' seremit task-emit ! ;
|
|
|
|
|
blah
|
|
|
|
|
|
2020-03-14 00:12:01 +00:00
|
|
|
0 const DEV
|
2020-02-22 03:38:32 +00:00
|
|
|
|
|
|
|
|
: devon 1 ' DEV redefine ;
|
2020-02-02 23:30:22 +00:00
|
|
|
|
2020-02-02 23:33:07 +00:00
|
|
|
s" game.log" open seekend fdeactivate const LOGFILE
|
|
|
|
|
: emit-log ' fputc LOGFILE withfp ;
|
|
|
|
|
: atexit LOGFILE factivate close ;
|
|
|
|
|
|
|
|
|
|
: start-repl activate blah ' emit-log task-echo !
|
|
|
|
|
s" .:: J O R T H ( jean forth) ::." type cr
|
|
|
|
|
begin receive loadstring s" ok" type cr again ;
|
|
|
|
|
task const REPL
|
|
|
|
|
REPL start-repl
|
|
|
|
|
|
|
|
|
|
defer tick
|
|
|
|
|
defer draw
|
|
|
|
|
defer loadlevel
|
|
|
|
|
|
2020-03-28 20:58:47 +00:00
|
|
|
task :noname activate blah begin tick suspend again ; execute
|
|
|
|
|
|
2020-02-02 23:33:07 +00:00
|
|
|
:noname
|
2020-04-08 03:20:46 +00:00
|
|
|
s" debug.jor" loadfile
|
2020-02-02 23:33:07 +00:00
|
|
|
s" input.jor" loadfile
|
|
|
|
|
s" timer.jor" loadfile
|
|
|
|
|
s" entity.jor" loadfile
|
|
|
|
|
s" footer.jor" loadfile
|
2020-04-18 20:53:11 +00:00
|
|
|
s" sound.jor" loadfile
|
2020-04-08 03:20:46 +00:00
|
|
|
s" title.jor" loadfile
|
2020-02-02 23:33:07 +00:00
|
|
|
; execute
|
|
|
|
|
|
2020-04-08 03:20:46 +00:00
|
|
|
title
|
