alx/ueforth
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Improving mouse and tasks.

Browse Source
This commit is contained in:
Brad Nelson
2022-11-18 22:53:09 -08:00
parent 8ee1eafef6
commit e9181479fc
3 changed files with 62 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
web/utils.fs
View File

@ -14,6 +14,13 @@
web definitions
: web-type ( a n -- ) web-type-raw if pause then ;
' web-type is type
: web-key ( -- n ) begin pause web-key-raw dup if exit then drop again ;
' web-key is key
: web-key? ( -- f ) pause web-key?-raw ;
' web-key? is key?
: upload-file ( a n -- )
upload-start
begin yield upload-done? until
@ -31,4 +38,8 @@ web definitions
: import s" _temp.fs" 2dup upload-file include-file ;
: yielding begin 50 ms yield again ;
' yielding 10 10 task yielding-task
yielding-task start-task
forth definitions