mentor/derived/HullAlgClass.i3


 Copyright (C) 1995, Digital Equipment Corporation.       
 All rights reserved.                                     
 See the file COPYRIGHT for a full description.           
                                                          
 Last modified on Thu Feb  9 08:47:37 PST 1995 by kalsow  
 Last modified on Wed Feb 17 16:44:58 PST 1993 by johnh   
      modified on Tue Jun  9 00:35:07 1992 by mhb         

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

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


INTERFACE HullAlgClass;

<*NOWARN*> IMPORT HullFmt, IntList, SiteList, Algorithm;
<*NOWARN*> IMPORT AlgorithmClass;

<* PRAGMA LL *>

TYPE
  EventDataRec = RECORD
    stopAtSetup: BOOLEAN := TRUE;
    waitAtSetup: CARDINAL := 1;
    ctOfSetup: CARDINAL := 0;
    stopAtSetHalfPlane: BOOLEAN := TRUE;
    waitAtSetHalfPlane: CARDINAL := 1;
    ctOfSetHalfPlane: CARDINAL := 0;
    stopAtClearHead: BOOLEAN := TRUE;
    waitAtClearHead: CARDINAL := 1;
    ctOfClearHead: CARDINAL := 0;
    stopAtTestSite: BOOLEAN := TRUE;
    waitAtTestSite: CARDINAL := 1;
    ctOfTestSite: CARDINAL := 0;
    stopAtClearTest: BOOLEAN := TRUE;
    waitAtClearTest: CARDINAL := 1;
    ctOfClearTest: CARDINAL := 0;
    stopAtSetTail: BOOLEAN := TRUE;
    waitAtSetTail: CARDINAL := 1;
    ctOfSetTail: CARDINAL := 0;
    stopAtClearTail: BOOLEAN := TRUE;
    waitAtClearTail: CARDINAL := 1;
    ctOfClearTail: CARDINAL := 0;
    stopAtMoveHalfPlane: BOOLEAN := TRUE;
    waitAtMoveHalfPlane: CARDINAL := 1;
    ctOfMoveHalfPlane: CARDINAL := 0;
    stopAtConfirm: BOOLEAN := TRUE;
    waitAtConfirm: CARDINAL := 1;
    ctOfConfirm: CARDINAL := 0;
    stopAtDeny: BOOLEAN := TRUE;
    waitAtDeny: CARDINAL := 1;
    ctOfDeny: CARDINAL := 0;
    stopAtSwap: BOOLEAN := TRUE;
    waitAtSwap: CARDINAL := 1;
    ctOfSwap: CARDINAL := 0;
    stopAtSentinel: BOOLEAN := TRUE;
    waitAtSentinel: CARDINAL := 1;
    ctOfSentinel: CARDINAL := 0;
    stopAtReOrder: BOOLEAN := TRUE;
    waitAtReOrder: CARDINAL := 1;
    ctOfReOrder: CARDINAL := 0;
    stopAtStretch: BOOLEAN := TRUE;
    waitAtStretch: CARDINAL := 1;
    ctOfStretch: CARDINAL := 0;
    stopAtSnap: BOOLEAN := TRUE;
    waitAtSnap: CARDINAL := 1;
    ctOfSnap: CARDINAL := 0;
    stopAtShuffle: BOOLEAN := TRUE;
    waitAtShuffle: CARDINAL := 1;
    ctOfShuffle: CARDINAL := 0;
  END;

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

      METHODS
      END;

REVEAL
  Algorithm.T <: AlgorithmClass.T;

END HullAlgClass.