DIRECTORY LichenDataStructure, LichenSetTheory, IO; LichenTransforms: CEDAR DEFINITIONS = BEGIN OPEN LichenDataStructure, LichenSetTheory; Differentiate: PROC [design: Design, instances: RefSeq--of Vertex--] RETURNS [newCT: CellType]; Undifferentiate: PROC [design: Design, toType: CellType, fromTypes: RefSeq--of CellType--] RETURNS [changed: RefSeq--of Vertex--]; LowerChildren: PROC [design: Design, childType: CellType, sibber: Mapper--child _ RefSeq (role _ sibling: Vertex)--] RETURNS [gcs: RefSeq--role _ grandchild--, children: Set--of Vertex--]; RaiseGrandchildren: PROC [design: Design, gcs: Set--of Vertex--] RETURNS [childType: CellType, sibber: Mapper--child _ RefSeq (role _ sibling: Vertex)--]; ExpandVertex: PROC [design: Design, child: Vertex]; ExpandChildren: PROC [design: Design, parent: CellType, flatten: BOOL _ FALSE]; Group: PROC [design: Design, parent: CellType, children: RefSeq--of Vertex--] RETURNS [newChild: Vertex, newType: CellType]; END. VLichenTransforms.Mesa Last Edited by: Spreitzer, March 20, 1986 7:47:33 pm PST Κ8– "cedar" style˜code™J™8—K˜KšΟk œ'œ˜3K˜šΠbxœœ œ˜%K˜Kšœœ&˜0K˜KšΟn œœ#Οc œœ˜_Kš Ÿœœ5 œœ  œ˜‚K˜KšŸ œœ5 Πcm ‘ œœ  ‘  œ  œ˜ΌKšŸœœ  œœ% ‘ ‘ œ˜šK˜KšŸ œœ!˜3KšŸœœ-œœ˜OKšŸœœ4  œœ'˜|K˜Kšœ˜——…—Τb