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

Support cr or lf for terminal input

Browse Source
This commit is contained in:
Brad Nelson
2021-02-27 09:36:18 -08:00
parent deea8dc594
commit 749b10869d
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
ueforth/common/boot.fs
View File

@ -199,7 +199,7 @@ variable echo -1 echo ! variable arrow -1 arrow !
: ?arrow. arrow @ if >r >r raw.s r> r> ." --> " then ; : ?arrow. arrow @ if >r >r raw.s r> r> ." --> " then ;
: accept ( a n -- n ) ?arrow. 0 swap begin 2dup < while : accept ( a n -- n ) ?arrow. 0 swap begin 2dup < while
key key
dup nl = if ?echo drop nip exit then dup nl = over 13 = or if ?echo drop nip exit then
dup 8 = over 127 = or if dup 8 = over 127 = or if
drop over if rot 1- rot 1- rot 8 ?echo bl ?echo 8 ?echo then drop over if rot 1- rot 1- rot 8 ?echo bl ?echo 8 ?echo then
else else