DIRECTORY CD, Rope USING [ROPE]; CDOps: CEDAR DEFINITIONS = BEGIN CreateDesign: PROC [technology: CD.Technology] RETURNS [design: CD.Design]; ResetDesign: PROC [design: CD.Design]; IncludeInstance: PROC [design: CD.Design, inst: CD.Instance, draw: BOOL_TRUE]; IncludeInstanceList: PROC [design: CD.Design, il: CD.InstanceList, draw: BOOL_TRUE]; RemoveInstance: PROC [design: CD.Design, inst: CD.Instance, draw: BOOL_TRUE]; ReOrderInstance: PROC [design: CD.Design, inst: CD.Instance]; AddAnObject: PROC[design: CD.Design, ob: CD.Object, location: CD.Position, orientation: CD.Orientation_CD.original]; QuickDrawDesign: PROC [design: CD.Design, pr: CD.DrawRef]; DrawDesign: PROC [design: CD.Design, pr: CD.DrawRef]; Redraw: PROC [design: CD.Design, r: CD.Rect_all, eraseFirst: BOOL_TRUE]; DelayedRedraw: PROC [design: CD.Design, r: CD.Rect_all, eraseFirst: BOOL_TRUE]; DoTheDelayedRedraws: PROC [design: CD.Design]; all: PRIVATE CD.Rect = [FIRST[CD.Number], FIRST[CD.Number], LAST[CD.Number], LAST[CD.Number]]; SetInstList: PROC [design: CD.Design, appList: CD.InstanceList _ NIL] = INLINE {design^.actual.first.specific.contents _ appList}; InstList: PROC [design: CD.Design] RETURNS [CD.InstanceList] = INLINE {RETURN[design^.actual.first.specific.contents]}; PointedInstance: PROC [design: CD.Design, pos: CD.Position] RETURNS [CD.Instance]; SelectedInstance: PROC [design: CD.Design] RETURNS [first: CD.Instance, multiple: BOOL]; Info: PROC[ob: CD.Object] RETURNS [Rope.ROPE]; LayerName: PROC[lev: CD.Layer] RETURNS [Rope.ROPE]; END.  CDOps.mesa (part of ChipNDale) Copyright c 1983, 1984 by Xerox Corporation. All rights reserved. by Christian Jacobi, February 24, 1984 2:03 pm last edited by Christian Jacobi, May 28, 1985 2:12:16 pm PDT --does not open a viewer --conveniant procedure; sets selection according to internal mode --inclusive selection --ommit selection --efficiency hint: if a lot of small rectangles need to be redrawn, it can be more efficiant -- to call a redraw of a big rectangle first. --does the DelayedRedraw'swhich have not yet been done --first: returns ref to any selected application if there is one or more, otherwise nil. --multiple: more than one application is selected --Remark --All procedures do not queue; proper synchronization by the caller is assumed. Ê ˜šœ%™%Jšœ Ïmœ7™BJšœ0™0Jšœ=™=—J˜šÏk ˜ Jšžœ˜Jšœžœžœ˜J˜—JšÏnœžœž œ˜Jšž˜J˜š Ÿ œžœžœ žœ žœ ˜KJšœ™—JšŸ œžœ žœ ˜&J˜Jš Ÿœžœ žœžœžœžœ˜NJš Ÿœžœ žœ žœžœžœ˜TJš Ÿœžœ žœžœžœžœ˜MJšŸœžœ žœžœ ˜=J˜šŸ œžœ žœ žœ ˜4šœ žœžœ žœ ˜@JšœA™A——J˜šŸœžœ žœ žœ ˜:Jšœ™—J˜šŸ œžœ žœ žœ ˜5Jšœ™—J˜Jš Ÿœžœ žœ žœžœžœ˜Hš Ÿ œžœ žœ žœžœžœ˜OJšœ]™]Jšœ.™.—šŸœžœ žœ ˜.Jšœ6™6J˜Jšœžœžœ žœžœ žœžœ žœžœ žœžœ ˜^—J˜šŸ œžœ žœ$žœ˜GJšžœ4˜:—J˜šŸœžœ žœ žœ˜>Jšžœžœ*˜8—J˜šŸœžœ žœžœ ˜