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