| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157 |
- 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
|
