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 stdin,sterr and stdout

Browse source
This commit is contained in:
Koichi Nakamura 2021-01-09 18:07:29 +09:00
parent 74155f9994
commit 8010052ef6
1 changed files with 16 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
bootstrap.fs
View file

@ -2343,10 +2343,7 @@ need-defined (close)
need-defined (write)
need-defined (read)
: open-file ( c-addr fam -- file e )
2dup (open) dup -1 = if
3drop 0 OPEN-FILE-ERROR exit
then
: make-file ( c-addr fam fd -- file e)
file% %allocate throw
tuck file>fd !
tuck file>fam !
@ -2366,10 +2363,24 @@ need-defined (read)
success
;
: open-file ( c-addr fam -- file e )
2dup (open) dup -1 = if
3drop 0 OPEN-FILE-ERROR exit
then
make-file
;
: close-file ( file -- e )
file>fd @ (close) 0= if success else CLOSE-FILE-ERROR then
;
s" <stdin>" R/O 0 make-file throw constant stdin
s" <stdout>" W/O 1 make-file throw constant stdout
s" <stderr>" W/O 2 make-file throw constant stderr
\ replace stdin_ with stdin
stdin inputstreams @ input>file !
( === File Include === )
: included ( c-addr -- )
@ -2428,7 +2439,7 @@ need-defined (read)
[if] [unless] [else] [then] defined?
open-file close-file write-file flush-file
read-file key-file read-line
R/W W/O R/O EOF
R/W W/O R/O EOF stdin stdout stderr
abort ABORTED-ERROR
QUIT not-reachable NOT-REACHABLE