<> <> <> <> <<>> DIRECTORY CD, CDAtomicObjects, CDBasics, CDProperties, CDRects, CDStretchyBackdoor; CDStretchyBackdoorImpl: CEDAR PROGRAM IMPORTS CDAtomicObjects, CDBasics, CDProperties, CDRects EXPORTS CDStretchyBackdoor = BEGIN MatchProc: TYPE = CDStretchyBackdoor.MatchProc; MakeSimilarProc: TYPE = CDStretchyBackdoor.MakeSimilarProc; matchKey: ATOM = $CDxMatchProc; similarKey: ATOM = $CDxMakeSimilarProc; Match: PUBLIC PROC[me: CD.Object, r: CD.Rect, layer: CD.Layer, prim: BOOL, horz: BOOL] RETURNS [BOOL _ FALSE] = { WITH CDProperties.GetProp[me.class.properties, matchKey] SELECT FROM mp: REF MatchProc => RETURN [ mp^[me, r, layer, prim, horz] ]; ENDCASE => NULL; }; MakeSimilar: PUBLIC PROC [me: CD.Object, ir: CD.Rect] RETURNS [CD.Object_NIL] = { SELECT TRUE FROM me.class.wireTyped => RETURN [ CDRects.CreateRect[, me.layer] ]; CDAtomicObjects.IsAtomicOb[me] => RETURN [ CDAtomicObjects.CreateAtomicOb[me.class.objectType, CDBasics.SizeOfRect[ir], me.class.technology, me.layer] ]; ENDCASE => WITH CDProperties.GetProp[me.class.properties, similarKey] SELECT FROM p: REF MakeSimilarProc => RETURN [ p^[me, ir] ]; ENDCASE => NULL; }; HasMatchProc: PUBLIC PROC [me: CD.Object] RETURNS [BOOL] = { RETURN [CDProperties.GetProp[me.class.properties, matchKey]#NIL]; }; InstallMatchProc: PUBLIC PROC [type: CD.ObjectClass, match: MatchProc] = { CDProperties.PutProp[type, matchKey, NEW[MatchProc_match]]; }; InstallMakeSimilarProc: PUBLIC PROC [type: CD.ObjectClass, makeSimilar: MakeSimilarProc] = { CDProperties.PutProp[type, similarKey, NEW[MakeSimilarProc_makeSimilar]]; }; [] _ CDProperties.RegisterProperty[matchKey, $chj]; [] _ CDProperties.RegisterProperty[similarKey, $chj]; END.