********************************************************************

      *  NOTE: This file is generated automatically from the event
      *        definition file Hash.evt.
      ********************************************************************


INTERFACE HashAlgClass;

<*NOWARN*> IMPORT IntList, Algorithm, HashFmt, FormsVBT;
<*NOWARN*> IMPORT AlgorithmClass;

<* PRAGMA LL *>

TYPE
  EventDataRec = RECORD
    stopAtSetup: BOOLEAN := TRUE;
    waitAtSetup: CARDINAL := 1;
    ctOfSetup: CARDINAL := 0;
    stopAtInsert: BOOLEAN := TRUE;
    waitAtInsert: CARDINAL := 1;
    ctOfInsert: CARDINAL := 0;
    stopAtFind: BOOLEAN := TRUE;
    waitAtFind: CARDINAL := 1;
    ctOfFind: CARDINAL := 0;
    stopAtDelete: BOOLEAN := TRUE;
    waitAtDelete: CARDINAL := 1;
    ctOfDelete: CARDINAL := 0;
    stopAtCompare: BOOLEAN := TRUE;
    waitAtCompare: CARDINAL := 1;
    ctOfCompare: CARDINAL := 0;
    stopAtCheckDeletable: BOOLEAN := TRUE;
    waitAtCheckDeletable: CARDINAL := 1;
    ctOfCheckDeletable: CARDINAL := 0;
    stopAtCheckHashPosition: BOOLEAN := TRUE;
    waitAtCheckHashPosition: CARDINAL := 1;
    ctOfCheckHashPosition: CARDINAL := 0;
    stopAtAddToBucket: BOOLEAN := TRUE;
    waitAtAddToBucket: CARDINAL := 1;
    ctOfAddToBucket: CARDINAL := 0;
    stopAtDeleteFromBucket: BOOLEAN := TRUE;
    waitAtDeleteFromBucket: CARDINAL := 1;
    ctOfDeleteFromBucket: CARDINAL := 0;
  END;

  T <: Public;
  Public = Algorithm.T OBJECT
      eventDataRec: EventDataRec;

      METHODS
        feReportFind ( item: TEXT);    <* LL = VBT.mu *>
        feStopReportFind ( );    <* LL = VBT.mu *>
      END;

REVEAL
  Algorithm.T <: AlgorithmClass.T;

END HashAlgClass.