version 1.17, 2007/02/18 18:30:51
|
version 1.18, 2007/02/19 00:08:20
|
Line 87 Variable first-throw
|
Line 87 Variable first-throw
|
rp@ handler ! |
rp@ handler ! |
>r ; |
>r ; |
|
|
: try ( compilation -- orig ; run-time -- ) \ gforth |
: try ( compilation -- orig ; run-time -- R:sys1 ) \ gforth |
\ !! does not work correctly for gforth-native |
\G Start an exception-catching region. |
POSTPONE ahead here >r >mark 1 cs-roll POSTPONE then |
POSTPONE ahead here >r >mark 1 cs-roll POSTPONE then |
r> POSTPONE literal POSTPONE (try) ; immediate compile-only |
r> POSTPONE literal POSTPONE (try) ; immediate compile-only |
|
|
Line 108 Variable first-throw
|
Line 108 Variable first-throw
|
; |
; |
|
|
: iferror ( compilation orig1 -- orig2 ; run-time -- ) \ gforth |
: iferror ( compilation orig1 -- orig2 ; run-time -- ) \ gforth |
|
\G Starts the exception handling code (executed if there is an |
|
\G exception between @code{try} and @code{endtry}). This part has |
|
\G to be finished with @code{then}. |
\ !! check using a special tag |
\ !! check using a special tag |
POSTPONE else handler-intro, |
POSTPONE else handler-intro, |
; immediate compile-only |
; immediate compile-only |
|
|
: restore ( compilation orig1 -- ; run-time -- ) \ gforth |
: restore ( compilation orig1 -- ; run-time -- ) \ gforth |
|
\G Starts restoring code, that is executed if there is an |
|
\G exception, and if there is no exception. |
POSTPONE iferror POSTPONE then |
POSTPONE iferror POSTPONE then |
; immediate compile-only |
; immediate compile-only |
|
|
: endtry ( compilation -- ; run-time -- ) \ gforth |
: endtry ( compilation -- ; run-time R:sys1 -- ) \ gforth |
|
\G End an exception-catching region. |
POSTPONE (endtry) |
POSTPONE (endtry) |
; immediate compile-only |
; immediate compile-only |
|
|
|
: endtry-iferror ( compilation orig1 -- orig2 ; run-time R:sys1 -- ) \ gforth |
|
\G End an exception-catching region while starting |
|
\G exception-handling code outside that region (executed if there |
|
\G is an exception between @code{try} and @code{endtry-iferror}). |
|
\G This part has to be finished with @code{then} (or |
|
\G @code{else}...@code{then}). |
|
POSTPONE (endtry) POSTPONE iferror POSTPONE (endtry) |
|
; immediate compile-only |
|
|
:noname ( x1 .. xn xt -- y1 .. ym 0 / z1 .. zn error ) \ exception |
:noname ( x1 .. xn xt -- y1 .. ym 0 / z1 .. zn error ) \ exception |
try |
try |
execute 0 |
execute 0 |