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.Created by Christian Jacobi   May 3, 1983 11:22 am Last edited by: Christian Jacobi, October 27, 1986 12:50:40 pm PST--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šœ3™3Icode™B—J˜ šÏk	˜	Jšžœžœ˜—J˜ JšÏnœžœžœ˜!Jšž˜J˜ Jšœžœ!˜2J˜ Jšœžœžœ˜"šœžœžœ˜J˜Jšœžœ˜Jšœžœ˜J˜J˜ —Jš
Ÿœžœžœ	žœžœ	˜7Jš
Ÿœžœžœ	žœžœ	˜6JšŸœžœžœžœ	˜*šŸœžœžœ˜$Jšœžœ
˜Jšœžœžœžœ	˜&—šŸœžœžœ˜ Jšœžœ
˜Jšœžœžœžœ	˜&J˜ J˜ —Jšœ=™=Jšœ>™>Jšœ@™@J˜ Jšžœ˜J˜ — …—    `    