<> <> <> <> <> DIRECTORY CDMarkObjects, CD, CDOrient, CDProperties, Rope USING [ROPE, Equal], Graphics USING [Context, MoveTo, LineTo, DrawArea, NewPath, Path]; CDMarkObjectsImpl: CEDAR PROGRAM IMPORTS CD, CDProperties, Rope, CDOrient, Graphics EXPORTS CDMarkObjects = BEGIN MarkEnumerator: TYPE = CDMarkObjects.MarkEnumerator; <<--PROC [markApp: CD.ApplicationPtr] RETURNS [quit: BOOL_FALSE]>> markAtom: PUBLIC ATOM _ $AlignmentMarkOb; markOb: PUBLIC CD.ObPtr; markNameProperty: PUBLIC ATOM _ $SignalName; myLayer: CD.Layer _ CD.combined; objsProcs: REF CD.ObjectProcs; path: Graphics.Path = CreateMarkPath[]; DrawMark: CD.DrawProc = BEGIN DrawPath: PROC [context: Graphics.Context, ob: CD.ObPtr, layer: CD.Layer] = BEGIN context.DrawArea[path: path]; END; IF pr.symbolics THEN { pr.drawContext[pr, DrawPath, markOb, pos, orient, myLayer] } END; WriteMark: CD.InternalWriteProc --PROC [me: ObPtr]-- = {}; ReadMark: CD.InternalReadProc --PROC [] RETURNS [ObPtr]-- = {RETURN [markOb]}; SetMarkName: PUBLIC PROC [markApp: CD.ApplicationPtr, name: Rope.ROPE] = BEGIN CDProperties.PutPropOnApplication[onto: markApp, prop: markNameProperty, val: name] END; GetMarkName: PUBLIC PROC [markApp: CD.ApplicationPtr] RETURNS [name: Rope.ROPE] = BEGIN WITH CDProperties.GetPropFromApplication[from: markApp, prop: markNameProperty] SELECT FROM r: Rope.ROPE => name _ r; ENDCASE => name _ "* bad name *"; END; FindMark: PUBLIC PROC [cellOb: CD.ObPtr_NIL, design: CD.Design_NIL, name: Rope.ROPE] RETURNS [app: CD.ApplicationPtr_NIL] = BEGIN Enumerate: MarkEnumerator = { IF Rope.Equal[GetMarkName[markApp], name] THEN {app _ markApp; quit_TRUE} }; [] _ EnumerateMarks[cellOb: cellOb, design: design, proc: Enumerate]; END; GetMarkPosition: PUBLIC PROC [markApp: CD.ApplicationPtr] RETURNS [CD.DesignPosition] = <<--actually finds any position of a real origin>> BEGIN RETURN [CDOrient.MapPoint[ pointInCell: [x: 0, y: 0], cellInstPos: markApp.location, cellSize: markApp.ob.size, cellInstOrient: markApp.orientation ]] END; EnumerateMarks: PUBLIC PROC [cellOb: CD.ObPtr_NIL, design: CD.Design_NIL, proc: MarkEnumerator] RETURNS [quit: BOOL_FALSE] = BEGIN cp: CD.CellPtr; IF cellOb#NIL THEN cp _ NARROW[cellOb.specificRef] ELSE IF design#NIL THEN cp _ design^.actual.first.specific ELSE ERROR; FOR list: CD.ApplicationList _ cp.contents, list.rest WHILE (list#NIL AND ~quit) DO IF list.first.ob=markOb THEN { quit _ proc[list.first]; -- do NOT catch errors }; ENDLOOP; END; CreateMarkPath: PROC [] RETURNS [path: Graphics.Path] = BEGIN path _ Graphics.NewPath[size: 8]; Graphics.MoveTo[path, 0, 0, TRUE]; Graphics.LineTo[path, 0, 3]; Graphics.LineTo[path, 1, 2]; Graphics.LineTo[path, 3, 4]; Graphics.LineTo[path, 4, 3]; Graphics.LineTo[path, 2, 1]; Graphics.LineTo[path, 3, 0]; Graphics.LineTo[path, 0, 0]; END; Init: PROC[] = BEGIN objsProcs _ CD.RegisterObjectType[markAtom]; objsProcs.drawMe _ DrawMark; objsProcs.internalWrite _ WriteMark; objsProcs.internalRead _ ReadMark; objsProcs.description _ "mark"; objsProcs.symbolic _ TRUE; markOb _ NEW[CD.ObjectDefinition _ [ p: objsProcs, size: [4, 4], layer: myLayer, specificRef: markAtom ]]; END; <<>> Init[]; END.