<> <> <> <> DIRECTORY CD; CDPropertyTools: CEDAR DEFINITIONS = BEGIN <> <> IsExclusive: PROC [key: REF] RETURNS [BOOL]; <<--Returns whether the "key" property is exclusive.>> <<-- An exclusive property must not be used interactively>> <<-- [but also properties with non Atom keys shouldn't] >> RemoveProperties: PROC [key: ATOM]; <<--Removes >> <<-- this property from layers>> <<-- this property from itself>> <<-- layerkeys from this property>> <<-- further properties as associated>> <<--Exclusive properties are ignored>> Associate: PROC [key, a: ATOM]; <<--Associates "a" to "key":>> <<-- whenever RemoveProperties[key] is called, the "a" property on "key" >> <<-- and the "key" property on "a" will both be removed.>> <<--Exclusive properties are ignored.>> <<>> END.