<<>> <> <> <> <> <<>> DIRECTORY Xl USING [Connection, InitializeProcType]; XlService: CEDAR DEFINITIONS ~ BEGIN OPEN Xl; <<>> <> <<>> <> <<>> GetService: PROC [c: Connection] RETURNS [service: REF]; <> <> PutProp: PROC [service: REF, key: REF, val: REF ¬ NIL]; GetProp: PROC [service: REF, key: REF] RETURNS [val: REF ¬ NIL]; <> PutServiceProp: PROC [c: Connection, key: REF, val: REF ¬ NIL]; GetServiceProp: PROC [c: Connection, key: REF] RETURNS [val: REF]; <> <<>> GetServicePropAndInit: PROC [c: Connection, key: REF, init: InitializeProcType] RETURNS [val: REF]; <> <> <<>> END.