CDPrivate.mesa (part of ChipNDale)
Copyright © 1983, 1985 by Xerox Corporation. All rights reserved.
by Christian Jacobi, November 21, 1983 4:02 pm
last edited by Christian Jacobi, April 11, 1985 12:54:16 pm PST
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.