Topspeed_JPI/TS-V3/SRC/SPRINTF.MOD

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

IMPLEMENTATION MODULE SPRINTF;
  IMPORT PrintFBase;

  VAR
    Dummy               : CARDINAL;

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

  PROCEDURE SPrintF(pat:ARRAY OF CHAR; VAR dest:ARRAY OF CHAR);
    BEGIN
      PrintFBase.DoPrintF(pat,Dummy,Dummy,Dummy,Dummy,Dummy,dest,0);
    END SPrintF;

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

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

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

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

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

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

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

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

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

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

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

END SPRINTF.