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

September 2017 Update

Browse source
This commit is contained in:
Ingy döt Net 2017-09-23 10:01:46 +02:00
parent bba7bfd280
commit ba8067c3b7
14570 changed files with 153136 additions and 63871 deletions
Download patch file Download diff file Expand all files Collapse all files

9
Task/Exceptions/ALGOL-68/exceptions-3.alg
View file

@ -1,9 +0,0 @@
FOOOBJECTNEW foo instance := foo base; # exception x routines are specific to a foo #
FOOMEND prior foo exception x mend = foo exception x mended OF foo;
on foo exception x(foo instance, raise foo exception x);
WHILE TRUE DO
# now manually raise example "foo exception x" #
raise foo exception x(foo instance)
OD;

8
Task/Exceptions/ALGOL-68/exceptions-4.alg
View file

@ -1,8 +0,0 @@
on foo exception x(foo instance, prior foo exception x mend);
... EXIT
except foo exception x:
SKIP # exception x caught code here ... #
# to continue to propagate an exception x is a bit more problematic...#
# and requires nesting/restoring prior "raise foo exception x"#
on foo exception x(foo instance, prior foo exception x mend);
raise foo exception x(foo instance)