Template:Prelude/general.a68: Difference between revisions
Content added Content deleted
(→ALGOL_68/prelude/general.a68: useful base routines.) |
m (add prefix white space) |
||
Line 6: | Line 6: | ||
PR READ "prelude/general.a68" PR |
PR READ "prelude/general.a68" PR |
||
END COMMENT |
END COMMENT |
||
########################################## |
########################################## |
||
# Define some general routines and MODES # |
# Define some general routines and MODES # |
||
########################################## |
########################################## |
||
MODE UTFCHAR = STRING; |
MODE UTFCHAR = STRING; |
||
MODE UTF=FLEX[0]UTFCHAR; |
MODE UTF=FLEX[0]UTFCHAR; |
||
MODE SIMPLEOUT = [0]UNION(INT, CHAR, STRING, []STRING); |
MODE SIMPLEOUT = [0]UNION(INT, CHAR, STRING, []STRING); |
||
MODE MOID = VOID; # Use in cases where the OP should really return a MODE # |
MODE MOID = VOID; # Use in cases where the OP should really return a MODE # |
||
PROC raise exception = (STRING type, SIMPLEOUT argv)VOID:( |
PROC raise exception = (STRING type, SIMPLEOUT argv)VOID:( |
||
BOOL exception = FALSE; |
BOOL exception = FALSE; |
||
putf(stand error, ($g$, "Exception"," ",type, ": ", argv, $l$)); |
putf(stand error, ($g$, "Exception"," ",type, ": ", argv, $l$)); |
||
ASSERT (exception) |
ASSERT (exception) |
||
); |
); |
||
PROC raise undefined = (SIMPLEOUT argv)VOID: |
PROC raise undefined = (SIMPLEOUT argv)VOID: |
||
raise exception("Undefined", argv); |
raise exception("Undefined", argv); |
||
PROC raise value error = (SIMPLEOUT argv)VOID: |
PROC raise value error = (SIMPLEOUT argv)VOID: |
||
raise exception("Value Error",argv); |
raise exception("Value Error",argv); |
||
<noinclude>{{template}}</noinclude> |
<noinclude>{{template}}</noinclude> |