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. €MakeDoNodeProps.Mesa Last Edited by: Spreitzer, August 30, 1985 6:10:05 pm PDT Carl Hauser, April 11, 1985 3:43:34 pm PST Κ=– "cedar" style˜code™J™9K™*—K˜KšΟk œ"œœ2˜cK˜šΠbxœœ˜Kšœ˜ Kšœ˜Kšœ˜—K˜Kšœœ˜!K˜Kšœ œœ˜-Kšœ œœ˜3K˜šΟnœœœœœœœœœ˜NKšœœ˜Kšœ ˜ Kšœ˜—K˜š Ÿœœœœœœ˜ϋ