DIRECTORY BooleCore, CD, Core, EULeafUtils, PW, PWCore, Rope, Sisyph;EULeafUtilsImpl: CEDAR PROGRAMIMPORTS BooleCore, PW, PWCore, Sisyph EXPORTS EULeafUtils = BEGIN ROPE: TYPE = Rope.ROPE;eu2Design, alpsDesign: PUBLIC CD.Design;eu2Cx, alpsCx: Sisyph.Context;Extract: PUBLIC PROC [name: ROPE] RETURNS [cellType: Core.CellType] ~ {cellType _ Sisyph.ExtractSchematicByName[name: name, cx: eu2Cx];};AlpsExtract: PUBLIC PROC [name: ROPE] RETURNS [cellType: Core.CellType] ~ {cellType _ Sisyph.ExtractSchematicByName[name: name, cx: alpsCx];PWCore.SetGet[cellType, alpsDesign];};Init: PROC ~ {defaultGlobalNames: LIST OF ROPE _ CONS["PadGnd", CONS["PadVdd", Sisyph.defaultGlobalNames]];IF eu2Design=NIL THEN {	-- not yet readeu2Design _ PW.OpenDesign["EU"]; eu2Cx _ Sisyph.Create[design: eu2Design];};alpsDesign _ BooleCore.cellLibrary;alpsCx _ Sisyph.Create[alpsDesign];};Init[];END.   ²  EULeafUtilsImpl.mesaCopyright c 1985 by Xerox Corporation.  All rights reserved.Louis Monier May 19, 1986 12:20:36 pm PDTBertrand Serlet August 19, 1986 11:56:08 am PDTÊ§  –"cedar" style˜ codešœ™Kšœ
Ïmœ1™<K™)K™/—K˜ KšÏk	œžœžœ˜EK˜ •StartOfExpansion[]šÏbœžœž˜Kšžœž˜&Kšžœ˜Kšžœ˜—K˜ Kšžœžœžœ˜Kšœžœžœ˜(Kšœ˜K˜ š
Ïnœžœžœžœžœ˜GKšœ@˜@K˜—K˜ š
 œžœžœžœžœ˜KKšœA˜AKšœ$˜$K˜K˜ —š œžœ˜Kšœžœžœžœžœžœ'˜]šžœžœžœÏc˜'Kšœžœ˜!Kšœ)˜)Kšœ˜—Kšœ#˜#Kšœ#˜#K˜—K˜ Kšœ˜K˜ Kšžœ˜K˜ — …—    ’  ë  