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