DIRECTORYIO USING [STREAM],Rope USING [ROPE];CIFParser: CEDAR DEFINITIONS~ BEGINPoint: TYPE ~ RECORD[x, y: INT];Path: TYPE ~ LIST OF Point;Transformation: TYPE ~ LIST OF TransformationRec;TransformationRec: TYPE ~ RECORD[t: TransfType, p: Point]; --never NILTransfType: TYPE ~ {translation, rotation, xSym, ySym, error};TMatrix: TYPE ~ RECORD[a11, a21, a31, a12, a22, a32, a33: REAL]; --IntTransDefs.mesa compatibleTransfToMatrix: PROC [t: Transformation] RETURNS [m: TMatrix];MatMult: PROC [m1, m2: TMatrix] RETURNS [mProd: TMatrix];TransformPt: PROC [m: TMatrix, p: Point] RETURNS [newP: Point];IsOrthogonalTransform: PROC [m: TMatrix] RETURNS [BOOL];Registration: TYPE ~ REF RegistrationRec;RegistrationRec: TYPE ~ RECORD [defDelete: 	PROC[i: CARD, data: REF ANY],defStart: 	PROC[i, a, b: CARD, data: REF ANY],defFinish: 	PROC[data: REF ANY],polygon: 	PROC[p: Path, data: REF ANY],box: 	PROC[l, w: CARD, c, d: Point, data: REF ANY],roundFlash: PROC[d: CARD, c: Point, data: REF ANY],wire: 	PROC[w: CARD, p: Path, data: REF ANY],layer: 	PROC[n: Rope.ROPE, data: REF ANY],call: 	PROC[s: CARD, t: Transformation, data: REF ANY],userExtension: PROC[u: CARD, t: Rope.ROPE, data: REF ANY],comment: 	PROC[c: Rope.ROPE, data: REF ANY],data: 	REF ANY	-- user data ignored by the Parser];Parse: PROC [cifStream: IO.STREAM, reg: Registration];Error: ERROR [msg: Rope.ROPE, cifFile: IO.STREAM];ClientError: ERROR [clientMsg: Rope.ROPE];END.  ║  CIFParser.mesaCopyright ╙ 1987 by Xerox Corporation.  All rights reserved.written by Ch. Le Cocq, September 10, 1987Christian Le Cocq, September 16, 1987 10:38:44 am PDTParser of the CIF (Caltech Intermediate Form) format stream.CIF is a standard of chip layout description. See Mead & Conway pp 115-127.TransformationsSimple Transformation handling package:The calling program provides one proc for each CIF command.calls the various registred procs with the relevant argument for each CIF command.syntax errorIs mapped into Error[Rope.Cat["client error: ", clientMsg], cifFile]. Convenient way for the client registred procs to raise an error (for instance "unknown layer").Э╩є  Ш codeЪЬЩKЪЬ<Щ<KЪЬ*Щ*KЪЬ5Щ5ЧKЩ KЪЬ<Щ<KЪЬKЩKKЩ Ъ╧k	Ш	KЪЭЬЭЬЭЬШKЪЬЭЬЭЬШЧKШ KЪ╨bl	ЬЭЬЭШЪЬЭШKШ KЪЬЭЬЭЬЭЬШ KЪЬЭЬЭЬЭЬШKШ KЩЪЬЭЬЭЬЭЬШ1KЪЬЭЬЭЬ╧cШFKЪЬЭЬ.Ш>ЧKЪЬ	ЭЬЭЬ$ЭЬЯШ_KЩ'KЪ╧nЬЭЬЭЬШ>KЪаЬЭЬЭЬШ9KЪаЬЭЬЭЬШ?ЪаЬЭЬЭЬЭЬШ8KШ ЧKЪЬ/ЭЬ	Щ;ЪЬЭЬЭЬШ)ЪЬЭЬЭЬШ KЪ	ЬЭЬЭЬЭЬЭЬШ)KЪ	ЬЭЬ
ЭЬЭЬЭЬШ.KЪЬЭЬЭЬЭЬШ KЪЬ
ЭЬЭЬЭЬШ'KЪ	ЬЭЬЭЬЭЬЭЬШ3KЪ	ЬЭЬЭЬЭЬЭЬШ3KЪ	ЬЭЬЭЬЭЬЭЬШ-KЪ	ЬЭЬ	ЭЬЭЬЭЬШ*KЪ	ЬЭЬЭЬЭЬЭЬШ7KЪЬЭЬЭЬ
ЭЬЭЬЭЬШ:KЪ	Ь
ЭЬ	ЭЬЭЬЭЬШ,KЪЬЭЬЭЬЯ"Ш1KЪЬШKЩ ЧЧЪаЬЭЬЭ	ЬШ6KЩRKЩ ЧЪ
аЬЭЬЭЬЭЬЭЬШ2KЩЧЪаЬЭЬЭЬШ*KЪЬеЩеЧЧKЪЭЬШЧ ЕЧ    ╛  k  