********************************************************************
* NOTE: This file is generated automatically from the event * definition file Parse.evt. ********************************************************************<* PRAGMA LL *> MODULE; <*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 ParseViewClass IsCompat (<*UNUSED*> v: T; alg: ZeusClass.T): BOOLEAN = <* LL.sup = VBT.mu *> BEGIN RETURN ISTYPE(alg, ParseAlgClass.T) END IsCompat; PROCEDURESetup (view: T ; <*UNUSED*> s: Parse.State ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END Setup; PROCEDUREPush (view: T ; <*UNUSED*> id: INTEGER ; <*UNUSED*> tag: TEXT ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END Push; PROCEDUREPop (view: T ; <*UNUSED*> id: INTEGER ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END Pop; PROCEDUREScan (view: T ; <*UNUSED*> token: TEXT ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END Scan; PROCEDURENoteError (view: T ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END NoteError; PROCEDUREGoto (view: T ; <*UNUSED*> state: INTEGER ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END Goto; PROCEDURENewNode (view: T ; <*UNUSED*> id: INTEGER ; <*UNUSED*> op: TEXT ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END NewNode; PROCEDURENewTerm (view: T ; <*UNUSED*> id: INTEGER ; <*UNUSED*> op: TEXT ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END NewTerm; PROCEDURENewEdge (view: T ; <*UNUSED*> child: INTEGER ; <*UNUSED*> parent: INTEGER ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END NewEdge; PROCEDUREDeleteLeaf (view: T ; <*UNUSED*> id: INTEGER ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END DeleteLeaf; PROCEDUREUpdateDone (view: T ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END UpdateDone; BEGIN END ParseViewClass.