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

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 (write)
need-defined (read) need-defined (read)
: open-file ( c-addr fam -- file e ) : make-file ( c-addr fam fd -- file e)
2dup (open) dup -1 = if
3drop 0 OPEN-FILE-ERROR exit
then
file% %allocate throw file% %allocate throw
tuck file>fd ! tuck file>fd !
tuck file>fam ! tuck file>fam !
@ -2366,10 +2363,24 @@ need-defined (read)
success 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 ) : close-file ( file -- e )
file>fd @ (close) 0= if success else CLOSE-FILE-ERROR then 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 === ) ( === File Include === )
: included ( c-addr -- ) : included ( c-addr -- )
@ -2428,7 +2439,7 @@ need-defined (read)
[if] [unless] [else] [then] defined? [if] [unless] [else] [then] defined?
open-file close-file write-file flush-file open-file close-file write-file flush-file
read-file key-file read-line 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 abort ABORTED-ERROR
QUIT not-reachable NOT-REACHABLE QUIT not-reachable NOT-REACHABLE