
<<TTExecImpl.mesa>>
<<Michael Plass,  December 13, 1982 1:32 pm>>
DIRECTORY 
CIFS, FileIO, IO, PutGet, Rope, TextNode, TTOutput, TTTranslate;
TTExecImpl: PROGRAM
IMPORTS CIFS, FileIO, IO, PutGet, Rope, TextNode, TTOutput, TTTranslate
=
BEGIN
Try: PUBLIC PROCEDURE [fileName: Rope.ROPE _ "TTExecImpl.mesa"] RETURNS [error: Rope.ROPE _ "ok"] = {
stream: IO.STREAM _ FileIO.Open[fileName.Concat[".TeX"], overwrite];
errorMsg: Rope.ROPE _ NIL;
node: TextNode.Ref _ PutGet.FromFile[fileName];
IF errorMsg # NIL THEN error _ errorMsg;
TTTranslate.ToTeX[node, TTOutput.Create[stream]];
stream.Close[];
};
END.

Michael Plass,  December 13, 1982 1:23 pm. Created.
 ! CIFS.Error => TRUSTED {errorMsg _ error; CONTINUE}