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.