CDDebug.mesa (part of ChipNDale)
Copyright © 1986 by Xerox Corporation. All rights reserved.
Created by Christian Jacobi, October 20, 1986 2:27:00 pm PDT
Last edited by: Christian Jacobi, October 20, 1986 2:55:44 pm PDT
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: REFNIL] 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: BOOLTRUE];
--registers or unregisters tv print procs to debug ChipNDale types
END.