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} @TTExecImpl.mesa Michael Plass, December 13, 1982 1:32 pm Κ– "Cedar" style˜Jšœ™Jšœ)™)unitšΟk œ˜ Jšœ œ0˜@—šœ ˜Jšœœ œ/˜GJšœ˜Jš˜š Οnœœ œœœœ ˜eJšœœœ3˜DJšœœœ˜Jšœ/˜/Jšœ œœ˜(Jšœ1˜1Jšœ˜J˜—Kšœ˜—J˜J˜3Jšœœ œœ˜5—…—†Λ