DIRECTORY CD; CDPrivate: CEDAR DEFINITIONS = BEGIN LayerRef: TYPE = REF LayerRec; LayerRec: TYPE = RECORD [ technology: CD.Technology_NIL, uniqueKey: ATOM_NIL, -- unique per technology properties: CD.PropRef, globalUniqueKey: REF_NIL, --use as CDValue key reserved by CDDefaults number: CD.Layer ]; layers: READONLY REF ARRAY CD.Layer OF LayerRef; ConvertLayer: PROC [technology: CD.Technology, uniqueKey: ATOM, into: CD.Layer]; DesignEnumerator: TYPE = PROC [design: CD.Design] RETURNS [quit: BOOL_FALSE]; EnumDesigns: PROC [p: DesignEnumerator] RETURNS [BOOL]; InstallDesignEnumerator: PRIVATE PROC [PROC [p: DesignEnumerator] RETURNS [BOOL]]; Hash: PROC[x: REF] RETURNS [h: CARDINAL]; END. 8CDPrivate.mesa (part of ChipNDale) Copyright c 1983, 1985, 1986 by Xerox Corporation. All rights reserved. Created by Christian Jacobi, November 21, 1983 4:02 pm Last Edited by: Christian Jacobi, August 16, 1986 5:07:35 pm PDT -- Layers --To enable input of no more supported layers -- Designs --only (modifyable) subset of designs will be enumerated --Enumerator does NOT have a lock on design: design is readonly unless locked explicitely -- For object generators... --assumes x of type CD.Object --generates hash code using size, layer and class ΚΖ˜šœ)™)Jšœ Οmœ=™HJšœ7™7Icode™@—J™šΟk ˜ Jšžœ˜J˜—JšΟn œžœž œ˜Jšž˜J˜Jšœ ™ J˜Jšœ žœžœ ˜šœ žœžœ˜Jšœ žœ žœ˜Jšœ žœžœΟc˜-Jšœ žœ ˜Jšœžœžœ +˜EJšœžœ˜J˜J˜—Jšœž œžœ žœ ˜1J˜š Ÿ œžœžœžœžœ˜PJ™-—J˜J™Jšœ ™ J˜Jš œžœžœ žœ žœžœžœ˜NJ˜šŸ œžœžœžœ˜7J™8J™Y—J˜Jš Ÿœž œžœžœžœ˜RJ˜J™Jšœ™J˜š Ÿœžœžœžœžœ˜)J™J™1—J™Jšžœ˜J˜J˜—…—ΖΔ