DIRECTORY CD, CDBasics, CDDirectory, CDFeedback, CDOps, CDProperties, CDRects, CDViewer, CDCells, ImagerTransformation, Real, Rope; CDFeedbackImpl: CEDAR PROGRAM IMPORTS CDBasics, CDDirectory, CDOps, CDProperties, CDRects, CDViewer, CDCells, ImagerTransformation, Real EXPORTS CDFeedback = {OPEN CDFeedback; Showing: TYPE = REF ShowingRep; ShowingRep: PUBLIC TYPE = RECORD [ design: CD.Design, insts: InstanceList _ NIL]; InstanceList: TYPE = LIST OF Instance; Instance: TYPE = RECORD [ in: CD.Object, appl: CD.Instance]; feedbackKey: PUBLIC ATOM _ $Feedback; EmptyShow: PUBLIC SIGNAL = CODE; NoneVisible: PUBLIC SIGNAL = CODE; Show: PUBLIC PROC [ design: CD.Design, rect: CD.Rect, message: Rope.ROPE _ NIL, flag: ATOM _ $feedback, in: CellType, EnumerateSomeInstances: PROC [ cellType: CellType, to: PROC [transform: Transform, parent: CellType] RETURNS [stop: BOOL] ] ] RETURNS [showing: Showing] = { AddRect: PROC [r: CD.Rect, obj: CD.Object] = { ir: CD.Rect _ IF obj # NIL THEN CDBasics.Intersection[r, CDBasics.RectAt[pos: [0,0], size: obj.size]] ELSE r; ro: CD.Object _ CDRects.CreateRect[size: CDBasics.SizeOfRect[ir], l: CD.highLightError]; appl: CD.Instance _ CDCells.IncludeOb[design: design, cell: obj, ob: ro, position: CDBasics.BaseOfRect[ir], cellCSystem: cdCoords, obCSystem: interrestCoords].newInst; CDProperties.PutPropOnInstance[appl, $SignalName, message]; CDProperties.PutPropOnInstance[appl, feedbackKey, flag]; showing.insts _ CONS[[obj, appl], showing.insts]; madeMarks _ TRUE; }; someVisibleBounds: CD.Rect; madeMarks, foundVisible: BOOL _ FALSE; FindTop: PROC [r: CD.Rect, ct: CellType] = { IF ct = top THEN { IF foundVisible THEN ERROR ELSE someVisibleBounds _ r; foundVisible _ TRUE} ELSE { TryInstance: PROC [transform: Transform, parent: CellType] RETURNS [stop: BOOL] = { FindTop[TransformRect[r, transform], parent]; stop _ foundVisible }; EnumerateSomeInstances[ct, TryInstance]; }; }; Mark: PROC [r: CD.Rect, ct: CellType] = { IF ct = top THEN { AddRect[r, NIL]; IF NOT foundVisible THEN FindTop[r, top]; } ELSE { MarkInInstance: PROC [transform: Transform, parent: CellType] RETURNS [stop: BOOL] = { Mark[TransformRect[r, transform], parent]; stop _ FALSE; }; shownHere: BOOL -- in names a ChipNDale object that is a cell in design--; found: BOOL; obj: CD.Object; [found, obj] _ CDDirectory.Fetch[design, ct]; shownHere _ found AND ISTYPE[obj.specificRef, CD.CellPtr]; IF shownHere THEN { AddRect[r, obj]; IF NOT foundVisible THEN FindTop[r, ct] } ELSE { EnumerateSomeInstances[ct, MarkInInstance]; } }; }; showing _ NEW [ShowingRep _ [design]]; Mark[rect, in]; IF foundVisible THEN {--scroll to show someVisibleBounds vl: CDViewer.ViewerList _ CDViewer.ViewersOf[design]; FOR vl _ vl, vl.rest WHILE vl # NIL DO IF CDViewer.DesignOf[vl.first].design = design THEN CDViewer.ShowAndScale[viewer: vl.first, rect: someVisibleBounds]; ENDLOOP; } ELSE IF madeMarks THEN NoneVisible[] ELSE EmptyShow[]; }; UnShow: PUBLIC PROC [showing: Showing] = { FOR il: InstanceList _ showing.insts, il.rest WHILE il # NIL DO [] _ CDCells.RemoveInstance[design: showing.design, cell: il.first.in, inst: il.first.appl] ENDLOOP; CDOps.Redraw[showing.design]; }; TransformRect: PROC [r: CD.Rect, t: Transform] RETURNS [s: CD.Rect] = { tr: ImagerTransformation.Rectangle _ ImagerTransformation.TransformRectangle[ t, [x: r.x1, y: r.y1, w: r.x2 - r.x1, h: r.y2 - r.y1]]; s _ CD.Rect[ x1: Real.Round[tr.x], y1: Real.Round[tr.y], x2: Real.Round[tr.x + tr.w], y2: Real.Round[tr.y + tr.h] ]; }; Start: PROC = { [] _ CDProperties.RegisterProperty[feedbackKey]; }; Start[]; }. ÒCDFeedbackImpl.Mesa Last Edited by: Spreitzer, December 13, 1984 6:17:18 pm PST Last Edited by: Jacobi, May 22, 1985 5:29:08 pm PDT Will be clipped to bounding box of containing cells. Goes on the application as value of $SignalName property. Goes on the application as value of feedbackKey property. EnumerateSomeInstances may enumerate as many or as few (even none, if you're willing to live with the consequences) of the instances of cellType as it wishes. Ê'– "cedar" style˜Icode™J™;J™3K˜šÏk ˜ Kšœw˜y—K˜š Ðbxœœœœdœ ˜Kšœœ˜K˜Kšœ œœ˜šœœœœ˜"Kšœœ˜Kšœœ˜—K˜Kšœœœœ ˜&šœ œœ˜Kšœœ˜Kšœœ˜—K˜Kšœ œœ ˜%K˜KšÐbl œœœœ˜ K˜KšŸœœœœ˜"K˜šÏnœ˜šœ˜ Kšœœ˜šœœ˜K™4—šœœœ˜K™9—šœœ ˜K™9—Kšœ ˜ š œœ˜Kšœ˜Kšœœ*œœ˜FKšœ˜Kšœž™ž—Kšœ˜—Kšœ˜K˜š œœœœ˜.KšœœœœœGœ˜mKšœœ?œ˜XšœœB˜JJšœ$˜$Jšœ˜Jšœ$˜$—Kšœ;˜;Kšœ8˜8Kšœœ˜1Kšœœ˜K˜—Kšœœ˜Kšœœœ˜&š œœœ˜,šœ œ˜Kšœœœœ˜6Kšœœ˜—šœ˜š œœ*œœ˜SKšœ-˜-Kšœ˜K˜—Kšœ(˜(K˜—K˜—š œœœ˜)šœ œ˜Kšœœ˜Kšœœœ˜)Kšœ˜—šœ˜š œœ*œœ˜VKšœ*˜*Kšœœ˜ K˜—KšœœÏc9œ˜JKšœœ˜Kšœœ˜K˜-Kšœœœœ ˜:šœœ˜K˜Kšœœœ˜'Kšœ˜—šœ˜K˜+Kšœ˜—K˜—K˜—Kšœ œ˜&Kšœ˜šœœ¡"˜8K˜5šœœœ˜&Kšœ-œB˜uKšœ˜—Kšœ˜—Kšœœœ˜$Kšœ ˜K˜—K˜š œœœ˜*šœ+œœ˜?Kšœ[˜[Kšœ˜—K˜K˜—K˜š œœœœœ ˜GšœM˜MKšœ7˜7—šœœ˜Kšœ˜Kšœ˜Kšœ˜Kšœ˜Kšœ˜—K˜—K˜š œœ˜Kšœ0˜0K˜—K˜K˜K˜K˜——…—