Topspeed_JPI/gpm/M2SYM/STDERROR.DEF

(* ========================================================= *)
(* Preliminary library module for Gardens Point Modula       *)
(* ========================================================= *)

FOREIGN DEFINITION MODULE StdError;

   IMPORT IMPLEMENTATION FROM  "stderror.obj";

(* these procedures are identical to the     *)
(* procedures from module Terminal with the  *)
(* same names, except that output goes to    *)
(* the standard UNIX error stream "stderr"   *)

  PROCEDURE WriteString(str : ARRAY OF CHAR);

  PROCEDURE WriteLn;

  PROCEDURE WriteCard(card  : CARDINAL;
                      width : CARDINAL);

  PROCEDURE Write(ch : CHAR);

END StdError.