Topspeed_JPI/TS/SRC/MPRINTF.MOD

(* Release 3.10 *)
(*-------------------------------------------------------------------------*
*                                                                          *
*  MPRINTF.MOD - COMMS Toolkit formatted i/o                               *
*                                                                          *
*  COPYRIGHT (C) 1988..1992 Clarion Software Corporation.                  *
*  All Rights Reserved                                                     *
*                                                                          *
*--------------------------------------------------------------------------*)

IMPLEMENTATION MODULE MPRINTF;
  IMPORT PrintFBase,IO;

  VAR
    Dummy               : CARDINAL;
    dest                : ARRAY[0..1023] OF CHAR;

(*.............................................*)

  PROCEDURE PrintF(pat:ARRAY OF CHAR);
    BEGIN
      PrintFBase.DoPrintF(pat,Dummy,Dummy,Dummy,Dummy,Dummy,dest,0);
      IO.WrStr(dest);
    END PrintF;

(*.............................................*)

  PROCEDURE PrintF1(pat:ARRAY OF CHAR; arg1:ARRAY OF BYTE);
    BEGIN
      PrintFBase.DoPrintF(pat,arg1,Dummy,Dummy,Dummy,Dummy,dest,1);
      IO.WrStr(dest);
    END PrintF1;

(*.............................................*)

  PROCEDURE PrintF2(pat:ARRAY OF CHAR; arg1,arg2:ARRAY OF BYTE);
    BEGIN
      PrintFBase.DoPrintF(pat,arg1,arg2,Dummy,Dummy,Dummy,dest,2);
      IO.WrStr(dest);
    END PrintF2;

(*.............................................*)

  PROCEDURE PrintF3(pat:ARRAY OF CHAR; arg1,arg2,arg3:ARRAY OF BYTE);
    BEGIN
      PrintFBase.DoPrintF(pat,arg1,arg2,arg3,Dummy,Dummy,dest,3);
      IO.WrStr(dest);
    END PrintF3;

(*.............................................*)

  PROCEDURE PrintF4(pat:ARRAY OF CHAR; arg1,arg2,arg3,arg4:ARRAY OF BYTE);
    BEGIN
      PrintFBase.DoPrintF(pat,arg1,arg2,arg3,arg4,Dummy,dest,4);
      IO.WrStr(dest);
    END PrintF4;

(*.............................................*)

  PROCEDURE PrintF5(pat:ARRAY OF CHAR; arg1,arg2,arg3,arg4,arg5:ARRAY OF BYTE);
    BEGIN
      PrintFBase.DoPrintF(pat,arg1,arg2,arg3,arg4,arg5,dest,5);
      IO.WrStr(dest);
    END PrintF5;

(*.............................................*)

END MPRINTF.