MakeDoNodeProps.Mesa
Last Edited by: Spreitzer, August 30, 1985 6:10:05 pm PDT
Carl Hauser, April 11, 1985 3:43:34 pm PST
DIRECTORY Basics, BasicTime, CedarProcess, FS, IO, List, MakeDo, MakeDoPrivate, RedBlackTree, Rope;
MakeDoNodeProps:
CEDAR
MONITOR
IMPORTS List
EXPORTS MakeDo
=
BEGIN OPEN MakeDo, MakeDoPrivate;
NodeRep: PUBLIC TYPE = MakeDoPrivate.NodeRep;
CommandRep: PUBLIC TYPE = MakeDoPrivate.CommandRep;
GetProp:
PUBLIC
ENTRY
PROC [n: Node, prop:
REF
ANY]
RETURNS [val:
REF
ANY] = {
ENABLE UNWIND => {};
val ← List.Assoc[prop, n.props];
};
SetProp:
PUBLIC
ENTRY
PROC [n: Node, prop, val:
REF
ANY] = {
ENABLE UNWIND => {};
n.props ← List.PutAssoc[prop, val, n.props];
};
END.