<> <> <> <> DIRECTORY CD USING [Object, Design], ViewerClasses USING [Viewer]; CDDebug: CEDAR DEFINITIONS = BEGIN <<--Package with features to debug clients of ChipNDale>> <<--This package is usually called from the interpreter only>> <<--and is not considered part of a stable release. >> Draw: PROC [ob: CD.Object, technologyHint: REF_NIL] RETURNS [dummyDesign: CD.Design, viewer: ViewerClasses.Viewer]; <<--Creates a viewer which allows looking at an object.>> <<--Procedure to be called for debugging purposes only.>> <<--Any edit invalidates directory invariants of original design. >> rememberDesigns: BOOL; <<--Enable/disable flag whether someDesign should be set.>> someDesign: CD.Design; <<--the last design on which certain operations [e.g. creation] were performed. >> <<--NIL if feature disabled [rememberDesigns=FALSE] or no operation performed. >> <<>> RegisterPrintProcs: PROC [on: BOOL_TRUE]; <<--registers or unregisters tv print procs to debug ChipNDale types>> <<>> END.