DEFINITION MODULE SysExceptions;
(* V3 binding to the runtime exception support in shim.c.  This is an
   implementation module, not part of ISO; EXCEPTIONS and M2EXCEPTION
   are the public interfaces. *)

FROM SYSTEM IMPORT ADDRESS;

PROCEDURE RaiseLang (code : CARDINAL);
(* Raise language exception `code` (0..14). *)
PROCEDURE RaiseUser (source : ADDRESS; number : CARDINAL;
                     message : ARRAY OF CHAR);
(* Raise a user exception; the runtime copies the message. *)
PROCEDURE Retry;
PROCEDURE Leave;
PROCEDURE Active () : BOOLEAN;
PROCEDURE IsLanguage () : BOOLEAN;
PROCEDURE IsSource (source : ADDRESS) : BOOLEAN;
PROCEDURE Number () : CARDINAL;
PROCEDURE CopyMessage (VAR text : ARRAY OF CHAR);
PROCEDURE NewSource () : ADDRESS;

END SysExceptions.