DIRECTORYCD USING [Number, Object];NMosContacts: CEDAR DEFINITIONS =BEGINContactType: TYPE = {burr, mDif, butt, mPol, mm2};ContactPtr: TYPE = REF ContactRec;ContactRec: TYPE = RECORD [typ: ContactType,wExt: CD.Number _ 0,lExt: CD.Number _ 0];CreatePolyCon: PROC [l: CD.Number] RETURNS [CD.Object];CreateDifCon: PROC [l: CD.Number] RETURNS [CD.Object];CreateButCon: PROC [] RETURNS [CD.Object];CreateBurCon: PROC [w, l: CD.Number,wex: CD.Number_0,lex: CD.Number_0] RETURNS [CD.Object];CreateMmCon: PROC [l: CD.Number,wex: CD.Number_0,lex: CD.Number_0] RETURNS [CD.Object];END.    ¤  NMosContacts.mesa        (part of ChipNDale)Copyright c 1983, 1984 by Xerox Corporation.  All rights reserved.by Christian Jacobi   May 3, 1983 11:22 am last edited by Christian Jacobi   September 23, 1985 6:32:08 pm PDT--All create procedures may (or may not) create references to--the same object.  Therefore consider the contact objects as --readonly.  If a contact needs to be modified create a new one!Ê’  ˜ šœ,™,Jšœ
Ïmœ7™BJšœ+™+JšœC™C—J˜ šÏk	˜	Jšžœžœ˜—J˜ JšÐblœžœžœ˜!Jšž˜J˜ Jšœžœ!˜2J˜ Jšœžœžœ˜"šœžœžœ˜J˜Jšœžœ˜Jšœžœ˜J˜J˜ —Jš
Ïnœžœžœ	žœžœ	˜7Jš
 œžœžœ	žœžœ	˜6Jš œžœžœžœ	˜*š œžœžœ˜$Jšœžœ
˜Jšœžœžœžœ	˜&—š œžœžœ˜ Jšœžœ
˜Jšœžœžœžœ	˜&J˜ J˜ —Jšœ=™=Jšœ>™>Jšœ@™@J˜ Jšžœ˜J˜ — …—    `  –  