<> <> <> <> <> DIRECTORY Rope USING [ROPE]; GVMailParse: CEDAR DEFINITIONS = BEGIN ROPE: TYPE = Rope.ROPE; <> <<"Standard for the Format of Arpa Network Text Messages", August 13, 1982.>> <> ParseErrorCode: TYPE = {none, badFieldName, badFieldBody, truncated}; ParseHandle: TYPE = REF ParseInfo; <> <> <> ParseInfo: TYPE; endOfInput: CHAR = 203C; <> <> endOfList: CHAR = 204C; <> <> <> ParseError: ERROR [code: ParseErrorCode]; <> InitializeParse: PROC RETURNS [ParseHandle]; <> <> <> FinalizeParse: PROC [ph: ParseHandle]; <> <> <> <> <> GetFieldName: PROC [ph: ParseHandle, next: PROC RETURNS [CHAR]] RETURNS [fieldName: ROPE, found: BOOL]; <> <> <> <> <> <> <> <> GetFieldBody: PROC [ph: ParseHandle, next: PROC RETURNS [CHAR], suppressBody: BOOL _ FALSE, suppressWhiteSpace: BOOL _ FALSE ] RETURNS [fieldBody: ROPE]; <> <> <> <> <> <> <> ParseNameList: PROC [ph: ParseHandle, next: PROC RETURNS[CHAR], process: PROC [ROPE, ROPE, BOOL, BOOL] RETURNS [ROPE, BOOL], -- process: PROC [simpleName, registry, isFile, isNested] RETURNS [reg, write] -- write: PROC [CHAR] _ NIL]; <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> END.