********************************************************************
* NOTE: This file is generated automatically from the event * definition file Hash.evt. ********************************************************************INTERFACEHashAlgClass ; <*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.