| 1234567891011121314151617181920212223242526272829303132333435363738394041424344454647 |
- Listing:
- 1 (* Release 3.10 *)
- 2 (*-------------------------------------------------------------------------*
- 3 * *
- 4 * PRINTFBA.DEF - COMMS Toolkit formatted i/o support *
- 5 * *
- 6 * COPYRIGHT (C) 1988..1992 Clarion Software Corporation. *
- 7 * All Rights Reserved *
- 8 * *
- 9 *--------------------------------------------------------------------------*)
- 10
- 11 DEFINITION MODULE PrintFBase;
- 12
- 13 VAR
- 14 Data : ADDRESS; (* A ptr to the value to be converted *)
- ***** ^ undeclared identifier
- 15 RightJustify, (* right justify if FieldWidth > 0, default FALSE *)
- 16 AlwaysSigned : BOOLEAN; (* always output a sign, even when positive *)
- 17 DataSize, (* the size in bytes of the data pointed to by Data *)
- 18 FieldWidth, (* the requested total width of a field to be output *)
- 19 Places : CARDINAL; (* the requested number of decimal places *)
- 20 PadChar, (* the char to use for padding *)
- 21 TypeChar, (* the type character used in the field specification *)
- 22 Positive : CHAR; (* the character to use as the sign when positive, eg *)
- 23 (* usually '+' or ' '. This char is not used when *)
- 24 (* AlwaysSigned=FALSE *)
- 25 DestString : ARRAY[0..255] OF CHAR;
- ***** ^ not supported yet
- ***** ^ not supported yet
- 26 (* the result of all conversions should be placed in *)
- 27 (* this string. *)
- 28
- 29 PROCEDURE DoPrintF(VAR pat:ARRAY OF CHAR;VAR arg1,arg2,arg3,arg4,arg5:ARRAY OF BYTE;VAR dest:ARRAY OF CHAR;NumArgs:CARDINAL);
- ***** ^ not supported yet
- ***** ^ undeclared identifier
- ***** ^ not supported yet
- 30 PROCEDURE NewConversion(TypeChar:CHAR; ConvertRoutine:PROC);
- ***** ^ undeclared identifier
- 31
- 32 END PrintFBase.
- ***** ^ not supported yet
- 33
- 8 errors
|
