WireIcons.mesa
Copyright © 1986 by Xerox Corporation. All rights reserved.
Created by Bertrand Serlet, August 4, 1986 6:31:47 pm PDT
Bertrand Serlet, October 17, 1986 5:40:56 pm PDT
Allows creation by program of wire icons. Technology parameter l is passed around to allow technology independence.
DIRECTORY CD, Core;
WireIcons: CEDAR DEFINITIONS ~ BEGIN
Types and constants
ROPE: TYPE = Core.ROPE;
Wire: TYPE = Core.Wire;
Wires: TYPE = Core.Wires;
CellType: TYPE = Core.CellType;
Wire Icons Creation
MakeComposer: PROC [design: CD.Design, size: NAT] RETURNS [wire: Wire, obj: CD.Object];
MakeBus: PUBLIC PROC [design: CD.Design, size: NAT, slash: CD.Object ← NIL] RETURNS [wire: Wire, obj: CD.Object];
MakeExtractor: PROC [design: CD.Design, index, size: NAT] RETURNS [wire: Wire, obj: CD.Object];
MakeRangeExtractor: PROC [design: CD.Design, index, subSize, size: NAT] RETURNS [wires: Wires, obj: CD.Object];
END.