DIRECTORY CD, CDSequencer, Core USING [CellType], CoreCreate, Sisyph USING [Context, ES], TilingClass USING [CreateTiling, SchematicsNeighborX, SchematicsNeighborY, TileArray, TileArrayRec, TileRec, TileRowRec]; BugEUImpl: CEDAR PROGRAM IMPORTS CoreCreate, Sisyph, TilingClass = BEGIN OPEN CoreCreate; lastTile: TilingClass.TileArray _ NIL; lastCellType: CellType _ NIL; CreateShiftTagSmall: PUBLIC PROC [tamarinCx: Sisyph.Context] RETURNS [cellType: CellType] = { D1: Wire _ Seq["D1", 2]; XX: Wire _ Seq["XX", 2]; shiftTagTopCT: Core.CellType _ Sisyph.ES["ShiftTagTop.sch", tamarinCx]; tileArray: TilingClass.TileArray _ NEW[TilingClass.TileArrayRec[1]]; tileArray[0] _ NEW[TilingClass.TileRowRec[2]]; FOR i: NAT IN [0..2) DO tileArray[0][i] _ NEW[TilingClass.TileRec _ [ type: shiftTagTopCT, renaming: LIST[["D1", D1[i]], ["XX", XX]] ]]; ENDLOOP; lastTile _ tileArray; lastCellType _ cellType _ TilingClass.CreateTiling[ name: "TagShift", public: WireList[LIST[D1, XX]], tileArray: tileArray, neighborX: TilingClass.SchematicsNeighborX, neighborY: TilingClass.SchematicsNeighborY ]; }; END. BugEUImpl.mesa Copyright c 1987 by Xerox Corporation. All rights reserved. Last Edited by: Alan Bell August 1, 1987 4:34:18 pm PDT Κμ– "cedar" style˜codešœ™Kšœ Οmœ1™