--------------------------------------------------------------------------
INTERFACE-------------------------------------------------------------------------- MsgX is a switching layer above Msg and MsgIF interfaces. All procedures are the same as in Msg, except for their first parameter `msgif'. If `msgif' is NIL, the Msg module is used to output the message, else `msgif'.MsgX ; IMPORT MsgIF;
--------------------------------------------------------------------------
PROCEDURE Error(msgif : MsgIF.T; msg : TEXT);--------------------------------------------------------------------------
PROCEDURE Fatal(msgif : MsgIF.T; msg : TEXT; exitCode : INTEGER := 1);--------------------------------------------------------------------------
PROCEDURE Warning(msgif : MsgIF.T; msg : TEXT);--------------------------------------------------------------------------
PROCEDURE Debug(msgif : MsgIF.T; msg : TEXT; level := 1);--------------------------------------------------------------------------
PROCEDURE Error2(msgif : MsgIF.T; proc, msg : TEXT);--------------------------------------------------------------------------
PROCEDURE Fatal2(msgif : MsgIF.T; proc, msg : TEXT; exitCode : INTEGER := 1);--------------------------------------------------------------------------
PROCEDURE Warning2(msgif : MsgIF.T; proc, msg : TEXT);--------------------------------------------------------------------------
PROCEDURE Debug2(msgif : MsgIF.T; proc, msg : TEXT; level := 1);--------------------------------------------------------------------------
PROCEDURE V(msgif : MsgIF.T; msg : TEXT; unconditionalNewLine := TRUE; level := 1);--------------------------------------------------------------------------
PROCEDURE V2(msgif : MsgIF.T; proc, msg : TEXT; unconditionalNewLine := TRUE; level := 1);--------------------------------------------------------------------------
PROCEDURE T(msgif : MsgIF.T; msg : TEXT; unconditionalNewLine := TRUE; level := 1);--------------------------------------------------------------------------
PROCEDURE T2(msgif : MsgIF.T; proc, msg : TEXT; unconditionalNewLine := TRUE; level := 1);--------------------------------------------------------------------------
PROCEDURE D(msgif : MsgIF.T; msg : TEXT; unconditionalNewLine := TRUE; level := 1);--------------------------------------------------------------------------
PROCEDURE D2(msgif : MsgIF.T; proc, msg : TEXT; unconditionalNewLine := TRUE; level := 1); END MsgX.