DIRECTORY RoseWireTypes; 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]; AddMesa: PROC [user: RoseWireTypeUser, mesa: Mesa]; 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, October 21, 1985 7:53:51 pm PDT Barth, September 3, 1985 4:36:21 pm PDT This module defines the what Rosemary knows about Wire types. Transitively. Κe– "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šŸœœ&˜3K˜KšŸœœ&˜4K˜KšŸœœ5œ˜NK˜šŸ œœœ˜4Kšœœ˜ Kšœ˜K˜—K˜Kš œ œœœœ˜.K˜Kš Ÿœœ œœ œ˜4K˜Kšœ˜—…—Ψχ