|
- ( 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<? )
- ;
|