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}