Listing: 1 IMPLEMENTATION MODULE LogicInput; 2 (* 3 * REPERTOIRE 4 * Release 1.6 5 * By Charles Bradford and Cole Brecheen 6 * (c) Copyright 1985-1992 PMI 7 * Green Bay, Wisconsin 8 * All rights reserved 9 * (414) 468-6040 10 * 11 * $Header: D:/logfiles/mods/logicinp.mov 1.5 10 Mar 1991 15:29:10 coleb $ 12 * 13 *) 14 15 16 IMPORT ListUtils; 17 IMPORT ScrnTypes; 18 IMPORT ScrnUtl1; 19 IMPORT StrLogic; 20 21 VAR 22 Initialized : BOOLEAN; 23 24 PROCEDURE Init(); 25 BEGIN 26 IF Initialized THEN 27 RETURN; 28 ELSE 29 Initialized := TRUE; 30 END; 31 ListUtils.Init(); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 32 ScrnTypes.Init(); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 33 ScrnUtl1.Init(); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 34 StrLogic.Init(); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 35 END Init; ***** ^ not supported yet 36 37 PROCEDURE WhatTheySaid(VAR TheFrame : ScrnTypes.DisplayFrame; FieldName : ***** ^ not supported yet 38 ARRAY OF CHAR) : CARDINAL; ***** ^ not supported yet 39 VAR 40 ExprString: ARRAY [0..511] OF CHAR; ***** ^ not supported yet ***** ^ not supported yet 41 TmpStr: ARRAY [0..79] OF CHAR; ***** ^ not supported yet ***** ^ not supported yet 42 FieldNumber : CARDINAL; 43 BEGIN 44 IF FieldName[0] # 0C THEN ***** ^ not supported yet ***** ^ not supported yet 45 FieldNumber := ScrnUtl1.FieldNum( TheFrame, FieldName ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 46 ELSE 47 FieldNumber := TheFrame^.CurrentField; ***** ^ not supported yet ***** ^ not supported yet 48 END; 49 ScrnUtl1.GetFieldText( TheFrame, FieldNumber, TmpStr ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 50 ListUtils.ListToString( TheFrame^.DataList, ExprString ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 51 RETURN (StrLogic.ExpressionTest( TmpStr, ExprString)); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 52 END WhatTheySaid; ***** ^ not supported yet 53 54 BEGIN 55 Initialized := FALSE; 56 Init(); ***** ^ not supported yet ***** ^ not supported yet 57 END LogicInput. ***** ^ not supported yet 44 errors