<> <> <> <> <> DIRECTORY IO USING [STREAM], Rope USING [ROPE]; MT: CEDAR DEFINITIONS = BEGIN <> Direction: TYPE = {toArpa, toGrapevine}; Info: TYPE = REF InfoRec; InfoRec: TYPE; TranslateMessage: PROC [in, out, error: IO.STREAM, direction: Direction, id: Rope.ROPE]; <> ParseHeaders: PROC [file, errStream: IO.STREAM] RETURNS [info: Info]; PrintHeaders: PROC [info: Info, out: IO.STREAM, fold: BOOL _ FALSE]; CheckFromField: PROC [info: Info] RETURNS [ok: BOOL]; TranslateToArpa: PROC [info: Info]; TranslateToGrapevine: PROC [info: Info]; END.