<<[Indigo]®>Rosemary.DF=>RoseConditions.Mesa>> <> DIRECTORY RoseTypes, Trees; RoseConditions: CEDAR DEFINITIONS = BEGIN OPEN RoseTypes; Condition: TYPE = Trees.TreeNode; <> test: Trees.NodeType; NodeTester: TYPE = REF NodeTesterRep; NodeTesterRep: TYPE = RECORD [ node: Node, nodeName: ROPE, nodeFormat: Format, test: NodeTest _ [NIL, NIL]]; IncrementalCondition: TYPE = REF IncrementalConditionRep; IncrementalConditionRep: TYPE; PostOnSettle: PROC [sim: Simulation, condition: Condition]; UnPostOnSettle: PROC [sim: Simulation, condition: Condition]; PostIncrementally: PROC [cond: Condition] RETURNS [ic: IncrementalCondition]; UnPostIncrementally: PUBLIC PROC [ic: IncrementalCondition]; END.