********************************************************************
* NOTE: This file is generated automatically from the event * definition file Wheeler.evt. ********************************************************************<* PRAGMA LL *> MODULE; <*NOWARN*> IMPORT TextConv, ZeusClass, WheelerAlgClass, ViewClass; <*NOWARN*> IMPORT MiscFmt; REVEAL T = Public BRANDED OBJECT OVERRIDES <* LL.sup = VBT.mu *> isCompat := IsCompat; <* LL.sup < VBT.mu *> oeStartPermute := StartPermute; oeNextRotation := NextRotation; oeRotationsSorted := RotationsSorted; oePermuteDone := PermuteDone; oeStartEncode := StartEncode; oeEncodeNextChar := EncodeNextChar; oeEncodeDistinctCount := EncodeDistinctCount; oeEncodeFoundCode := EncodeFoundCode; oeEncodeDone := EncodeDone; oeInitDecode := InitDecode; oeStartDecode := StartDecode; oeDecodeNextCode := DecodeNextCode; oeDecodeDistinctCount := DecodeDistinctCount; oeDecodeFoundChar := DecodeFoundChar; oeDecodeDone := DecodeDone; oeStartReconstruct := StartReconstruct; oeFirstChars := FirstChars; oeConsiderChar := ConsiderChar; oeEqualChars := EqualChars; oeFinishCharRun := FinishCharRun; oeStartResult := StartResult; oeResultNextChar := ResultNextChar; oeEndResult := EndResult; oeReveal := Reveal; <* LL.sup = VBT.mu *> END; PROCEDURE WheelerViewClass IsCompat (<*UNUSED*> v: T; alg: ZeusClass.T): BOOLEAN = <* LL.sup = VBT.mu *> BEGIN RETURN ISTYPE(alg, WheelerAlgClass.T) END IsCompat; PROCEDUREStartPermute (view: T ; <*UNUSED*> string: TEXT ; <*UNUSED*> alphabet: TEXT ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END StartPermute; PROCEDURENextRotation (view: T ; <*UNUSED*> i: INTEGER ; <*UNUSED*> string: TEXT ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END NextRotation; PROCEDURERotationsSorted (view: T ; <*UNUSED*> rotations: MiscFmt.RefTextArray ; <*UNUSED*> rowIndex: INTEGER ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END RotationsSorted; PROCEDUREPermuteDone (view: T ; <*UNUSED*> lastchars: TEXT ; <*UNUSED*> rowIndex: INTEGER ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END PermuteDone; PROCEDUREStartEncode (view: T ; <*UNUSED*> alphabet: TEXT ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END StartEncode; PROCEDUREEncodeNextChar (view: T ; <*UNUSED*> i: INTEGER ; <*UNUSED*> c: CHAR ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END EncodeNextChar; PROCEDUREEncodeDistinctCount (view: T ; <*UNUSED*> i: INTEGER ; <*UNUSED*> k: INTEGER ; <*UNUSED*> n: INTEGER ; <*UNUSED*> c: CHAR ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END EncodeDistinctCount; PROCEDUREEncodeFoundCode (view: T ; <*UNUSED*> i: INTEGER ; <*UNUSED*> k: INTEGER ; <*UNUSED*> code: INTEGER ; <*UNUSED*> c: CHAR ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END EncodeFoundCode; PROCEDUREEncodeDone (view: T ; <*UNUSED*> alphabet: TEXT ; <*UNUSED*> codes: MiscFmt.RefIntArray ; <*UNUSED*> rowIndex: INTEGER ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END EncodeDone; PROCEDUREInitDecode (view: T ; <*UNUSED*> alphabet: TEXT ; <*UNUSED*> codes: MiscFmt.RefIntArray ; <*UNUSED*> rowIndex: INTEGER ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END InitDecode; PROCEDUREStartDecode (view: T ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END StartDecode; PROCEDUREDecodeNextCode (view: T ; <*UNUSED*> i: INTEGER ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END DecodeNextCode; PROCEDUREDecodeDistinctCount (view: T ; <*UNUSED*> i: INTEGER ; <*UNUSED*> k: INTEGER ; <*UNUSED*> n: INTEGER ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END DecodeDistinctCount; PROCEDUREDecodeFoundChar (view: T ; <*UNUSED*> i: INTEGER ; <*UNUSED*> k: INTEGER ; <*UNUSED*> c: CHAR ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END DecodeFoundChar; PROCEDUREDecodeDone (view: T ; <*UNUSED*> lastchars: TEXT ; <*UNUSED*> rowIndex: INTEGER ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END DecodeDone; PROCEDUREStartReconstruct (view: T ; <*UNUSED*> lastchars: TEXT ; <*UNUSED*> rowIndex: INTEGER ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END StartReconstruct; PROCEDUREFirstChars (view: T ; <*UNUSED*> t: TEXT ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END FirstChars; PROCEDUREConsiderChar (view: T ; <*UNUSED*> i: INTEGER ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END ConsiderChar; PROCEDUREEqualChars (view: T ; <*UNUSED*> i: INTEGER ; <*UNUSED*> j: INTEGER ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END EqualChars; PROCEDUREFinishCharRun (view: T ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END FinishCharRun; PROCEDUREStartResult (view: T ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END StartResult; PROCEDUREResultNextChar (view: T ; <*UNUSED*> pos: INTEGER ; <*UNUSED*> k: INTEGER ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END ResultNextChar; PROCEDUREEndResult (view: T ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END EndResult; PROCEDUREReveal (view: T ; <*UNUSED*> i: INTEGER ) = <* LL.sup < VBT.mu *> BEGIN view.evtHandled := FALSE; END Reveal; BEGIN END WheelerViewClass.