********************************************************************
* NOTE: This file is generated automatically from the event * definition file Match.evt. ********************************************************************MODULEFix any FormsVBT errors; don't handle exceptions for them.; <*NOWARN*> IMPORT Match, Rd, ZeusClass, Fmt, Algorithm, Wr; <*NOWARN*> IMPORT ZeusPanel, FormsVBT, VBT, Text, ZeusUtil; <* PRAGMA LL *> MatchAlgClass <* FATAL FormsVBT.Error, FormsVBT.Unimplemented *> REVEAL T = Public BRANDED OBJECT OVERRIDES <* LL = VBT.mu *> init := MatchDefaultInit; snapshot := MatchDefaultSnapshot; restore := MatchDefaultRestore; updateEventCounts := MatchDefaultUpdateCts; feSelected := Selected; END; PROCEDUREMatchDefaultInit (v: T): Algorithm.T = <* LL = VBT.mu *> PROCEDURE Attach (id: TEXT; proc: FormsVBT.Proc) = BEGIN FormsVBT.AttachProc(v.eventData, id, proc, v); END Attach; BEGIN v.eventData := ZeusPanel.NewForm("MatchEventData.fv"); Attach("stopatCodeEvents", MatchDoIt); Attach("waitatCodeEvents", MatchDoIt); Attach("eventCounts", MatchRefreshCts); Attach("stopAtInit", MatchDoIt); Attach("waitAtInit", MatchDoIt); Attach("stopAtSetState", MatchDoIt); Attach("waitAtSetState", MatchDoIt); FromFV (v.eventData, v); (* Get FV and internal data in sync *) RETURN Algorithm.T.init(v); END MatchDefaultInit; PROCEDUREMatchDoIt ( fv : FormsVBT.T; e : TEXT; arg: REFANY; <*UNUSED*> t : VBT.TimeStamp) = <* LL = VBT.mu *> BEGIN IF Text.Equal(e, "stopatCodeEvents") THEN NARROW(arg, T).stopatCodeEvents := FormsVBT.GetBoolean(fv, "stopatCodeEvents"); END; IF Text.Equal(e, "waitatCodeEvents") THEN NARROW(arg, T).waitatCodeEvents := FormsVBT.GetInteger(fv, "waitatCodeEvents"); END; IF Text.Equal(e, "stopAtInit") THEN NARROW(arg, T).eventDataRec.stopAtInit := FormsVBT.GetBoolean(fv, "stopAtInit"); END; IF Text.Equal(e, "waitAtInit") THEN NARROW(arg, T).eventDataRec.waitAtInit := FormsVBT.GetInteger(fv, "waitAtInit"); END; IF Text.Equal(e, "stopAtSetState") THEN NARROW(arg, T).eventDataRec.stopAtSetState := FormsVBT.GetBoolean(fv, "stopAtSetState"); END; IF Text.Equal(e, "waitAtSetState") THEN NARROW(arg, T).eventDataRec.waitAtSetState := FormsVBT.GetInteger(fv, "waitAtSetState"); END; END MatchDoIt; PROCEDUREMatchRefreshCts ( <*UNUSED*> fv : FormsVBT.T; <*UNUSED*> e : TEXT; arg : REFANY; <*UNUSED*> t : VBT.TimeStamp) = <* LL = VBT.mu *> BEGIN NARROW(arg, T).updateEventCounts(FALSE); END MatchRefreshCts; PROCEDUREFromFV (fv : FormsVBT.T; alg: T) = <* LL = VBT.mu *> BEGIN alg.stopatCodeEvents := FormsVBT.GetBoolean(fv, "stopatCodeEvents"); alg.waitatCodeEvents := FormsVBT.GetInteger(fv, "waitatCodeEvents"); alg.eventDataRec.stopAtInit := FormsVBT.GetBoolean(fv, "stopAtInit"); alg.eventDataRec.waitAtInit := FormsVBT.GetInteger(fv, "waitAtInit"); alg.eventDataRec.stopAtSetState := FormsVBT.GetBoolean(fv, "stopAtSetState"); alg.eventDataRec.waitAtSetState := FormsVBT.GetInteger(fv, "waitAtSetState"); END FromFV; <*UNUSED*> PROCEDUREToFV (fv : FormsVBT.T; alg: T) = <* LL = VBT.mu *> BEGIN FormsVBT.PutBoolean(fv, "stopatCodeEvents", alg.stopatCodeEvents); FormsVBT.PutInteger(fv, "waitatCodeEvents", alg.waitatCodeEvents); FormsVBT.PutBoolean(fv, "stopAtInit", alg.eventDataRec.stopAtInit); FormsVBT.PutInteger(fv, "waitAtInit", alg.eventDataRec.waitAtInit); FormsVBT.PutBoolean(fv, "stopAtSetState", alg.eventDataRec.stopAtSetState); FormsVBT.PutInteger(fv, "waitAtSetState", alg.eventDataRec.waitAtSetState); CountsToFV (fv, alg); END ToFV; PROCEDURECountsToFV (fv : FormsVBT.T; alg: T) = <* LL = VBT.mu *> BEGIN FormsVBT.PutText(fv, "ctOfInit", Fmt.Int(alg.eventDataRec.ctOfInit)); FormsVBT.PutText(fv, "ctOfSetState", Fmt.Int(alg.eventDataRec.ctOfSetState)); END CountsToFV; PROCEDUREMatchDefaultUpdateCts ( v: T; reset: BOOLEAN) = <* LL = VBT.mu *> BEGIN IF reset THEN v.eventDataRec.ctOfInit := 0; v.eventDataRec.ctOfSetState := 0; END; CountsToFV (v.eventData, v); END MatchDefaultUpdateCts; PROCEDUREMatchDefaultSnapshot (v: T; wr: Wr.T) RAISES {ZeusClass.Error} = <* LL = VBT.mu *> BEGIN TRY Wr.PutChar(wr, '(') EXCEPT ELSE RAISE ZeusClass.Error( "MatchAlgClass.MatchDefaultSnapshot write error"); END; IF v.eventData = NIL THEN RAISE ZeusClass.Error( "MatchAlgClass.MatchDefaultSnapshot: " & "eventData not set!"); END; TRY v.eventData.snapshot(wr) EXCEPT FormsVBT.Error (msg) => RAISE ZeusClass.Error( "MatchAlgClass.MatchDefaultSnapshot FV error: " & msg); ELSE RAISE ZeusClass.Error( "MatchAlgClass.MatchDefaultSnapshot error"); END; Algorithm.T.snapshot(v, wr); TRY Wr.PutChar(wr, ')') EXCEPT ELSE RAISE ZeusClass.Error( "MatchAlgClass.MatchDefaultSnapshot write error"); END; END MatchDefaultSnapshot; PROCEDUREMatchDefaultRestore (v: T; rd: Rd.T) RAISES {ZeusClass.Error} = <* LL = VBT.mu *> BEGIN IF rd = NIL THEN RETURN END; IF NOT ZeusUtil.EatChar(rd, '(') THEN RAISE ZeusClass.Error( "MatchAlgClass.MatchDefaultRestore read error"); END; IF v.eventData = NIL THEN RAISE ZeusClass.Error( "MatchAlgClass.MatchDefaultRestore: " & "eventData not set!"); END; TRY v.eventData.restore(rd); v.updateEventCounts(FALSE); FromFV(v.eventData, v); EXCEPT ELSE RAISE ZeusClass.Error( "MatchAlgClass.MatchDefaultRestore error"); END; Algorithm.T.restore(v, rd); IF NOT ZeusUtil.EatChar(rd, ')') THEN RAISE ZeusClass.Error( "MatchAlgClass.MatchDefaultRestore read error"); END; END MatchDefaultRestore; PROCEDURESelected (self: T ; <*UNUSED*> key: INTEGER ; <*UNUSED*> READONLY cd: VBT.MouseRec ) = <* LL = VBT.mu *> BEGIN self.evtHandled := FALSE; END Selected; BEGIN END MatchAlgClass.