Anonymous user
Template:Prelude/general.a68: Difference between revisions
add some more useful MODEs and exceptions
m (moved ALGOL 68/prelude/general.a68 to Template:Prelude/general.a68: To be included into code as a template.) |
(add some more useful MODEs and exceptions) |
||
Line 1:
<lang algol68># -*- coding: utf-8 -*- #
##########################################▼
# -*- coding: utf-8 -*- #
# Define some general routines and MODES #▼
MODE
MODE SIMPLEOUT = [0]UNION(INT, CHAR, STRING, []STRING);▼
UTFCHAR = STRING, LONGCHAR = UTFCHAR, UTF=FLEX[0]LONGCHAR,
LBITS = UNION(SHORT SHORT BITS, SHORT BITS, BITS, LONG BITS, LONG LONG BITS),
LBYTES = UNION(SHORT SHORT BYTES, SHORT BYTES, BYTES, LONG BYTES, LONG LONG BYTES),
PROC raise exception = (STRING type, SIMPLEOUT argv)VOID:(▼
LINT = UNION(SHORT SHORT INT, SHORT INT, INT, LONG INT, LONG LONG INT),
LREAL = UNION(SHORT SHORT REAL, SHORT REAL, REAL, LONG REAL, LONG LONG REAL),
putf(stand error, ($g$, "Exception"," ",type, ": ", argv, $l$));▼
LCOMPL = UNION(SHORT SHORT COMPL, SHORT COMPL, COMPL, LONG COMPL, LONG LONG COMPL);
ASSERT (exception)▼
▲
);▼
# Use MOID with "*:=" OPerators who's where the returned MODE is often VOIDed for convenience #
PROC raise undefined = (SIMPLEOUT argv)VOID:▼
MODE MOID = VOID;
raise exception("Undefined", argv);▼
raise exception("Value Error",argv);
PROC raise index error = (SIMPLEOUT argv)VOID:
raise exception("Index Error",argv);
# KEEP * #</lang>
<noinclude>{{template}}</noinclude>
| |||