Anonymous user
Exceptions: Difference between revisions
m
→[[Exceptions#ALGOL 68]]
Line 57:
MODE OBJECTFOO = STRUCT ( PROC (REF OBJECTFOO)BOOL foo event mended, ... );
PROC on foo event = (REF OBJECTFOO
foo event mended OF
);
Line 64:
===Raise an exception===
<pre>
OBJECTFOO
on foo event(foo proxy, raise foo event);
WHILE TRUE DO
# now raise example foo event #
IF NOT (foo event mended OF
OD;
Line 77 ⟶ 79:
except foo event:
IF ... THEN # Alas, cannot handle it here continue propagation of #
IF NOT (foo event mended OF
FI
</pre>
===Handle an exception===
<pre>
PROC raise foo event(REF OBJECTFOO
IF mend foo(
TRUE # continue #
ELSE
| |||