Miroirs/planckforth
1
0
Fork 0
mirror of https://github.com/nineties/planckforth synced 2025-01-13 08:01:10 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Add source and in>

Browse source
This commit is contained in:
Koichi Nakamura 2021-01-10 16:10:33 +09:00
parent fc436d8be4
commit 815f1f4f46
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
bootstrap.fs
View file

@ -1793,6 +1793,9 @@ variable source-buffer-end source-buffer source-buffer-end !
: increment-lineno ( -- ) 1 inputstreams @ input>lineno +! ; : increment-lineno ( -- ) 1 inputstreams @ input>lineno +! ;
: source ( -- c-addr) source-buffer ;
: in> ( -- c-addr ) source-buffer-pos ;
\ Throw UNEXPECTED-EOF-ERROR at EOF \ Throw UNEXPECTED-EOF-ERROR at EOF
:noname ( -- c ) :noname ( -- c )
key dup EOF = if drop UNEXPECTED-EOF-ERROR throw then key dup EOF = if drop UNEXPECTED-EOF-ERROR throw then
@ -2388,7 +2391,7 @@ need-defined (read)
insn:docol insn:exit insn:lit insn:litstring insn:branch insn:0branch insn:docol insn:exit insn:lit insn:litstring insn:branch insn:0branch
words id. name>string name>link words id. name>string name>link
include included include included source in>
next-arg shift-args arg argv argc implementation next-arg shift-args arg argv argc implementation
[if] [unless] [else] [then] defined? [if] [unless] [else] [then] defined?