<<>> <> <> <> <<>> DIRECTORY RefTab, Rope, PropRegistry; PropRegistryImpl: CEDAR PROGRAM IMPORTS RefTab EXPORTS PropRegistry = BEGIN Register: PUBLIC PROC [class: PropRegistry.RegistryClass] = { <> IF class#NIL THEN [] ¬ RefTab.Store[x: registry, key: class.name, val: class]; }; <<>> GetRegistered: PUBLIC PROC [name: ATOM] RETURNS [class: PropRegistry.RegistryClass] = { <> IF name#NIL THEN class ¬ NARROW[RefTab.Fetch[registry, name].val]; }; registry: RefTab.Ref = RefTab.Create[mod: 51]; END.