mentor/derived/PktRouteAlgClass.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 PktRoute.evt.
      ********************************************************************



INTERFACE PktRouteAlgClass;

<*NOWARN*> IMPORT TextConv, IntList, Algorithm, IntListUtils;
<*NOWARN*> IMPORT RefIntArray, OblFmt, AlgorithmClass;

<* PRAGMA LL *>

TYPE
  EventDataRec = RECORD
    stopAtStartGraph: BOOLEAN := TRUE;
    waitAtStartGraph: CARDINAL := 1;
    ctOfStartGraph: CARDINAL := 0;
    stopAtNewNode: BOOLEAN := TRUE;
    waitAtNewNode: CARDINAL := 1;
    ctOfNewNode: CARDINAL := 0;
    stopAtNewStraightEdge: BOOLEAN := TRUE;
    waitAtNewStraightEdge: CARDINAL := 1;
    ctOfNewStraightEdge: CARDINAL := 0;
    stopAtNewCurvedEdge: BOOLEAN := TRUE;
    waitAtNewCurvedEdge: CARDINAL := 1;
    ctOfNewCurvedEdge: CARDINAL := 0;
    stopAtNewLabel: BOOLEAN := TRUE;
    waitAtNewLabel: CARDINAL := 1;
    ctOfNewLabel: CARDINAL := 0;
    stopAtEndGraph: BOOLEAN := TRUE;
    waitAtEndGraph: CARDINAL := 1;
    ctOfEndGraph: CARDINAL := 0;
    stopAtStartPackets: BOOLEAN := TRUE;
    waitAtStartPackets: CARDINAL := 1;
    ctOfStartPackets: CARDINAL := 0;
    stopAtNewPacket: BOOLEAN := TRUE;
    waitAtNewPacket: CARDINAL := 1;
    ctOfNewPacket: CARDINAL := 0;
    stopAtEndPackets: BOOLEAN := TRUE;
    waitAtEndPackets: CARDINAL := 1;
    ctOfEndPackets: CARDINAL := 0;
    stopAtBlocked: BOOLEAN := TRUE;
    waitAtBlocked: CARDINAL := 1;
    ctOfBlocked: CARDINAL := 0;
    stopAtMovePacket: BOOLEAN := TRUE;
    waitAtMovePacket: CARDINAL := 1;
    ctOfMovePacket: CARDINAL := 0;
    stopAtQueueSizes: BOOLEAN := TRUE;
    waitAtQueueSizes: CARDINAL := 1;
    ctOfQueueSizes: CARDINAL := 0;
    stopAtAbsorb: BOOLEAN := TRUE;
    waitAtAbsorb: CARDINAL := 1;
    ctOfAbsorb: CARDINAL := 0;
    stopAtStep: BOOLEAN := TRUE;
    waitAtStep: CARDINAL := 1;
    ctOfStep: CARDINAL := 0;
  END;

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

      METHODS
      END;

REVEAL
  Algorithm.T <: AlgorithmClass.T;

END PktRouteAlgClass.