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