DIRECTORY CD, Core; WireIcons: CEDAR DEFINITIONS ~ BEGIN ROPE: TYPE = Core.ROPE; Wire: TYPE = Core.Wire; Wires: TYPE = Core.Wires; CellType: TYPE = Core.CellType; 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. \WireIcons.mesa Copyright c 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. Types and constants Wire Icons Creation ΚB˜codešœ™Kšœ Οmœ1™