Miroirs/planckforth
1
0
Fork 0
mirror of https://github.com/nineties/planckforth synced 2024-12-25 21:58:22 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fixed a bug of read-line

Browse source
This commit is contained in:
Koichi Nakamura 2021-01-10 12:26:45 +09:00
parent ce31b9160e
commit dea1536ff0
1 changed files with 7 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
bootstrap.fs
View file

@ -1709,14 +1709,16 @@ end-struct file%
: read-line ( c-addr u1 file -- u2 flag e )
over 1- 0 do
2 pick i + 1 2 pick read-file
dup 0< if >r drop 2drop i false r> leave then
dup 0< if false leave then
drop
( c-addr u1 file u2 )
0= if 2drop i false success leave then \ EOF
2 pick i + c@ = '\n' if 2drop i true success leave then
0= if i success false leave then \ EOF
2 pick i + c@ '\n' = if i success true leave then
loop
( c-addr u2 flag e )
>r >r tuck + 0 swap c! r> r>
( c-addr u1 file u2 e flag )
>r >r
3 pick over + 0 swap c! \ fill '\0'
>r 3drop r> r> r> swap
;
\ Temporary implementation stdin and stdout using 'key' and 'type'