StructuralComparisonDataStructureImpl.Mesa
Last Edited by: Spreitzer, April 10, 1986 4:06:10 pm PST
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.