mentor/derived/ParseViewClass.m3


 Copyright (C) 1995, Digital Equipment Corporation.       
 All rights reserved.                                     
 See the file COPYRIGHT for a full description.           
                                                          
 Last modified on Thu Feb  9 08:56:54 PST 1995 by kalsow  
      modified on Sat Jun  4 16:23:08 1994 by heydon      
      modified on Wed Feb 17 17:04:32 PST 1993 by johnh   
      modified on Tue Jun  9 00:35:35 1992 by mhb         

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

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


<* PRAGMA LL *>

MODULE ParseViewClass;

<*NOWARN*> IMPORT ZeusClass, Parse, ViewClass, ParseAlgClass;

REVEAL
  T = Public BRANDED OBJECT
      OVERRIDES
        <* LL.sup = VBT.mu *>
        isCompat := IsCompat;
        <* LL.sup < VBT.mu *>
        oeSetup := Setup;
        oePush := Push;
        oePop := Pop;
        oeScan := Scan;
        oeNoteError := NoteError;
        oeGoto := Goto;
        oeNewNode := NewNode;
        oeNewTerm := NewTerm;
        oeNewEdge := NewEdge;
        oeDeleteLeaf := DeleteLeaf;
        oeUpdateDone := UpdateDone;
        <* LL.sup = VBT.mu *>
      END;

PROCEDURE IsCompat(<*UNUSED*> v: T; alg: ZeusClass.T): BOOLEAN =
  <* LL.sup = VBT.mu *>
  BEGIN
    RETURN ISTYPE(alg, ParseAlgClass.T)
  END IsCompat;

PROCEDURE Setup (view: T
    ; <*UNUSED*> s: Parse.State
) =
  <* LL.sup < VBT.mu *>
  BEGIN
    view.evtHandled := FALSE;
  END Setup;
PROCEDURE Push (view: T
    ; <*UNUSED*> id: INTEGER
    ; <*UNUSED*> tag: TEXT
) =
  <* LL.sup < VBT.mu *>
  BEGIN
    view.evtHandled := FALSE;
  END Push;
PROCEDURE Pop (view: T
    ; <*UNUSED*> id: INTEGER
) =
  <* LL.sup < VBT.mu *>
  BEGIN
    view.evtHandled := FALSE;
  END Pop;
PROCEDURE Scan (view: T
    ; <*UNUSED*> token: TEXT
) =
  <* LL.sup < VBT.mu *>
  BEGIN
    view.evtHandled := FALSE;
  END Scan;
PROCEDURE NoteError (view: T
) =
  <* LL.sup < VBT.mu *>
  BEGIN
    view.evtHandled := FALSE;
  END NoteError;
PROCEDURE Goto (view: T
    ; <*UNUSED*> state: INTEGER
) =
  <* LL.sup < VBT.mu *>
  BEGIN
    view.evtHandled := FALSE;
  END Goto;
PROCEDURE NewNode (view: T
    ; <*UNUSED*> id: INTEGER
    ; <*UNUSED*> op: TEXT
) =
  <* LL.sup < VBT.mu *>
  BEGIN
    view.evtHandled := FALSE;
  END NewNode;
PROCEDURE NewTerm (view: T
    ; <*UNUSED*> id: INTEGER
    ; <*UNUSED*> op: TEXT
) =
  <* LL.sup < VBT.mu *>
  BEGIN
    view.evtHandled := FALSE;
  END NewTerm;
PROCEDURE NewEdge (view: T
    ; <*UNUSED*> child: INTEGER
    ; <*UNUSED*> parent: INTEGER
) =
  <* LL.sup < VBT.mu *>
  BEGIN
    view.evtHandled := FALSE;
  END NewEdge;
PROCEDURE DeleteLeaf (view: T
    ; <*UNUSED*> id: INTEGER
) =
  <* LL.sup < VBT.mu *>
  BEGIN
    view.evtHandled := FALSE;
  END DeleteLeaf;
PROCEDURE UpdateDone (view: T
) =
  <* LL.sup < VBT.mu *>
  BEGIN
    view.evtHandled := FALSE;
  END UpdateDone;

BEGIN
END ParseViewClass.

interface Parse is in: