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.    CDStretchyBackdoorImpl.mesa        (part of ChipNDale)Copyright c 1984, 1986 by Xerox Corporation.  All rights reserved.Created by Christian Jacobi,  October 22, 1984 10:04:35 am PDT Last edited by: Christian Jacobi, October 31, 1986 10:20:20 am PSTÊs  ˜ codešœ6™6Kšœ
Ïmœ7™BKšœ?™?K™B—K™ šÏk	˜	Kšž˜Kšœ˜Kšœ	˜	Kšœ˜Kšœ˜Kšœ˜—K˜ šÏnœžœžœ˜&Kšžœ1˜8Kšžœ˜—Kšž˜K˜ Kšœžœ ˜/Kšœžœ&˜;K˜ Kšœ
žœ˜Kšœžœ˜'K˜ šŸœžœžœžœžœžœžœžœžœžœžœ˜qšžœ5žœž˜DKšœžœžœ#˜>Kšžœžœ˜—Kšœ˜—K˜ šŸœžœžœžœžœžœžœžœ˜Qšžœžœž˜Kšœžœ$˜@Kšœ"žœq˜™šžœ˜šžœ7žœž˜FKšœžœžœ˜0Kšžœžœ˜———Kšœ˜—K˜ šŸœžœžœžœ	žœžœ˜<Kšžœ6žœ˜AKšœ˜—K˜ šŸœžœžœžœ#˜JKšœ%žœ˜;Kšœ˜—K˜ šŸœžœžœžœ/˜\Kšœ'žœ˜IKšœ˜—K˜ Kšœ3˜3Kšœ5˜5Kšžœ˜K˜ K˜ — …—    œ  
  