EULeafUtilsImpl.mesa
Copyright © 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
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 ROPECONS["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.