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 add-error and exception

Browse source
This commit is contained in:
Koichi Nakamura 2021-01-03 08:17:41 +09:00
parent 94a2d829c9
commit b6967eba48
1 changed files with 35 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

35
bootstrap.fs
View file

@ -1160,3 +1160,38 @@ char 0 char B - constant string-overflow-error \ -18
type
then
; immediate
( === Error Code and Messages === )
\ Single linked list of error code and messages.
\ Thre structure of each entry:
\ | link | code | len | message ... |
variable error-list
0 error-list !
: add-error ( n c-addr u -- )
error-list here
over @ , \ fill link
swap ! \ update error-list
rot , \ fill error-code
dup , \ fill length
cmove, \ fill message
align
;
decimal
s" -1" >number drop constant aborted-error
aborted-error s" Aborted" add-error
string-overflow-error s" Too long string literal" add-error
variable next-user-error
s" -256" >number drop next-user-error !
\ Create new user defined error and returns error code.
: exception ( c-addr u -- n )
next-user-error @ -rot add-error
next-user-error @
1 next-user-error -!
;