<> <> <> <> <<>> DIRECTORY CD, Rope USING [ROPE]; CDPrivate: CEDAR DEFINITIONS = BEGIN <<-- debugging>> Debug: PROC [msg: Rope.ROPE_NIL, what: REF_NIL, mayProceed: BOOL_TRUE]; <<--gives the user the chance of entering the debugger>> <<--msg is displayed to the user>> <<--what may be inspected with the debugger>> DebugCall: SIGNAL[what: REF]; <<--this signal is raised by Debug;>> <<--Don't catch this signal; respectively before a catch of RuntimeError.UNCAUGHT,>> <<--catch this signal and reject it, unless entering the debugger does not cause a deadlock>> <<>> <<-- Layers>> LayerRef: TYPE = REF LayerRec; LayerRec: TYPE = RECORD [ technology: CD.Technology_NIL, uniqueKey: ATOM_NIL, -- unique per technology properties: CD.Properties_NIL, globalUniqueKey: REF_NIL, --use as CDValue key reserved by CDDefaults number: CD.Layer ]; layers: READONLY REF ARRAY CD.Layer OF LayerRef; END.