mirror of https://github.com/hsoft/collapseos.git
17 lines
427 B
Plaintext
17 lines
427 B
Plaintext
( Read one line in input buffer and make IN> point to it )
|
|
: (rdln)
|
|
( EOT or less triggers line flush )
|
|
(infl) BEGIN (rdlnc) 5 < 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<? )
|
|
;
|