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

DEFINITION MODULE PrintFBase;

  VAR
    Data                : ADDRESS;     (* A ptr to the value to be converted                  *)
    RightJustify,                      (* right justify if FieldWidth > 0, default FALSE      *)
    AlwaysSigned        : BOOLEAN;     (* always output a sign, even when positive            *)
    DataSize,                          (* the size in bytes of the data pointed to by Data    *)
    FieldWidth,                        (* the requested total width of a field to be output   *)
    Places              : CARDINAL;    (* the requested number of decimal places              *)
    PadChar,                           (* the char to use for padding                         *)
    TypeChar,                          (* the type character used in the field specification  *)
    Positive            : CHAR;        (* the character to use as the sign when positive, eg  *)
                                       (* usually '+' or ' '. This char is not used when      *)
                                       (* AlwaysSigned=FALSE                                  *)
    DestString          : ARRAY[0..255] OF CHAR;
                                       (* the result of all conversions should be placed in   *)
                                       (* this string.                                        *)

  PROCEDURE DoPrintF(VAR pat:ARRAY OF CHAR;VAR arg1,arg2,arg3,arg4,arg5:ARRAY OF BYTE;VAR dest:ARRAY OF CHAR;NumArgs:CARDINAL);
  PROCEDURE NewConversion(TypeChar:CHAR; ConvertRoutine:PROC);

END PrintFBase.