1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-12-25 18:48:09 +11:00
collapseos/blk/456

17 lines
388 B
Plaintext
Raw Normal View History

2020-04-26 11:54:07 +10:00
( Read one line in input buffer and make IN> point to it )
: (rdln)
(infl) BEGIN (rdlnc) NOT UNTIL
LF IN( IN> ! ;
( And finally, implement C<* )
: RDLN<
IN> @ C@
DUP IF ( not EOL? good, inc and return )
1 IN> +!
ELSE ( EOL ? readline. we still return null though )
(rdln)
THEN
( update C<? flag )
IN> @ C@ 0 > 0x06 RAM+ ! ( 06 == C<? )
;