| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106 |
- Listing:
- 1 (* Release 3.10 *)
- 2 (*-------------------------------------------------------------------------*
- 3 * *
- 4 * MONITOR.MOD - COMMS Toolkit RS232 line monitors *
- 5 * *
- 6 * COPYRIGHT (C) 1990..1992 Clarion Software Corporation. *
- 7 * All Rights Reserved *
- 8 * *
- 9 *--------------------------------------------------------------------------*)
- 10
- 11 IMPLEMENTATION MODULE Monitor;
- 12 IMPORT FIO,RS232,FTSupport;
- 13
- 14 CONST
- 15 TestFileName = 'E:\TEST.232';
- ***** ^ not supported yet
- 16
- 17 VAR
- 18 TestFile : FIO.File;
- ***** ^ not supported yet
- 19 RxChain : RS232.RxHookProc;
- ***** ^ not supported yet
- 20 TxChain : RS232.TxHookProc;
- ***** ^ not supported yet
- 21
- 22 PROCEDURE RxProc(VAR ch:CHAR);
- 23 BEGIN
- 24 FIO.WrChar(TestFile,ch);
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 25 FIO.WrChar(TestFile,'');
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 26 IF RxChain # NULLPROC THEN
- ***** ^ not supported yet
- ***** ^ undeclared identifier
- 27 RxChain(ch);
- ***** ^ not supported yet
- ***** ^ not supported yet
- 28 END; (*IF*)
- 29 END RxProc;
- ***** ^ not supported yet
- 30
- 31 (*# save,call(o_a_copy=>off),check(index=>off)*)
- 32 PROCEDURE TxProc(VAR Stg:ARRAY OF CHAR;VAR Len:CARDINAL);
- ***** ^ not supported yet
- 33 VAR
- 34 i : CARDINAL;
- 35 BEGIN
- 36 FOR i := 0 TO Len - 1 DO
- 37 FIO.WrChar(TestFile,Stg[i]);
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 38 FIO.WrChar(TestFile,'');
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 39 END; (*FOR*)
- 40 IF TxChain # NULLPROC THEN
- ***** ^ not supported yet
- ***** ^ undeclared identifier
- 41 TxChain(Stg,Len);
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 42 END; (*IF*)
- 43 END TxProc;
- ***** ^ not supported yet
- 44 (*# restore *)
- 45
- 46 BEGIN (*Monitor*)
- 47 TestFile := FIO.Create(TestFileName);
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 48 RS232.AddRxHook(RxProc,RxChain);
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 49 RS232.AddTxHook(TxProc,TxChain);
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 50 FTSupport.HookOnFT := TRUE;
- ***** ^ not supported yet
- ***** ^ not supported yet
- 51 END Monitor.
- ***** ^ not supported yet
- 52
- 48 errors
|
