aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

March 2014 update

Browse source
This commit is contained in:
Ingy döt Net 2014-04-02 16:56:35 +00:00
parent 09687c4926
commit a25938f123
1846 changed files with 21876 additions and 5203 deletions
Download patch file Download diff file Expand all files Collapse all files

12
Task/Exceptions/ALGOL-68/exceptions-2.alg
View file

@ -1,8 +1,4 @@
OBJECTFOO foo proxy := foo base; # event routines are specific to an foo #
on foo event(foo proxy, raise foo event);
WHILE TRUE DO
# now raise example foo event #
IF NOT (foo event mended OF foo proxy)(foo proxy) THEN undefined # trace back # FI
OD;
PROC raise foo exception x = (FOOOBJECT foo)BOOL:
IF NOT (foo exception x mended OF foo instance)(foo instance) THEN
except foo exception x
FI