IMPLEMENTATION MODULE LogicInput;
(*
 *  REPERTOIRE
 *  Release 1.6
 *  By Charles Bradford and Cole Brecheen
 *  (c) Copyright 1985-1992 PMI
 *  Green Bay, Wisconsin
 *  All rights reserved
 *  (414) 468-6040
 *
 *  $Header:   D:/logfiles/mods/logicinp.mov   1.5   10 Mar 1991 15:29:10   coleb  $
 *
 *)


IMPORT ListUtils;
IMPORT ScrnTypes;
IMPORT ScrnUtl1;
IMPORT StrLogic;

VAR
  Initialized : BOOLEAN;

  PROCEDURE Init();
    BEGIN
      IF Initialized THEN
        RETURN;
      ELSE
        Initialized := TRUE;
      END;
      ListUtils.Init();
      ScrnTypes.Init();
      ScrnUtl1.Init();
      StrLogic.Init();
    END Init;

  PROCEDURE WhatTheySaid(VAR TheFrame : ScrnTypes.DisplayFrame; FieldName :
    ARRAY OF CHAR) : CARDINAL;
    VAR
      ExprString: ARRAY [0..511] OF CHAR;
      TmpStr: ARRAY [0..79] OF CHAR;
      FieldNumber : CARDINAL;
    BEGIN
      IF FieldName[0] # 0C THEN
        FieldNumber := ScrnUtl1.FieldNum( TheFrame, FieldName );
      ELSE
        FieldNumber := TheFrame^.CurrentField;
      END;
      ScrnUtl1.GetFieldText( TheFrame, FieldNumber, TmpStr );
      ListUtils.ListToString( TheFrame^.DataList, ExprString );
      RETURN (StrLogic.ExpressionTest( TmpStr, ExprString));
    END WhatTheySaid;

BEGIN
  Initialized := FALSE;
  Init();
END LogicInput.