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]; IndexedWire: PROC[name: ROPE, n: NAT] RETURNS [wire: Wire]; END. :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. Types and constants Wire Icons Creation Explicity names the children name#. Κ\˜codešœ™KšœB™BKšœ9™9Kšœ.™.—K™Kšœ)™)K™KšΟk œœ˜K˜KšΟn œœ œ˜$head™Kšœœœ˜Kšœœ ˜Kšœœ˜Kšœ œ˜—™Kš ž œœ œœœœ ˜WKšžœœœ œœ œ œœœ ˜qKš ž œœ œœœœ ˜_Kš žœœ œœœœ ˜oš ž œœœœœ˜;Jšœ#™#—J˜—K˜Kšœ˜—…—‚