STPServerFileTranslation.mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
Michael Plass, December 30, 1985 10:39:59 am PST
Interface for registering new file translation services with the STPServer.
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];
The registered translator will be called to translate files with names of the form [...]<name>...
FindNamedTranslator: PROC [rope: ROPE, start, length: INT] RETURNS [NamedTranslator];
Finds the translator named by the specified subrope.
END.