BugEUImpl.mesa
Copyright © 1987 by Xerox Corporation. All rights reserved.
Last Edited by: Alan Bell August 1, 1987 4:34:18 pm PDT
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.