NMosContacts.mesa (part of ChipNDale)
Copyright © 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
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.