mentor/derived/ParseAlgClass.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 Parse.evt.
      ********************************************************************


INTERFACE ParseAlgClass;

<*NOWARN*> IMPORT Algorithm, Parse, AlgorithmClass;

<* PRAGMA LL *>

TYPE
  EventDataRec = RECORD
    stopAtSetup: BOOLEAN := TRUE;
    waitAtSetup: CARDINAL := 1;
    ctOfSetup: CARDINAL := 0;
    stopAtPush: BOOLEAN := TRUE;
    waitAtPush: CARDINAL := 1;
    ctOfPush: CARDINAL := 0;
    stopAtPop: BOOLEAN := TRUE;
    waitAtPop: CARDINAL := 1;
    ctOfPop: CARDINAL := 0;
    stopAtScan: BOOLEAN := TRUE;
    waitAtScan: CARDINAL := 1;
    ctOfScan: CARDINAL := 0;
    stopAtNoteError: BOOLEAN := TRUE;
    waitAtNoteError: CARDINAL := 1;
    ctOfNoteError: CARDINAL := 0;
    stopAtGoto: BOOLEAN := TRUE;
    waitAtGoto: CARDINAL := 1;
    ctOfGoto: CARDINAL := 0;
    stopAtNewNode: BOOLEAN := TRUE;
    waitAtNewNode: CARDINAL := 1;
    ctOfNewNode: CARDINAL := 0;
    stopAtNewTerm: BOOLEAN := TRUE;
    waitAtNewTerm: CARDINAL := 1;
    ctOfNewTerm: CARDINAL := 0;
    stopAtNewEdge: BOOLEAN := TRUE;
    waitAtNewEdge: CARDINAL := 1;
    ctOfNewEdge: CARDINAL := 0;
    stopAtDeleteLeaf: BOOLEAN := TRUE;
    waitAtDeleteLeaf: CARDINAL := 1;
    ctOfDeleteLeaf: CARDINAL := 0;
    stopAtUpdateDone: BOOLEAN := TRUE;
    waitAtUpdateDone: CARDINAL := 1;
    ctOfUpdateDone: CARDINAL := 0;
  END;

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

      METHODS
      END;

REVEAL
  Algorithm.T <: AlgorithmClass.T;

END ParseAlgClass.

interface Parse is in: