ArpaMT.mesa
Last Edited by: HGM, April 20, 1985 9:26:34 pm PST
Last Edited by: Nichols, July 18, 1983 3:09 pm
Last Edited by: Taft, February 5, 1984 11:34:55 am PST
Hal Murray May 27, 1985 7:48:36 pm PDT
John Larson, October 10, 1987 4:51:34 pm PDT
DIRECTORY
IO USING [STREAM],
Rope USING [ROPE];
ArpaMT: CEDAR DEFINITIONS =
BEGIN
Types
Direction: TYPE = {toArpa, toGrapevine};
Info: TYPE = REF InfoRec;
InfoRec: TYPE;
TranslateMessage: PROC [in, out, error: IO.STREAM, direction: Direction, id: Rope.ROPE];
Translate a message present on in to out printing error messages on error.
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.