<> <> DIRECTORY IODefs, ParserErrorDefs, OutputDefs, Rope; OutputMessage: CEDAR PROGRAM IMPORTS IODefs EXPORTS OutputDefs = BEGIN SendMessage: PUBLIC PROC [ type: ParserErrorDefs.ErrorType, message: Rope.ROPE, wantCR: BOOL _ TRUE] = BEGIN IF wantCR THEN IODefs.WriteLine[message] ELSE IODefs.WriteString[message]; END; END.