
<<[Indigo]<Rosemary>Rosemary2>PreRelease>Rosemary2.DF=>RoseConditions.Mesa>>
<<Last Edited by: Spreitzer, October 15, 1984 11:01:50 pm PDT>>

    DIRECTORY
        RoseTypes, Trees;

    RoseConditions: CEDAR DEFINITIONS =

    BEGIN OPEN RoseTypes;

    Condition: TYPE = Trees.TreeNode;

    NodeTest: TYPE = REF NodeTestRep;
    NodeTestRep: TYPE = RECORD [
        node: Node,
        nodeName: ROPE,
        nodeFormat: Format,
        cell: Cell,
        testData: REF ANY _ NIL,
        testProc: NodeTestProc _ NIL];

    IncrementalCondition: TYPE = REF IncrementalConditionRep;
    IncrementalConditionRep: TYPE;

    test: Trees.NodeType;

    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.