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

move error codes

Browse source
This commit is contained in:
Koichi Nakamura 2021-01-05 21:33:56 +09:00
parent 3b272e982f
commit 8356ff933a
1 changed files with 10 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
bootstrap.fs
View file

@ -1301,6 +1301,16 @@ create word-buffer s" 64" >number drop cell+ allot drop
main main
( === Error-codes === )
decimal
-1 s" Aborted" def-error ABORTED-ERROR
-39 s" Unexpected end of file" def-error UNEXPECTED-EOF-ERROR
-68 s" FLUSH-FILE" def-error FLUSH-FILE-ERROR
-70 s" READ-FILE" def-error READ-FILE-ERROR
-71 s" READ-LINE" def-error READ-LINE-ERROR
-75 s" WRITE-FILE" def-error WRITE-FILE-ERROR
( === Dump of data stack === ) ( === Dump of data stack === )
: .s ( -- ) : .s ( -- )
sp0 sp@ - cell- cell / ( depth of the stack ) sp0 sp@ - cell- cell / ( depth of the stack )
@ -1356,13 +1366,6 @@ main
( === File I/O Abstraction === ) ( === File I/O Abstraction === )
decimal
-39 s" Unexpected end of file" def-error UNEXPECTED-EOF-ERROR
-68 s" FLUSH-FILE" def-error FLUSH-FILE-ERROR
-70 s" READ-FILE" def-error READ-FILE-ERROR
-71 s" READ-LINE" def-error READ-LINE-ERROR
-75 s" WRITE-FILE" def-error WRITE-FILE-ERROR
-1 constant EOF -1 constant EOF
\ file access methods (fam) \ file access methods (fam)