DIRECTORY Rope, StructuralComparisonDataStructure; StructuralComparisonDataStructureImpl: CEDAR PROGRAM IMPORTS StructuralComparisonDataStructure EXPORTS StructuralComparisonDataStructure = BEGIN OPEN StructuralComparisonDataStructure; graphIDToRope: PUBLIC ARRAY GraphID OF ROPE _ [A: "A", B: "B", Unspecified: "Unspecified"]; endOfQ: PUBLIC Vertex _ NEW [VertexRep]; initialNetColor: Color _ 1; mirrorColor: Color _ 2; InitialColor: PUBLIC PROC [v: Vertex] RETURNS [initialColor: Color] = { SELECT v.class FROM net => initialColor _ initialNetColor; cell => initialColor _ IF IsMirror[v] THEN mirrorColor ELSE v.type.color; ENDCASE => ERROR; initialColor _ FilterColor[initialColor]; }; END. jStructuralComparisonDataStructureImpl.Mesa Last Edited by: Spreitzer, April 10, 1986 4:06:10 pm PST Κ– "cedar" style˜code™*J™8—K˜KšΟk œ)˜2K˜šΠbx%œœ˜4Kšœ"˜)Kšœ$˜+—K˜Kšœœ#˜-K˜Kš œœœ œœœœ#˜[K˜Kšœœ œ ˜(K˜K˜K˜K˜šΟn œœœ œ˜Gšœ ˜Kšœ&˜&Kšœœ œ œ˜IKšœœ˜—Kšœ)˜)K˜—K˜Kšœ˜—…—ΐC