Listing: 1 (* Release 3.10 *) 2 (*-------------------------------------------------------------------------* 3 * * 4 * SPRINTF.MOD - COMMS Toolkit formatted string i/o * 5 * * 6 * COPYRIGHT (C) 1988..1992 Clarion Software Corporation. * 7 * All Rights Reserved * 8 * * 9 *--------------------------------------------------------------------------*) 10 11 IMPLEMENTATION MODULE SPRINTF; 12 IMPORT PrintFBase; 13 14 VAR 15 Dummy : CARDINAL; 16 17 (*.............................................*) 18 19 PROCEDURE SPrintF(pat:ARRAY OF CHAR; VAR dest:ARRAY OF CHAR); ***** ^ not supported yet ***** ^ not supported yet 20 BEGIN 21 PrintFBase.DoPrintF(pat,Dummy,Dummy,Dummy,Dummy,Dummy,dest,0); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 22 END SPrintF; ***** ^ not supported yet 23 24 (*.............................................*) 25 26 PROCEDURE SPrintF1(pat:ARRAY OF CHAR; arg1:ARRAY OF BYTE;VAR dest:ARRAY OF CHAR); ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ not supported yet 27 BEGIN 28 PrintFBase.DoPrintF(pat,arg1,Dummy,Dummy,Dummy,Dummy,dest,1); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 29 END SPrintF1; ***** ^ not supported yet 30 31 (*.............................................*) 32 33 PROCEDURE SPrintF2(pat:ARRAY OF CHAR; arg1,arg2:ARRAY OF BYTE;VAR dest:ARRAY OF CHAR); ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ not supported yet 34 BEGIN 35 PrintFBase.DoPrintF(pat,arg1,arg2,Dummy,Dummy,Dummy,dest,2); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 36 END SPrintF2; ***** ^ not supported yet 37 38 (*.............................................*) 39 40 PROCEDURE SPrintF3(pat:ARRAY OF CHAR; arg1,arg2,arg3:ARRAY OF BYTE;VAR dest:ARRAY OF CHAR); ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ not supported yet 41 BEGIN 42 PrintFBase.DoPrintF(pat,arg1,arg2,arg3,Dummy,Dummy,dest,3); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 43 END SPrintF3; ***** ^ not supported yet 44 45 (*.............................................*) 46 47 PROCEDURE SPrintF4(pat:ARRAY OF CHAR; arg1,arg2,arg3,arg4:ARRAY OF BYTE;VAR dest:ARRAY OF CHAR); ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ not supported yet 48 BEGIN 49 PrintFBase.DoPrintF(pat,arg1,arg2,arg3,arg4,Dummy,dest,4); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 50 END SPrintF4; ***** ^ not supported yet 51 52 (*.............................................*) 53 54 PROCEDURE SPrintF5(pat:ARRAY OF CHAR; arg1,arg2,arg3,arg4,arg5:ARRAY OF BYTE;VAR dest:ARRAY OF CHAR); ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ not supported yet 55 BEGIN 56 PrintFBase.DoPrintF(pat,arg1,arg2,arg3,arg4,arg5,dest,5); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 57 END SPrintF5; ***** ^ not supported yet 58 59 (*.............................................*) 60 61 END SPRINTF. ***** ^ not supported yet 69 errors