36 lines
883 B
Plaintext
36 lines
883 B
Plaintext
|
(* Abbreviation: ErrorCode *)
|
|||
|
|
(* Version 1.20, Jul 1985 *)
|
|||
|
|
DEFINITION MODULE ErrorCode;
|
|||
|
|
(*
|
|||
|
|
|
|||
|
|
handle return code to operating system
|
|||
|
|
|
|||
|
|
*)
|
|||
|
|
|
|||
|
|
EXPORT QUALIFIED
|
|||
|
|
SetErrorCode, GetErrorCode, ExitToOS;
|
|||
|
|
|
|||
|
|
PROCEDURE SetErrorCode(value: CARDINAL);
|
|||
|
|
(*
|
|||
|
|
Sets the error return code that will be
|
|||
|
|
used on normal termination; but it doesn't
|
|||
|
|
terminate the program immediately.
|
|||
|
|
*)
|
|||
|
|
|
|||
|
|
PROCEDURE GetErrorCode(VAR value: CARDINAL);
|
|||
|
|
(*
|
|||
|
|
Allows to inspect the set return code
|
|||
|
|
*)
|
|||
|
|
|
|||
|
|
PROCEDURE ExitToOS;
|
|||
|
|
(*
|
|||
|
|
Terminate current program and return to operating
|
|||
|
|
system. Set the error code corresponding to value
|
|||
|
|
defined by a previous call to SetErrorCode.
|
|||
|
|
implementation restriction: if the program is
|
|||
|
|
using overlays, only
|
|||
|
|
the current overlay will be terminated.
|
|||
|
|
*)
|
|||
|
|
|
|||
|
|
END ErrorCode.
|
|||
|
|
|