DIRECTORY CDProperties USING [RegisterProperty], Core USING [Wire], CoreProperties USING [RegisterProperty], CoreOps USING [GetShortWireName], DrcDebug, IO USING [card, noWhereStream, PutF, refAny, rope, STREAM], MessageWindow USING [Append, Blink, Clear], Rope USING [ROPE], UserProfile USING [Boolean, CallWhenProfileChanges, ProfileChangedProc], ViewerIO USING [CreateViewerStreams], ViewerTools USING [FindExistingViewer, Viewer]; DrcDebugImpl: CEDAR PROGRAM IMPORTS CDProperties, CoreOps, CoreProperties, IO, MessageWindow, UserProfile, ViewerIO, ViewerTools EXPORTS DrcDebug ~ BEGIN OPEN DrcDebug; debug: PUBLIC BOOL _ UserProfile.Boolean [key: "Genista.Debug", default: FALSE]; trace: PUBLIC ATOM _ CoreProperties.RegisterProperty [$DrcTrace]; pause: PUBLIC ATOM _ CoreProperties.RegisterProperty [$break]; break: PUBLIC SIGNAL ~ CODE; dLog: PUBLIC IO.STREAM _ IO.noWhereStream; ActivateDebug: UserProfile.ProfileChangedProc ~ BEGIN profile: BOOL ~ UserProfile.Boolean [key: "Genista.Debug", default: FALSE]; IF debug THEN {IF (debug # profile) THEN debug _ FALSE} ELSE {IF (debug # profile) THEN Debug} END; -- ActivateDebug Debug: PUBLIC PROC ~ BEGIN viewerName: Rope.ROPE ~ "Genista debug"; viewer: ViewerTools.Viewer _ ViewerTools.FindExistingViewer [viewerName]; debug _ TRUE; -- Get all in one dLog _ ViewerIO.CreateViewerStreams [viewerName, viewer].out END; -- Debug PrintWire: PUBLIC PROC [w: Core.Wire] ~ BEGIN dLog.PutF ["%g %g %g\n", IO.rope [CoreOps.GetShortWireName[w]], IO.card [LOOPHOLE[w]], IO.refAny [w]]; FOR i: NAT IN [0 .. w.size) DO dLog.PutF ["\t(%g) %g %g %g\n", IO.card [i], IO.rope [CoreOps.GetShortWireName[w[i]]], IO.card [LOOPHOLE[w[i]]], IO.refAny [w[i]]] ENDLOOP END; -- PrintWire ImportantMessage: PUBLIC PROC [msg: Rope.ROPE] ~ BEGIN MessageWindow.Clear []; MessageWindow.Append [msg]; MessageWindow.Blink [] END; -- ImportantMessage [] _ CDProperties.RegisterProperty [trace, $gbb]; [] _ CDProperties.RegisterProperty [pause, $gbb]; IF debug THEN Debug[]; UserProfile.CallWhenProfileChanges [ActivateDebug] END. >DrcDebugImpl.mesa Copyright Ó 1987, 1988 by Xerox Corporation. All rights reserved. Written by gbb, January 12, 1987 11:47:17 am PST gbb March 8, 1987 12:54:13 pm PST Note: Output to noWhereStream passes all I/O code, and hence is very slow ! For convenience in debugging. Call this procedure in the Interpreter. GeometryInWire: PUBLIC PROC [w: Core.Wire, transf] ~ BEGIN ListRect: CoreGeometry.EachInstanceProc ~ BEGIN PROC [instance: CdInsts] RETURNS [quit: BOOL _ FALSE] SELECT instance.obj.class.objectType FROM rectClass, wellRectClass => BEGIN r: Rect _ CDBasicsInline.MapRect [CoreGeometry.InlineBBox [instance], transf]; dLog.PutF ["%g [x1: %g, y1: %g, x2: %g, y2: %g]\n", IO.atom [CD.LayerKey [instance.obj.layer]], IO.int [ END; END; -- GeometryInWire Displays the message in the message viewer and blinks it. Ê3˜codešœ™KšœC™CKšœ0™0K™!K™—code2šÏk ˜ Kšœ œ˜&Kšœœ˜Kšœœ˜(Kšœœ˜!Kšœ ˜ Kšœœ+œ˜;Kšœœ˜+Kšœœœ˜Kšœœ7˜HKšœ œ˜%Kšœœ˜/—LšÐblÐlnœ ˜Lšœ(œ3˜dLšœ ˜šœœœ ˜Lšœœœ7œ˜PKšœœœ/˜AKšœœœ,˜>Kšœœœœ˜šœœœœ˜*KšœÏe œ.™K—šÏn œ#˜5Lšœ œ7œ˜KKš œœœœ œ˜7Kšœœœ˜&LšœÏc˜—š¡œœœ˜K™EKšœœ˜(KšœI˜IKšœœ¢˜Kšœ<˜