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

Add input stream stack

Browse source
This commit is contained in:
Koichi Nakamura 2021-01-04 16:14:14 +09:00
parent 81f07797dc
commit 9be13d26ce
1 changed files with 26 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
bootstrap.fs
View file

@ -1429,3 +1429,29 @@ W/O stdout_ file>fam c!
\ do nothing \ do nothing
:noname drop success ; stdout_ file>flush ! :noname drop success ; stdout_ file>flush !
( === Input Stream === )
\ input stream stack
struct
cell% field input>next
cell% field input>file
cell% field input>lineno
end-struct input%
variable input-streams
0 input-streams !
: push-input-stream ( file -- )
input% %allot \ addr
swap over input>file !
0 over input>lineno !
input-streams @ over input>next !
input-streams !
;
: pop-input-stream ( -- )
input-streams @ input-streams !
;
stdin_ push-input-stream