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, February 23, 1987 1:52:16 pm PST
DIRECTORY
CD USING [Object, Design],
Rope USING [ROPE],
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, name: Rope.
ROPE←
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.