DIRECTORYSC,SCPrivate;SCWidthUtil: CEDAR DEFINITIONS =BEGINmaxWireSegs: NAT = 2000;MaxWireSegsSr: TYPE = NAT[1 .. maxWireSegs];ZMaxWireSegsSr: TYPE = NAT[0 .. maxWireSegs];WireSegs: TYPE = REF WireSegsRec;WireSegsRec: TYPE = RECORD [nWireSegsOnCh: ZMaxWireSegsSr _ 0,segs: ARRAY MaxWireSegsSr OF WireSeg _ ALL[NIL]];WireSeg: TYPE = REF WireSegRec;WireSegRec: TYPE = RECORD [pos: SC.Number,endType: SC.Side];GetChanWidth: PROCEDURE[handle: SC.Handle, rowChan: SCPrivate.RowChan, fom: SCPrivate.FomType, doWidth: BOOLEAN]RETURNS [chanWidth, wireLength: INT];GetSideWidth: PROCEDURE[handle: SC.Handle, lRSide: SCPrivate.LRSide, fom: SCPrivate.FomType] RETURNS [chanWidth, wireLength: INT];AllChanWidths: PROCEDURE[handle: SC.Handle, fom: SCPrivate.FomType];END.   М  file SCWidthUtil.mesaCopyright c 1986 by Xerox Corporation.  All rights reserved.Bryan Preas, December 31, 1986 12:14:46 pm PSTplacement utility routines-- GetChanWidth - get width of channel specified-- GetSideWidth - get width of channel on side-- AllChanWidths - find widths of all channelsget width of channel specified get width of channel on sidefind widths of all channelsЭ╩▒  Ш ЪЬЩIcodeЪЬ
╧mЬ1Щ<KЩ.ЧJШ JЪЬЩJЪЬ╧nЬ!Щ0JЪЬЮЬЩ.JЪЬЮЬЩ.JЩ Ъ╧k	Ш	JЪЬШJЪЬ
Ш
JШ ЧЪЬЯЬЯЬШ JШ JЪЯШJШ JЪЬЯЬШJЪЬЯЬЯЬШ,JЪЬЯЬЯЬШ-JЪЬ
ЯЬЯЬШ!ЪЬЯЬЯЬШJЪЬ"Ш"JЪ	ЬЯЬЯЬЯЬЯЬШ1ЧJЪЬ	ЯЬЯЬШЪЬЯЬЯЬШJЪЬЯЬШJЪЬ	ЯЬШJШ ЧJЪЬЩЪЮЬЯ	Ь	ЯЬFЯЬШpJЪЯЬЯЬШ%JШ ЧJЪЬЩJЪ
ЮЬЯ	Ь	ЯЬ;ЯЬЯЬШВJШ JЪЬЩJЪЮЬЯ	Ь	ЯЬ!ШDJШ JЪЯЬШJШ ЧЧ ЕЧ      S  