<> <> <> <<>> <> DIRECTORY FS USING [OpenFile], Rope USING [ROPE]; STPServerFileTranslation: CEDAR DEFINITIONS ~ BEGIN OPEN Rope; Translator: TYPE ~ PROC [input, output: FS.OpenFile]; NamedTranslator: TYPE ~ REF NamedTranslatorRep; NamedTranslatorRep: TYPE ~ RECORD [name: ROPE, translator: Translator]; Register: PROC [name: Rope.ROPE, translator: Translator]; <...>> FindNamedTranslator: PROC [rope: ROPE, start, length: INT] RETURNS [NamedTranslator]; <> END.