mirror of
https://git.sr.ht/~crc_/retroforth
synced 2024-11-16 19:48:56 +01:00
23 lines
528 B
Forth
23 lines
528 B
Forth
~~~
|
|
{{
|
|
:eol? (c-f)
|
|
[ ASCII:CR eq? ] [ ASCII:LF eq? ] [ ASCII:SPACE eq? ] tri or or ;
|
|
|
|
:valid? (s-sf)
|
|
dup s:length n:-zero? ;
|
|
|
|
:check-bs (c-c)
|
|
dup [ #8 eq? ] [ #127 eq? ] bi or [ buffer:get buffer:get drop-pair ] if ;
|
|
|
|
:c:get (-c) as{ 'liii.... i #1 d }as ;
|
|
|
|
:s:get (-s) [ #1025 buffer:set
|
|
[ c:get dup buffer:add check-bs eol? ] until
|
|
buffer:start s:chop ] buffer:preserve ;
|
|
|
|
:listen (-)
|
|
repeat s:get valid? &interpret &drop choose again ;
|
|
|
|
&listen #1 store
|
|
}}
|
|
~~~
|