Assertions: Difference between revisions

=={{header|XPL0}}==

XPL0 does not have an assert command. The equivalent is usually

synthesized something like this.

<lang XPL0>proc Fatal(Str); \Display error message and terminate program

char Str;

[\return; uncomment this if "assertions" are to be disabled

SetVid(3); \set normal text display if program uses graphics

Text(0, Str); \display error message

ChOut(0, 7); \sound the bell

exit 1; \terminate the program; pass optional error code to DOS

];

if X#42 then Fatal("X#42");</lang>