Listing: 1 (* Release 3.10 *) 2 (*-------------------------------------------------------------------------* 3 * * 4 * MPRINTF.MOD - COMMS Toolkit formatted i/o * 5 * * 6 * COPYRIGHT (C) 1988..1992 Clarion Software Corporation. * 7 * All Rights Reserved * 8 * * 9 *--------------------------------------------------------------------------*) 10 11 IMPLEMENTATION MODULE MPRINTF; 12 IMPORT PrintFBase,IO; 13 14 VAR 15 Dummy : CARDINAL; 16 dest : ARRAY[0..1023] OF CHAR; ***** ^ not supported yet ***** ^ not supported yet 17 18 (*.............................................*) 19 20 PROCEDURE PrintF(pat:ARRAY OF CHAR); ***** ^ not supported yet 21 BEGIN 22 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 23 IO.WrStr(dest); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 24 END PrintF; ***** ^ not supported yet 25 26 (*.............................................*) 27 28 PROCEDURE PrintF1(pat:ARRAY OF CHAR; arg1:ARRAY OF BYTE); ***** ^ not supported yet ***** ^ undeclared identifier 29 BEGIN 30 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 31 IO.WrStr(dest); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 32 END PrintF1; ***** ^ not supported yet 33 34 (*.............................................*) 35 36 PROCEDURE PrintF2(pat:ARRAY OF CHAR; arg1,arg2:ARRAY OF BYTE); ***** ^ not supported yet ***** ^ undeclared identifier 37 BEGIN 38 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 39 IO.WrStr(dest); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 40 END PrintF2; ***** ^ not supported yet 41 42 (*.............................................*) 43 44 PROCEDURE PrintF3(pat:ARRAY OF CHAR; arg1,arg2,arg3:ARRAY OF BYTE); ***** ^ not supported yet ***** ^ undeclared identifier 45 BEGIN 46 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 47 IO.WrStr(dest); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 48 END PrintF3; ***** ^ not supported yet 49 50 (*.............................................*) 51 52 PROCEDURE PrintF4(pat:ARRAY OF CHAR; arg1,arg2,arg3,arg4:ARRAY OF BYTE); ***** ^ not supported yet ***** ^ undeclared identifier 53 BEGIN 54 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 55 IO.WrStr(dest); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 56 END PrintF4; ***** ^ not supported yet 57 58 (*.............................................*) 59 60 PROCEDURE PrintF5(pat:ARRAY OF CHAR; arg1,arg2,arg3,arg4,arg5:ARRAY OF BYTE); ***** ^ not supported yet ***** ^ undeclared identifier 61 BEGIN 62 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 63 IO.WrStr(dest); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 64 END PrintF5; ***** ^ not supported yet 65 66 (*.............................................*) 67 68 END MPRINTF. ***** ^ not supported yet 83 errors