<> <> <> DIRECTORY Core; CoreArrayCells: CEDAR DEFINITIONS = BEGIN OPEN Core; <> <> <> arrayCellClass: CellClass; ArrayCell: TYPE = REF ArrayCellRec; ArrayCellRec: TYPE = RECORD [ base: CellType, shape: Shape, sides: ARRAY Dim OF ARRAY End OF Wire, ]; Shape: TYPE = ARRAY Dim OF NAT; Dim: TYPE = {x, y}; End: TYPE = {low, high}; <> Create2D: PROC [design: Design, name: ROPE _ NIL, base: CellType, shape: Shape, sides: ARRAY Dim OF ARRAY End OF Wire]; Create1D: PROC [design: Design, name: ROPE _ NIL, base: CellType, count: NAT, ends, sides: ARRAY End OF Wire]; END.