NMosContacts.mesa (part of ChipNDale)
Copyright © 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
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𡤀,
lex: CD.Number𡤀] RETURNS [CD.Object];
CreateMmCon: PROC [l: CD.Number,
wex: CD.Number𡤀,
lex: CD.Number𡤀] RETURNS [CD.Object];
--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!
END.