mirror of
https://github.com/hsoft/collapseos.git
synced 2024-12-28 13:28:04 +11:00
17 lines
388 B
Plaintext
17 lines
388 B
Plaintext
|
( 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<? )
|
||
|
|
;
|