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

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

@ -1,6 +1,9 @@
# a user defined object #
MODE OBJECTFOO = STRUCT ( PROC (REF OBJECTFOO)BOOL foo event mended, ... );
MODE FOO = STRUCT ( ... )
FOOOBJECTNEW = STRUCT (FOOMEND foo exception x mended, FOO instance),
FOOOBJECT = REF FOOOBJECTNEW,
FOOMEND = PROC (FOOOBJECT)BOOL;
PROC on foo event = (REF OBJECTFOO foo, PROC (REF OBJECTFOO)BOOL foo event)VOID: (
foo event mended OF foo := foo event
PROC on foo exception x = (FOOOBJECT foo, PROC (FOOOBJECT)BOOL foo exception x mend)VOID: (
foo exception x mended OF foo := foo exception x mend
);