PipalWireIcons.mesa
Copyright Ó 1986, 1987, 1988 by Xerox Corporation. All rights reserved.
Created by Bertrand Serlet, August 4, 1986 6:31:47 pm PDT
Bertrand Serlet, March 5, 1988 5:47:49 pm PST
Allows creation by program of wire icons.
DIRECTORY CD, Core;
PipalWireIcons: 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];
IndexedWire:
PROC[name:
ROPE, n:
NAT]
RETURNS [wire: Wire];
Explicity names the children name#.
END.