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

WIP

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

22
bootstrap.fs
View file

@ -1770,8 +1770,17 @@ variable inputstreams
stdin_ push-inputstream stdin_ push-inputstream
\ Rewrite existing functions that reads inputs using inputstream. \ Replacing parser functions using input stream.
\ Throw UNEXPECTED-EOF-ERROR at EOF
:noname ( -- c )
key dup EOF = if drop UNEXPECTED-EOF-ERROR throw then
; &key! !
\ New version of single line comment
: \ begin key! '\n' = until ; immediate
\ New version of 'key'.
:noname ( -- c ) :noname ( -- c )
inputstreams @ input>file @ key-file dup '\n' = if inputstreams @ input>file @ key-file dup '\n' = if
\ increment line count \ increment line count
@ -1779,13 +1788,6 @@ stdin_ push-inputstream
then then
; &key ! ; &key !
\ Throw UNEXPECTED-EOF-ERROR
:noname ( -- c )
key dup EOF = if drop UNEXPECTED-EOF-ERROR throw then
; &key! !
: \ begin key! '\n' = until ; immediate
\ Read a word from input stream, return address of the string \ Read a word from input stream, return address of the string
\ and error-code. \ and error-code.
:noname ( -- c-addr e ) :noname ( -- c-addr e )
@ -1831,13 +1833,11 @@ stdin_ push-inputstream
] ]
; ;
( === 4th Stage Interpreter === ) ( === 4th Stage Interpreter === )
-56 s" Bye" def-error QUIT -56 s" Bye" def-error QUIT
: interpret
word \ read name from input
: interpret-inner : interpret-inner
begin begin
word \ read name from input word \ read name from input