DIRECTORY CD;CDSimpleRules: CEDAR DEFINITIONS =BEGIN Rules: TYPE = REF;NotKnown: ERROR;MinWidth: PROC [layer: CD.Layer, rules: Rules _ NIL] RETURNS [CD.Number];MinDist: PROC [l1, l2: CD.Layer, rules: Rules _ NIL] RETURNS [CD.Number];MaxWidth: PROC [layer: CD.Layer, rules: Rules _ NIL] RETURNS [CD.Number];GetLayer: PROC [technology, layer: REF] RETURNS [CD.Layer];Rect: PROC [size: CD.Position, layer: CD.Layer] RETURNS [CD.Object];Contact: PROC [l1, l2: CD.Layer, rules: Rules _ NIL] RETURNS [CD.Object];LargeContact: PROC [design: CD.Design, size: CD.Position, l1, l2: CD.Layer, rules: Rules _ NIL] RETURNS [CD.Object];GetTechnology: PROC [hint: REF] RETURNS [CD.Technology];GetRulesKey: PROC [rules: Rules] RETURNS [ATOM];GetRulesProp: PROC [rules: Rules, key: REF] RETURNS [REF];END.  Þ  CDSimpleRules.mesa (part of ChipNDale)Copyright c 1985, 1986, 1987 by Xerox Corporation.  All rights reserved.Created by Christian Jacobi, July 5, 1985 4:58:37 pm PDTLast edited by: Christian Jacobi, April 13, 1987 7:01:22 pm PDTThis module is used to hide the actual technology used from otherwise quite technology independent routing software.  Not all technologies do support this module.  All procedures might raise NotKnown if they do not support this module; if simply a particular procedure is not implemented, a default value might be specified.Doesn't deal with transistors because they are very technology dependent. --UNION of ATOM and REF ImplementationRulesRep--client procedures-- Minimum width of conductors.-- Might return 0 if nothing specified.-- (Width of interrest rect).-- Minimum distance between unrelated conductors.-- 0 if no interaction.-- Error if l1 and l2 from different technologies. -- Raises NotKnown if distance (or technology) is not known. -- (Distance of interrest rects).-- Maximum width of features.-- (width of interrest rects).-- Tries to figure out a layer, given names for layer, technology or rules. -- A little bit more forgiving than CD.FetchLayer...-- Raises NotKnown if not known.-- size: interest rect-- For conveniance only, duplicate of CDRects...-- Returns minimum size contact-- nil if any complication or no contact possible-- use CD.InterestRect to get size-- Error if l1 and l2 from different technologies. -- Returned object must be treated readonly. -- nil if any complication [other than size] or no contact possible-- Check size with CD.InterestRect, unless you are sure required size works-- Error if l1 or l2 from different technologies. -- Returned object must be treated readonly. -- Returns technology given its name, key or rules; NIL if not found.-- [more friendly version of CD.GetTechnology, which requires a key]-- Useful to get atom from REF ImplementationRulesRep-- To get more behaviour... Ê×  ˜ codešœ&™&Kšœ
Ïmœ=™HKšœ8™8K™?—K˜ šÏk	œ˜
Kšžœ˜—K˜ KšÏnœžœžœ˜"Kšžœ˜K™ Kšœ¤™¤Kšœ ™ KšœJ™JK™ šœžœžœ˜Kšœ.™.—K™ KšÏc™K˜ šŸœžœ˜K˜ —šŸœžœ	žœžœžœžœ	˜IKš ™Kš '™'Kš ™K˜ —šŸœžœ
žœžœžœžœ	˜IKš 1™1Kš ™Kš 3™3Kš =™=Kš !™!K™ —šŸœžœ	žœžœžœžœ	˜IKš ™Kš ™K™ —š
Ÿœžœžœžœžœ˜;Kš L™LKš 4™4Kš  ™ —K˜ šŸœžœžœžœžœžœ	˜DKš ™Kš 0™0K˜ —šŸœžœ
žœžœžœžœ	˜IKš ™Kš 1™1Kš "™"Kš 3™3Kš -™-K™ —šŸœžœ
žœžœžœžœžœžœ	˜tKš C™CKš K™KKš 2™2Kš -™-K™ —š
Ÿœžœžœžœžœ˜8Kš E™EKšœD™D—K™ šŸœžœžœžœ˜0Kš 5™5—K™ š
Ÿœžœžœžœžœ˜:Kšœ™—K˜ Kšžœ˜K˜ K˜ — …—    0  å  