SimpleInvRoseDetails.mesa
Copyright © 1985 by Xerox Corporation. All rights reversed.
Spreitzer, October 1, 1985 6:49:02 pm PDT
DIRECTORY BasicTime, BitTwiddling, Core, CoreProperties, GetMe, IO, Rope, RoseBehavior, RoseBind, RoseControl, SimpleInvRoseDefs;
SimpleInvRoseDetails:
CEDAR
PROGRAM
IMPORTS GetMe, RoseBehavior
=
BEGIN OPEN RoseBehavior, RoseControl, SimpleInvRoseDefs;
EvalSimple:
PROC [argsAny, switchAny, simpleAny, strengthAny, stateAny:
REF
ANY, perturb:
PROC [portPath: PortPath]] = {
simple: REF SimpleInvSimple = NARROW[simpleAny];
drive:
REF SimpleInvDrive =
NARROW[strengthAny];
{OPEN simple;
drive.out ← drive;
drive.in ← none;
out ← NOT in;
};
};
RegisterDetails[
behaviorClassName: "SimpleInv",
details: NEW [DetailsRec ← [EvalSimple: EvalSimple]],
versionStamp: GetMe.GetVersion[]
];
END.