DIRECTORY AMTypes, Asserting, Basics, Core, CoreRecord, IO, PrincOps, Rope, RedBlackTree, RoseBehavior, RoseEvents, RosePrivates, RoseWireTypes, VFonts; RoseWireTypeUse: CEDAR DEFINITIONS = BEGIN OPEN RoseWireTypes; ModuleRefType: TYPE = {Directory, Import, Export, Open}; RoseWireTypeUser: TYPE = REF RoseWireTypeUserRep; RoseWireTypeUserRep: TYPE; CreateUser: PROC RETURNS [RoseWireTypeUser]; AddRWCAux: PROC [user: RoseWireTypeUser, rwc: RoseWireClass]; NoteMesa: PROC [user: RoseWireTypeUser, mesa: Mesa]; NoteModuleRefs: PROC [user: RoseWireTypeUser, type: ModuleRefType, refs: LOR]; DestroyUser: PROC [user: RoseWireTypeUser] RETURNS [ repAux: ROPE, moduleRefs: ModuleRefs ]; ModuleRefs: TYPE = ARRAY ModuleRefType OF LOR; StmtCat: PROC [s1, s2: ROPE] RETURNS [catted: ROPE]; END. ΌRoseWireTypeUse.Mesa Spreitzer, September 22, 1985 3:10:15 pm PDT Barth, September 3, 1985 4:36:21 pm PDT This module defines the what Rosemary knows about Wire types. Transitively. ΚZ– "cedar" style˜code™K™,K™'—K˜KšΟk œ/œ^˜˜K˜KšΠbxœœ œ˜$K˜K™=K˜Kšœœ˜K˜Kšœœ%˜8K˜Kšœœœ˜1Kšœœ˜K˜KšΟn œœœ˜,K˜šŸ œœ.˜=K™ —K˜KšŸœœ&˜4K˜KšŸœœ5œ˜NK˜šŸ œœœ˜4Kšœœ˜ Kšœ˜K˜—K˜Kš œ œœœœ˜.K˜Kš Ÿœœ œœ œ˜4K˜Kšœ˜—…—"8