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