<<>> <> <> <> <> <<>> DIRECTORY Xl; XlCutBuffersBackdoor: CEDAR DEFINITIONS ~ BEGIN OPEN Xl; <> <> <> <<>> PutProc: TYPE = PROC [c: Connection, data: ROPE, convention: ATOM ¬ NIL]; GetProc: TYPE = PROC [c: Connection, convention: ATOM ¬ NIL] RETURNS [ROPE]; RegisterPutProc: PROC [convention: ATOM, put: PutProc]; RegisterGetProc: PROC [convention: ATOM, get: GetProc]; END.